alias spy.on {
.set %id.spy spy $+ $r(0,9) $+ $r(0,9)
.sockopen %id.spy %proxy %port
}
on 1:sockopen:spy*:{
if ( $sockerr > 0 ) { return }
.sockwrite -tn $sockname CONNECT %server $+ :7000 $+(HTTP/1.0,$CRLF,$CRLF)
}
ON *:SOCKREAD:spy*:{
if ( $sockerr > 0 ) { return }
.sockread %report
.echo %report
if ($gettok(%report,1-2,32) == HTTP/1.0 200) || ($gettok(%report,1-2,32) == HTTP/1.1 200) {
sockwrite -tn * user spya $+ $r(0,9) $+ $r(0,9) :spyb $+ $r(0,9) $+ $r(0,9)
sockwrite -tn * nick spyc $+ $r(0,9) $+ $r(0,9)
}
if ( $sockbr == 0 ) { return }
}
menu * {
run:spy.on
check:socklist
sockclose:sockclose *
join:sockwrite -tn spy* join #coding
}