summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakfont21
1 files changed, 1 insertions, 20 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 384e87b15..192e1d06d 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -97,9 +97,6 @@ my $xlsfonts = 0;
my $windows = 0;
my $strong;
my $replace;
-my $application;
-my $install;
-my $uninstall;
my $so = 1;
my $gs = 1;
my $abi = 1;
@@ -109,25 +106,12 @@ my @application;
my @install;
my @uninstall;
my $interactive;
-my $text;
-my $vscrollbar;
-my $check4;
-my $check1;
-my $check2;
-my $check3;
my $pbar;
my $pbar1;
my $pbar2;
my $pbar3;
my $font_box;
my $central_widget;
-my $label1;
-my $label2;
-my $label3;
-my $label4;
-my $list_path;
-my $path_list;
-my $current_path;
my $model;
my $list;
my $list_all_font_path;
@@ -162,7 +146,7 @@ foreach my $i (@application) {
}
# PATH and binary full path
-my $xfs_conffile = '/etc/fonts/fonts.conf';
+#my $xfs_conffile = '/etc/fonts/fonts.conf';
my $drakfont_dir = '/usr/X11R6/lib/X11/fonts/drakfont';
my $ttf2pt1 = '/usr/sbin/ttf2pt1';
my $pfm2afm = '/usr/sbin/pfm2afm';
@@ -171,13 +155,10 @@ my $chkfontpath = '/usr/sbin/chkfontpath';
# mkttfdir only knows about iso-8859-1, using ttmkfdir -u instead -- pablo
my $ttmkfdir = '/usr/sbin/ttmkfdir';
my $fccache = '/usr/bin/fc-cache';
-my $ghostscript;
my @font_list; # list of fonts to install
my @installed_fonts; # list of installed fonts
my @installed_fonts_path; # list of path included in xfs
-my @fontsdir_to_install; # list of fonts to uninstall
-my @fontsdir_to_uninstall; # path to remove in xfs font file
my @installed_fonts_full_path; # full path list of fonts to uninstall
sub list_fontpath() {