[prev] [thread] [next] [lurker] [Date index for 2002/09/12]
Update of /cvsroot/siesta/siesta/bin In directory usw-pr-cvs1:/tmp/cvs-serv2116 Modified Files: tequila Log Message: now we istall this is the correct way to do it Index: tequila =================================================================== RCS file: /cvsroot/siesta/siesta/bin/tequila,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- tequila 10 Sep 2002 18:54:34 -0000 1.16 +++ tequila 12 Sep 2002 15:04:46 -0000 1.17 @@ -1,17 +1,17 @@ #!/usr/bin/perl -w use strict; -use lib '/home/richardc/lab/siesta/lib'; use Siesta; +use Siesta::Config; use constant debug => 1; eval { - Siesta->connect( - DBI => "dbi:SQLite:/home/richardc/lab/siesta/bin/siesta.db" ); + Siesta->connect( @Siesta::Config::STORAGE ) + or die "couldn't connect to storage"; Siesta->process( list => $ARGV[0], action => $ARGV[1], mail => \*STDIN ); }; -if ($@) { +if ($@) { # let the MTA know we're deferring. print $@ if debug; exit 20;
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52