rev 1283 - trunk/siesta/bin

[prev] [thread] [next] [lurker] [Date index for 2003/08/01]

Author: simon
Date: 2003-08-01 14:54:03 +0100 (Fri, 01 Aug 2003)
New Revision: 1283

Modified:
   trunk/siesta/bin/bandito
   trunk/siesta/bin/nacho
   trunk/siesta/bin/tequila
Log:
Fix ordering of using Siesta::Config and setting config vars


Modified: trunk/siesta/bin/bandito
===================================================================
--- trunk/siesta/bin/bandito	2003-08-01 13:53:26 UTC (rev 1282)
+++ trunk/siesta/bin/bandito	2003-08-01 13:54:03 UTC (rev 1283)
@@ -10,14 +10,16 @@
 use Email::LocalDelivery;
 use POSIX qw/strftime/;
 
-use Siesta::Config;
 BEGIN {
     if (@ARGV && $ARGV[0] eq '-f') {
         shift;
         $Siesta::Config::CONFIG_FILE = shift;
     }
 }
+use Siesta::Config;
 
+
+
 =pod
 
 =head1 NAME

Modified: trunk/siesta/bin/nacho
===================================================================
--- trunk/siesta/bin/nacho	2003-08-01 13:53:26 UTC (rev 1282)
+++ trunk/siesta/bin/nacho	2003-08-01 13:54:03 UTC (rev 1283)
@@ -9,11 +9,13 @@
 use UNIVERSAL::require;
 
 ## TODO
-# setting personal plugins
+# adding plugins to different queues
 
+
+
 # this is a nasty hack, Class::DBI isn't so hot on this one
-use Siesta::Config;
 BEGIN {
+
     while (@ARGV) {
         if ($ARGV[0] eq '-d') {
             shift;
@@ -22,10 +24,11 @@
         }
         if ($ARGV[0] eq '-f') {
             shift;
-            @Siesta::Config::CONFIG_FILE = 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
@@ -39,6 +42,10 @@
     }
 }
 
+use Siesta::Config;
+print "$Siesta::Config::MESSAGES\n";
+
+
 eval {
     require Siesta;
     require Siesta::List;

Modified: trunk/siesta/bin/tequila
===================================================================
--- trunk/siesta/bin/tequila	2003-08-01 13:53:26 UTC (rev 1282)
+++ trunk/siesta/bin/tequila	2003-08-01 13:54:03 UTC (rev 1283)
@@ -7,13 +7,13 @@
 use constant debug => 1;
 
 
-use Siesta::Config;
 BEGIN {
     if (@ARGV && $ARGV[0] eq '-f') {
         shift;
         $Siesta::Config::CONFIG_FILE = shift;
     }
 } 
+use Siesta::Config;
 
 
 

• rev 1283 - trunk/siesta/bin simon 14:54 on 01 Aug 2003

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