/
niceSOFT
/
engine
Обзор
Документация
Войти
/
niceSOFT
/
engine
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
tcl_tests/http.tcl
27 строк
815 B
Vitaly Chikunov
tcl_tests: Make utf-8 encoding work
12 янв 2020, 00:20
12 янв 2020, 00:20
b0f5bce
Код
Авторство
О чём код?
# # Получает в командной строке 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]