Another minor local script fix.

1 files changed, 92 insertions, 2 deletions

diff --git a/net-irc/epic4/files/local b/net-irc/epic4/files/local
index 1c7f362ef1c2..5621702142b3 100644
--- a/net-irc/epic4/files/local
+++ b/net-irc/epic4/files/local
@@ -1,4 +1,7 @@
-if (fexist(~/.ircrc) == -1) {
+if (fexist(~/.ircrc) == -1 && fexist(~/.epicrc == -1)) {
+# set this if you want logging
+# assign win_logdir logs
+
 # uncomment this if you don't want time stamping
 # timestamp off
 
@@ -16,6 +19,7 @@ bind ^[6 parse_command window swap 6
 bind ^[7 parse_command window swap 7
 bind ^[8 parse_command window swap 8
 bind ^[9 parse_command window swap 9
+bind ^[0 parse_command window swap 10
 
 
 # *** variable sets ***
@@ -25,10 +29,39 @@ set dcc_auto_send_rejects off
 set dcc_timeout 60
 set dcc_sliding_window 1000
 set auto_rejoin off
+set log_rewrite $log_format($1-)
+set mangle_logfiles all
 set mirc_broken_dcc_resume on
 set status_format 16,12%T [%R] %=%@%N%*%#%S%H%B%Q%A%C%+%I%O%M%F%L %D
 
 
+# make sure that our logging directory exists
+
+if (!(win_logdir == [])) {
+	@mkdir($win_logdir)
+}
+
+
+# create status and msg windows, if necessary
+
+if (winnam(status) == []) {
+	window 1 name status level CRAP,PUBLIC,WALLS,WALLOPS,SNOTES,CTCP,USERLOG1,USERLOG2,USERLOG3,USERLOG4
+	if (!(win_logdir == [])) {
+		^window logfile $win_logdir/status.log log on
+	}
+	@ setitem(my_wins 0 blank_item)
+	@ setitem(my_wins 1 status)
+}
+
+if (winnam(queries) == []) {
+	window new name queries level msgs,actions,dcc hide
+	if (!(win_logdir == [])) {
+		^window queries logfile $win_logdir/msg.log log on
+	}
+	@ setitem(my_wins 2 queries)
+}
+
+
 # *** aliases ***
 
 alias ban {
@@ -155,6 +188,26 @@ alias format_idle_time {
 	return ${[$0] % 60} seconds
 }
 
+alias j jnw
+
+alias jnw {
+	@:ref_num = matchitem(my_wins $0))
+
+	if ( (ref_num < 3) || (winnum($ref_num) == -1) ) {
+		window new hide
+		window swap last
+		if (!(win_logdir == [])) {
+			^window logfile $win_logdir/$0.log log on
+		}
+		@ setitem(my_wins $winnum(0) $0)
+	} {
+		window swap $ref_num
+	}
+	//join $*
+}
+
+alias join jnw
+
 alias k {
 	kick $C $*
 }
@@ -164,6 +217,14 @@ alias kb {
 	k $*
 }
 
+alias log_format {
+	if ( left(1 $0) == [\(] ) {
+		return $strftime($time() (%m/%d/%Y %I:%M:%S %P)) $2-
+	} else {
+		return $strftime($time() (%m/%d/%Y %I:%M:%S %P)) $0-
+	}
+}
+
 alias memoserv { quote memoserv $* }
 
 alias mdop {
@@ -228,7 +289,9 @@ alias scan {
 		      } {
 			if (n2) {
 			  @:num += 2
-			 } { @:num++ }
+			} {
+			  @:num++
+			}
 		      }
 		    }
 	}
@@ -558,6 +621,33 @@ on ^333 "*" {
 	xecho -w $winchan($1) $ts()$banner Topic set by $2 $strftime($3 %c)
 }
 
+on ^353 "*" {
+	xecho -w $winchan($2)
+	xecho -w $winchan($2) -b 16Users on $2:
+	fe ($3-) n1 n2 n3 n4 {
+		xecho -w $winchan($2) 14|  13$[17]n1 $[17]n2 $[17]n3 $[17]n414  |
+		if (n4) {
+		  @total_nicks += 4
+		} {
+		  if (n3) {
+		    @total_nicks += 3
+		  } {
+		    if (n2) {
+		      @total_nicks += 2
+		    } {
+		      @total_nicks++
+		    }
+		  }
+		}
+	}
+}
+
+on ^366 "*" {
+	xecho -w $winchan($1) Total number of users on $1: $total_nicks
+	xecho -w $winchan($1)
+	@total_nicks = 0
+}
+
 on ^367 "*" {
 	xecho -w 1 $banner $1 $2 $3 $strftime($4 %c)
 }