From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 21 Nov 2002 13:26:23 +0000 (+0000)
Subject: - remove (last) null element from array in channel modes.
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=97b91e4345defc8115d91dda4adf8ba84f28f970;p=infobot.git

- remove (last) null element from array in channel modes.


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@655 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/src/IRC/IrcHooks.pl b/src/IRC/IrcHooks.pl
index 92238fb..8f6d021 100644
--- a/src/IRC/IrcHooks.pl
+++ b/src/IRC/IrcHooks.pl
@@ -5,7 +5,7 @@
 #        NOTE: Based on code by Kevin Lenzo & Patrick Cole  (c) 1997
 #
 
-if (&IsParam("useStrict")) { use strict; }
+# use strict;	# TODO
 
 # GENERIC. TO COPY.
 sub on_generic {
@@ -470,7 +470,7 @@ sub on_join {
     my $i		= scalar(keys %{ $channels{$chan} });
     my $j		= $cache{maxpeeps}{$chan} || 0;
 
-    if (time() > ($sched{shmFlush}{TIME} || time()) + 3600) {
+    if (!&IsParam("noSHM") && time() > ($sched{shmFlush}{TIME} || time()) + 3600) {
 	&DEBUG("looks like schedulers died somewhere... restarting...");
 	&setupSchedulers();
     }
@@ -582,9 +582,6 @@ sub on_join {
 	}
     }
 
-    ### chanlimit check.
-#    &chanLimitVerify($chan);
-
     ### wingate:
     &wingateCheck();
 }
@@ -618,7 +615,8 @@ sub on_mode {
     my $nick	= $event->nick();
     $chan	= ($event->to)[0];
 
-    $args[0] =~ s/\s$//;
+    # last element is empty... so nuke it.
+    pop @args while ($args[$#args] eq "");
 
     if ($nick eq $chan) {	# UMODE
 	&status(">>> mode $b_yellow\[$ob$b@args$b_yellow\]$ob by $b_cyan$nick$ob");