summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2001-10-18 12:50:38 +0000
committerSebastien Dupont <sdupont@mandriva.com>2001-10-18 12:50:38 +0000
commitb76137a2bdfea73e0b12a85a11a2f429a0891b52 (patch)
treef6d651fc25c2f03f44ebed9bf60cac58b8db5678 /perl-install/standalone
parent15302e15d1923b9fd680b23aaa9d250cb7338ace (diff)
downloaddrakx-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-xperl-install/standalone/drakfont35
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");
}