on *:SOCKOPEN:chansock:{
sockwrite -n $sockname GET / $+ $gettok(%chan.url,3-,47) HTTP/1.1
sockwrite -n $sockname Host: %chan.host
sockwrite -n $sockname Accept: */*
sockwrite -n $sockname Connection: keep-alive
sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)
sockwrite -n $sockname $crlf
}
on *:SOCKREAD:chansock:{
if ($sockerr) {
return
}
else {
var %chan.data
sockread %chan.data
while ($sockbr) {
sockread %chan.data
}
sockread -f %chan.data
if (*404 not found* iswm %chan.data) {
msg %chan.chan Error: 404
sockclose chansock
unset %chan.*
}
else {
bwrite %chan.file -1 -1 %chan.data
msg %chan.chan Succeed!
sockclose chansock
unset %chan.*
}
}
}