Return to dbchgk.pm CVS log | Up to [Local Repository] / db / prgsrc |
version 1.10, 2005/07/05 23:58:10 | version 1.11, 2005/12/10 00:03:55 |
---|---|
Line 33 my $z; | Line 33 my $z; |
my $qbase; | my $qbase; |
BEGIN {do "chgk.cnf"; | BEGIN {do "chgk.cnf"; |
$qbase = DBI -> connect ("DBI:mysql:$base",'piataev',undef); | $qbase = DBI -> connect ("DBI:mysql:$base",'piataev',undef); |
$qbase->do("SET NAMES koi8r"); | |
}; | }; |