rev 1366 - trunk/siesta/bin

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

Author: simon
Date: 2003-08-23 09:35:54 +0100 (Sat, 23 Aug 2003)
New Revision: 1366

Modified:
   trunk/siesta/bin/nacho
Log:
Allow you to look at config of sub and unsub plugins


Modified: trunk/siesta/bin/nacho
===================================================================
--- trunk/siesta/bin/nacho	2003-08-23 08:35:23 UTC (rev 1365)
+++ trunk/siesta/bin/nacho	2003-08-23 08:35:54 UTC (rev 1366)
@@ -525,8 +525,14 @@
     my $list = Siesta::List->load($list_id)
       or die "Not a valid list $list_id\n";
 
-    my %plugins = map { $_->name => $_ } $list->plugins;
-    my $plugin  = $plugins{$plugin_id}
+	my @plugins;
+	foreach my $queue ($list->queues) {
+		 push @plugins, $list->plugins($queue);
+	}
+
+    my %plugins = map { $_->name => $_ } @plugins;
+    
+	my $plugin  = $plugins{$plugin_id}
       or die "That plugin is not used in the list '$list_id'\n";
 
 

• rev 1366 - trunk/siesta/bin simon 09:35 on 23 Aug 2003

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