rev 1932 - trunk/buscador/lib/Buscador

[prev] [thread] [next] [lurker] [Date index for 2005/02/21]

From: simon
Subject: rev 1932 - trunk/buscador/lib/Buscador
Date: 13:55 on 21 Feb 2005
Author: simon
Date: 2005-02-21 13:55:02 +0000 (Mon, 21 Feb 2005)
New Revision: 1932

Modified:
   trunk/buscador/lib/Buscador/Config.pm
Log:
Allow for alternative config files


Modified: trunk/buscador/lib/Buscador/Config.pm
===================================================================
--- trunk/buscador/lib/Buscador/Config.pm	2005-02-21 13:48:31 UTC (rev 1931)
+++ trunk/buscador/lib/Buscador/Config.pm	2005-02-21 13:55:02 UTC (rev 1932)
@@ -31,7 +31,8 @@
 
     $config{home} = $home;
 
-    open (CONF, "buscador.config") || die "Can't open config file: $!\n";
+    my $config_file =  $ENV{BUSCADOR_CONFIG} ||  "buscador.config";
+    open (CONF, $config_file) || die "Can't open config file '$config_file' : $!\n";
     while (<CONF>) {
         chomp;
         next if /^\s*#/;

Generated at 14:00 on 21 Feb 2005 by mariachi 0.52