summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakfont
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2001-10-17 18:34:23 +0000
committerSebastien Dupont <sdupont@mandriva.com>2001-10-17 18:34:23 +0000
commit977ce2fe8ef4d0d35d0b887824cf33c9364f9fdd (patch)
treed4a3dd1ce6af6b23bd09a914a9b94dec7b9d4c1a /perl-install/standalone/drakfont
parentbab2799e77c6ee7be6a73a13780a72ec063a1533 (diff)
downloaddrakx-backup-do-not-use-977ce2fe8ef4d0d35d0b887824cf33c9364f9fdd.tar
drakx-backup-do-not-use-977ce2fe8ef4d0d35d0b887824cf33c9364f9fdd.tar.gz
drakx-backup-do-not-use-977ce2fe8ef4d0d35d0b887824cf33c9364f9fdd.tar.bz2
drakx-backup-do-not-use-977ce2fe8ef4d0d35d0b887824cf33c9364f9fdd.tar.xz
drakx-backup-do-not-use-977ce2fe8ef4d0d35d0b887824cf33c9364f9fdd.zip
implementation of type1 fonts removing.
Diffstat (limited to 'perl-install/standalone/drakfont')
-rwxr-xr-xperl-install/standalone/drakfont124
1 files changed, 70 insertions, 54 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 265f2f6c3..441214aa2 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -120,14 +120,14 @@ print "applications supproted: so: $so gs: $gs \n";
my $xfs_conffile = '/etc/X11/fs/config';
#my $drakfont_dir = '/home/seb/new_drackfont'; #/usr/X11R6/lib/X11/fonts/drakfont
#my $drakfont_dir = '/usr/X11R6/lib/X11/fonts/drakfont';
-my $drakfont_dir = '/home/seb/new_drakfont';
-my $ttf2pt1_b = '/usr/sbin/ttf2pt1 -b';
+my $drakfont_dir = '/home/seb/new2_drakfont';
+#my $ttf2pt1_b = '/usr/sbin/ttf2pt1 -b';
my $ttf2pt1 = '/usr/sbin/ttf2pt1';
my $pfm2afm = '/usr/sbin/pfm2afm';
my $type1inst = '/usr/sbin/type1inst';
my $chkfontpath = '/usr/sbin/chkfontpath';
my $ttmkfdir = '/usr/sbin/ttmkfdir';
-
+my $ghostscript;
# global lists, just to manipulate it easily.
my $part;
@@ -238,16 +238,19 @@ sub search_dir_font_uninstall {
sub print_list { print "Font(s) to Install :\n\n"; print "$_\n" foreach (@font_list) }
sub dir_created {
- -e $drakfont_dir or mkdir_p($drakfont_dir);
- -e $drakfont_dir."/Type1" or mkdir_p($drakfont_dir."/Type1");
- -e $drakfont_dir."/ttf" or mkdir_p($drakfont_dir."/ttf");
- -e $drakfont_dir."/tmp" or mkdir_p($drakfont_dir."/tmp");
- -e $drakfont_dir."/tmp/ttf" or mkdir_p($drakfont_dir."/tmp/ttf");
- -e $drakfont_dir."/tmp/Type1" or mkdir_p($drakfont_dir."/tmp/Type1");
- -e $drakfont_dir."/tmp/tmp" or mkdir_p($drakfont_dir."/tmp/tmp");
+ -e $drakfont_dir || mkdir_p($drakfont_dir);
+ -e $drakfont_dir . "/Type1" || mkdir_p($drakfont_dir."/Type1");
+ -e $drakfont_dir . "/ttf" || mkdir_p($drakfont_dir."/ttf");
+ -e $drakfont_dir . "/tmp" || mkdir_p($drakfont_dir."/tmp");
+ -e $drakfont_dir . "/tmp/ttf" || mkdir_p($drakfont_dir."/tmp/ttf");
+ -e $drakfont_dir . "/tmp/Type1" || mkdir_p($drakfont_dir."/tmp/Type1");
+ -e $drakfont_dir . "/tmp/tmp" || mkdir_p($drakfont_dir."/tmp/tmp");
}
+
sub put_font_dir {
+ -e "/usr/share/ghostscript" or $gs = 0 && print "ghostscript is not installed on your system...\n" ;
+ if (@font_list) {
dir_created();
cp_af(@font_list, $drakfont_dir."/tmp/tmp");
@@ -256,70 +259,83 @@ sub put_font_dir {
system ("$chkfontpath -a $drakfont_dir/ttf");
if ($so && $gs) {
- foreach my $fontname ( glob ("$drakfont_dir/tmp/tmp/*.ttf") ) {
- system ("cd $drakfont_dir/tmp/tmp && $ttf2pt1_b $fontname");
- }
- system ("cd $drakfont_dir/tmp/tmp && mv *.pfb *.pfm *.afm ../Type1");
- system ("cd $drakfont_dir/tmp/Type1 && $type1inst" );
- system ("cd $drakfont_dir/tmp/Type1 && cat Fontmap >> 'rpm -ql ghostscript | grep Fontmap' " );
- system ("cd $drakfont_dir/tmp/Type1 && mv *.pfm *.afm *.pfb ../../Type1 ");
- system ("cd $drakfont_dir/Type1 && $type1inst && $chkfontpath -a $drakfont_dir/Type1");
+ foreach my $fontname ( glob ("$drakfont_dir/tmp/tmp/*.ttf") ) {
+ system ("cd $drakfont_dir/tmp/tmp && $ttf2pt1 -b $fontname");
+ }
+ system ("cd $drakfont_dir/tmp/tmp && mv *.pfb *.pfm *.afm ../Type1");
+ system ("cd $drakfont_dir/tmp/Type1 && $type1inst" );
+ system ("cd $drakfont_dir/tmp/Type1 && cat Fontmap >> `rpm -ql ghostscript | grep Fontmap.GS` " );
+ system ("cd $drakfont_dir/tmp/Type1 && mv *.pfm *.afm *.pfb ../../Type1 ");
+ system ("cd $drakfont_dir/Type1 && $type1inst && $chkfontpath -a $drakfont_dir/Type1");
}
if (!$so && $gs) {
- foreach my $fontname ( glob ("$/drakfont_dir/tmp/tmp/*.ttf") ) {
- system ("cd $/drakfont_dir/tmp/tmp && $ttf2pt1_b $fontname");
- }
- system ("cd $drakfont_dir/tmp/tmp && mv *.pfb *.pfm ../Type1");
- system ("cd $drakfont_dir/tmp/Type1 && $type1inst" );
- system ("cd $drakfont_dir/tmp/Type1 && cat Fontmap >> 'rpm -ql ghostscript | grep Fontmap' " );
- system ("cd $drakfont_dir/tmp/Type1 && mv *.pfm *.afm *.pfb ../../Type1 ");
- system ("cd $drakfont_dir/Type1 && $type1inst && $chkfontpath -a $drakfont_dir/Type1");
+ foreach my $fontname ( glob ("$/drakfont_dir/tmp/tmp/*.ttf") ) {
+ system ("cd $/drakfont_dir/tmp/tmp && $ttf2pt1 -b $fontname");
+ }
+ system ("cd $drakfont_dir/tmp/tmp && mv *.pfb *.pfm ../Type1");
+ system ("cd $drakfont_dir/tmp/Type1 && $type1inst" );
+ system ("cd $drakfont_dir/tmp/Type1 && cat Fontmap >> `rpm -ql ghostscript | grep Fontmap.GS` " );
+ system ("cd $drakfont_dir/tmp/Type1 && mv *.pfm *.afm *.pfb ../../Type1 ");
+ system ("cd $drakfont_dir/Type1 && $type1inst && $chkfontpath -a $drakfont_dir/Type1");
}
if ($so && !$gs) {
- foreach my $fontname ( glob ("$drakfont_dir/tmp/tmp/*.ttf") ) {
- system ("cd $drakfont_dir/tmp/tmp && $ttf2pt1 $fontname");
- }
- foreach my $fontname ( glob ("$drakfont_dir/tmp/tmp/*.pfm") ) {
- system ("cd $drakfont_dir/tmp/tmp && $pfm2afm $fontname");
- }
- system ("cd $drakfont_dir/tmp/tmp && mv *.afm ../Type1");
- system ("cd $drakfont_dir/tmp/Type1 && mv *.afm ../../Type1 ");
- system ("cd $drakfont_dir/Type1 && $type1inst && $chkfontpath -a $drakfont_dir/Type1");
+ foreach my $fontname ( glob ("$drakfont_dir/tmp/tmp/*.ttf") ) {
+ system ("cd $drakfont_dir/tmp/tmp && $ttf2pt1 $fontname");
+ }
+ foreach my $fontname ( glob ("$drakfont_dir/tmp/tmp/*.pfm") ) {
+ system ("cd $drakfont_dir/tmp/tmp && $pfm2afm $fontname");
+ }
+ system ("cd $drakfont_dir/tmp/tmp && mv *.afm ../Type1");
+ system ("cd $drakfont_dir/tmp/Type1 && mv *.afm ../../Type1 ");
+ system ("cd $drakfont_dir/Type1 && $type1inst && $chkfontpath -a $drakfont_dir/Type1");
}
-
-
-# rm_rf("$drakfont_dir/tmp/tmp/");
- print "retarting xfs......\n";
+ rm_rf("$drakfont_dir/tmp/");
+ print "\n\nretarting xfs......\n";
system ("/etc/rc.d/init.d/xfs restart");
+ }
}
-# have to be carreful when you remove some type1 fonts whith ghostscript
-# you have have to remove this font from the files "rpm -ql ghostscript | grep Fontmap"
-
+# todo : finir supperssion fontes Types!
+sub remove_gs_fonts {
+ if (listlength all("$drakfont_dir/remove ")) {
+ system (" cd $drakfont_dir/remove && $type1inst ");
+ my @font_out = cat_("$drakfont_dir/remove/Fontmap");
+ my @font_out = cat_("$drakfont_dir/remove/Fontmap");
+}
+
sub remove_fonts {
my @list_dir;
my @toto;
+ -e $drakfont_dir . "/remove" || mkdir_p($drakfont_dir."/remove");
foreach my $i (@font_list) {
+ $_ = $i;
+ if ( /.pfb$/ || /.pfm$/ || /.pfa$/ ) {
+ system ("mv $_ $drakfont_dir/remove ");
+ }
+ else {
rm_rf($i);
-# print "nom complet : ".$i."\n";
- $i =~ s/\/\w*\.\w*//gi;
- grep ( $i, (@list_dir)) or push @list_dir, $i;
-# print "nom rep : " . $_."\n" foreach @list_dir;
+ }
+ # print "nom complet : ".$i."\n";
+ $i =~ s/\/\w*\.\w*//gi;
+ grep ( $i, (@list_dir)) or push @list_dir, $i;
+ # print "nom rep : " . $_."\n" foreach @list_dir;
}
+ -e "/usr/share/ghostscript" and remove_gs_fonts();
foreach my $i (@list_dir) {
- if (listlength all("$i") < 3) {
- # remove this directory of the de fontpath
- system("chkfontpath -r $i") or print "PERL::system command failed during chkfontpath\n";
- } else {
- # # do type1inst in this path
- system("cd $i && type1inst") or print "PERL::system command failed during cd or type1inst\n";
- }
+ if (listlength all("$i") < 3) {
+ # remove this directory of the de fontpath
+ system("chkfontpath -r $i") or print "PERL::system command failed during chkfontpath\n";
+ } else {
+ # # do type1inst in this path
+ system("cd $i && type1inst") or print "PERL::system command failed during cd or type1inst\n";
+ }
}
+ -e "/usr/share/ghostscript" and rm_rf("$drakfont_dir/remove");
+ }
}
-
$xlsfonts || $windows || @install || @uninstall ? backend_mod() : interactive_mode();
sub backend_mod {