# tcl
#
package require http
set q [http::formatQuery liczby {1 2 3 4}]
  # przygotowujemy parametry zadania http
set h [http::geturl http://localhost:8015/www/sumaliczb?$q]; # GET
#set h [http::geturl http://localhost:8015/www/sumaliczb -query $q]; # POST
http::code $h
  # kod odp http
http::data $h
  # odczyt odpowiedzi http (czyli suma liczb)
http::cleanup $h


// java (a dokladniej tclBlend)
//
package re java
set s1 [java::new String "http://localhost:8015/www/sumaliczb?liczby=1+2+3+4"]
  // tutaj zakodowalem parametry recznie!
set url [java::new java.net.URL $s]
set urlc [$url openConnection]
set cont [$urlc getContent]
set input [java::cast java.io.InputStream $cont]
set _ ""
while {[$input available]} {append _ [format %c [$input read]]}
set _
  // odczyt odpowiedzi http (czyli suma liczb)