Fix saned activation/deactivation in scanner functions.

Our saned package switched from xinetd to systemd socket activation
back in 2019.

1 files changed, 6 insertions, 11 deletions

diff --git a/perl-install/standalone/scannerdrake b/perl-install/standalone/scannerdrake
index 2e48bcfce..947c4c086 100755
--- a/perl-install/standalone/scannerdrake
+++ b/perl-install/standalone/scannerdrake
@@ -570,7 +570,7 @@ sub sharewindow {
     my ($menuimports, $menuimports_inv) =
 	makeimportmenues(@imports);
     # Is saned running?
-    my $sanedrunning = services::starts_on_boot("saned");
+    my $sanedrunning = services::starts_on_boot("saned.socket");
     my $oldsanedrunning = $sanedrunning;
     # Is the "net" SANE backend active
     my $netbackendactive = find { /^\s*net\s*$/ }
@@ -944,16 +944,14 @@ sub sharewindow {
 		# Turn on/off saned
 		if ($sanedrunning != $oldsanedrunning) {
 		    if ($sanedrunning) {
-			# Make sure saned and xinetd is installed and 
-			# running
-			if (!files_exist('/usr/sbin/xinetd',
-					 '/usr/sbin/saned')) {
+			# Make sure saned is installed and running
+			if (!files_exist('/usr/sbin/saned')) {
 			    if (!$in->ask_yesorno(N("Warning"), N("saned needs to be installed to share the local scanner(s).
 
 Do you want to install the saned package?"))) {
 				$in->ask_warn("Warning", 
 					      N("Your scanner(s) will not be available on the network."));
-			    } elsif (!$in->do_pkgs->install('xinetd', 'saned')) {
+			    } elsif (!$in->do_pkgs->install('saned')) {
 				$in->ask_warn(N("Error"),
 					      N("Could not install the packages needed to share your scanner(s).") . " " .
 					      N("Your scanner(s) will not be available on the network."));
@@ -961,14 +959,11 @@ Do you want to install the saned package?"))) {
 			}
 			# Start saned and make sure that it gets started on
 			# every boot
-			services::start_service_on_boot("saned");
-			services::start_service_on_boot("xinetd");
-			services::restart("xinetd");
+			services::enable("saned.socket");
 		    } else {
 			# Stop saned and make sure that it does not get
 			# started when booting
-			services::do_not_start_service_on_boot("saned");
-			services::restart("xinetd");
+			services::disable("saned.socket");
 		    }
 		}
 		# Turn on/off "net" SANE backend