download a file from http server

[toaran]

hi

i tried to download a file from a http server an save this to my HD its funcional but not if i'm behind a firewall so my question is: how can i put in the username and PW from the firewall?
this is my test code i get it from this forum

i'm a beginner in TCL


package require http 1.0

proc mproggy {token tot cur} {
puts -nonewline stdout "."
flush stdout
}

proc rseed {} {
return [expr int(1 + rand() * 12322)]
}

set url [lindex $argv 0]
set url "

http://server.com/xyz.txt"

set chan [open "x[rseed].txt" w]
fconfigure $chan -translation binary
set mhandle [http_get $url -channel $chan -progress mproggy]


greetings Toaran

 

[marsd]

Try this discussion:

http://groups.google.com/groups?hl=...dfb593%241%40ottunt1.organonteknika.nl&rnum=1

It discusses one way at least to build the proper headers for the proxy auth:

proc buildProxyHeaders {} {
    global Options
    set auth {}
    if { $Options(UseProxy)                && [info exists Options(ProxyUsername)]                && $Options(ProxyUsername) != {} } {
 set auth [list "Proxy-Authorization"                         [concat "Basic"                                [base64::encode 
$Options(ProxyUsername):$Options(ProxyPassword)]]]
    } return $auth
}

and then

::http::geturl $url -headers [buildProxyHeaders]