From 773fa47536da988ea005932be9e0bb5cf4fda6e6 Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sun, 4 Feb 2001 12:13:42 +0000
Subject: [PATCH] - output update. - prevent "unknown msg" for shm. - typo for
 dcc hash. fixed. - forgot about users,chops,bans define in dccStatus. fixed.

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@331 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/IRC/Schedulers.pl | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index 0e1fa4b..5a535bb 100644
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -658,6 +658,7 @@ sub shmFlush {
     }
 
     foreach (split '\|\|', $shmmsg) {
+	next if (/^$/);
 	&VERB("shm: Processing '$_'.",2);
 
 	if (/^DCC SEND (\S+) (\S+)$/) {
@@ -880,6 +881,8 @@ sub factoidCheck {
 }
 
 sub dccStatus {
+    return unless (scalar keys %{ $dcc{CHAT} });
+
     if (@_) {
 	&ScheduleThis(10, "dccStatus");
 	return if ($_[0] eq "2");	# defer.
@@ -889,9 +892,10 @@ sub dccStatus {
 
     my $time = strftime("%H:%M", localtime(time()) );
 
-    return unless (scalar keys %{ $DCC{CHAT} });
-
     foreach (keys %channels) {
+	my $users	= keys %{ $channels{$_}{''};
+	my $chops	= keys %{ $channels{$_}{o};
+	my $bans	= keys %{ $channels{$_}{b};
 	&DCCBroadcast("[$time] $_: $users members ($chops chops), $bans bans","+o");
     }
 }
@@ -931,7 +935,7 @@ sub getChanConfDefault {
 
     if (exists $param{$what}) {
 	if (!exists $cache{config}{$what}) {
-	    &DEBUG("backward-compat: found param{$what} instead.");
+	    &status("gCCD: backward-compat: found param{$what} ($param{$what}) instead.");
 	    $cache{config}{$what} = 1;
 	}
 
@@ -942,9 +946,11 @@ sub getChanConfDefault {
     if (defined $val) {
 	return $val;
     }
+
     $param{$what}	= $default;
-    &status("gCCD: not configured; setting param{$what} = $default");
-    ### TODO: set some vars?
+    &status("gCCD: setting default for param{$what} = $default");
+    $cache{config}{$what} = 1;
+
     return $default;
 }
 
-- 
2.39.2