blob: 18faa5ff553c1bf5011dc1dfbd431493cdf7a3a7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!/usr/pkg/bin/perl
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__
|
