/[SQL2XLS]/sql2xlsx.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 /sql2xlsx.cgi

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

revision 22 by dpavlin, Thu Nov 6 10:37:17 2008 UTC revision 23 by dpavlin, Thu Nov 6 10:49:02 2008 UTC
# Line 124  sub use_database { Line 124  sub use_database {
124          my $database = shift || return;          my $database = shift || return;
125          print STDERR "## connect to $database\n" if $debug;          print STDERR "## connect to $database\n" if $debug;
126          $dbh = DBI->connect($dsn . $database,$user,$passwd, { RaiseError => 1, AutoCommit => 0 }) || die $DBI::errstr;          $dbh = DBI->connect($dsn . $database,$user,$passwd, { RaiseError => 1, AutoCommit => 0 }) || die $DBI::errstr;
127          $dbh->do( qq{ set names '$db_encoding'; } ) if $db_encoding && $dsn =~ m{mysql};          if ( $db_encoding ) {
128                    if ( $dsn =~ m{Pg} ) {
129                            $dbh->do( qq{ set client_encoding = '$db_encoding'; } );
130                    } elsif ( $dsn =~ m{mysql} ) {
131                            $dbh->do( qq{ set names '$db_encoding'; } );
132                    } else {
133                            warn "Don't know how to set encoding to $db_encoding for $dsn";
134                    }
135            }
136  }  }
137    
138  use_database( $database );  use_database( $database );

Legend:
Removed from v.22  
changed lines
  Added in v.23

  ViewVC Help
Powered by ViewVC 1.1.26