Untitled

alias socktest {
  if ($2) {
    set %socktest.time $ctime
    window -e @Socktest
    aline -ph @Socktest Opening a socket to: $1 $+ $2
    if ($sock(socktest)) { 
      unset %url
      unset %url2
      sockclose socktest 
    }
    set %url $1
    set %url2 $2
    sockopen socktest $1 80
  }
  else { echo -a 8(06 Usage: 04/socktest url 8) }
}
on *:sockopen:socktest: {
  sockwrite -n $sockname GET %url2 HTTP/1.1
  sockwrite -n $sockname Host: %url $+ $crlf $+ $crlf
}
on *:sockread:socktest: {
  if ($sockerr) { aline -ph @Socktest An error occured while looking up %url | halt }
  else {
    var %socktest
    sockread %socktest
    if (%socktest) { aline -ph @Socktest %socktest }
  }
}
on *:sockclose:socktest: {
  aline -ph @Socktest Socket Test Complete. Time taken: $duration($calc($ctime - %socktest.time))
  unset %url
  unset %url2
}