19 lines
459 B
Perl
19 lines
459 B
Perl
#!XXXLOCALBASEXXX/bin/perl
|
|
#
|
|
# $NetBSD: deinstall,v 1.1 2001/11/01 01:11:33 zuntum Exp $
|
|
#
|
|
open (FILE,"XXXLOCALBASEXXX/etc/rplay.conf");
|
|
open (OUT,">tmp");
|
|
@data = <DATA>;
|
|
while (<FILE>) {
|
|
$found=0;
|
|
foreach $datum (@data) {
|
|
$found++ if ($datum eq $_);
|
|
}
|
|
print OUT "$_" if ($found == 0);
|
|
}
|
|
close(OUT);
|
|
close(FILE);
|
|
system("mv tmp XXXLOCALBASEXXX/etc/rplay.conf");
|
|
system("XXXX11BASEXXX/bin/mkfontdir XXXX11BASEXXX/lib/X11/fonts/misc");
|
|
__END__
|