From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Mon, 5 Apr 2004 02:34:33 +0000 (+0000)
Subject: report when
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5dfe819181acf8f944864e80d7f0d658df01cc1a;p=infobot.git

report when


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

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index 8496f02..15ec382 100644
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -39,7 +39,7 @@ sub queueTask {
 
     my $time = $schedule{$codename}[3];
     if (defined $time and $time > time()) {
-	&WARN("Sched for $codename already exists.");
+	&WARN("Sched for $codename already exists in " . &Time2String(time() - $time) . ".");
 	return;
     }
 
@@ -105,7 +105,7 @@ sub ScheduleThis {
 
     my $time = $sched{$codename}{TIME};
     if (defined $time and $time > time()) {
-	&WARN("Sched for $codename already exists.");
+	&WARN("Sched for $codename already exists in " . &Time2String(time() - $time) . ".");
 	return;
     }