/usr/share/doc/xfonts-bolkhov-cp1251-misc/mk8859alias.pl is in xfonts-bolkhov-cp1251-misc 1.1.20001007-7.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | #!/usr/bin/perl -w
#
# mk8859alias.pl
# Generates font aliases with rgstry-encdng set to "iso8859-1".
# The fndry has original encoding appended (e.g. "adobe"->"adobe_koi8_1")
#
# Usage:
# mk8859alias.pl <fonts.dir >>fonts.alias
#
use strict;
my $l;
my $f;
my $a;
<STDIN>; # Skip the number of fonts
print "!ENC: 8859-1\n";
while (<STDIN>)
{
$l = $_;
$l =~ /^.+?\s+(.*)$/;
$f = $1;
$f =~ /^(-.*?)(-.*?-.*?-.*?-.*?-.*?-.*?-.*?-.*?-.*?-.*?-.*?-)(.*?)-(.*?)$/;
$a = "$1_$3_$4$2iso8859-1";
print "\"$a\" \"$f\"\n";
}
|