alias serv.start {
socklisten connect 6667
}
alias serv.close {
sockclose client.*
sockclose connect
}
alias serv.connect {
sockopen client.me $ip 6667
}
alias serv.test {
sockwrite -tn client.* TEST
}
on *:socklisten:connect:{
sockaccept client.1
echo -a client. [ $+ [ $sock(client.1).ip ] ]
sockrename client.1 client. [ $+ [ $sock(client.1).ip ] ]
}
on *:sockread:client.*:{
if ($sockerr) { return }
sockread %client
tokenize 32 %client
echo -a $sockname - $1-
}
menu status {
Open Server: serv.start
Close Server: serv.close
Connect: serv.connect
Test: serv.test
}