[prev] [thread] [next] [lurker] [Date index for 2003/08/01]
Author: richardc Date: 2003-08-01 15:07:15 +0100 (Fri, 01 Aug 2003) New Revision: 1285 Modified: trunk/siesta/bin/nacho Log: fix layout Modified: trunk/siesta/bin/nacho =================================================================== --- trunk/siesta/bin/nacho 2003-08-01 13:58:39 UTC (rev 1284) +++ trunk/siesta/bin/nacho 2003-08-01 14:07:15 UTC (rev 1285) @@ -8,27 +8,20 @@ use String::ShellQuote; use UNIVERSAL::require; -## TODO -# adding plugins to different queues - - - -# this is a nasty hack, Class::DBI isn't so hot on this one BEGIN { - while (@ARGV) { if ($ARGV[0] eq '-d') { shift; @Siesta::Config::STORAGE = split / /, shift; next; } + if ($ARGV[0] eq '-f') { shift; $Siesta::Config::CONFIG_FILE = shift; next; } - # do create-database before the require of Siesta::List # otherwise Siesta::List &c will choke when they come to # __PACKAGE__->set_up_table @@ -38,14 +31,13 @@ Siesta::DBI->init_db; exit; } - last; + last; } } use Siesta::Config; print "$Siesta::Config::MESSAGES\n"; - eval { require Siesta; require Siesta::List;
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52