Tcl Library Source Code

Artifact [c40d98e222]
Login

Artifact c40d98e22285ea8ddb31fffd6e41bae4fb19bda3:

Attachment "leakap.tcl" to ticket [f084c0dc03] added by anonymous 2015-09-29 15:55:04. (unpublished)
#!/usr/local/bin/tclsh8.6

package require http
package require autoproxy
package require tls



proc init1 {} {
	set http_proxy_host "proxy"
	set http_proxy_port 8118
	::autoproxy::init
	::http::register https 443 [list ::autoproxy::tls_socket -ssl2 0 -ssl3 0 -tls1 1]
	::autoproxy::configure -proxy_host $http_proxy_host -proxy_port $http_proxy_port
}

proc init2 {} {
	::http::register https 443 ::tls::socket
}


proc scrape {} {
	set pageUrl "https://www.google.com/"
	set fp [::http::geturl $pageUrl -timeout 10000]
	set status [::http::status $fp]
	set ncode [::http::ncode $fp]
	set html [::http::data $fp]
	array set headers [::http::meta $fp]
	::http::cleanup $fp
}


init1
for {set i 0} {$i < 1000} {incr i} {
	puts "request $i"
	scrape
	puts [exec "/bin/ps" "auxw" "-p" [pid]]
}