/[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 14 by dpavlin, Mon Nov 3 20:42:55 2008 UTC revision 16 by dpavlin, Mon Nov 3 21:53:30 2008 UTC
# Line 85  our $debug = 1; Line 85  our $debug = 1;
85  my $sql_dir = $ENV{SCRIPT_FILENAME} || '.';  my $sql_dir = $ENV{SCRIPT_FILENAME} || '.';
86  $sql_dir =~ s,/[^/]+$,,;  $sql_dir =~ s,/[^/]+$,,;
87    
88  my $config_path = "$sql_dir/config.pl";  my $config_path = $1 if "$sql_dir/config.pl" =~ m/^(.+)$/; # untaint
89  warn "# using $config_path\n";  warn "# using $config_path\n";
90  require $config_path if -e $config_path;  require $config_path if -e $config_path;
91    
# Line 116  my $date_format = $workbook->add_format( Line 116  my $date_format = $workbook->add_format(
116  my $dbh = DBI->connect($dsn . $database,$user,$passwd, { RaiseError => 1, AutoCommit => 0 }) || die $DBI::errstr;  my $dbh = DBI->connect($dsn . $database,$user,$passwd, { RaiseError => 1, AutoCommit => 0 }) || die $DBI::errstr;
117    
118  sub _c {  sub _c {
119            return shift unless $db_encoding;
120          return decode( $db_encoding, shift );          return decode( $db_encoding, shift );
121  }  }
122    
Legend:
Removed from v.14  
changed lines
  Added in v.16
  ViewVC Help
Powered by ViewVC 1.1.26