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 { |