From 96706cc9d64ffe2066ead07653a1495bf9b122eb Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Wed, 7 Feb 2001 14:12:03 +0000
Subject: [PATCH] - list all schedulers and their respective time-of-next-run

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@359 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/Modules/UserDCC.pl | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/src/Modules/UserDCC.pl b/src/Modules/UserDCC.pl
index 7fef535..9343338 100644
--- a/src/Modules/UserDCC.pl
+++ b/src/Modules/UserDCC.pl
@@ -1204,15 +1204,25 @@ sub userDCC {
     if ($message =~ /^sched$/) {
 	my @list;
 	my @run;
+
+	my %time;
 	foreach (keys %sched) {
 	    next unless (exists $sched{$_}{TIME});
+	    $time{ $sched{$_}{TIME}-time() }{$_} = 1;
 	    push(@list,$_);
 
 	    next unless (exists $sched{$_}{RUNNING});
 	    push(@run,$_);
 	}
 
-	&pSReply( &formListReply(0,"Scheds to run: ", sort @list ) );
+	my @time;
+	foreach (sort { $a <=> $b } keys %time) {
+	    my $str = join(", ", sort keys %{ $time{$_} });
+	    push(@time, "$str (".&Time2String($_).")");
+	}
+
+	&pSReply( &formListReply(0, "Schedulers: ", sort @time ) );
+	&pSReply( &formListReply(0, "Scheds to run: ", sort @list ) );
 	&pSReply( &formListReply(0, "Scheds running(should not happen?) ", sort @run ) );
 
 	return;
-- 
2.39.2