From 5edddb971beb21d96f6b3c37b7ff4dd10b1443d8 Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 30 Jan 2001 12:46:45 +0000
Subject: [PATCH] - added '.sched'

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

diff --git a/src/Modules/UserDCC.pl b/src/Modules/UserDCC.pl
index 0247831..f3093ae 100644
--- a/src/Modules/UserDCC.pl
+++ b/src/Modules/UserDCC.pl
@@ -1210,6 +1210,23 @@ sub userDCC {
 	return;
     }
 
+    if ($message =~ /^sched$/) {
+	my @list;
+	my @run;
+	foreach (keys %sched) {
+	    next unless (exists $sched{$_}{TIME});
+	    push(@list,$_);
+
+	    next unless (exists $sched{$_}{RUNNING});
+	    push(@run,$_);
+	}
+
+	&pSReply( &formListReply(0,"Scheds to run: ", sort @list ) );
+	&pSReply( &formListReply(0, "Scheds running(should not happen?) ", sort @run ) );
+
+	return;
+    }
+
     return "REPLY";
 }
 
-- 
2.39.2