Anonymous

on *:SOCKOPEN:Web:{ 
  sockwrite -n Web GET $iif($gettok(%weblink,2-,47) == $null,/,/ $+ $gettok(%weblink,2-,47) $+ /) HTTP/10.0
  sockwrite -n Web Host: $gettok(%weblink,1,47)
  sockwrite -n Web Connection: keep-alive 
  sockwrite -n Web Accept: */* 
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:Web:{
  if (!$sockerr) {
    var %var
    sockread %var
  }
}
alias web3 {
  set %weblink $remove($1-,http://,www.)
  sockclose Web 
  sockopen web $gettok($remove($1,http://),1,47) 80
}