From b04f117215be3dcddd147cc2be6871a8a988a8b6 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Mon, 3 Nov 2008 19:19:39 +0000 Subject: [PATCH] read config.pl file if it exists git-svn-id: svn://svn.rot13.org/SQL2XLS@10 2e857b76-582b-47e5-ad5c-b3ba0f0ee29b --- sql2xls.cgi | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) diff --git a/sql2xls.cgi b/sql2xls.cgi index 05db319..4de6924 100755 --- 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 -- 2.20.1