[siesta-commit] siesta/bin nacho,1.26,1.27

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

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

Modified Files:
	nacho 
Log Message:
less damn vertical whitespace


Index: nacho
===================================================================
RCS file: /cvsroot/siesta/siesta/bin/nacho,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- nacho	16 Sep 2002 05:45:08 -0000	1.26
+++ nacho	16 Sep 2002 10:47:28 -0000	1.27
@@ -359,7 +359,7 @@
     print "Property '$key' set to '$value' for the list $list_id\n";
 }
 
-=head2 create-alias [list id]
+=head2 create-alias list_id
 
 Print out an alias file entry for the list specified.
 
@@ -368,14 +368,14 @@
 sub create_alias {
     my $list_id = shift;
 
-    my $list = Siesta::List->new($list_id) || die "Not a valid list id\n";
+    my $list = Siesta::List->new($list_id)
+      or die "Not a valid list id\n";
 
     ( my $path = $0 ) =~ s!^(.*[\\/]).*$!$1!;
 
     ( my $post = $list->post_address() ) =~ s!@.*$!!;
     ( my $ret  = $list->return_path() )  =~ s!@.*$!!;
 
-    print "\n\n";
     printf "## %s mailing list\n", $list_id;
     printf "## created: %s nacho (the siesta config tool)\n",
       strftime( "%d-%b-%Y", localtime(time) );
@@ -384,7 +384,7 @@
     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\n", $ret,  $list->owner();
+    printf "%s: %s\n\n", $ret,  $list->owner();
 
 }
 

• [siesta-commit] siesta/bin nacho,1.26,1.27 clampr 11:47 on 16 Sep 2002

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