version 1.2, 2003/01/08 21:40:21
|
version 1.4, 2003/01/09 13:41:46
|
Line 1
|
Line 1
|
|
#!/usr/bin/perl -w |
#!/usr/local/bin/perl -w |
|
|
|
=head1 NAME |
=head1 NAME |
|
|
Line 24 makeauthors.pl
|
Line 23 makeauthors.pl
|
|
|
use dbchgk; |
use dbchgk; |
|
|
|
my $DUMPDIR = $ENV{DUMPDIR} || "../dump"; |
|
|
do "chgk.cnf"; |
do "chgk.cnf"; |
use locale; |
use locale; |
use POSIX qw (locale_h); |
use POSIX qw (locale_h); |
open NICKS, "<$nicksfile" or die "Can not open nicks"; |
open NICKS, "<$nicksfile" or die "Can not open nicks"; |
open SSNICKS, "<$ssnicksfile" or die "Can not open ssnicks"; |
open SSNICKS, "<$ssnicksfile" or die "Can not open ssnicks"; |
open UNKNOWN, ">uauthors"; |
open UNKNOWN, ">$DUMPDIR/uauthors"; |
open UNICKS, ">unicks"; |
open UNICKS, ">$DUMPDIR/unicks"; |
open STDERR, ">errors"; |
open STDERR, ">$DUMPDIR/errors"; |
my ($thislocale); |
my ($thislocale); |
if ($^O =~ /win/i) { |
if ($^O =~ /win/i) { |
$thislocale = "Russian_Russia.20866"; |
$thislocale = "Russian_Russia.20866"; |