db/prgsrc/updateindex.pl - diff

Return to updateindex.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.9, 2003/04/14 20:06:59	version 1.10, 2005/12/10 00:03:55
Line 93 MAIN:	Line 93 MAIN:
my $filename;	my $filename;
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 ($source) {	if ($source) {
open INFO, $source or die "Can't open input file: $!\n";	open INFO, $source or die "Can't open input file: $!\n";
} else {	} else {