alias www {
if ($1 == -r) sockclose $2
else sockopen $1 $1 80
}
on *:SOCKOPEN:*:{
if ($sock($sockname).port == 80) window -Ek $+(@,$sockname)
}
on *:SOCKCLOSE:*: echo 4 -ti2 $+(@,$sockname) Remote host closed the connection.
on *:SOCKREAD:*:{
if ($sockerr > 0) {
echo $color(ctcp) -bflirt $+(@,$sockname) $+([,$sock($sockname).wserr,]) $sock($sockname).wsmsg
return
}
elseif ($sock($sockname).port != 80) return
var %string
while (1) {
sockread %string
if ($sockbr == 0) return
if (%string == $null) %string = -
var %s, %n = $regsub(%string,/(^[^>]*>|<[^>]*>|<[^>]*$)/g,$null,%s)
tokenize 32 $remove(%s,&nbsp;)
if ($1) echo $color(info) -bflirt $+(@,$sockname) $1-
}
}
on *:INPUT:@:{
var %sockname = $right($active,-1)
if ((/* iswm $1) || ($sock(%sockname).port != 80)) return
if ($sock(%sockname).ip) {
sockwrite -n %sockname $1-
echo $color(action) -abflirt > $1-
halt
}
}