#
# ...
package re http
# dwa sposoby przekazywania danych w zadaniu HTTP:
# 1. zmienne w url-u, met. GET
# 2. dane POST za pusta linia, met. POST
#
# metoda GET
set h1 [http::geturl http://localhost:8001/np02/plik1.tcl?x=1234&y=4321]
http::ncode $h1
#% 200
http::data $h1
#% {} x=123&y=321 {} 123
# + akurat taka odp zwraca plik1.tcl:
# user query content "par x"
http::cleanup $h1
# metoda POST !!!
set h1 [http::geturl http://localhost:8001/np02/plik1.tcl \
-query "x=12345&y=54321"
]
http::ncode $h1
#% 200
http::data $h1
#% {} {} x=12345&y=54321 12345
# ...
# uwierzytelnianie http typu "basic"
# + opcja -headers {naglowek wartosc ...}; naglowek bez ":"
#
exec echo -n "qqq:qqq" | openssl enc -base64
#% cXFxOnFxcQ==
# + zakodowac "user:password"
set h1 [http::geturl http://localhost:8000/np01/plik1.tcl?x=123&y=321]
http::ncode $h1
#% 401
http::cleanup $h1
set h1 [http::geturl http://localhost:8000/np01/plik1.tcl?x=123&y=321 \
-headers {Authorization "Basic cXFxOnFxcQ=="}
]
http::ncode $h1
#% 200
http::data $h1
#% qqq x=123&y=321 {} 123
http::cleanup $h1
# ...