Scannerdrake vastly improved

- Use auto-detection methods of SANE
- Do not ask the user to configure scanners which are already configured
- Handle systems with more than one scanner correctly
- Added ports of newer scanners (libusb, parallel, ...) to the port selector
  in manual setup
- Main dialog showing all configured scanners
- Full support for scanner sharing via SANE (server/client)
- Support for USB scanner access via libusb

1 files changed, 8 insertions, 1 deletions

diff --git a/perl-install/services.pm b/perl-install/services.pm
index f8c6a4aaa..f3aa02e49 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -337,7 +337,8 @@ sub starts_on_boot ($) {
 	    return 0;
     while (my $line = <F>) {
 	chomp $line;
-	if ($line =~ /:on/) {
+	if (($line =~ /:on/) || # service with init script
+	    ($line =~ /^\s*$service\s+on\s*$/)) { # xinetd service
 	    close F;
 	    return 1;
 	}
@@ -353,5 +354,11 @@ sub start_service_on_boot ($) {
     return 1;
 }
 
+sub do_not_start_service_on_boot ($) {
+    my ($service) = @_;
+    run_program::rooted($::prefix, "/sbin/chkconfig", "--del", $service)
+	or return 0;
+    return 1;
+}
 
 1;