/[SQL2XLS]/sql2xls.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /sql2xls.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 8 by dpavlin, Mon Nov 3 18:51:49 2008 UTC revision 10 by dpavlin, Mon Nov 3 19:19:39 2008 UTC
# Line 36  use Encode qw/decode/; Line 36  use Encode qw/decode/;
36  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
37    
38  # edit following to set defaults  # edit following to set defaults
39  my $dsn      = 'DBI:Pg:dbname=';  our $dsn      = 'DBI:Pg:dbname=';
40  my $database = 'template1';  our $database = 'template1';
41  my $user     = 'dpavlin';  our $user     = 'dpavlin';
42  my $passwd   = '';  our $passwd   = '';
43  my $path     = 'sql_reports.xls';  our $path     = 'sql_reports.xls';
44    
45  my $db_encoding     = 'iso-8859-2';  our $db_encoding     = 'iso-8859-2';
46  my $xls_date_format = 'dd.mm.yyyy';  our $xls_date_format = 'dd.mm.yyyy';
47    
48  my $debug = 1;  our $debug = 1;
49    
50  my $sql_dir = path_translated || '.';  my $sql_dir = path_translated || '.';
51  $sql_dir =~ s,/[^/]+$,,;  $sql_dir =~ s,/[^/]+$,,;
# Line 54  opendir(DIR, $sql_dir) || die "can't ope Line 54  opendir(DIR, $sql_dir) || die "can't ope
54  my @sql_files = sort grep { /\.sql$/i && -f "$sql_dir/$_" } readdir(DIR);  my @sql_files = sort grep { /\.sql$/i && -f "$sql_dir/$_" } readdir(DIR);
55  closedir DIR;  closedir DIR;
56    
57    my $config_path = "$sql_dir/config.pl";
58    warn "# using $config_path\n";
59    require $config_path if -e $config_path;
60    
61  my $workbook;  my $workbook;
62  if ($ENV{GATEWAY_INTERFACE} && $ENV{GATEWAY_INTERFACE} =~ m/CGI/i) {  if ($ENV{GATEWAY_INTERFACE} && $ENV{GATEWAY_INTERFACE} =~ m/CGI/i) {
63          # use as cgi script          # use as cgi script

Legend:
Removed from v.8  
changed lines
  Added in v.10

  ViewVC Help
Powered by ViewVC 1.1.26