diff options
author | Satoshi Asami <asami@FreeBSD.org> | 1998-10-09 04:09:45 +0000 |
---|---|---|
committer | Satoshi Asami <asami@FreeBSD.org> | 1998-10-09 04:09:45 +0000 |
commit | c9c2bdc4f50330d868749192147cbbf94bd0c524 (patch) | |
tree | 6a92c932148ee54e507327aebaeb75b69c83f4ab /japanese/alias-fonts/pkg-deinstall | |
parent | df5822f3274f31c17762777a6d25f6c90f7e888d (diff) | |
download | ports-c9c2bdc4f50330d868749192147cbbf94bd0c524.tar.gz ports-c9c2bdc4f50330d868749192147cbbf94bd0c524.zip |
Notes
Diffstat (limited to 'japanese/alias-fonts/pkg-deinstall')
-rw-r--r-- | japanese/alias-fonts/pkg-deinstall | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/japanese/alias-fonts/pkg-deinstall b/japanese/alias-fonts/pkg-deinstall new file mode 100644 index 000000000000..c1f89ca64df8 --- /dev/null +++ b/japanese/alias-fonts/pkg-deinstall @@ -0,0 +1,22 @@ +#!/usr/bin/perl +$prefix = $ENV{'PKG_PREFIX'}; +$dir = "$prefix/lib/X11/fonts/misc"; +$to = "$dir/fonts.alias"; +$from = "$to.orig"; +rename($to, $from) || die("Can't rename: $!"); +open(IN, $from) || die("Can't open $from: $!"); +open(OUT, ">$to") || die("Can't open $to: $!"); +while (<IN>) { + chop; + if (/^\s*!/ || /^\s*$/) { + print OUT "$_\n"; + } + else { + @line = split(/\s+/, $_); + @elm = split(/-+/, $line[0]); + if ($elm[1] ne 'netscape' && $elm[1] ne 'netscape.k10') { + print OUT "$_\n"; + } + } +} +#system("$prefix/bin/xset fp rehash"); |