[prev] [thread] [next] [lurker] [Date index for 2002/09/05]
Update of /cvsroot/siesta/siesta/bin In directory usw-pr-cvs1:/tmp/cvs-serv12537 Modified Files: tequila Log Message: hardcode back for plough Index: tequila =================================================================== RCS file: /cvsroot/siesta/siesta/bin/tequila,v retrieving revision 1.14 retrieving revision 1.15 diff -u -d -r1.14 -r1.15 --- tequila 1 Sep 2002 12:09:15 -0000 1.14 +++ tequila 5 Sep 2002 13:53:19 -0000 1.15 @@ -1,17 +1,12 @@ #!/usr/bin/perl -w use strict; use lib '/home/richardc/lab/siesta/lib'; -use constant debug => 1; -use Siesta::Config; -#use diagnostics; -#$SIG{__WARN__} = sub { die @_ }; - use Siesta; -my $DBI = "dbi:SQLite:".$Siesta::Config::DBFILE; +use constant debug => 1; eval { - Siesta->connect( DBI => qw( $DBI ) ); + Siesta->connect( DBI => "dbi:SQLite:/home/richardc/lab/siesta/bin/siesta.db" ); Siesta->process( list => $ARGV[0], action => $ARGV[1], mail => \*STDIN ); }; if ($@) {
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52