- added '.sched'

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@274 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/Modules/UserDCC.pl b/src/Modules/UserDCC.pl
index 0247831b488dc7ed2ec0a5b3acf2faa9f7f21d76..f3093aee6a688ccde09f82357f6642d9ebb7ac02 100644 (file)
--- 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";
 }