diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-12 11:40:53 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-12 11:40:53 +0000 |
| commit | 40af4e80cdd63e7e80740c2a530266801afac2af (patch) | |
| tree | c531d569eef5dbb9edc3b6f6363e14afe10f6fa0 /perl-install/standalone/drakfont | |
| parent | 400ec7c6afaaa2a20fd00112694d974b8602f6ac (diff) | |
| download | drakx-backup-do-not-use-40af4e80cdd63e7e80740c2a530266801afac2af.tar drakx-backup-do-not-use-40af4e80cdd63e7e80740c2a530266801afac2af.tar.gz drakx-backup-do-not-use-40af4e80cdd63e7e80740c2a530266801afac2af.tar.bz2 drakx-backup-do-not-use-40af4e80cdd63e7e80740c2a530266801afac2af.tar.xz drakx-backup-do-not-use-40af4e80cdd63e7e80740c2a530266801afac2af.zip | |
(put_font_dir) factorize some code into put_font_dir_real()
Diffstat (limited to 'perl-install/standalone/drakfont')
| -rwxr-xr-x | perl-install/standalone/drakfont | 23 |
1 files changed, 10 insertions, 13 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index 2e6768135..384e87b15 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -329,6 +329,13 @@ sub move_fonts { system("cd $src_dir && mv @fonts $dest_dir") if @fonts; } +sub put_font_dir_real { + my ($subdir, $command, $progress, $title) = @_; + system("cd $drakfont_dir/$subdir && $fccache && $command"); + interactive_progress($pbar2, $progress, $title); + return "$chkfontpath -a $drakfont_dir/$subdir"; +} + sub put_font_dir() { -e "/usr/share/ghostscript" or do { $gs = 0; print "ghostscript is not installed on your system...\n" }; if (@font_list) { @@ -346,11 +353,7 @@ sub put_font_dir() { } system('cd ' . $drakfont_dir . '/tmp/tmp && cp *.ttf ../../ttf; chmod 644 ../../ttf/*ttf'); interactive_progress($pbar2, 0.20, N("please wait during ttmkfdir...")); - - my $ttfdir = $drakfont_dir . "/ttf"; - system("cd $ttfdir && $fccache && $ttmkfdir -u > fonts.dir"); - interactive_progress($pbar2, 0.10, N("True Type install done")); - my $update_chkfontpath = "$chkfontpath -a $drakfont_dir/ttf"; + my $update_chkfontpath = put_font_dir_real("ttf", "$ttmkfdir -u > fonts.dir", 0.10, N("True Type install done")); if ($gs) { convert_ttf_fonts([ glob("$drakfont_dir/tmp/tmp/*.ttf") ], 1); @@ -365,19 +368,13 @@ sub put_font_dir() { system("cd $drakfont_dir/tmp/Type1 && cat Fontmap >> `rpm -ql ghostscript | grep Fontmap.GS` "); move_fonts("$drakfont_dir/tmp/Type1", "../../Type1", qw(afm gsf pfb pfm)); } - my $type1dir = $drakfont_dir . "/Type1"; - system("cd $type1dir && $fccache && $type1inst"); - interactive_progress($pbar2, 0.05, N("Ghostscript referencing")); - $update_chkfontpath .= "; $chkfontpath -a $drakfont_dir/Type1"; + $update_chkfontpath .= "; " . put_font_dir_real("Type1", $type1inst, 0.05, N("Ghostscript referencing")); } elsif ($so) { convert_ttf_fonts([ glob("$drakfont_dir/tmp/tmp/*.ttf") ]); convert_fonts([ glob("$drakfont_dir/tmp/tmp/*.pfm") ], $pfm2afm, "PFM"); move_fonts("$drakfont_dir/tmp/tmp", "../Type1", qw(afm)); move_fonts("$drakfont_dir/tmp/Type1", "../../Type1", qw(afm)); - my $type1dir = $drakfont_dir . "/Type1"; - system("cd $type1dir && $fccache && $type1inst"); - interactive_progress($pbar2, 0.14, N("type1inst building")); - $update_chkfontpath .= "; $chkfontpath -a $drakfont_dir/Type1"; + $update_chkfontpath .= put_font_dir_real("Type1", $type1inst, 0.14, N("type1inst building")); } interactive_progress($pbar2, 1, N("done")); |