rendered paste body
on *:socklisten:reg:{
.sockaccept reg- $+ $ticks
echo $date Incoming connection from $sock(reg- $+ $ticks).ip
}
on *:sockread:reg-*:{
set % $+ $sockname
sockread % $+ $sockname
tokenize 32 % [ $+ [ $sockname ] ]
echo $date %sockname Saying: $1-
if (chanreg1024 == $1) {
if (GET == $2) {
sockwrite -n $sockname Yo yo yo
sockclose $sockname
}
}
else { sockwrite -n $sockname Wrong pass!? | sockclose $sockname }
}
alias reg {
socklisten reg 3131
echo -a Listening for connections ( $+ $ip $+ : $+ $sock(reg).port $+ ) at $time(hh:mm:sstt)
}