From 5dfe819181acf8f944864e80d7f0d658df01cc1a Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Mon, 5 Apr 2004 02:34:33 +0000
Subject: [PATCH] report when

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

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;
     }
 
-- 
2.39.2