[prev] [thread] [next] [lurker] [Date index for 2003/08/13]
Author: simon Date: 2003-08-13 14:53:45 +0100 (Wed, 13 Aug 2003) New Revision: 1339 Modified: trunk/siesta/bin/nacho trunk/siesta/messages/backup Log: make *everything* agree Modified: trunk/siesta/bin/nacho =================================================================== --- trunk/siesta/bin/nacho 2003-08-13 13:46:58 UTC (rev 1338) +++ trunk/siesta/bin/nacho 2003-08-13 13:53:45 UTC (rev 1339) @@ -553,7 +553,7 @@ } -=head2 modify-plugin I<list_id> I<plugin> I<key> I<val> [ I<member_id> ] +=head2 modify-plugin I<plugin> I<list_id> 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 ($list_id, $plugin_id, $key, $val, $member_id) = @_; + my ($plugin_id, $list_id, $key, $val, $member_id) = @_; + die "No plugin name passed\n" unless defined $plugin_id; die "No list name passed\n" unless defined $list_id; - die "No plugin name passed\n" unless defined $plugin_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; Modified: trunk/siesta/messages/backup =================================================================== --- trunk/siesta/messages/backup 2003-08-13 13:46:58 UTC (rev 1338) +++ trunk/siesta/messages/backup 2003-08-13 13:53:45 UTC (rev 1339) @@ -43,7 +43,7 @@ [%- FOREACH key = plugin.options.keys %] [%- val = plugin.pref( key ) %] [%- IF val != plugin.options.$key.default %] -nacho modify-plugin [% list.name %] [% plugin.name %] [% shellq( key ) %] [% shellq( plugin.pref( key ) )%] [% member.email %] +nacho modify-plugin [% plugin.name %] [% list.name %] [% shellq( key ) %] [% shellq( plugin.pref( key ) )%] [% member.email %] [%- END -%] [%- END -%] [%- END -%]
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52