[siesta-commit] siesta/bin nacho,1.28,1.29

[prev] [thread] [next] [lurker] [Date index for 2002/09/17]

Update of /cvsroot/siesta/siesta/bin
In directory usw-pr-cvs1:/tmp/cvs-serv2193/bin

Modified Files:
	nacho 
Log Message:
perltidy

Index: nacho
===================================================================
RCS file: /cvsroot/siesta/siesta/bin/nacho,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- nacho	16 Sep 2002 13:01:58 -0000	1.28
+++ nacho	17 Sep 2002 11:31:54 -0000	1.29
@@ -381,8 +381,8 @@
     printf "%s-sub:   \"|%s%s %s sub\"\n", $post, $path, 'tequila', $list->id();
     printf "%s-unsub: \"|%s%s %s unsub\"\n", $post, $path, 'tequila',
       $list->id();
-    printf "%s-admin:  %s\n",    $post, $list->owner();
-    printf "%s: %s\n\n", $ret,  $list->owner();
+    printf "%s-admin:  %s\n", $post, $list->owner();
+    printf "%s: %s\n\n",      $ret,  $list->owner();
 
 }
 
@@ -403,11 +403,12 @@
     while ($user_id) {
         my $user = Siesta::User->new($user_id);
 
-        unless ( $user ) {
+        unless ($user) {
             $user = Siesta::User->new_from_hash( id => $user_id )
               or die "Couldn't create a new user\n";
             $user->save();
-            print "Created a new user '$user_id' - don't forget to set more details for them\n";
+            print
+              "Created a new user '$user_id' - don't forget to set more details for them\n";
         }
 
         $list->add_member($user);
@@ -521,7 +522,7 @@
 
 sub add_plugin {
     my $list_id = shift || die "You must pass a list id\n";
-    my $plugin = shift || die "You must pass a plugin id\n";
+    my $plugin  = shift || die "You must pass a plugin id\n";
     my $position = shift;
 
     my $list = Siesta::List->new($list_id)
@@ -587,8 +588,8 @@
 
 sub set_plugin_config_default {
     my $plugin_id = shift || die "You must pass a plugin id\n";
-    my $key = shift || die "You must pass a config option\n";
-    my $value = shift || die "You must pass a new value\n";;
+    my $key       = shift || die "You must pass a config option\n";
+    my $value     = shift || die "You must pass a new value\n";
 
     my %plugins = map { $_ => 1 } Siesta->list_all_plugins;
 
@@ -623,8 +624,8 @@
 
 sub set_plugin_config_user {
     my $plugin_id = shift || die "You must pass a plugin id\n";
-    my $key = shift || die "You must pass a config option\n";
-    my $value = shift;
+    my $key       = shift || die "You must pass a config option\n";
+    my $value     = shift;
     defined $value || die "You must pass a new value\n";
 
     my %plugins = map { $_ => 1 } Siesta->list_all_plugins;
@@ -644,7 +645,7 @@
 
 sub show_plugin_config_list {
     my $plugin_id = shift || die "You must pass a plugin name\n";
-    my $list_id = shift || die "You must pass a list id\n";
+    my $list_id   = shift || die "You must pass a list id\n";
 
     my %plugins = map { $_ => 1 } Siesta->list_all_plugins;
 
@@ -661,9 +662,9 @@
 
 sub set_plugin_config_list {
     my $plugin_id = shift || die "You must pass a plugin id\n";
-    my $list_id = shift || die "You must pass a list id\n";
-    my $key = shift || die "You must pass a config option\n";
-    my $value = shift;
+    my $list_id   = shift || die "You must pass a list id\n";
+    my $key       = shift || die "You must pass a config option\n";
+    my $value     = shift;
     defined $value || die "You must pass a new value\n";
 
     my %plugins = map { $_ => 1 } Siesta->list_all_plugins;
@@ -701,10 +702,10 @@
 
 sub set_plugin_config_userlist {
     my $plugin_id = shift || die "You must pass a plugin id\n";
-    my $user_id = shift || die "You must pass a user id\n";
-    my $list_id = shift || die "You must pass a list id\n";
-    my $key = shift || die "You must pass a config option\n";
-    my $value = shift;
+    my $user_id   = shift || die "You must pass a user id\n";
+    my $list_id   = shift || die "You must pass a list id\n";
+    my $key       = shift || die "You must pass a config option\n";
+    my $value     = shift;
     defined $value || die "You must pass a new value\n";
 
     my %plugins = map { $_ => 1 } Siesta->list_all_plugins;

• [siesta-commit] siesta/bin nacho,1.28,1.29 clampr 12:31 on 17 Sep 2002

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