diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/scanner.pm | 94 |
1 files changed, 94 insertions, 0 deletions
diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm index e192ac42a..34ecb01b9 100755 --- a/perl-install/scanner.pm +++ b/perl-install/scanner.pm @@ -75,6 +75,7 @@ sub add2dll { sub configured() { my @res; + my $parportscannerfound = 0; # Run "scanimage -L", to find the scanners which are already working local *LIST; open LIST, "LC_ALL=C scanimage -L |"; @@ -83,6 +84,10 @@ sub configured() { # Extract port and description my $port = $1; my $description = $2; + # Is the scanner hooked to a parallel or serial port? + if ($port =~ /(parport|pt_drv|parallel|ttys)/i) { + $parportscannerfound = 1; + } # Remove duplicate scanners appearing through saned and the # "net" backend next if $port =~ /^net:(localhost|127.0.0.1):/; @@ -96,9 +101,98 @@ sub configured() { } } close LIST; + # We have a parallel port scanner, make it working for non-root users + nonroot_access_for_parport($parportscannerfound); return @res; } +sub nonroot_access_for_parport { + + # This function configures a non-root access for parallel port + # scanners by running saned as root, esporting the scanner to + # localhost and letting the user's frontend use the "net" backend + # to access the scanner through the loopback network device. + + # See also + # http://www.linuxprinting.org/download/digitalimage/Scanning-as-Normal-User-on-Wierd-Scanner-Mini-HOWTO.txt + + # Desired state of this facility: 1: Enable, 0: Disable + my ($enable) = @_; + # Is saned running? + my $sanedrunning = services::starts_on_boot("saned"); + # Is the "net" SANE backend active + my $netbackendactive = grep { /^\s*net\s*$/ } + cat_("/etc/sane.d/dll.conf"); + # Set this to 1 to tell the caller that the list of locally available + # scanners has changed (Here if the SANE client configuration has + # changed) + my $changed = 0; + my $importschanged = 0; + if ($enable) { + # Enable non-root access + + # Install/start saned + if (!$sanedrunning) { + # Make sure saned and xinetd is installed and + # running + if (!files_exist('/usr/sbin/xinetd', + '/usr/sbin/saned')) { + if (!$in->do_pkgs->install('xinetd', 'saned')) { + $in->ask_warn(N("Scannerdrake"), + N("Could not install the packages needed to share your scanner(s).") . " " . + N("Your scanner(s) will not be available for non-root users.")); + } + return 0; + } + } + + # Modify /etc/xinetd.d/saned to let saned run as root + my @sanedxinetdconf = cat_("/etc/xinetd.d/saned"); + ( s/(user\s*=\s*).*$/$1root/ ) foreach @sanedxinetdconf; + ( s/(group\s*=\s*).*$/$1root/ ) foreach @sanedxinetdconf; + output("/etc/xinetd.d/saned", @sanedxinetdconf); + + # Read list of hosts to where to export the local scanners + my @exports = cat_("/etc/sane.d/saned.conf"); + # Read list of hosts from where to import scanners + my @imports = cat_("/etc/sane.d/net.conf"); + # Add "localhost" to the machines which saned exports + handle_configs::set_directive(\@exports, "localhost") + if !member("localhost\n", @exports); + # Add "localhost" to the machines which "net" imports + handle_configs::set_directive(\@imports, "localhost") + if !member("localhost\n", @imports); + # Write /etc/sane.d/saned.conf + output("/etc/sane.d/saned.conf", @exports); + # Write /etc/sane.d/net.conf + output("/etc/sane.d/net.conf", @imports); + + # Make sure that the "net" backend is active + scanner::add2dll("net"); + + # (Re)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"); + + } else { + # Disable non-root access + + if (-r "/etc/xinetd.d/saned") { + # Modify /etc/xinetd.d/saned to let saned run as saned + my @sanedxinetdconf = cat_("/etc/xinetd.d/saned"); + ( s/(user\s*=\s*).*$/$1saned/ ) foreach @sanedxinetdconf; + ( s/(group\s*=\s*).*$/$1saned/ ) foreach @sanedxinetdconf; + output("/etc/xinetd.d/saned", @sanedxinetdconf); + # Restart xinetd + services::restart("xinetd") if $sanedrunning; + } + } + + return 1; +} + sub detect { my @configured = @_; my @res; |