A simple Domain Header reader using mIRC socket v1.1.
menu status,menubar {
Http Header {
var %' http.head- $+ $$?"Domain address to read header. $+ $crlf $+ (note: without 'http://' )"
%' = %' $!
if ($sock($gettok(%',1,32))) { echo 3 -s $! $+ : Socket already in use. | return }
sockopen %' 80
}
}
on *:sockopen:http.head-*: {
if ($sockerr) { echo 10 -s * $gettok($sockname,2-,45) $+ : $sockerr $sock($sockname).wsmsg | return }
sockwrite -tn $sockname HEAD / HTTP/1.0 | sockwrite -tn $sockname $crlf
}
on *:sockread:http.head-*: {
var %' , %. = $gettok($sockname,2-,45)
if ($sockerr) { echo 10 -s * %. $+ : $sockerr $sock($sockname).wmsg | return }
sockread %' | tokenize 32 %'
if (HTTP/1.* iswm $1) { echo 10 -s Header from %. }
elseif ($istok(Connection: close;Connection: Keep-Alive,$1-2,59)) { echo 10 -s End Of Header from %. | sockclose $sockname | linesep -s }
else { echo 10 -s $str($chr(160),3) * %. $+ : %' }
}