[prev] [thread] [next] [lurker] [Date index for 2002/08/28]
Update of /cvsroot/siesta/siesta/bin In directory usw-pr-cvs1:/tmp/cvs-serv14858/bin Modified Files: tequila Log Message: bigass ->connect ->storage refactor Index: tequila =================================================================== RCS file: /cvsroot/siesta/siesta/bin/tequila,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- tequila 23 Aug 2002 17:57:10 -0000 1.12 +++ tequila 28 Aug 2002 10:05:38 -0000 1.13 @@ -5,12 +5,11 @@ #use diagnostics; #$SIG{__WARN__} = sub { die @_ }; -use Siesta::Config; -BEGIN { $Siesta::Config::DBFILE = "/home/richardc/lab/siesta/bin/siesta.db" }; -use Siesta qw(process); +use Siesta; eval { - process( list => $ARGV[0], action => $ARGV[1], mail => \*STDIN ); + Siesta->connect( DBI => qw( 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.
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52