[siesta-commit] siesta/bin tequila,1.18,1.19

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

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

Modified Files:
	tequila 
Log Message:
radib optimisation

Index: tequila
===================================================================
RCS file: /cvsroot/siesta/siesta/bin/tequila,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- tequila	15 Sep 2002 10:47:17 -0000	1.18
+++ tequila	1 Oct 2002 10:10:08 -0000	1.19
@@ -5,7 +5,22 @@
 
 use constant debug => 1;
 
-=head1 NAME 
+eval {
+    Siesta->connect(@Siesta::Config::STORAGE)
+      or die "couldn't connect to storage";
+    Siesta->process( list => $ARGV[0], action => $ARGV[1], mail => \*STDIN );
+};
+
+if ($@) {
+
+    # let the MTA know we're deferring.
+    print $@ if debug;
+    exit 20;
+}
+
+__END__
+
+=head1 NAME
 
 tequila - the Siesta mail injector
 
@@ -14,14 +29,14 @@
   % cat some.mail | tequila [ list name ] <action>
 
 Cat a mail to tequila passing a list name and an optional
-action (post, sub, sunsub - post being the default). 
+action (post, sub, sunsub - post being the default).
 
-This program will almost never be called directly. Instead it 
+This program will almost never be called directly. Instead it
 will be called from an aliases file by the MTA. The appropriate
 set of aliases for a list can be generated automatically by using
 the nacho tool.
 
-  % cat nacho create-aliases [ list name ] 
+  % nacho create-aliases [ list name ]
 
 
 =head1 SEE ALSO
@@ -34,19 +49,5 @@
 
 Distributed under the same terms as Perl itself.
 
-See the files Artistic and COPYING for details.
-
 =cut
 
-eval {
-    Siesta->connect(@Siesta::Config::STORAGE)
-      or die "couldn't connect to storage";
-    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 tequila,1.18,1.19 clampr 11:10 on 01 Oct 2002

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