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 8496f0290fd4215611a66974d77622b4a0c4063d..15ec382df1a7a9f7833e53c6afdd4f958b0f4dcb 100644 (file)
--- 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;
     }