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.5, 2003/02/02 21:01:11
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";
Line 75 while (<NICKS>)	Line 76 while (<NICKS>)
$name{$nick}= ucfirst lc $name;	$name{$nick}= ucfirst lc $name;
$surname=ucfirst lc $surname;	$surname=ucfirst lc $surname;
$surname=~s/\-(.)/"-". uc $1/ge;	$surname=~s/\-(.)/"-". uc $1/ge;
	$surname=~s/\'(.)/"'". uc $1/ge;
$surname{$nick}= $surname;	$surname{$nick}= $surname;

}	}