From e6c6a2b4e9e1912ed4c0870cbc662647fdee461a Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Sat, 13 Mar 2004 03:11:49 +0000 Subject: Let scannerdrake install "scanner-gui" instead of "xsane", so that scanning GUI actually used can be determined by the system environment. --- perl-install/standalone/scannerdrake | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/scannerdrake b/perl-install/standalone/scannerdrake index dd41d58b9..03818e79d 100755 --- a/perl-install/standalone/scannerdrake +++ b/perl-install/standalone/scannerdrake @@ -42,10 +42,11 @@ foreach (@ARGV) { } my $in = 'interactive'->vnew('su'); -if (!files_exist('/usr/bin/scanimage', - '/usr/bin/xsane', - if_(files_exist("/usr/bin/gimp"), - "/usr/lib/gimp/1.2/plug-ins/xsane"))) { +if (!files_exist(qw(/usr/bin/scanimage + /etc/sane.d/dll.conf)) || + (!files_exist(qw(/usr/bin/xsane)) && + !files_exist(qw(/usr/bin/kooka)) && + !$in->do_pkgs->is_installed('scanner-gui'))) { if (!$in->ask_yesorno(N("Warning"), N("SANE packages need to be installed to use scanners. Do you want to install the SANE packages?"))) { @@ -53,9 +54,7 @@ Do you want to install the SANE packages?"))) { N("Aborting Scannerdrake.")); exit 0; } - if (!$in->do_pkgs->install('sane-backends', 'xsane', - if_($in->do_pkgs->is_installed('gimp'), - 'xsane-gimp'))) { + if (!$in->do_pkgs->install('sane-backends', 'scanner-gui')) { $in->ask_warn(N("Error"), N("Could not install the packages needed to set up a scanner with Scannerdrake.") . " " . N("Scannerdrake will not be started now.")); @@ -373,7 +372,7 @@ sub tryConfScanner { } scanner::confScanner($model, $port, $vendor, $product, $firmware); $in->ask_warn(N("Congratulations!"), - N("Your %s has been configured.\nYou may now scan documents using \"XSane\" from Multimedia/Graphics in the applications menu.", removeverticalbar($model))); + N("Your %s has been configured.\nYou may now scan documents using \"XSane\" or \"Kooka\" from Multimedia/Graphics in the applications menu.", removeverticalbar($model))); return 1; } -- cgit v1.2.1