rev 1338 - trunk/siesta/bin

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

From: richardc
Subject: rev 1338 - trunk/siesta/bin
Date: 14:47 on 13 Aug 2003
Author: richardc
Date: 2003-08-13 14:46:58 +0100 (Wed, 13 Aug 2003)
New Revision: 1338

Modified:
   trunk/siesta/bin/nacho
Log:
make this agree with create-backup


Modified: trunk/siesta/bin/nacho
===================================================================
--- trunk/siesta/bin/nacho	2003-08-13 13:35:57 UTC (rev 1337)
+++ trunk/siesta/bin/nacho	2003-08-13 13:46:58 UTC (rev 1338)
@@ -553,7 +553,7 @@
 }
 
 
-=head2 modify-plugin I<plugin> I<list_id> I<key> I<val> [ I<member_id> ]
+=head2 modify-plugin I<list_id> I<plugin> I<key> I<val> [ I<member_id> ]
 
 Sets the preference for a list. If optionally passed a member email,
 it will set their personal preference.
@@ -562,10 +562,10 @@
 
 
 $commands{'modify-plugin'} = sub {
-    my ($plugin_id, $list_id, $key, $val, $member_id) = @_;
+    my ($list_id, $plugin_id, $key, $val, $member_id) = @_;
 
+    die "No list name passed\n"   unless defined $list_id;
     die "No plugin name passed\n" unless defined $plugin_id;
-    die "No list name passed\n"   unless defined $list_id;
     die "You must pass a preference to change\n" unless defined $key;
     die "You must pass a value to the '$key' preference to\n" unless defined $val;
 

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