Socket Test

;--Paste URL: [posturl]
 
alias testsock {
  var %host = www.mirc.com, %get = /index.html
  sockopen testsock %host 80
  sockmark testsock %get
}
on *:sockopen:testsock: {
  if ($sockerr > 0) { echo -atng OPEN $sockname ERR: $sock($sockname).wsmsg | return }
  echo -atng Opened $sockname ...
  sockwrite -nt $sockname $+(GET $sock($sockname).mark HTTP/1.1,$crlf,Host: $sock($sockname).addr,$crlf,User-Agent: Mozilla/5.0,$crlf,Connection: Keep-Alive,$str($crlf,2))
}
on *:sockread:testsock:{
  if ($sockerr > 0) { echo -atng READ $sockname ERR: $sock($sockname).wsmsg | return }
  var %r | sockread %r
  while ($sockbr > 0) {
    ;mIRC v7.43 has been <a href="news.html">released</a>.
    echo -atng - $sockname : %r
    sockread %r
  }
  sockread %r
}
on *:sockclose:testsock:{
  if ($sockerr > 0) { echo -atng CLOSE $sockname ERR: $sock($sockname).wsmsg | return }
  echo -atng Closed $sockname ...
}
 
;-------------------------