Return to updatedb.pl CVS log | Up to [Local Repository] / db / prgsrc |
version 1.40, 2004/01/19 19:42:04 | version 1.41, 2005/12/10 00:03:55 |
---|---|
Line 281 MAIN: | Line 281 MAIN: |
my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "") | 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"; |
$dbh->do("SET NAMES 'koi8r'"); | |
my @sources; | my @sources; |
open UNSORTED, ">$unsortedname"; | open UNSORTED, ">$unsortedname"; |
while ($source = shift) { | while ($source = shift) { |