[siesta-commit] siesta/bin nacho,1.10,1.11 tequila,1.15,1.16

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

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

Modified Files:
	nacho tequila 
Log Message:
perltidy

Index: nacho
===================================================================
RCS file: /cvsroot/siesta/siesta/bin/nacho,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- nacho	10 Sep 2002 16:58:29 -0000	1.10
+++ nacho	10 Sep 2002 18:54:34 -0000	1.11
@@ -10,49 +10,49 @@
 
 # All possible modes that we can do
 my @modes = qw(show-lists new-list delete-list modify-list
-	       show-users new-user delete-user modify-user
-	       show-list show-user create-alias
-	       show-users-list show-lists-user
-	       add-user-list remove-user-list
-	       show-all-plugins show-plugins 
-	       set-plugins add-plugin
-	       show-plugin-options	
-	       show-plugin-config-default
[...1152 lines suppressed...]
-	
 }
 
+sub usage {
+    ( my $name = $0 ) =~ s!^.*[\\/]!!;
 
-sub usage
-{
-	(my $name = $0) =~ s!^.*[\\/]!!;
-
-	return join '', "Usage: $name ", join (" ", map { "[$_]" } @modes),
-			 "\nSee the $name manpage for more details"; 
-
-
+    return join '', "Usage: $name ", join ( " ", map { "[$_]" } @modes ),
+      "\nSee the $name manpage for more details";
 
 }
-
 

Index: tequila
===================================================================
RCS file: /cvsroot/siesta/siesta/bin/tequila,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- tequila	5 Sep 2002 13:53:19 -0000	1.15
+++ tequila	10 Sep 2002 18:54:34 -0000	1.16
@@ -6,10 +6,12 @@
 use constant debug => 1;
 
 eval {
-    Siesta->connect( DBI => "dbi:SQLite:/home/richardc/lab/siesta/bin/siesta.db" );
+    Siesta->connect(
+                  DBI => "dbi:SQLite:/home/richardc/lab/siesta/bin/siesta.db" );
     Siesta->process( list => $ARGV[0], action => $ARGV[1], mail => \*STDIN );
 };
 if ($@) {
+
     # let the MTA know we're deferring.
     print $@ if debug;
     exit 20;

• [siesta-commit] siesta/bin nacho,1.10,1.11 tequila,1.15,1.16 clampr 19:54 on 10 Sep 2002

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