From 45caea467f7c803ec9025db18896d9dfcda69647 Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Mon, 16 Sep 2002 23:03:03 +0000 Subject: Do not try to install "webfetch" during installation. --- perl-install/printerdrake.pm | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'perl-install') diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm index 61bec7737..d94d0886b 100644 --- a/perl-install/printerdrake.pm +++ b/perl-install/printerdrake.pm @@ -2747,18 +2747,21 @@ sub install_spooler { my $w = $in->wait_message(_("Printerdrake"), _("Checking installed software...")); if ((!$::testing) && - ((!printer::files_exist((qw(/usr/lib/cups/cgi-bin/printers.cgi + (!printer::files_exist((qw(/usr/lib/cups/cgi-bin/printers.cgi /sbin/ifconfig /usr/bin/xpp), ($::expert ? "/usr/share/cups/model/postscript.ppd.gz" : ()) - ))) || - ((!printer::files_exist((qw(/usr/bin/wget)))) && - (!printer::files_exist((qw(/usr/bin/curl))))))) { + )))) { $in->do_pkgs->install(('cups', 'net-tools', 'xpp', - 'webfetch', ($::expert ? 'cups-drivers' : ()))); } + if ((!$::testing) && + ((!printer::files_exist((qw(/usr/bin/wget)))) && + (!printer::files_exist((qw(/usr/bin/curl)))))) { + $in->do_pkgs->install + ($::isInstall ? 'curl' : 'webfetch'); + } # Try to start the network when CUPS is the spooler, so that # remote CUPS printers get displayed (especially during # installation) -- cgit v1.2.1