shithub: patch

ref: 507ddf3a5cb60f52a8bc2b8e013fd333d75208a4
dir: /ircrc-jpmfix/

View raw version
from _jpm: http://www.plan9.fi/up/ircrc
fixes hanging connections at startup

diff -r 94844cc7f1fd rc/bin/ircrc
--- a/rc/bin/ircrc	Tue Mar 01 21:27:37 2016 -0500
+++ b/rc/bin/ircrc	Sat Mar 05 23:05:00 2016 +0200
@@ -6,7 +6,7 @@
 port=6667
 realname='<nil>'
 target=''
-netdir=()
+pipe=/n/ircrc
 nick=$user
 pass=()
 tls=0
@@ -17,8 +17,7 @@
 }
 
 fn sigint sigterm {
-	if (! ~ $#netdir 0)
-		echo  QUIT : Leaving... > $netdir/data
+	echo  QUIT : Leaving... > $pipe/data
 }
 
 fn mshift {
@@ -33,29 +32,39 @@
 fn work {
         if(~ $#serverpass 1)
                 echo PASS $serverpass > $netdir/data
-	echo USER $user foo bar :$realname > $netdir/data
-	echo NICK $nick > $netdir/data
+	echo USER $user foo bar :$realname >[1=3]
+	echo NICK $nick >[1=3]
 	if (~ $#pass 1)
-		echo PRIVMSG 'nickserv :'identify $"pass > $netdir/data
+		echo PRIVMSG 'nickserv :'identify $"pass >[1=3]
 	if(! ~ $target ''){
 		title
-		echo JOIN $target > $netdir/data
+		echo JOIN $target >[1=3]
 	}
 	if(~ $target *,*)
 		target = `{echo $target | awk -F',' '{print $NF}'}
 	while (cmd=`{read}) {
 		s=$status
 		if(~ $s *eof) {
-			echo  QUIT : Leaving... > $netdir/data
+			echo  QUIT : Leaving... >[1=3]
 			exit
 		}
 		msg=()
 		out=()
 		switch ($cmd(1)) {
 		case /!
-			eval `{mshift $cmd} | while(rc=`{read})echo 'PRIVMSG '^$target^' :' $rc | tee $netdir/data
+			eval `{mshift $cmd} | while(rc=`{read}) echo 'PRIVMSG '^$target^' :' $rc | tee /fd/3
 		case /M
-			msg = (MODE `{mshift $cmd})
+			switch($#cmd){
+			case 1
+				if(! ~ $target '')
+					msg = (TOPIC $target)
+			case 2
+				msg = (TOPIC $cmd(2))
+			case *
+				chan = $cmd(2)
+				topic = $cmd(3-)
+				msg = (TOPIC $chan :^$"topic)
+			}
 		case /N
 			cmd = `{mshift $cmd}
 			if (! ~ $#cmd 0)
@@ -101,7 +110,7 @@
 		case /w
 			msg = (WHO `{mshift $cmd})
 		case /x
-			echo  QUIT : Leaving... > $netdir/data
+			echo QUIT : Leaving... >[1=3]
 			exit
 		case /*
 			echo unknown command
@@ -110,7 +119,7 @@
 			out = '('^$target^')	⇐	'^$"cmd
 		}
 		if (! ~ $#msg 0)
-			echo $msg > $netdir/data
+			echo $msg >[1=3]
 		if (! ~ $#out 0)
 			echo `{etime}^' '^$out
 	}
@@ -174,7 +183,7 @@
 		case *NOTICE*
 			line = `{echo -n $line | notice}
 		case *PING*
-			echo -n $line | sed 's/PING/PONG/' > $netdir/data
+			echo -n $line | sed 's/PING/PONG/' >[1=3]
 			line = ()
 		case *
 			line = `{echo -n $line | numeric}
@@ -238,16 +247,13 @@
 	pass=$userpass(2)
 }
 
-p='/n/ircrc'
-bind '#|' $p
+bind '#|' $pipe
 echo connecting to tcp!$server!$port...
 if(~ $tls 0){
-	aux/trampoline tcp!$server!$port <>$p/data1 >[1=0] &
+	aux/trampoline tcp!$server!$port <>$pipe/data1 >[1=0] &
 }
 if not {
-	tlsclient tcp!$server!$port <>$p/data1 >[1=0] &
+	tlsclient tcp!$server!$port <>$pipe/data1 >[1=0] &
 }
-netdir=$p
-cat $netdir/data | tr -d '\x2\x8\xd\x1f' | pretty &
-work
-
+<$pipe/data tr -d '\x2\x8\xd\x1f' | pretty >[3]$pipe/data &
+work >[3]$pipe/data