tcl_tests/http.tcl

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