X-Git-Url: http://wagner.pp.ru/gitweb/?a=blobdiff_plain;f=tcl_tests%2Fhttp.tcl;fp=tcl_tests%2Fhttp.tcl;h=61216174a57734c934b1180ecd6d7095ed3f09b0;hb=3b8ddfe2f303b8931842e52bdb5c07c97042f651;hp=0000000000000000000000000000000000000000;hpb=e09d5a86fe1cb876b3c7cf5eb0d890f557b466d0;p=openssl-gost%2Fengine.git

diff --git a/tcl_tests/http.tcl b/tcl_tests/http.tcl
new file mode 100644
index 0000000..6121617
--- /dev/null
+++ b/tcl_tests/http.tcl
@@ -0,0 +1,28 @@
+# -*- coding: cp1251 -*-
+# 
+# Получает в командной строке URL и (опционально) строку для поиска
+# сертификата. Выполняет HTTP-запрос и возрвщает результат
+# В строке для поиска сертификата можно использовать прямые слэши вместо
+# обратных.
+
+if {!$argc || $argc>2} {
+	puts stderr "Usage $argv0 url \[cert-spec\]"
+}	
+
+set url [lindex $argv 0]
+if {$argc==2} {
+	set certspec [string map {/ \\} [lindex $argv 1]]
+}	
+
+
+puts Started
+
+package require tcom
+set hh [::tcom::ref createobject WinHttp.WinHttpRequest.5.1]
+$hh Open GET $url 0
+if {[info exists certspec]} {
+	puts "Setting Client Certificate $certspec"
+	$hh SetClientCertificate $certspec
+}
+$hh Send
+puts [$hh ResponseText]