Return to updatedb.pl CVS log | Up to [Local Repository] / db / prgsrc |
version 1.47, 2010/04/24 18:04:14 | version 1.48, 2010/04/24 18:13:03 |
---|---|
Line 308 MAIN: | Line 308 MAIN: |
my($source); | my($source); |
my($dbh) = DBI->connect("DBI:mysql:db_drupal", "root", "") | my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "") |
or die "Can't connect to DB chgk\n"; | or die "Can't connect to DB chgk\n"; |
if ($dbh->get_info( 18 )=~/^(5|(4.1))/) {$dbh->do("SET NAMES 'koi8r'");} | if ($dbh->get_info( 18 )=~/^(5|(4.1))/) {$dbh->do("SET NAMES 'koi8r'");} |
my @sources; | my @sources; |