port=6667
realname='<nil>'
target=''
-clonefile=/net/tcp/clone
netdir=()
nick=$user
pass=()
tls=0
+serverpass=()
fn sighup {
exit 'hang up'
}
fn work {
+ if(~ $#serverpass 1)
+ echo PASS $serverpass > $netdir/data
echo USER $user foo bar :$realname > $netdir/data
echo NICK $nick > $netdir/data
if (~ $#pass 1)
case -p
port=$2
shift
+ case -P
+ serverpass=$2
+ shift
case -r
realname=$2
shift
case -T
tls=1
case -*
- echo 'usage: ircrc [-p port] [-r realname] [-t target] [-n nick] [-T] [server]' >[1=2]
+ echo 'usage: ircrc [-p port] [-P server password] [-r realname] [-t target] [-n nick] [-T] [server]' >[1=2]
exit 'usage'
}
shift
title
userpass=`{auth/userpasswd 'server='^$server^' service=irc user='^$nick >[2]/dev/null}
-if(~ $#userpass 2 && ~ $nick $user) {
+if(~ $#userpass 2) {
nick=$userpass(1)
pass=$userpass(2)
}