Code:

# usage: getegghelp <yourUsername> <yourPassword> [theDesiredDestinationUri]# returns: url based on uri with appended session idproc getegghelp {user pass {uri ""}} {set     Q {}lappend Q username $userlappend Q password $passlappend Q redirect $urilappend Q login "Log in";# required by phpbbset t [http::geturl http://forum.egghelp.org/login.php -query [eval http::formatQuery $Q]]if {[http::ncode $t]==302} {upvar #0 $t sarray set h $s(meta)http::cleanup $tset h(Location)} else {error "failed?"}}getegghelp rosc2112 password /search.php?search_id=newposts

Code:

proc geturlauth {url args} {# parse the url to extract user:passif {![regexp -- {^([a-z]+://)?(?:([^@/]+)@)?(.+)$} $url url prefix login rest]} {error "Invalid url"}if {$login==""} {error "Don't use it if you don't need it ;)"}array set o $argslappend o(-headers) "Authorization" "Basic [b64e $login]"eval http::geturl [list $prefix$rest] [array get o]}# base64encode based on RS's proc in the tcl wikiproc b64e str {binary scan $str B* bitsswitch [expr {[string len $bits]%6}] {2 {append bits 0000==}4 {append bits 00=}}string map {000000 A 000001 B 000010 C 000011 D 000100 E 000101 F000110 G 000111 H 001000 I 001001 J 001010 K 001011 L001100 M 001101 N 001110 O 001111 P 010000 Q 010001 R010010 S 010011 T 010100 U 010101 V 010110 W 010111 X011000 Y 011001 Z 011010 a 011011 b 011100 c 011101 d011110 e 011111 f 100000 g 100001 h 100010 i 100011 j100100 k 100101 l 100110 m 100111 n 101000 o 101001 p101010 q 101011 r 101100 s 101101 t 101110 u 101111 v110000 w 110001 x 110010 y 110011 z 110100 0 110101 1110110 2 110111 3 111000 4 111001 5 111010 6 111011 7111100 8 111101 9 111110 + 111111 /} $bits}