version 1.1, 2001/12/05 00:56:57
|
version 1.2, 2003/01/08 21:40:21
|
Line 30 use POSIX qw (locale_h);
|
Line 30 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, ">uauthors"; |
|
open UNICKS, ">unicks"; |
open STDERR, ">errors"; |
open STDERR, ">errors"; |
my ($thislocale); |
my ($thislocale); |
if ($^O =~ /win/i) { |
if ($^O =~ /win/i) { |
Line 131 while (<AUTHORS>)
|
Line 132 while (<AUTHORS>)
|
|
|
foreach $as(keys %unknick) |
foreach $as(keys %unknick) |
{ |
{ |
print "$as \n ", (join "\n ", (grep {$nick{$_}=~/$as/} keys %nick)); |
print UNICKS "$as \n ", (join "\n ", (grep {$nick{$_}=~/$as/} keys %nick)); |
print "\n"; |
print UNICKS "\n"; |
} |
} |
|
|
%forbidden=checktable('equalto')? getequalto : (); |
%forbidden=checktable('equalto')? getequalto : (); |