read config.pl file if it exists

git-svn-id: svn://svn.rot13.org/SQL2XLS@10 2e857b76-582b-47e5-ad5c-b3ba0f0ee29b

diff --git a/sql2xls.cgi b/sql2xls.cgi
index 05db319..4de6924 100755 (executable)
--- a/sql2xls.cgi
+++ b/sql2xls.cgi
@@ -36,16 +36,16 @@ use Encode qw/decode/;
 use Data::Dump qw/dump/;
 
 # edit following to set defaults
-my $dsn      = 'DBI:Pg:dbname=';
-my $database = 'template1';
-my $user     = 'dpavlin';
-my $passwd   = '';
-my $path     = 'sql_reports.xls';
+our $dsn      = 'DBI:Pg:dbname=';
+our $database = 'template1';
+our $user     = 'dpavlin';
+our $passwd   = '';
+our $path     = 'sql_reports.xls';
 
-my $db_encoding     = 'iso-8859-2';
-my $xls_date_format = 'dd.mm.yyyy';
+our $db_encoding     = 'iso-8859-2';
+our $xls_date_format = 'dd.mm.yyyy';
 
-my $debug = 1;
+our $debug = 1;
 
 my $sql_dir = path_translated || '.';
 $sql_dir =~ s,/[^/]+$,,;
@@ -54,6 +54,10 @@ opendir(DIR, $sql_dir) || die "can't opendir $sql_dir: $!";
 my @sql_files = sort grep { /\.sql$/i && -f "$sql_dir/$_" } readdir(DIR);
 closedir DIR;
 
+my $config_path = "$sql_dir/config.pl";
+warn "# using $config_path\n";
+require $config_path if -e $config_path;
+
 my $workbook;
 if ($ENV{GATEWAY_INTERFACE} && $ENV{GATEWAY_INTERFACE} =~ m/CGI/i) {
        # use as cgi script