alias get {
sockopen get $gettok($1-,1,47) 80
.remove get.html
sockmark get $gettok($1-,1,47) / $+ $replace($gettok($1-,2-,47),$chr(32),% $+ 20)
}
on *:SOCKOPEN:get:{
if ( $sock($sockname).wserr ) || ( $sockerr ) {
echo -a $sock($sockname).wsmsg
halt
}
tokenize 32 $sock($sockname).mark
sockwrite -n $sockname GET $2 HTTP/1.1
sockwrite -n $sockname Connection: close
sockwrite -n $sockname Host: $1
sockwrite -n $sockname
}
on *:SOCKREAD:get:{
sockread &b
bwrite get.html -1 -1 &b
}
on *:SOCKCLOSE:get:{
echo -a Done.
}