db/prgsrc/makeauthors.pl - diff

Return to makeauthors.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.2, 2003/01/08 21:40:21	version 1.3, 2003/01/09 01:43:21
Line 24 makeauthors.pl	Line 24 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";