db/prgsrc/updateRS1.pl - diff

Return to updateRS1.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.2, 2001/10/31 03:07:29	version 1.5, 2001/12/10 20:37:23
Line 37 cicles_number=1.	Line 37 cicles_number=1.
use locale;	use locale;
use DBI;	use DBI;
use POSIX qw (locale_h);	use POSIX qw (locale_h);
	use lib "../lib";
use chgkfiles;	use chgkfiles;
use dbchgk;	use dbchgk;
open (STDERR,">errors");	open (STDERR,">errors");
Line 63 my $nf;	Line 64 my $nf;

#open WARN, ">$warnings";	#open WARN, ">$warnings";

%forbidden=checktable('equalto')? getequalto : ();	#%forbidden=checktable('equalto')? getequalto : ();


if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"};	if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"};
Line 85 foreach $d(@dictionaries)	Line 86 foreach $d(@dictionaries)
chomp;	chomp;
s/\s*$//;	s/\s*$//;
($aa,$b)=split(/\//);	($aa,$b)=split(/\//);
	$aa=~tr/Łł/Ĺĺ/;
$a= uc $aa;	$a= uc $aa;
$words{$a}.=$b \|\| "!";	$words{$a}.=$b \|\| "!";
}	}