db/prgsrc/updatedb.pl - diff

Return to updatedb.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.41, 2005/12/10 00:03:55	version 1.42, 2006/09/25 00:09:43
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'");	if ($dbh->get_info( 18 )=~/^(5\|(4.1))/) {$dbh->do("SET NAMES 'koi8r'");}
my @sources;	my @sources;
open UNSORTED, ">$unsortedname";	open UNSORTED, ">$unsortedname";
while ($source = shift) {	while ($source = shift) {