report when

[infobot.git] / src / IRC / Schedulers.pl

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