rev 1439 - trunk/siesta/bin

[prev] [thread] [next] [lurker] [Date index for 2003/10/17]

Author: richardc
Date: 2003-10-17 15:48:09 +0100 (Fri, 17 Oct 2003)
New Revision: 1439

Modified:
   trunk/siesta/bin/nacho
Log:
it'd help if we weren't using a deprecated interface


Modified: trunk/siesta/bin/nacho
===================================================================
--- trunk/siesta/bin/nacho	2003-10-17 14:04:12 UTC (rev 1438)
+++ trunk/siesta/bin/nacho	2003-10-17 14:48:09 UTC (rev 1439)
@@ -525,14 +525,14 @@
     my $list = Siesta::List->load($list_id)
       or die "Not a valid list $list_id\n";
 
-	my @plugins;
-	foreach my $queue ($list->queues) {
-		 push @plugins, $list->plugins($queue);
-	}
+    my @plugins;
+    foreach my $queue ($list->queues) {
+        push @plugins, $list->plugins($queue);
+    }
 
     my %plugins = map { $_->name => $_ } @plugins;
-    
-	my $plugin  = $plugins{$plugin_id}
+
+    my $plugin  = $plugins{$plugin_id}
       or die "That plugin is not used in the list '$list_id'\n";
 
 
@@ -559,7 +559,7 @@
     foreach my $option ( keys %{$options} ) {
         print " - ", $option, " : ", $plugin->pref($option), "\n";
     }
-        print $plugin->name," is set personal\n" if $plugin->personal();
+    print $plugin->name," is set personal\n" if $plugin->personal();
 }
 
 
@@ -676,8 +676,7 @@
     my $message = Siesta::Deferred->retrieve($mess_id)
       or die "No such deferred message\n";
 
-    Siesta::Message->resume( $mess_id );
-
+    $message->resume;
     print "Sucessfully resumed message $mess_id\n";
 };
 

• rev 1439 - trunk/siesta/bin richardc 15:48 on 17 Oct 2003

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