alias orbital3 {
Sockclose Orbital3
SockOpen Orbital3 www.orbital.pt 80
}
On *:sockopen:Orbital3:{
if ($sockerr) {
echo -s XBC Socket Error Falha na conecção (# $+ $sock($sockname).wserr $+ ) $sock($sockname).wsmsg
return
}
sockwrite -n Orbital3 GET /atocar.php HTTP/1.0
sockwrite Orbital3 Host: www.orbital.pt $+ $str($crlf,2)
}
on *:sockread:Orbital3: {
sockread 900 &data
echo -s $SockName
echo -s $bvar(&data,1-).text
}
on *:sockclose:Orbital3: {
echo -s $SockName close
}