From 07c051e7d23edc5fd91badbf93c3d8cc1e03aaaf Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sun, 4 Feb 2001 12:16:01 +0000
Subject: [PATCH] - if in private, "is addressing" => "is /msg'ing". -
 dccStatus fix ups. - use ScheduleThis where possible.

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@334 c11ca15a-4712-0410-83d8-924469b57eb5
---
 blootbot/src/IRC/IrcHooks.pl | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/blootbot/src/IRC/IrcHooks.pl b/blootbot/src/IRC/IrcHooks.pl
index b590d0b..0054a08 100644
--- a/blootbot/src/IRC/IrcHooks.pl
+++ b/blootbot/src/IRC/IrcHooks.pl
@@ -75,7 +75,7 @@ sub on_chat {
 	    $self->privmsg($sock, "Commands start with '.' (like '.quit' or '.help')");
 	    $self->privmsg($sock, "Everything else goes out to the party line.");
 
-	    &dccStatus(2) if (scalar keys %{ $dcc{'CHAT'} } == 1);
+	    &dccStatus(2) unless (exists $sched{"dccStatus"}{RUNNING});
 
 	    $success++;
 
@@ -147,7 +147,7 @@ sub on_endofmotd {
     }
 
     if ($firsttime) {
-	$conn->schedule(60, \&setupSchedulers, "");
+	&ScheduleThis(1, \&setupSchedulers);
 	$firsttime = 0;
     }
 
@@ -312,7 +312,7 @@ sub on_disconnect {
     &clearIRCVars();
     if (!$self->connect()) {
 	&WARN("not connected? help me. gonna call ircCheck() in 1800s");
-	$conn->schedule(1800, \&ircCheck(), "");
+	&ScheduleThis(30, "ircCheck");
     }
 }
 
@@ -1026,7 +1026,9 @@ sub hookMsg {
 
 	if ($addrchar) {
 	    &status("$b_cyan$who$ob is short-addressing me");
-	} else {
+	} elsif ($msgType eq "private") {	# private.
+	    &status("$b_cyan$who$ob is /msg'ing me");
+	} else {				# public?
 	    &status("$b_cyan$who$ob is addressing me");
 	}
 
-- 
2.39.5