--- db/prgsrc/updatedb.pl 2010/04/24 18:04:14 1.47 +++ db/prgsrc/updatedb.pl 2010/04/24 18:13:03 1.48 @@ -28,7 +28,7 @@ The database, user and password are hard Dmitry Rubinstein -=head1 $Id: updatedb.pl,v 1.47 2010/04/24 18:04:14 roma7 Exp $ +=head1 $Id: updatedb.pl,v 1.48 2010/04/24 18:13:03 roma7 Exp $ =cut @@ -308,7 +308,7 @@ MAIN: 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"; if ($dbh->get_info( 18 )=~/^(5|(4.1))/) {$dbh->do("SET NAMES 'koi8r'");} my @sources;