diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakfont | 30 |
1 files changed, 11 insertions, 19 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index ab0b4ce51..497f50649 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -177,36 +177,26 @@ sub search_dir_font { if ( -d $fn ) { foreach my $i (all($fn)) { if (($i =~ /.ttf$/i) || ($i =~ /.pfa$/i) || ($i =~ /.pfb$/i) || ($i =~ /.pcf$/i) || ($i =~ /.pcf.gz$/i)) { - push @font_list_tmp, "$fn$i"; + push @font_list_tmp, "$i"; + if (!$replace) { + foreach my $i (@font_list_tmp) { + !grep /$i/, (@installed_fonts) and push @font_list, "$fn$i"; + } + } + else { push @font_list, @font_list_tmp; + } } } } else { if (($fn =~ /.ttf$/i) || ($fn =~ /.pfa$/i) || ($fn =~ /.pfb$/i) || ($fn =~ /.pcf$/i) || ($fn =~ /.pcf.gz$/i)) { - push @font_list_tmp, "$fn"; + !grep /$fn/, (@installed_fonts) and push @font_list, "$fn"; } } print "Fonts in directory : ".$_."\n" foreach (@font_list_tmp); - if (!$replace) { - foreach my $i (@installed_fonts) { - foreach my $j (@font_list_tmp) { - if (( $j =~ !/$i/) && !grep ($j , @font_list)) { - push @font_list, "$j" ; - } - } - } - } - else { - $font_list_tmp[0] and @font_list = @font_list_tmp; - } } - print ".................................................\n\n"; - print "Font to install : ".$_."\n" foreach (@font_list); } - -# gestion not replace ... have to find fonts not installed - sub search_dir_font_uninstall { my @font_list_tmp = (); my $fn = $_; @@ -261,6 +251,8 @@ sub backend_mod { print ".......Install Specifics Fonts...........\n\n"; search_installed_fonts(); search_dir_font $_ foreach (@install); + print ".................................................\n\n"; + print "Font to install : ".$_."\n" foreach (@font_list); #put_font_dir(); print "\n...............The End...................\n"; } |