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]