rev 1364 - trunk/siesta/bin

[prev] [thread] [next] [lurker] [Date index for 2003/08/23]

Author: simon
Date: 2003-08-23 09:24:42 +0100 (Sat, 23 Aug 2003)
New Revision: 1364

Modified:
   trunk/siesta/bin/bandito
   trunk/siesta/bin/nacho
Log:
Doh! Bandito didn't set the sub and unsub queues


Modified: trunk/siesta/bin/bandito
===================================================================
--- trunk/siesta/bin/bandito	2003-08-21 15:37:18 UTC (rev 1363)
+++ trunk/siesta/bin/bandito	2003-08-23 08:24:42 UTC (rev 1364)
@@ -162,6 +162,10 @@
 
 
 print "Adding plugins : ";
+# first qet the sub and unsub queues out of the way
+$list->set_plugins( sub   => qw(Subscribe)   );
+$list->set_plugins( unsub => qw(UnSubscribe) );
+
 my @plugins = qw(Debounce MembersOnly Moderated ListHeaders ReplyTo SubjectTag MessageFooter Send Archive);
 print join ", ", @plugins;
 print "\n\n";

Modified: trunk/siesta/bin/nacho
===================================================================
--- trunk/siesta/bin/nacho	2003-08-21 15:37:18 UTC (rev 1363)
+++ trunk/siesta/bin/nacho	2003-08-23 08:24:42 UTC (rev 1364)
@@ -442,7 +442,7 @@
 #
 #####
 
-=head2 show-plugins
+=head2 show-plugins <list id>
 
 List all plugins available to the system or just the plugins
 for a list.
@@ -463,8 +463,12 @@
         my $list = Siesta::List->load($_)
           or die "No list '$_'!\n";
         print "Plugins for $_:\n";
-        foreach my $plugin ($list->plugins('post')) {
-            print $plugin->name,"\n";
+
+        foreach my $queue ($list->queues()) {
+            print "\n$queue:\n";
+            foreach my $plugin ($list->plugins($queue)) {
+                print $plugin->name,"\n";
+            }
         }
     }
 };

• rev 1364 - trunk/siesta/bin simon 09:24 on 23 Aug 2003

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52