alias sockopen {
echo 12 -s * Trying to open connection with 127.0.0.1:80
sockopen open_socket 127.0.0.1 80
}
on *:SOCKOPEN:open_socket:{
if ($sockerr) {
echo 04 -s * Unable to connect: $sock($sockname).wsmsg
}
else {
echo 12 -s * Connection established.
sockwrite -n $sockname GET /socket/index.php HTTP/1.0
sockwrite -n $sockname Connection: Keep-Alive
sockwrite -n $sockname
}
}
on *:SOCKWRITE:open_socket:{
if ($sockerr) {
echo 04 -s * Unable to send data through socket: $sock($sockname).wsmsg
}
else {
echo 12 -s * Send data to socket.
}
}
on *:SOCKREAD:open_socket:{
if ($sockerr) {
echo 04 -s * Unable to read data from socket: $sock($sockname).wsmsg
}
else {
var %tmp
echo 12 -s * Reading data from socket
:loop
sockread %tmp
if (!$sockbr) { return }
echo -s * %tmp
goto loop
}
}
on *:SOCKCLOSE:open_socket:{
if ($sockerr) {
echo 04 -s * Socket closed unexpectedly: $sock($sockname).wsmsg
}
else {
echo 12 -s * Socket closed by server.
}
}