blob: 61216174a57734c934b1180ecd6d7095ed3f09b0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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]
|
