diff options
| author | Sebastien Dupont <sdupont@mandriva.com> | 2001-10-18 12:50:38 +0000 |
|---|---|---|
| committer | Sebastien Dupont <sdupont@mandriva.com> | 2001-10-18 12:50:38 +0000 |
| commit | b76137a2bdfea73e0b12a85a11a2f429a0891b52 (patch) | |
| tree | f6d651fc25c2f03f44ebed9bf60cac58b8db5678 /perl-install/standalone | |
| parent | 15302e15d1923b9fd680b23aaa9d250cb7338ace (diff) | |
| download | drakx-backup-do-not-use-b76137a2bdfea73e0b12a85a11a2f429a0891b52.tar drakx-backup-do-not-use-b76137a2bdfea73e0b12a85a11a2f429a0891b52.tar.gz drakx-backup-do-not-use-b76137a2bdfea73e0b12a85a11a2f429a0891b52.tar.bz2 drakx-backup-do-not-use-b76137a2bdfea73e0b12a85a11a2f429a0891b52.tar.xz drakx-backup-do-not-use-b76137a2bdfea73e0b12a85a11a2f429a0891b52.zip | |
end of backend......
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/drakfont | 35 |
1 files changed, 16 insertions, 19 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index d816e9014..bb470052b 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -321,28 +321,25 @@ sub remove_fonts { my @toto; -e $drakfont_dir . "/remove" || mkdir_p($drakfont_dir."/remove"); foreach my $i (@font_list) { - $_ = $i; - if ( /.pfb$/ || /.pfm$/ || /.pfa$/ ) { - system ("cp $_ $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; + $_ = $i; + if ( /.pfb$/ || /.pfm$/ || /.pfa$/ ) { + system ("cp $_ $drakfont_dir/remove "); + } else { + rm_rf($i); + } + $i =~ s/\/\w*\.\w*//gi; + grep ( $i, (@list_dir)) or push @list_dir, $i; } -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"; + } + } system ("/etc/rc.d/init.d/xfs restart"); -e "/usr/share/ghostscript" and rm_rf("$drakfont_dir/remove"); } |