![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to updatedb.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc|
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) { |