summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakfont
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2001-10-12 13:02:57 +0000
committerSebastien Dupont <sdupont@mandriva.com>2001-10-12 13:02:57 +0000
commitb087b7717ef076b33f3fc6a371e18ecfcda56e29 (patch)
tree614db4ad5ced2b71e29c505fcafb6af4b0b44986 /perl-install/standalone/drakfont
parentb89e3cbae5395bb72b0be259b6c302dde941491b (diff)
downloaddrakx-backup-do-not-use-b087b7717ef076b33f3fc6a371e18ecfcda56e29.tar
drakx-backup-do-not-use-b087b7717ef076b33f3fc6a371e18ecfcda56e29.tar.gz
drakx-backup-do-not-use-b087b7717ef076b33f3fc6a371e18ecfcda56e29.tar.bz2
drakx-backup-do-not-use-b087b7717ef076b33f3fc6a371e18ecfcda56e29.tar.xz
drakx-backup-do-not-use-b087b7717ef076b33f3fc6a371e18ecfcda56e29.zip
emd of backend..
Diffstat (limited to 'perl-install/standalone/drakfont')
-rwxr-xr-xperl-install/standalone/drakfont56
1 files changed, 45 insertions, 11 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 645711e26..62e4be63c 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -42,6 +42,10 @@
# - Printer Application Fonts Support...
# check-button. (by default all check)
+# directory to install fonts /usr/X11R6/lib/X11/fonts/
+# -->> /usr/X11R6/lib/X11/fonts/drakfont
+
+
use Gtk;
use lib qw(/usr/lib/libDrakX);
#use interactive;
@@ -62,7 +66,8 @@ if ("@ARGV" =~ /--help|-h/) {
--replace : replace all font if already exist
--application : 0 none application.
: 1 all application available supported.
- : name_of_application" like staroffice for only this one.
+ : name_of_application" like so for staroffice
+ : and gs for ghostscript for only this one.
);
exit(0);
}
@@ -74,7 +79,8 @@ my $replace;
my $application;
my $install;
my $uninstall;
-
+my $so = 1;
+my $gs = 1;
my $mode = -1;
my @application;
my @install;
@@ -93,12 +99,28 @@ foreach (@ARGV) {
$mode == 2 and push @uninstall, $_;
}
+
+
+foreach my $i (@application) {
+ if ( $i =~ /so/i) {
+ if ( $gs != 2 ) { $gs = 0;}
+ $so = 2;
+ }
+ if ($i =~ /gs/i){
+ if ( $so != 2 ) { $so = 0; }
+ $gs = 2;
+ }
+}
+
+
print "app : @application\n";
print "install : @install\n";
print "uninstall : @uninstall\n";
+print "applications supproted: so: $so gs: $gs \n";
+
my $xfs_conffile = '/etc/X11/fs/config';
-my $drakfont_dir = '/home/seb/new_drackfont';
+my $drakfont_dir = '/home/seb/new_drackfont'; #/usr/X11R6/lib/X11/fonts/drakfont
my $chkfontpath = '/usr/sbin/chkfontpath';
my $part;
@@ -157,7 +179,7 @@ sub search_windows_font {
sub is_a_font {
local $_ = $_[0];
- /.ttf$/i || /.pfa$/i || /.pfb$/i || /.pcf$/i || /.pcf.gz$/i;
+ /.ttf$/i || /.pfa$/i || /.pfb$/i || /.pcf$/i || /.pcf.gz$/i || /.pfm$/i ;
}
sub search_dir_font {
@@ -211,23 +233,34 @@ sub print_list { print "Font(s) to Install :\n\n"; print "$_\n" foreach (@font_l
sub put_font_dir {
mkdir_p($drakfont_dir);
cp_af(@font_list, $drakfont_dir);
+ if (@application && $so && !$gs) {
+ foreach my $fontname ( glob ("$/drakfont_dir/*.pfm") ) { system ("cd $/drakfont_dir && pfm2afm $fontname"); }
+ foreach my $fontname ( glob ("$/drakfont_dir/*.ttf") ) { system ("cd $/drakfont_dir && tt2afm $fontname && rm $fontname"); }
+ }
+ if (@application && $so && $gs) {
+ foreach my $fontname ( glob ("$/drakfont_dir/*.ttf") ) { system ("cd $/drakfont_dir && ttf2type1 $fontname && rm $fontname"); }
+ }
+ system ("cd $/drakfont_dir && type1inst ");
+ if (@application && $gs) { system ("cat Fontmap.bak >>$(rpm -ql ghostscript | grep Fontmap") }
system ("cd $drakfont_dir && type1inst && chkfontpath -a $drakfont_dir");
- # xlsfonts | less pour verifier l'installation des polices.
}
+
+# 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"
+
sub remove_fonts {
my @list_dir;
my @toto;
foreach my $i (@font_list) {
-# rm_rf($i);
- print "nom complet : ".$i."\n";
+ 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 rep : " . $_."\n" foreach @list_dir;
}
foreach my $i (@list_dir) {
-# print listlength all("$i");
- if (listlength all("$i") > 2) {
+ 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 {
@@ -261,7 +294,7 @@ sub backend_mod {
search_dir_font $_ foreach (@install);
print ".................................................\n\n";
print "Font to install : ".$_."\n" foreach (@font_list);
- #put_font_dir();
+ put_font_dir();
print "\n...............The End...................\n";
}
@@ -282,3 +315,4 @@ sub interactive_mode {
# faire la gestion des applications + printer
+# xlsfonts | less pour verifier l'installation des polices.