]> wagner.pp.ru Git - openssl-gost/engine.git/blob - tcl_tests/http.tcl
Update Copyright lines after registration rework
[openssl-gost/engine.git] / tcl_tests / http.tcl
1
2 # Получает в командной строке URL и (опционально) строку для поиска
3 # сертификата. Выполняет HTTP-запрос и возрвщает результат
4 # В строке для поиска сертификата можно использовать прямые слэши вместо
5 # обратных.
6
7 if {!$argc || $argc>2} {
8         puts stderr "Usage $argv0 url \[cert-spec\]"
9 }       
10
11 set url [lindex $argv 0]
12 if {$argc==2} {
13         set certspec [string map {/ \\} [lindex $argv 1]]
14 }       
15
16
17 puts Started
18
19 package require tcom
20 set hh [::tcom::ref createobject WinHttp.WinHttpRequest.5.1]
21 $hh Open GET $url 0
22 if {[info exists certspec]} {
23         puts "Setting Client Certificate $certspec"
24         $hh SetClientCertificate $certspec
25 }
26 $hh Send
27 puts [$hh ResponseText]