package printer::main;

# $Id$

use strict;

use common;
use run_program;
use printer::data;
use printer::services;
use printer::default;
use printer::gimp;
use printer::cups;
use printer::office;
use printer::detect;
use handle_configs;
use services;

use vars qw(@ISA @EXPORT);

@ISA = qw(Exporter);
@EXPORT = qw(%printer_type %printer_type_inv);

#-Did we already read the subroutines of /usr/sbin/ptal-init?
my $ptalinitread = 0;

our %printer_type = (
    N("Local printer")                              => "LOCAL",
    N("Remote printer")                             => "REMOTE",
    N("Printer on remote CUPS server")              => "CUPS",
    N("Printer on remote lpd server")               => "LPD",
    N("Network printer (TCP/Socket)")               => "SOCKET",
    N("Printer on SMB/Windows 95/98/NT server")     => "SMB",
    N("Printer on NetWare server")                  => "NCP",
    N("Enter a printer device URI")                 => "URI",
    N("Pipe job into a command")                    => "POSTPIPE"
);

our %printer_type_inv = reverse %printer_type;

our %thedb;

#------------------------------------------------------------------------------

sub spooler() {
    # LPD is taken from the menu for the moment because the classic LPD is
    # highly unsecure. Depending on how the GNU lpr development is going on
    # LPD support can be reactivated by uncommenting the following line.

    #return @spooler_inv{qw(cups lpd lprng pdq)};

    # LPRng is not officially supported any more since Mandrake 9.0, so
    # show it only in the spooler menu when it was manually installed.

    # PDQ is not officially supported any more since Mandrake 9.1, so
    # show it only in the spooler menu when it was manually installed.

    return map { $spoolers{$_}{long_name} } qw(cups), 
    if_(files_exist(qw(/usr/bin/pdq)), 'pdq'),
    if_(files_exist(qw(/usr/lib/filters/lpf /usr/sbin/lpd)), 'lprng');
}

sub printer_type($) {
    my ($printer) = @_;
    for ($printer->{SPOOLER}) {
	/cups/  and return @printer_type_inv{qw(LOCAL LPD SOCKET SMB), if_($printer->{expert}, qw(URI))};
	/lpd/   and return @printer_type_inv{qw(LOCAL LPD SOCKET SMB NCP), if_($printer->{expert}, qw(POSTPIPE URI))};
	/lprng/ and return @printer_type_inv{qw(LOCAL LPD SOCKET SMB NCP), if_($printer->{expert}, qw(POSTPIPE URI))};
	/pdq/   and return @printer_type_inv{qw(LOCAL LPD SOCKET), if_($printer->{expert}, qw(URI))};
    }
}

sub SIGHUP_daemon {
    my ($service) = @_;
    if ($service eq "cupsd") { $service = "cups" };
    # PDQ has no daemon, exit.
    if ($service eq "pdq") { return 1 };
    # CUPS needs auto-correction for its configuration
    run_program::rooted($::prefix, "/usr/sbin/correctcupsconfig") if $service eq "cups";
    # Name of the daemon
    my %daemons = (
			    "lpr" => "lpd",
			    "lpd" => "lpd",
			    "lprng" => "lpd",
			    "cups" => "cupsd",
			    "devfs" => "devfsd",
			    );
    my $daemon = $daemons{$service};
    $daemon = $service unless defined $daemon;
#    if ($service eq "cups") {
#	# The current CUPS (1.1.13) dies on SIGHUP, do the normal restart.
#	printer::services::restart($service);
#	# CUPS needs some time to come up.
#	printer::services::wait_for_cups();
#    } else {

    # Send the SIGHUP
    run_program::rooted($::prefix, "/usr/bin/killall", "-HUP", $daemon);
    if ($service eq "cups") {
	# CUPS needs some time to come up.
	printer::services::wait_for_cups();
    }

    return 1;
}


sub assure_device_is_available_for_cups {
    # Checks whether CUPS already "knows" a certain port, it does not
    # know it usually when the appropriate kernel module is loaded
    # after CUPS was started or when the printer is turned on after
    # CUPS was started. CUPS 1.1.12 and newer refuses to set up queues
    # on devices which it does not know, it points these queues to
    # file:/dev/null instead. Restart CUPS if necessary to assure that
    # CUPS knows the device.
    my ($device) = @_;
    my $sdevice = handle_configs::searchstr($device);
    my ($result, $i);
    # USB printers get special model-dependent URLs in "lpinfo -v" here
    # checking is complicated, so we simply restart CUPS then and ready.
    if ($device =~ /usb/) {
	$result = printer::services::restart("cups");
	return 1;
    }
    my $maxattempts = 3;
    for ($i = 0; $i < $maxattempts; $i++) {
	local *F; 
	open F, ($::testing ? $::prefix : "chroot $::prefix/ ") . 
	    '/bin/sh -c "export LC_ALL=C; /usr/sbin/lpinfo -v" |' or
	    die 'Could not run "lpinfo"!';
	while (my $line = <F>) {
	    if ($line =~ /$sdevice/) { # Found a line containing the device
		                       # name, so CUPS knows it.
		close F;
		return 1;
	    }
	}
	close F;
	$result = printer::services::restart("cups");
    }
    return $result;
}


sub spooler_in_security_level {
    # Was the current spooler already added to the current security level?
    my ($spooler, $level) = @_;
    my $sp;
    $sp = $spooler eq "lpr" || $spooler eq "lprng" ? "lpd" : $spooler;
    my $file = "$::prefix/etc/security/msec/server.$level";
    if (-f $file) {
	local *F; 
	open F, "< $file" or return 0;
	while (my $line = <F>) {
	    if ($line =~ /^\s*$sp\s*$/) {
		close F;
		return 1;
	    }
	}
	close F;
    }
    return 0;
}

sub add_spooler_to_security_level {
    my ($spooler, $level) = @_;
    my $sp;
    $sp = $spooler eq "lpr" || $spooler eq "lprng" ? "lpd" : $spooler;
    my $file = "$::prefix/etc/security/msec/server.$level";
    if (-f $file) {
	   eval { append_to_file($file, "$sp\n") } or return 0;
    }
    return 1;
}

sub pdq_panic_button {
    my $setting = $_[0];
    if (-f "$::prefix/usr/sbin/pdqpanicbutton") {
        run_program::rooted($::prefix, "/usr/sbin/pdqpanicbutton", "--$setting")
	    or die "Could not $setting PDQ panic buttons!";
    }
}

sub copy_printer_params($$) {
    my ($from, $to) = @_;
    map { $to->{$_} = $from->{$_} } grep { $_ ne 'configured' } keys %$from; 
    #- avoid cycles-----------------^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
}

sub getinfo($) {
    my ($prefix) = @_;
    my $printer = {};

    $::prefix = $prefix;

    # Initialize $printer data structure
    resetinfo($printer);

    return $printer;
}

#------------------------------------------------------------------------------
sub resetinfo($) {
    my ($printer) = @_;
    $printer->{QUEUE} = "";
    $printer->{OLD_QUEUE} = "";
    $printer->{OLD_CHOICE} = "";
    $printer->{ARGS} = "";
    $printer->{DBENTRY} = "";
    $printer->{DEFAULT} = "";
    $printer->{currentqueue} = {};
    # -check which printing system was used previously and load the information
    # -about its queues
    read_configured_queues($printer);
}

sub read_configured_queues($) {
    my ($printer) = @_;
    my @QUEUES;
    # Get the default spooler choice from the config file
    $printer->{SPOOLER} ||= printer::default::get_spooler();
    if (!$printer->{SPOOLER}) {
	#- Find the first spooler where there are queues
	foreach my $spooler (qw(cups pdq lprng lpd)) {
	    #- Is the spooler's daemon running?
	    my $service = $spooler;
	    if ($service eq "lprng") {
		$service = "lpd";
	    }
	    if ($service ne "pdq") {
		next unless services::is_service_running($service);
		# daemon is running, spooler found
		$printer->{SPOOLER} = $spooler;
	    }
	    #- poll queue info 
	    local *F; 
	    open F, ($::testing ? $::prefix : "chroot $::prefix/ ") . 
		"foomatic-configure -P -q -s $spooler |" or
		    die "Could not run foomatic-configure";
	    eval join('', <F>); 
	    close F;
	    if ($service eq "pdq") {
		#- Have we found queues? PDQ has no damon, so we consider
		#- it in use when there are defined printer queues
		if ($#QUEUES != -1) {
		    $printer->{SPOOLER} = $spooler;
		    last;
		}
	    } else {
		#- For other spoolers we have already found a running
		#- daemon when we have arrived here
		last;
	    }
	}
    } else {
	#- Poll the queues of the current default spooler
	local *F; 
	open F, ($::testing ? $::prefix : "chroot $::prefix/ ") . 
	    "foomatic-configure -P -q -s $printer->{SPOOLER} -r |" or
		die "Could not run foomatic-configure";
	eval join('', <F>); 
	close F;
    }
    $printer->{configured} = {};
    my $i;
    my $N = $#QUEUES + 1;
    for ($i = 0;  $i < $N; $i++) {
	# Set the default printer
	$printer->{DEFAULT} = $QUEUES[$i]{queuedata}{queue} if
	    $QUEUES[$i]{queuedata}{default};
	# Advance to the next entry if the current is a remotely defined
	# printer
	next if $QUEUES[$i]{queuedata}{remote};
	# Add an entry for a locally defined queue
	$printer->{configured}{$QUEUES[$i]{queuedata}{queue}} = 
	    $QUEUES[$i];
	if (!$QUEUES[$i]{make} || !$QUEUES[$i]{model}) {
	    if ($printer->{SPOOLER} eq "cups") {
		$printer->{OLD_QUEUE} = $QUEUES[$i]{queuedata}{queue};
		my $descr = get_descr_from_ppd($printer);
		if ($descr =~ m/^([^\|]*)\|([^\|]*)(\|.*|)$/) {
		    $printer->{configured}{$QUEUES[$i]{queuedata}{queue}}{queuedata}{make} ||= $1;
		    $printer->{configured}{$QUEUES[$i]{queuedata}{queue}}{queuedata}{model} ||= $2;
	        }
		# Read out which PPD file was originally used to set up this
		# queue
		local *F;
		if (open F, "< $::prefix/etc/cups/ppd/$QUEUES[$i]{queuedata}{queue}.ppd") {
		    while (my $line = <F>) {
			if ($line =~ /^\*%MDKMODELCHOICE:(.+)$/) {
			    $printer->{configured}{$QUEUES[$i]{queuedata}{queue}}{queuedata}{ppd} = $1;
			}
		    }
		    close F;
		}
		# Mark that we have a CUPS queue but do not know the name
		# the PPD file in /usr/share/cups/model
		if (!$printer->{configured}{$QUEUES[$i]{queuedata}{queue}}{queuedata}{ppd}) {
		    $printer->{configured}{$QUEUES[$i]{queuedata}{queue}}{queuedata}{ppd} = '1';
		}
		$printer->{configured}{$QUEUES[$i]{queuedata}{queue}}{queuedata}{driver} = 'PPD';
		$printer->{OLD_QUEUE} = "";
	    }
	    $printer->{configured}{$QUEUES[$i]{queuedata}{queue}}{queuedata}{make} ||= "";
	    $printer->{configured}{$QUEUES[$i]{queuedata}{queue}}{queuedata}{model} ||= N("Unknown model");
	} else {
	    $printer->{configured}{$QUEUES[$i]{queuedata}{queue}}{queuedata}{make} = $QUEUES[$i]{make};
	    $printer->{configured}{$QUEUES[$i]{queuedata}{queue}}{queuedata}{model} = $QUEUES[$i]{model};
	}
	# Fill in "options" field
	if (my $args = $printer->{configured}{$QUEUES[$i]{queuedata}{queue}}{args}) {
	    my @options;
	    foreach my $arg (@$args) {
		push(@options, "-o");
		my $optstr = $arg->{name} . "=" . $arg->{default};
		push(@options, $optstr);
	    }
	    @{$printer->{configured}{$QUEUES[$i]{queuedata}{queue}}{queuedata}{options}} = @options;
	}
	# Construct an entry line for tree view in main window of
	# printerdrake
	make_menuentry($printer, $QUEUES[$i]{queuedata}{queue});
    }
}

sub make_menuentry {
    my ($printer, $queue) = @_;
    my $spooler = $spoolers{$printer->{SPOOLER}}{short_name};
    my $connect = $printer->{configured}{$queue}{queuedata}{connect};
    my $localremote = N("Configured on this machine");
    my $make = $printer->{configured}{$queue}{queuedata}{make};
    my $model = $printer->{configured}{$queue}{queuedata}{model};
    my $connection;
    if ($connect =~ m!^(file|parallel):/dev/lp(\d+)$!) {
	my $number = $2;
	$connection = N(" on parallel port #%s", $number);
    } elsif ($connect =~ m!^(file|usb):/dev/usb/lp(\d+)$!) {
	my $number = $2;
	$connection = N(", USB printer #%s", $number);
    } elsif ($connect =~ m!^usb://!) {
	$connection = N(", USB printer");
    } elsif ($connect =~ m!^ptal://?(.+?)$!) {
	my $ptaldevice = $1;
	if ($ptaldevice =~ /^mlc:par:(\d+)$/) {
	    my $number = $1;
	    $connection = N(", multi-function device on parallel port #%s",
			    $number);
	} elsif ($ptaldevice =~ /^mlc:par:/) {
	    $connection = N(", multi-function device on a parallel port");
	} elsif ($ptaldevice =~ /^mlc:usb:/) {
	    $connection = N(", multi-function device on USB");
	} elsif ($ptaldevice =~ /^hpjd:/) {
	    $connection = N(", multi-function device on HP JetDirect");
	} else {
	    $connection = N(", multi-function device");
	}
    } elsif ($connect =~ m!^file:(.+)$!) {
	$connection = N(", printing to %s", $1);
    } elsif ($connect =~ m!^lpd://([^/]+)/([^/]+)/?$!) {
	$connection = N(" on LPD server \"%s\", printer \"%s\"", $1, $2);
    } elsif ($connect =~ m!^socket://([^/:]+):([^/:]+)/?$!) {
	$connection = N(", TCP/IP host \"%s\", port %s", $1, $2);
    } elsif ($connect =~ m!^smb://([^/\@]+)/([^/\@]+)/?$! ||
	     $connect =~ m!^smb://.*/([^/\@]+)/([^/\@]+)/?$! ||
	     $connect =~ m!^smb://.*\@([^/\@]+)/([^/\@]+)/?$!) {
	$connection = N(" on SMB/Windows server \"%s\", share \"%s\"", $1, $2);
    } elsif ($connect =~ m!^ncp://([^/\@]+)/([^/\@]+)/?$! ||
	     $connect =~ m!^ncp://.*/([^/\@]+)/([^/\@]+)/?$! ||
	     $connect =~ m!^ncp://.*\@([^/\@]+)/([^/\@]+)/?$!) {
	$connection = N(" on Novell server \"%s\", printer \"%s\"", $1, $2);
    } elsif ($connect =~ m!^postpipe:(.+)$!) {
	$connection = N(", using command %s", $1);
    } else {
	$connection = ($printer->{expert} ? ", URI: $connect" : "");
    }
    my $sep = "!";
    $printer->{configured}{$queue}{queuedata}{menuentry} = 
	($printer->{expert} ? "$spooler$sep" : "") .
	"$localremote$sep$queue: $make $model$connection";
}

sub connectionstr {
    my ($connect) = @_;
    my $connection;
    if ($connect =~ m!^(file|parallel):/dev/lp(\d+)$!) {
	my $number = $2;
	$connection = N("Parallel port #%s", $number);
    } elsif ($connect =~ m!^(file|usb):/dev/usb/lp(\d+)$!) {
	my $number = $2;
	$connection = N("USB printer #%s", $number);
    } elsif ($connect =~ m!^usb://!) {
	$connection = N("USB printer");
    } elsif ($connect =~ m!^ptal://?(.+?)$!) {
	my $ptaldevice = $1;
	if ($ptaldevice =~ /^mlc:par:(\d+)$/) {
	    my $number = $1;
	    $connection = N("Multi-function device on parallel port #%s",
			    $number);
	} elsif ($ptaldevice =~ /^mlc:par:/) {
	    $connection = N("Multi-function device on a parallel port");
	} elsif ($ptaldevice =~ /^mlc:usb:/) {
	    $connection = N("Multi-function device on USB");
	} elsif ($ptaldevice =~ /^hpjd:/) {
	    $connection = N("Multi-function device on HP JetDirect");
	} else {
	    $connection = N("Multi-function device");
	}
    } elsif ($connect =~ m!^file:(.+)$!) {
	$connection = N("Prints into %s", $1);
    } elsif ($connect =~ m!^lpd://([^/]+)/([^/]+)/?$!) {
	$connection = N("LPD server \"%s\", printer \"%s\"", $1, $2);
    } elsif ($connect =~ m!^socket://([^/:]+):([^/:]+)/?$!) {
	$connection = N("TCP/IP host \"%s\", port %s", $1, $2);
    } elsif ($connect =~ m!^smb://([^/\@]+)/([^/\@]+)/?$! ||
	     $connect =~ m!^smb://.*/([^/\@]+)/([^/\@]+)/?$! ||
	     $connect =~ m!^smb://.*\@([^/\@]+)/([^/\@]+)/?$!) {
	$connection = N("SMB/Windows server \"%s\", share \"%s\"", $1, $2);
    } elsif ($connect =~ m!^ncp://([^/\@]+)/([^/\@]+)/?$! ||
	     $connect =~ m!^ncp://.*/([^/\@]+)/([^/\@]+)/?$! ||
	     $connect =~ m!^ncp://.*\@([^/\@]+)/([^/\@]+)/?$!) {
	$connection = N("Novell server \"%s\", printer \"%s\"", $1, $2);
    } elsif ($connect =~ m!^postpipe:(.+)$!) {
	$connection = N("Uses command %s", $1);
    } else {
	$connection = N("URI: %s", $connect);
    }
    return $connection;
}

sub read_printer_db {

    my ($printer, $spooler) = @_;

    local *DBPATH; #- don't have to do close ... and don't modify globals at least
    # Generate the Foomatic printer/driver overview, read it from the
    # appropriate file when it is already generated
    open DBPATH, ($::testing ? $::prefix : "chroot $::prefix/ ") . #-#
	"foomatic-configure -O -q |" or
	die "Could not run foomatic-configure";

    my $entry = {};
    my $inentry = 0;
    my $indrivers = 0;
    my $inautodetect = 0;
    my $autodetecttype = "";
    local $_;
    while (<DBPATH>) {
	chomp;
	if ($inentry) {
	    # We are inside a printer entry
	    if ($indrivers) {
		# We are inside the drivers block of a printers entry
		if (m!^\s*</drivers>\s*$!) {
		    # End of drivers block
		    $indrivers = 0;
		} elsif (m!^\s*<driver>(.+)</driver>\s*$!) {
		    push @{$entry->{drivers}}, $1;
		}
	    } elsif ($inautodetect) {
		# We are inside the autodetect block of a printers entry
		# All entries inside this block will be ignored
		if ($autodetecttype) {
		    if (m!^.*</$autodetecttype>\s*$!) {
			# End of general, parallel, USB, or SNMP section
			$autodetecttype = "";
		    } elsif (m!^\s*<manufacturer>\s*([^<>]+)\s*</manufacturer>\s*$!) {
			# Manufacturer
			$entry->{devidmake} = $1;
		    } elsif (m!^\s*<model>\s*([^<>]+)\s*</model>\s*$!) {
			# Model
			$entry->{devidmodel} = $1;
		    } elsif (m!^\s*<description>\s*([^<>]+)\s*</description>\s*$!) {
			# Description
			$entry->{deviddesc} = $1;
		    } elsif (m!^\s*<commandset>\s*([^<>]+)\s*</commandset>\s*$!) {
			# Command set
			$entry->{devidcmdset} = $1;
		    } elsif (m!^\s*<ieee1284>\s*([^<>]+)\s*</ieee1284>\s*$!) {
			# Full ID string
			my $idstr = $1;
			$idstr =~ m!(MFG|MANUFACTURER):([^;]+);!i
			    and $entry->{devidmake} = $2;
			$idstr =~ m!(MDL|MODEL):([^;]+);!i
			    and $entry->{devidmodel} = $2;
			$idstr =~ m!(DES|DESCRIPTION):([^;]+);!i
			    and $entry->{deviddesc} = $2;
			$idstr =~ m!(CMD|COMMAND\s*SET):([^;]+);!i
			    and $entry->{devidcmdset} = $2;
		    }
		} else {
		    if (m!^.*</autodetect>\s*$!) {
			# End of autodetect block
			$inautodetect = 0;
		    } elsif (m!^\s*<(general|parallel|usb|snmp)>\s*$!) {
			# Beginning of parallel, USB, or SNMP section
			$autodetecttype = $1;
		    }
		}
	    } else {
		if (m!^\s*</printer>\s*$!) {
		    # entry completed
		    $inentry = 0;
		    # Expert mode:
		    # Make one database entry per driver with the entry name
		    # manufacturer|model|driver
		    if ($printer->{expert}) {
			foreach my $driver (@{$entry->{drivers}}) {
			    my $driverstr;
			    if ($driver eq "Postscript") {
				$driverstr = "PostScript";
			    } else {
				$driverstr = "GhostScript + $driver";
			    }
			    if ($driver eq $entry->{defaultdriver}) {
				$driverstr .= " (recommended)";
			    }
			    $entry->{ENTRY} = "$entry->{make}|$entry->{model}|$driverstr";
			    $entry->{ENTRY} =~ s/^CITOH/C.ITOH/i;
			    $entry->{ENTRY} =~ 
				s/^KYOCERA[\s\-]*MITA/KYOCERA/i;
			    $entry->{driver} = $driver;
			    # Duplicate contents of $entry because it is multiply entered to the database
			    map { $thedb{$entry->{ENTRY}}{$_} = $entry->{$_} } keys %$entry;
			}
		    } else {
			# Recommended mode
			# Make one entry per printer, with the recommended
			# driver (manufacturerer|model)
			$entry->{ENTRY} = "$entry->{make}|$entry->{model}";
			$entry->{ENTRY} =~ s/^CITOH/C.ITOH/i;
			$entry->{ENTRY} =~ 
			    s/^KYOCERA[\s\-]*MITA/KYOCERA/i;
			if ($entry->{defaultdriver}) {
			    $entry->{driver} = $entry->{defaultdriver};
			    map { $thedb{$entry->{ENTRY}}{$_} = $entry->{$_} } keys %$entry;
			}
		    }
		    $entry = {};
		} elsif (m!^\s*<id>\s*([^\s<>]+)\s*</id>\s*$!) {
		    # Foomatic printer ID
		    $entry->{printer} = $1;
		} elsif (m!^\s*<make>(.+)</make>\s*$!) {
		    # Printer manufacturer
		    $entry->{make} = uc($1);
		} elsif (m!^\s*<model>(.+)</model>\s*$!) {
		    # Printer model
		    $entry->{model} = $1;
		} elsif (m!<driver>(.+)</driver>!) {
		    # Printer default driver
		    $entry->{defaultdriver} = $1;
		} elsif (m!^\s*<drivers>\s*$!) {
		    # Drivers block
		    $indrivers = 1;
		    @{$entry->{drivers}} = (); 
		} elsif (m!^\s*<autodetect>\s*$!) {
		    # Autodetect block
		    $inautodetect = 1;
		}
	    }
	} else {
	    if (m!^\s*<printer>\s*$!) {
		# new entry
		$inentry = 1;
	    }
	}
    }
    close DBPATH;

    # Add raw queue
    $entry->{ENTRY} = N("Raw printer (No driver)");
    $entry->{driver} = "raw";
    $entry->{make} = "";
    $entry->{model} = N("Unknown model");
    $thedb{$entry->{ENTRY}}{$_} = $entry->{$_} foreach keys %$entry;

    #- Load CUPS driver database if CUPS is used as spooler
    if ($spooler && $spooler eq "cups") {
        poll_ppd_base($printer);
    }

    #my @entries_db_short     = sort keys %printer::thedb;
    #%descr_to_db          = map { $printer::thedb{$_}{DESCR}, $_ } @entries_db_short;
    #%descr_to_help        = map { $printer::thedb{$_}{DESCR}, $printer::thedb{$_}{ABOUT} } @entries_db_short;
    #@entry_db_description = keys %descr_to_db;
    #db_to_descr          = reverse %descr_to_db;

}

sub read_foomatic_options ($) {
    my ($printer) = @_;
    # Generate the option data for the chosen printer/driver combo
    my $COMBODATA;
    local *F;
    open F, ($::testing ? $::prefix : "chroot $::prefix/ ") . 
	"foomatic-configure -P -q -p $printer->{currentqueue}{printer}" .
	" -d $printer->{currentqueue}{driver}" . 
	($printer->{OLD_QUEUE} ?
	 " -s $printer->{SPOOLER} -n $printer->{OLD_QUEUE}" : "") .
	 ($printer->{SPECIAL_OPTIONS} ?
	  " $printer->{SPECIAL_OPTIONS}" : "") 
	 . " |" or
	 die "Could not run foomatic-configure";
    eval join('', (<F>)); 
    close F;
    # Return the arguments field
    return $COMBODATA->{args};
}

sub read_ppd_options ($) {
    my ($printer) = @_;
    # Generate the option data for a given PPD file
    my $COMBODATA;
    local *F;
    open F, ($::testing ? $::prefix : "chroot $::prefix/ ") . 
	"foomatic-configure -P -q" .
	" --ppd /usr/share/cups/model/$printer->{currentqueue}{ppd}" .
	($printer->{OLD_QUEUE} ?
	 " -s $printer->{SPOOLER} -n $printer->{OLD_QUEUE}" : "") .
	 ($printer->{SPECIAL_OPTIONS} ?
	  " $printer->{SPECIAL_OPTIONS}" : "") 
		    . " |" or
	    die "Could not run foomatic-configure";
    eval join('', (<F>)); 
    close F;
    # Return the arguments field
    return $COMBODATA->{args};
}

my %sysconfig = getVarsFromSh("$::prefix/etc/sysconfig/printing");

sub set_cups_special_options {
    my ($queue) = $_[0];
    # Set some special CUPS options
    my @lpoptions = chomp_(cat_("$::prefix/etc/cups/lpoptions"));
    # If nothing is already configured, set text file borders of half an inch
    # and decrease the font size a little bit, so nothing of the text gets
    # cut off by unprintable borders.
    if (!any { /$queue.*\s(page-(top|bottom|left|right)|lpi|cpi)=/ } @lpoptions) {
	run_program::rooted($::prefix, "lpoptions",
			    "-p", $queue,
			    "-o", "page-top=36", "-o", "page-bottom=36",
			    "-o", "page-left=36", "-o page-right=36",
			    "-o", "cpi=12", "-o", "lpi=7", "-o", "wrap");
    }
    # Let images fill the whole page by default
    if (!any { /$queue.*\s(scaling|natural-scaling|ppi)=/ } @lpoptions) {
	run_program::rooted($::prefix, "lpoptions",
			    "-p", $queue,
			    "-o", "scaling=100");
    }
    return 1;
}

sub set_cups_autoconf {
    my ($autoconf) = @_;
    $sysconfig{CUPS_CONFIG} = $autoconf ? "automatic" : "manual";
    setVarsInSh("$::prefix/etc/sysconfig/printing", \%sysconfig);
    # Restart CUPS
    printer::services::restart("cups") if $autoconf;
    return 1;
}

sub get_cups_autoconf() { $sysconfig{CUPS_CONFIG} ne 'manual' ? 1 : 0 }

sub set_usermode {
    my ($usermode) = @_;
    $sysconfig{USER_MODE} = $usermode ? "expert" : "recommended";
    setVarsInSh("$::prefix/etc/sysconfig/printing", \%sysconfig);
    return $usermode;
}

sub get_usermode() { $sysconfig{USER_MODE} eq 'expert' ? 1 : 0 }

sub set_jap_textmode {
    my $textmode = ($_[0] ? 'cjk' : '');
    substInFile {
        s!^(\s*text/plain\s+\S+\s+\d+\s+)\S+(\s*$)!$1${textmode}texttops$2!        
    } "$::prefix/etc/cups/mime.convs";
    return 1;
}

sub get_jap_textmode() {
    my @mimeconvs = cat_("$::prefix/etc/cups/mime.convs");
    (m!^\s*text/plain\s+\S+\s+\d+\s+(\S+)\s*$!m and
     $1 eq 'cjktexttops' and return 1) foreach @mimeconvs;
    return 0;
}

#----------------------------------------------------------------------
# Handling of /etc/cups/cupsd.conf

sub read_cupsd_conf() {
    cat_("$::prefix/etc/cups/cupsd.conf");
}
sub write_cupsd_conf {
    my (@cupsd_conf) = @_;

    output("$::prefix/etc/cups/cupsd.conf", @cupsd_conf);

    #- restart cups after updating configuration.
    printer::services::restart("cups");
}

sub read_location {

    # Return the lines inside the [path] location block
    #
    #   <Location [path]>
    #   ...
    #   </Location>

    my ($cupsd_conf_ptr, $path) = @_;

    my @result;
    if (any { m!^\s*<Location\s+$path\s*>! } @$cupsd_conf_ptr) {
	my $location_start = -1;
	my $location_end = -1;
	# Go through all the lines, bail out when start and end line found
	for (my $i = 0; 
	     $i <= $#{$cupsd_conf_ptr} and $location_end == -1;
	     $i++) {
	    if ($cupsd_conf_ptr->[$i] =~ m!^\s*<\s*Location\s+$path\s*>!) {
		# Start line of block
		$location_start = $i;
	    } elsif ($cupsd_conf_ptr->[$i] =~ 
		      m!^\s*<\s*/Location\s*>! &&
		     $location_start != -1) {
		# End line of block
		$location_end = $i;
		last;
	    } elsif ($location_start >= 0 && $location_end < 0) {
		# Inside the location block
		push(@result, $cupsd_conf_ptr->[$i]);
	    }
	}
    } else {
	# If there is no root location block, set the result array to
	# "undef"
	@result = undef;
    }
    return (@result);
}

sub rip_location {

    # Cut out the [path]  location block
    #
    #   <Location [path]>
    #   ...
    #   </Location>
    #
    # so that it can be treated seperately without affecting the
    # rest of the file

    my ($cupsd_conf_ptr, $path) = @_;

    my @location;
    my $location_start = -1;
    my $location_end = -1;
    if (any { m!^\s*<Location\s+$path\s*>! } @$cupsd_conf_ptr) {
	# Go through all the lines, bail out when start and end line found
	for (my $i = 0; 
	     $i <= $#{$cupsd_conf_ptr} and $location_end == -1;
	     $i++) {
	    if ($cupsd_conf_ptr->[$i] =~ m!^\s*<\s*Location\s+$path\s*>!) {
		# Start line of block
		$location_start = $i;
	    } elsif ($cupsd_conf_ptr->[$i] =~ 
		      m!^\s*<\s*/Location\s*>! &&
		     $location_start != -1) {
		# End line of block
		$location_end = $i;
		last;
	    }
	}
	# Rip out the block and store it seperately
	@location = 
	    splice(@$cupsd_conf_ptr, $location_start,
		   $location_end - $location_start + 1);
    } else {
	# If there is no location block, create one
	$location_start = $#{$cupsd_conf_ptr} + 1;
	@location = ("<Location $path>\n", "</Location>\n");
    }

    return ($location_start, @location);
}

sub insert_location {

    # Re-insert a location block ripped with "rip_location"

    my ($cupsd_conf_ptr, $location_start, @location) = @_;

    splice(@$cupsd_conf_ptr, $location_start,0,@location);
}

sub add_to_location {

    # Add a directive to a given location (only if it is not already there)

    my ($cupsd_conf_ptr, $path, $directive) = @_;

    my ($location_start, @location) = rip_location($cupsd_conf_ptr, $path);
    my $success = handle_configs::insert_directive(\@location, $directive);
    insert_location($cupsd_conf_ptr, $location_start, @location);
    return $success;
}

sub remove_from_location {

    # Remove a directive from a given location

    my ($cupsd_conf_ptr, $path, $directive) = @_;

    my ($location_start, @location) = rip_location($cupsd_conf_ptr, $path);
    my $success = handle_configs::remove_directive(\@location, $directive);
    insert_location($cupsd_conf_ptr, $location_start, @location);
    return $success;
}

sub replace_in_location {

    # Replace a directive in a given location

    my ($cupsd_conf_ptr, $path, $olddirective, $newdirective) = @_;

    my ($location_start, @location) = rip_location($cupsd_conf_ptr, $path);
    my $success = handle_configs::replace_directive(\@location, 
						    $olddirective, 
						    $newdirective);
    insert_location($cupsd_conf_ptr, $location_start, @location);
    return $success;
}

sub add_allowed_host {

    # Add a host or network which should get access to the local printer(s)
    my ($cupsd_conf_ptr, $host) = @_;
    
    return (handle_configs::insert_directive($cupsd_conf_ptr, 
					     "BrowseAddress $host") and
	    add_to_location($cupsd_conf_ptr, "/", "Allow From $host"));
}

sub remove_allowed_host {

    # Remove a host or network which should get access to the local 
    # printer(s)
    my ($cupsd_conf_ptr, $host) = @_;
    
    return (handle_configs::remove_directive($cupsd_conf_ptr, "BrowseAddress $host") and
	    remove_from_location($cupsd_conf_ptr, "/",
				 "Allow From $host"));
}

sub replace_allowed_host {

    # Remove a host or network which should get access to the local 
    # printer(s)
    my ($cupsd_conf_ptr, $oldhost, $newhost) = @_;
    
    return (handle_configs::replace_directive($cupsd_conf_ptr,
					      "BrowseAddress $oldhost",
					      "BrowseAddress $newhost") and
	    replace_in_location($cupsd_conf_ptr, "/", "Allow From $newhost",
				"Allow From $newhost"));
}

sub broadcastaddress {
    
    # Determines the broadcast address (for "BrowseAddress" line) for
    # a given network IP

    my ($address) = @_;

    if ($address =~ /^\d+\.\*$/) {
	$address =~ s/\*$/255.255.255/;
    } elsif ($address =~ /^\d+\.\d+\.\*$/) {
	$address =~ s/\*$/255.255/;
    } elsif ($address =~ /^\d+\.\d+\.\d+\.\*$/) {
	$address =~ s/\*$/255/;
    } elsif ($address =~ m!^(\d+)\.(\d+)\.(\d+)\.(\d+)/(\d+)$!) {
	my $numadr = ($1 << 24) + ($2 << 16) + ($3 << 8) + $4;
	my $mask = ((1 << $5) - 1) << (32 - $5);
	my $broadcast = $numadr | (~$mask);
	$address =
	    (($broadcast & (255 << 24)) >> 24) . '.' .
	    (($broadcast & (255 << 16)) >> 16) . '.' .
	    (($broadcast & (255 << 8)) >> 8) . '.' .
	    ($broadcast & 255);
    } elsif ($address =~
	     m!^(\d+)\.(\d+)\.(\d+)\.(\d+)/(\d+)\.(\d+)\.(\d+)\.(\d+)$!) {
	my $numadr = ($1 << 24) + ($2 << 16) + ($3 << 8) + $4;
	my $mask = ($5 << 24) + ($6 << 16) + ($7 << 8) + $8;
	my $broadcast = $numadr | (~$mask);
	$address =
	    (($broadcast & (255 << 24)) >> 24) . '.' .
	    (($broadcast & (255 << 16)) >> 16) . '.' .
	    (($broadcast & (255 << 8)) >> 8) . '.' .
	    ($broadcast & 255);
    }
    
    return $address;
}

sub networkaddress {
    
    # Guesses a network address for a given broadcast address
    
    my ($address) = @_;

    if ($address =~ /\.255$/) {
	while ($address =~ s/\.255$//) {};
	$address .= ".*";
    }
 
    return $address;
}

sub localprintersshared {

    # Do we broadcast our local printers

    my ($printer) = @_;

    return ($printer->{cupsconfig}{keys}{Browsing} !~ /off/i &&
	    $printer->{cupsconfig}{keys}{BrowseInterval} != 0 &&
	    $#{$printer->{cupsconfig}{keys}{BrowseAddress}} >= 0);
}

sub remotebroadcastsaccepted {
    
    # Do we accept broadcasts from remote CUPS servers?

    my ($printer) = @_;

    # Is browsing not turned on at all?
    if ($printer->{cupsconfig}{keys}{Browsing} =~ /off/i) {
	return 0;
    }

    # No "BrowseDeny" lines at all
    if ($#{$printer->{cupsconfig}{keys}{BrowseDeny}} < 0) {
	return 1;
    }

    my $havedenyall = 
	join('', @{$printer->{cupsconfig}{keys}{BrowseDeny}}) =~
	 /All/im;
    my $havedenylocal = 
	join('', @{$printer->{cupsconfig}{keys}{BrowseDeny}}) =~
	 /\@LOCAL/im;
    my $orderallowdeny =
	$printer->{cupsconfig}{keys}{BrowseOrder} =~
	 /allow\s*,\s*deny/i;
    my $haveallowremote = 0;
    foreach my $allowline (@{$printer->{cupsconfig}{keys}{BrowseAllow}}) {
	next if 
	    $allowline =~ /^\s*(localhost|0*127\.0+\.0+\.0*1|none)\s*$/i;
	$haveallowremote = 1;
    }

    # A line denying all (or at least the all LANs) together with the order
    # "allow,deny" or without "BrowseAllow" lines (which allow the
    # broadcasts of at least one remote resource).
    if (($havedenyall || $havedenylocal) &&
	($orderallowdeny || !$haveallowremote)) {
	return 0;
    }

    return 1;
}

sub clientnetworks {

    # Determine the client networks to which the printers will be
    # shared If the configuration is supported by our simplified
    # interface ("Deny From All", "Order Deny,Allow", "Allow From ..."
    # lines in "<location /> ... </location>", a "BrowseAddress ..."
    # line for each "Allow From ..." line), return the list of allowed
    # client networks ("Allow"/"BrowseAddress" lines), if not, return
    # the list of all items which are at least one of the
    # "BrowseAddresse"s or one of the "Allow From" addresses together
    # with a flag that the setup is not supported.

    my ($printer) = @_;

    # Check for a "Deny From All" line
    my $havedenyfromall =
	(join('', @{$printer->{cupsconfig}{root}{DenyFrom}}) =~
	 /All/im ? 1 : 0);

    # Check for "Deny From XXX" with XXX != All
    my $havedenyfromnotall =
	($#{$printer->{cupsconfig}{root}{DenyFrom}} - $havedenyfromall < 0 ?
	 0 : 1);
    
    # Check for a "BrowseDeny All" line
    my $havebrowsedenyall =
	(join('', @{$printer->{cupsconfig}{keys}{BrowseDeny}}) =~
	 /All/im ? 1 : 0);

    # Check for "BrowseDeny XXX" with XXX != All
    my $havebrowsedenynotall =
	($#{$printer->{cupsconfig}{keys}{BrowseDeny}} - 
	 $havebrowsedenyall < 0 ? 0 : 1);
    
    my @sharehosts;
    my $haveallowfromlocalhost = 0;
    my $haveallowedhostwithoutbrowseaddress = 0;
    my $haveallowedhostwithoutbrowseallow = 0;
    # Go through all "Allow From" lines
    foreach my $line (@{$printer->{cupsconfig}{root}{AllowFrom}}) {
	if ($line =~ /^\s*(localhost|0*127\.0+\.0+\.0*1)\s*$/i) {
	    # Line pointing to localhost
	    $haveallowfromlocalhost = 1;
	} elsif ($line =~ /^\s*(none)\s*$/i) {
	    # Skip "Allow From None" lines
	} elsif (!member($line, @sharehosts)) {
	    # Line pointing to remote server
	    push(@sharehosts, $line);
	    if (!member(broadcastaddress($line),
			@{$printer->{cupsconfig}{keys}{BrowseAddress}})) {
		$haveallowedhostwithoutbrowseaddress = 1;
	    }
	    if (!member($line,
			@{$printer->{cupsconfig}{keys}{BrowseAllow}})) {
		$haveallowedhostwithoutbrowseallow = 1;
	    }
	}
    }
    my $havebrowseaddresswithoutallowedhost = 0;
    # Go through all "BrowseAdress" lines
    foreach my $line (@{$printer->{cupsconfig}{keys}{BrowseAddress}}) {
	if ($line =~ /^\s*(localhost|0*127\.0+\.0+\.0*1)\s*$/i) {
	    # Skip lines pointing to localhost
	} elsif ($line =~ /^\s*(none)\s*$/i) {
	    # Skip "Allow From None" lines
	} elsif (!member($line, map { broadcastaddress($_) } @sharehosts)) {
	    # Line pointing to remote server
	    push(@sharehosts, networkaddress($line));
	    if ($printer->{cupsconfig}{localprintersshared}) {
		$havebrowseaddresswithoutallowedhost = 1;
	    }
	}
    }
    my $havebrowseallowwithoutallowedhost = 0;
    # Go through all "BrowseAllow" lines
    foreach my $line (@{$printer->{cupsconfig}{keys}{BrowseAllow}}) {
	if ($line =~ /^\s*(localhost|0*127\.0+\.0+\.0*1)\s*$/i) {
	    # Skip lines pointing to localhost
	} elsif ($line =~ /^\s*(none)\s*$/i) {
	    # Skip "BrowseAllow None" lines
	} elsif (!member($line, @sharehosts)) {
	    # Line pointing to remote server
	    push(@sharehosts, $line);
	    #$havebrowseallowwithoutallowedhost = 1;
	}
    }

    my $configunsupported = (!$havedenyfromall || $havedenyfromnotall ||
			     !$havebrowsedenyall || $havebrowsedenynotall ||
			     !$haveallowfromlocalhost ||
			     $haveallowedhostwithoutbrowseaddress ||
			     $havebrowseaddresswithoutallowedhost ||
			     $haveallowedhostwithoutbrowseallow ||
			     $havebrowseallowwithoutallowedhost);

    return ($configunsupported, @sharehosts);
}

sub makesharehostlist {

    # Human-readable strings for hosts onto which the local printers
    # are shared

    my ($printer) = @_;

    my @sharehostlist; 
    my %sharehosthash;
    foreach my $host (@{$printer->{cupsconfig}{clientnetworks}}) {
	if ($host =~ /\@LOCAL/i) {
	    $sharehosthash{$host} = N("Local network(s)");
	} elsif ($host =~ /\@IF\((.*)\)/i) {
	    $sharehosthash{$host} = N("Interface \"%s\"", $1);
	} elsif ($host =~ m!(/|^\*|\*$|^\.)!) {
	    $sharehosthash{$host} = N("Network %s", $host);
	} else {
	    $sharehosthash{$host} = N("Host %s", $host);
	}
	push(@sharehostlist, $sharehosthash{$host});
    }
    my %sharehosthash_inv = reverse %sharehosthash;

    return { list => \@sharehostlist, 
	     hash => \%sharehosthash, 
	     invhash => \%sharehosthash_inv };
}

sub makebrowsepolllist {

    # Human-readable strings for hosts from which the print queues are
    # polled

    my ($printer) = @_;

    my @browsepolllist; 
    my %browsepollhash;
    foreach my $host (@{$printer->{cupsconfig}{BrowsePoll}}) {
	my ($ip, $port);
	if ($host =~ /^([^:]+):([^:]+)$/) {
	    $ip = $1;
	    $port = $2;
	} else {
	    $ip = $host;
	    $port = '631';
	}
	$browsepollhash{$host} = N("%s (Port %s)", $ip, $port);
	push(@browsepolllist, $browsepollhash{$host});
    }
    my %browsepollhash_inv = reverse %browsepollhash;

    return { list => \@browsepolllist, 
	     hash => \%browsepollhash, 
	     invhash => \%browsepollhash_inv };
}

sub is_network_ip {

    # Determine whwther the given string is a valid network IP

    my ($address) = @_;

    $address =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/ ||
	$address =~ /^(\d+\.){1,3}\*$/ ||
	$address =~ m!^(\d+)\.(\d+)\.(\d+)\.(\d+)/(\d+)$! ||
	$address =~
	 m!^(\d+)\.(\d+)\.(\d+)\.(\d+)/(\d+)\.(\d+)\.(\d+)\.(\d+)$!;

}

sub read_cups_config {
    
    # Read the information relevant to the printer sharing dialog from
    # the CUPS configuration

    my ($printer) = @_;

    # From /etc/cups/cupsd.conf

    # Keyword "Browsing" 
    $printer->{cupsconfig}{keys}{Browsing} =
	handle_configs::read_unique_directive($printer->{cupsconfig}{cupsd_conf},
					      'Browsing', 'On');

    # Keyword "BrowseInterval"
    $printer->{cupsconfig}{keys}{BrowseInterval} =
	handle_configs::read_unique_directive($printer->{cupsconfig}{cupsd_conf},
					      'BrowseInterval', '30');

    # Keyword "BrowseAddress" 
    @{$printer->{cupsconfig}{keys}{BrowseAddress}} =
	handle_configs::read_directives($printer->{cupsconfig}{cupsd_conf},
					'BrowseAddress');

    # Keyword "BrowseAllow" 
    @{$printer->{cupsconfig}{keys}{BrowseAllow}} =
	handle_configs::read_directives($printer->{cupsconfig}{cupsd_conf},
					'BrowseAllow');

    # Keyword "BrowseDeny" 
    @{$printer->{cupsconfig}{keys}{BrowseDeny}} =
	handle_configs::read_directives($printer->{cupsconfig}{cupsd_conf},
					'BrowseDeny');

    # Keyword "BrowseOrder" 
    $printer->{cupsconfig}{keys}{BrowseOrder} =
	handle_configs::read_unique_directive($printer->{cupsconfig}{cupsd_conf},
					      'BrowseOrder', 'deny,allow');

    # Keyword "BrowsePoll" (needs "Browsing On")
    if ($printer->{cupsconfig}{keys}{Browsing} !~ /off/i) {
	@{$printer->{cupsconfig}{BrowsePoll}} =
	    handle_configs::read_directives($printer->{cupsconfig}{cupsd_conf},
					    'BrowsePoll');
    }

    # Root location
    @{$printer->{cupsconfig}{rootlocation}} =
	read_location($printer->{cupsconfig}{cupsd_conf}, '/');

    # Keyword "Allow from" 
    @{$printer->{cupsconfig}{root}{AllowFrom}} =
	handle_configs::read_directives($printer->{cupsconfig}{rootlocation},
					'Allow From');
    # Remove the IPs pointing to the local machine
    my @localips = printer::detect::getIPsOfLocalMachine();
    @{$printer->{cupsconfig}{root}{AllowFrom}} =
	grep {
	    !member($_, @localips)
	} @{$printer->{cupsconfig}{root}{AllowFrom}};

    # Keyword "Deny from" 
    @{$printer->{cupsconfig}{root}{DenyFrom}} =
	handle_configs::read_directives($printer->{cupsconfig}{rootlocation},
					'Deny From');

    # Keyword "Order" 
    $printer->{cupsconfig}{root}{Order} =
	handle_configs::read_unique_directive($printer->{cupsconfig}{rootlocation},
					      'Order', 'Deny,Allow');

    # Widget settings

    # Local printers available to other machines?
    $printer->{cupsconfig}{localprintersshared} = 
	localprintersshared($printer);

    # This machine is accepting printers shared by remote machines?
    $printer->{cupsconfig}{remotebroadcastsaccepted} =
	remotebroadcastsaccepted($printer);

    # To which machines are the local printers available?
    ($printer->{cupsconfig}{customsharingsetup},
     @{$printer->{cupsconfig}{clientnetworks}}) =
	 clientnetworks($printer);

}

sub write_cups_config {
    
    # Write the information edited via the printer sharing dialog into
    # the CUPS configuration

    my ($printer) = @_;

    # Local printers available to other machines?
    if ($printer->{cupsconfig}{localprintersshared}) {
	handle_configs::set_directive($printer->{cupsconfig}{cupsd_conf},
				      'Browsing On');
	if ($printer->{cupsconfig}{keys}{BrowseInterval} == 0) {
	    handle_configs::set_directive($printer->{cupsconfig}{cupsd_conf},
					  'BrowseInterval 30');
	}  
    } else {
	handle_configs::set_directive($printer->{cupsconfig}{cupsd_conf},
				      'BrowseInterval 0');
    }

    # This machine is accepting printers shared by remote machines?
    if ($printer->{cupsconfig}{remotebroadcastsaccepted}) {
	handle_configs::set_directive($printer->{cupsconfig}{cupsd_conf},
				      'Browsing On');
	if (!$printer->{cupsconfig}{customsharingsetup}) {
	    # If we broadcast our printers, let's accept the broadcasts
	    # from the machines to which we broadcast
	    handle_configs::set_directive($printer->{cupsconfig}{cupsd_conf},
					  'BrowseDeny All');
	    handle_configs::set_directive($printer->{cupsconfig}{cupsd_conf},
					  'BrowseOrder Deny,Allow');
	}
    } else {
	if ($printer->{cupsconfig}{localprintersshared} ||
	    $#{$printer->{cupsconfig}{BrowsePoll}} >= 0) {
	    # Deny all broadcasts, but leave all "BrowseAllow" lines
	    # untouched
	    handle_configs::set_directive($printer->{cupsconfig}{cupsd_conf},
					  'BrowseDeny All');
	      handle_configs::set_directive($printer->{cupsconfig}{cupsd_conf},
					    'BrowseOrder Allow,Deny');
	} else {
	    # We also do not share printers, if we also do not
	    # "BrowsePoll", we turn browsing off to do not need to deal 
	    # with any addresses
	    handle_configs::set_directive($printer->{cupsconfig}{cupsd_conf},
					  'Browsing Off');
	}
    }

    # To which machines are the local printers available?
    if (!$printer->{cupsconfig}{customsharingsetup}) {
	my @localips = printer::detect::getIPsOfLocalMachine();
	# root location block
	@{$printer->{cupsconfig}{rootlocation}} =
	    "<Location />\n" .
	    "Order Deny,Allow\n" .
	    "Deny From All\n" .
	    "Allow From 127.0.0.1\n" .
	    (@localips ?
	     "Allow From " .
	     join("\nAllow From ", @localips) .
	     "\n" : "") .
	    ($printer->{cupsconfig}{localprintersshared} &&
	     $#{$printer->{cupsconfig}{clientnetworks}} >= 0 ?
	     "Allow From " .
	     join("\nAllow From ", 
		  grep {
		      !member($_, @localips)
		  } @{$printer->{cupsconfig}{clientnetworks}}) .
	     "\n" : "") .
	    "</Location>\n";
	my ($location_start, @_location) = 
	    rip_location($printer->{cupsconfig}{cupsd_conf}, "/");
	insert_location($printer->{cupsconfig}{cupsd_conf}, $location_start,
			@{$printer->{cupsconfig}{rootlocation}});
	# "BrowseAddress" lines
	if ($#{$printer->{cupsconfig}{clientnetworks}} >= 0) {
	    handle_configs::set_directive($printer->{cupsconfig}{cupsd_conf},
					  'BrowseAddress ' .
					  join("\nBrowseAddress ",
						map { broadcastaddress($_) }
						@{$printer->{cupsconfig}{clientnetworks}}));
	} else {
	    handle_configs::comment_directive($printer->{cupsconfig}{cupsd_conf},
					      'BrowseAddress')
	}
	# Set "BrowseAllow" lines
	if ($#{$printer->{cupsconfig}{clientnetworks}} >= 0) {
	    handle_configs::set_directive($printer->{cupsconfig}{cupsd_conf},
					  'BrowseAllow ' .
					  join("\nBrowseAllow ", 
						@{$printer->{cupsconfig}{clientnetworks}}));
	} else {
	    handle_configs::comment_directive($printer->{cupsconfig}{cupsd_conf},
					      'BrowseAllow');
	}
    }

    # Set "BrowsePoll" lines
    if ($#{$printer->{cupsconfig}{BrowsePoll}} >= 0) {
	handle_configs::set_directive($printer->{cupsconfig}{cupsd_conf},
				      'BrowsePoll ' .
				      join("\nBrowsePoll ", 
					    @{$printer->{cupsconfig}{BrowsePoll}}));
	# "Browsing" must be on for "BrowsePoll" to work
	handle_configs::set_directive($printer->{cupsconfig}{cupsd_conf},
				      'Browsing On');
    } else {
	handle_configs::comment_directive($printer->{cupsconfig}{cupsd_conf},
					  'BrowsePoll');
    }

}

sub clean_cups_config {
    
    # Clean $printer data structure from all settings not related to
    # the CUPS printer sharing dialog

    my ($printer) = @_;

    delete $printer->{cupsconfig}{keys};
    delete $printer->{cupsconfig}{root};
    delete $printer->{cupsconfig}{cupsd_conf};
    delete $printer->{cupsconfig}{rootlocation};
}

#----------------------------------------------------------------------
sub read_printers_conf {
    my ($printer) = @_;
    my $current;

    #- read /etc/cups/printers.conf file.
    #- according to this code, we are now using the following keys for each queues.
    #-    DeviceURI > lpd://printer6/lp
    #-    Info      > Info Text
    #-    Location  > Location Text
    #-    State     > Idle|Stopped
    #-    Accepting > Yes|No
    local *PRINTERS; open PRINTERS, "$::prefix/etc/cups/printers.conf" or return;
    local $_;
    while (<PRINTERS>) {
	chomp;
	/^\s*#/ and next;
	if (/^\s*<(?:DefaultPrinter|Printer)\s+([^>]*)>/) { $current = { mode => 'cups', QUEUE => $1, } }
	elsif (m!\s*</Printer>!) { $current->{QUEUE} && $current->{DeviceURI} or next; #- minimal check of synthax.
				   add2hash($printer->{configured}{$current->{QUEUE}} ||= {}, $current); $current = undef }
	elsif (/\s*(\S*)\s+(.*)/) { $current->{$1} = $2 }
    }
    close PRINTERS;

    #- assume this printing system.
    $printer->{SPOOLER} ||= 'cups';
}

sub get_direct_uri() {
    #- get the local printer to access via a Device URI.
    my @direct_uri;
    local *F; open F, ($::testing ? $::prefix : "chroot $::prefix/ ") . "/usr/sbin/lpinfo -v |";
    local $_;
    while (<F>) {
	/^(direct|usb|serial)\s+(\S*)/ and push @direct_uri, $2;
    }
    close F;
    @direct_uri;
}

sub checkppd {
    # Check whether the PPD file is valid
    my ($printer, $ppdfile) = @_;
    return 1 if $printer->{SPOOLER} ne "cups";
    return run_program::rooted($::prefix, "cupstestppd", "-q",
			       $ppdfile);
}

sub installppd {
    # Install the PPD file in /usr/share/cups/model/printerdrake/
    my ($printer, $ppdfile) = @_;
    return "" if !$ppdfile;
    # Install PPD file
    mkdir_p("$::prefix/usr/share/cups/model/printerdrake");
    # "cp_f()" is broken, it hangs infinitely
    # cp_f($ppdfile, "$::prefix/usr/share/cups/model/printerdrake");
    run_program::rooted($::prefix, "cp", "-f", "$ppdfile",
			"$::prefix/usr/share/cups/model/printerdrake");
    $ppdfile =~ s!^(.*)(/[^/]+)$!/usr/share/cups/model/printerdrake$2!;
    chmod 0644, "$::prefix$ppdfile";
    # Restart CUPS to register new PPD file
    printer::services::restart("cups") if $printer->{SPOOLER} eq "cups";
    # Re-read printer database
    %thedb = ();
    read_printer_db($printer, $printer->{SPOOLER});
    # Return description string of the PPD file
    my $ppdentry = get_descr_from_ppdfile($printer, $ppdfile);
    return $ppdentry;
}

sub clean_manufacturer_name {
    my ($make) = @_;
    # Clean some manufacturer's names so that every manufacturer has only
    # one entry in the tree list
    $make =~ s/^CANON\W.*$/CANON/i;
    $make =~ s/^LEXMARK.*$/LEXMARK/i;
    $make =~ s/^HEWLETT?[\s\-]*PACKARD/HP/i;
    $make =~ s/^SEIKO[\s\-]*EPSON/EPSON/i;
    $make =~ s/^KYOCERA[\s\-]*MITA/KYOCERA/i;
    $make =~ s/^CITOH/C.ITOH/i;
    $make =~ s/^OKI(|[\s\-]*DATA)\s*$/OKIDATA/i;
    $make =~ s/^(SILENTWRITER2?|COLORMATE)/NEC/i;
    $make =~ s/^(XPRINT|MAJESTIX)/XEROX/i;
    $make =~ s/^QMS-PS/QMS/i;
    $make =~ s/^(PERSONAL|LASERWRITER)/APPLE/i;
    $make =~ s/^DIGITAL/DEC/i;
    $make =~ s/\s+Inc\.//i;
    $make =~ s/\s+Corp\.//i;
    $make =~ s/\s+SA\.//i;
    $make =~ s/\s+S\.\s*A\.//i;
    $make =~ s/\s+Ltd\.//i;
    $make =~ s/\s+International//i;
    $make =~ s/\s+Int\.//i;
    return uc($make);
}    

sub ppd_entry_str {
    my ($mf, $descr, $lang) = @_;
    my ($model, $driver);
    if ($descr) {
	# Apply the beautifying rules of poll_ppd_base
	if ($descr =~ /Foomatic \+ Postscript/) {
	    $descr =~ s/Foomatic \+ Postscript/PostScript/;
	} elsif ($descr =~ /Foomatic/i) {
	    $descr =~ s/Foomatic/GhostScript/i;
	} elsif ($descr =~ /CUPS\+GIMP-print/i) {
	    $descr =~ s/CUPS\+GIMP-print/CUPS + GIMP-Print/i;
	} elsif ($descr =~ /Series CUPS/i) {
	    $descr =~ s/Series CUPS/Series, CUPS/i;
	} elsif ($descr !~ /(PostScript|GhostScript|CUPS|Foomatic)/i) {
	    $descr .= ", PostScript";
	}
	# Split model and driver
	$descr =~ s/\s*Series//i;
	$descr =~ s/\((.*?(PostScript|PS.*).*?)\)/$1/i;
	if ($descr =~
	     /^\s*(Generic\s*PostScript\s*Printer)\s*,?\s*(.*)$/i ||
	    $descr =~
	     /^\s*(PostScript\s*Printer)\s*,?\s*(.*)$/i ||
	    $descr =~ /^([^,]+[^,\s])\s*,?\s*(Foomatic.*)$/i ||
	    $descr =~ /^([^,]+[^,\s])\s*,?\s*(GhostScript.*)$/i ||
	    $descr =~ /^([^,]+[^,\s])\s*,?\s*(CUPS.*)$/i ||
	    $descr =~ /^([^,]+[^,\s])\s*,?\s+(PS.*)$/i ||
	    $descr =~
	     /^([^,]+[^,\s])\s*,?\s*(\(v?\.?\s*\d\d\d\d\.\d\d\d\).*)$/i ||
	    $descr =~ /^([^,]+[^,\s])\s*,?\s*(v\d+\.\d+.*)$/i ||
	    $descr =~ /^([^,]+[^,\s])\s*,?\s*(PostScript.*)$/i ||
	    $descr =~ /^([^,]+)\s*,?\s*(.+)$/) {
	    $model = $1;
	    $driver = $2;
	    $model =~ s/[\-\s,]+$//;
	    $driver =~ s/\b(PS|PostScript\b)/PostScript/gi;
	    $driver =~ s/(PostScript)(.*)(PostScript)/$1$2/i;
	    $driver =~ 
	      s/^\s*(\(?v?\.?\s*\d\d\d\d\.\d\d\d\)?|v\d+\.\d+)([,\s]*)(.*?)\s*$/$3$2$1/i;
	    $driver =~ s/,\s*\(/ (/g;
	    $driver =~ s/[\-\s,]+$//;
	    $driver =~ s/^[\-\s,]+//;
	    $driver =~ s/\s+/ /g;
	    if ($driver !~ /[a-z]/i) {
		$driver = "PostScript " . $driver;
		$driver =~ s/ $//;
	    }
	} else {
	    # Some PPDs do not have the ", <driver>" part.
	    $model = $descr;
	    $driver = "PostScript";
	}
    }
    # Remove manufacturer's name from the beginning of the model
    # name (do not do this with manufacturer names which contain
    # odd characters)
    $model =~ s/^$mf[\s\-]+//i 
	if $mf && $mf !~ m![\\/\(\)\[\]\|\.\$\@\%\*\?]!;
    # Clean some manufacturer's names
    $mf = clean_manufacturer_name($mf);
    # Rename Canon "BJC XXXX" models into "BJC-XXXX" so that the 
    # models do not appear twice
    if ($mf eq "CANON") {
	$model =~ s/BJC\s+/BJC-/;
    }
    # New MF devices from Epson have mis-spelled name in PPD files for
    # native CUPS drivers of GIMP-Print
    if ($mf eq "EPSON") {
	$model =~ s/Stylus CX\-/Stylus CX/;
    }
    # Remove the "Oki" from the beginning of the model names of Okidata
    # printers
    if ($mf eq "OKIDATA") {
	$model =~ s/Oki\s+//i;
    }
    # Try again to remove manufacturer's name from the beginning of the 
    # model name, this with the cleaned manufacturer name
    $model =~ s/^$mf[\s\-]+//i 
	if $mf && $mf !~ m![\\/\(\)\[\]\|\.\$\@\%\*\?]!;
    # Put out the resulting description string
    uc($mf) . '|' . $model . '|' . $driver .
      ($lang && " (" . lc(substr($lang, 0, 2)) . ")");
}

sub get_descr_from_ppd {
    my ($printer) = @_;
    #- if there is no ppd, this means this is a raw queue.
    if (! -r "$::prefix/etc/cups/ppd/$printer->{OLD_QUEUE}.ppd") {
	return "|" . N("Unknown model");
    }
    return get_descr_from_ppdfile($printer, "/etc/cups/ppd/$printer->{OLD_QUEUE}.ppd");
}

sub get_descr_from_ppdfile {
    my ($printer, $ppdfile) = @_;
    my %ppd;

    # Remove ".gz" from end of file name, so that "catMaybeCompressed" works
    $ppdfile =~ s/\.gz$//;

    eval {
	local $_;
	foreach (catMaybeCompressed("$::prefix$ppdfile")) {
	    # "OTHERS|Generic PostScript printer|PostScript (en)";
	    /^\*([^\s:]*)\s*:\s*\"([^\"]*)\"/ and
		do { $ppd{$1} = $2; next };
	    /^\*([^\s:]*)\s*:\s*([^\s\"]*)/   and
		do { $ppd{$1} = $2; next };
	}
    };
    my $descr = ($ppd{NickName} || $ppd{ShortNickName} || $ppd{ModelName});
    my $make = $ppd{Manufacturer};
    my $lang = $ppd{LanguageVersion};
    my $entry = ppd_entry_str($make, $descr, $lang);
    if (!$printer->{expert}) {
	# Remove driver from printer list entry when in recommended mode
	$entry =~ s/^([^\|]+\|[^\|]+)\|.*$/$1/;
    }
    return $entry;
}

sub ppd_devid_data {
    my ($ppd) = @_;
    $ppd = "$::prefix/usr/share/cups/model/$ppd";
    my @content;
    if ($ppd =~ /\.gz$/i) {
	@content = cat_("$::prefix/bin/zcat $ppd |") or return ("", "");
    } else {
	@content = cat_($ppd) or return ("", "");
    }
    my ($devidmake, $devidmodel);
    /^\*Manufacturer:\s*\"(.*)\"\s*$/ and $devidmake = $1
	foreach @content;
    /^\*Product:\s*\"\(?(.*?)\)?\"\s*$/ and $devidmodel = $1 
	foreach @content;
    return ($devidmake, $devidmodel);
}

sub poll_ppd_base() {
    my ($printer) = @_;
    #- Before trying to poll the ppd database available to cups, we have 
    #- to make sure the file /etc/cups/ppds.dat is no more modified.
    #- If cups continue to modify it (because it reads the ppd files 
    #- available), the poll_ppd_base program simply cores :-)
    # else cups will not be happy! and ifup lo don't run ?
    run_program::rooted($::prefix, 'ifconfig', 'lo', '127.0.0.1');
    printer::services::start_not_running_service("cups");
    my $driversthere = scalar(keys %thedb);
    foreach (1..60) {
	local *PPDS; open PPDS, ($::testing ? $::prefix :
				 "chroot $::prefix/ ") . 
				 "/usr/bin/poll_ppd_base -a |";
	local $_;
	while (<PPDS>) {
	    chomp;
	    my ($ppd, $mf, $descr, $lang) = split /\|/;
	    if ($ppd eq "raw") { next }
	    $ppd && $mf && $descr and do {
		my $key = ppd_entry_str($mf, $descr, $lang);
		my ($model, $driver) = ($1, $2) if $key =~ /^[^\|]+\|([^\|]+)\|(.*)$/;
		# Clean some manufacturer's names
		$mf = clean_manufacturer_name($mf);
		# Remove language tag
		$driver =~ s/\s*\([a-z]{2}(|_[A-Z]{2})\)\s*$//;
		# Recommended Foomatic PPD? Extract "(recommended)"
		my $isrecommended = 
		    $driver =~ s/\s+\(recommended\)\s*$//i;
		# Remove trailing white space
		$driver =~ s/\s+$//;
		# For Foomatic: Driver with "GhostScript + "
		my $fullfoomaticdriver = $driver;
		# Foomatic PPD? Extract driver name
		my $isfoomatic = 
		    $driver =~ s/^\s*(GhostScript|Foomatic)\s*\+\s*//i;
		# Foomatic PostScript driver?
		$isfoomatic ||= $descr =~ /Foomatic/i;
		# Native CUPS?
		my $isnativecups = $driver =~ /CUPS/i;
		# Native PostScript
		my $isnativeps = (!$isfoomatic and !$isnativecups);
		# Key without language tag (key as it was produced for the
		# entries from the Foomatic XML database)
		my $keynolang = $key;
		$keynolang =~ s/\s*\([a-z]{2}(|_[A-Z]{2})\)\s*$//;
		if (!$isfoomatic) {
		    # Driver is PPD when the PPD is a non-Foomatic one
		    $driver = "PPD";
		} else {
		    # Remove language tag in menu entry when PPD is from
		    # Foomatic
		    $key = $keynolang;
		}
		if (!$printer->{expert}) {
		    # Remove driver from printer list entry when in
		    # recommended mode
		    $key =~ s/^([^\|]+\|[^\|]+)\|.*$/$1/;
		    # Only replace an existing printer entry if
		    #  - its driver is not the same as the driver of the
		    #    new one
		    # AND if one of the following items is true
		    #  - The existing entry uses a "Foomatic + Postscript" 
		    #    driver and the new one is native PostScript
		    #  - The existing entry is a Foomatic entry and the new 
		    #    one is "recommended"
		    #  - The existing entry is a native PostScript entry
		    #    and the new entry is a "recommended" driver other
		    #    then "Foomatic + Postscript"
		    if (defined($thedb{$key})) {
			next if lc($thedb{$key}{driver}) eq
				     lc($driver);
			next unless $isnativeps &&
				      $thedb{$key}{driver} =~ /^PostScript$/i ||
                          $thedb{$key}{driver} ne "PPD" && $isrecommended ||
                          $thedb{$key}{driver} eq "PPD" && $isrecommended && $driver ne "PostScript";
				      
			# Remove the old entry
			delete $thedb{$key};
		    }
		} elsif ((defined 
			   $thedb{"$mf|$model|$fullfoomaticdriver"} ||
			  defined 
			   $thedb{"$mf|$model|$fullfoomaticdriver (recommended)"}) && 
			 $isfoomatic) {
		    # Expert mode: There is already an entry for the
		    # same printer/driver combo produced by the
		    # Foomatic XML database, so do not make a second
		    # entry
		    next;
		} elsif (defined
			 $thedb{"$mf|$model|PostScript (recommended)"} &&
			 $isnativeps) {
		    # Expert mode: "Foomatic + Postscript" driver is
		    # recommended and this is a PostScript PPD? Make
		    # this PPD the recommended one
		    foreach (keys 
		         %{$thedb{"$mf|$model|PostScript (recommended)"}}) {
			$thedb{"$mf|$model|PostScript"}{$_} =
			  $thedb{"$mf|$model|PostScript (recommended)"}{$_};
		    }
		    delete
			$thedb{"$mf|$model|PostScript (recommended)"};
		    if (!$isrecommended) {
			$key .= " (recommended)";
		    }
		} elsif ($driver =~ /PostScript/i &&
			 $isrecommended && $isfoomatic &&
			 (my @foundkeys = grep {
			     /^$mf\|$model\|/ && !/CUPS/i &&
			     $thedb{$_}{driver} eq "PPD" 
			 } keys %thedb)) {
		    # Expert mode: "Foomatic + Postscript" driver is
		    # recommended and there was a PostScript PPD? Make
		    # the PostScript PPD the recommended one
		    my $firstfound = $foundkeys[0];
		    if (!(any { /\(recommended\)/ } @foundkeys)) {
			# Do it only if none of the native PostScript
			# PPDs for this printer is already "recommended"
			foreach (keys %{$thedb{$firstfound}}) {
			    $thedb{"$firstfound (recommended)"}{$_} =
				$thedb{$firstfound}{$_};
			}
			delete $thedb{$firstfound};
		    }
		    $key =~ s/\s*\(recommended\)//;
		} elsif ($driver !~ /PostScript/i &&
			 $isrecommended && $isfoomatic &&
			 (@foundkeys = grep {
			     /^$mf\|$model\|.*\(recommended\)/ && 
			     !/CUPS/i && $thedb{$_}{driver} eq "PPD" 
			 } keys %thedb)) {
		    # Expert mode: Foomatic driver other than "Foomatic +
		    # Postscript" is recommended and there was a PostScript 
		    # PPD which was recommended? Make The Foomatic driver
		    # the recommended one
		    foreach my $sourcekey (@foundkeys) {
			# Remove the "recommended" tag
			my $destkey = $sourcekey;
			$destkey =~ s/\s+\(recommended\)\s*$//i;
			foreach (keys %{$thedb{$sourcekey}}) {
			    $thedb{$destkey}{$_} = $thedb{$sourcekey}{$_};
			}
			delete $thedb{$sourcekey};
		    }
		}
	        $thedb{$key}{ppd} = $ppd;
		$thedb{$key}{make} = $mf;
		$thedb{$key}{model} = $model;
		$thedb{$key}{driver} = $driver;
		# Get auto-detection data
		#my ($devidmake, $devidmodel) = ppd_devid_data($ppd);
		#$thedb{$key}{devidmake} = $devidmake;
		#$thedb{$key}{devidmodel} = $devidmodel;
	    }
	}
	close PPDS;
	scalar(keys %thedb) - $driversthere > 5 and last;
	#- we have to try again running the program, wait here a little 
	#- before.
	sleep 1;
    }
    #scalar(keys %descr_to_ppd) > 5 or 
    #  die "unable to connect to cups server";

}



#-******************************************************************************
#- write functions
#-******************************************************************************

sub configure_queue($) {
    my ($printer) = @_;

    #- Create the queue with "foomatic-configure", in case of queue
    #- renaming copy the old queue
    my $quotedconnect = $printer->{currentqueue}{connect};
    $quotedconnect =~ s/\$/\\\$/g; # Quote '$' in URI
    run_program::rooted($::prefix, "foomatic-configure", "-q",
			"-s", $printer->{currentqueue}{spooler},
			"-n", $printer->{currentqueue}{queue},
			($printer->{currentqueue}{queue} ne 
			 $printer->{OLD_QUEUE} &&
			 $printer->{configured}{$printer->{OLD_QUEUE}} ?
			 ("-C", $printer->{OLD_QUEUE}) : ()),
			"-c", $quotedconnect,
			($printer->{currentqueue}{foomatic} ?
			 ("-p", $printer->{currentqueue}{printer},
			  "-d", $printer->{currentqueue}{driver}) :
			 ($printer->{currentqueue}{ppd} ?
			  ("--ppd",
			   ($printer->{currentqueue}{ppd} !~ m!^/! ?
			    "/usr/share/cups/model/" : "") .
			   $printer->{currentqueue}{ppd}) :
			  ("-d", "raw"))),
			"-N", $printer->{currentqueue}{desc},
			"-L", $printer->{currentqueue}{loc},
			@{$printer->{currentqueue}{options}}
			) or return 0;;
    if ($printer->{currentqueue}{ppd}) {
	# Add a comment line containing the path of the used PPD file to the
	# end of the PPD file
	if ($printer->{currentqueue}{ppd} ne '1') {
	    append_to_file("$::prefix/etc/cups/ppd/$printer->{currentqueue}{queue}.ppd", "*%MDKMODELCHOICE:$printer->{currentqueue}{ppd}\n");
	}
    }	  

    # Make sure that queue is active
    if ($printer->{SPOOLER} ne "pdq") {
        run_program::rooted($::prefix, "foomatic-printjob",
			    "-s", $printer->{currentqueue}{spooler},
			    "-C", "up", $printer->{currentqueue}{queue});
    }

    # In case of CUPS set some more useful defaults for text and image 
    # printing
    if ($printer->{SPOOLER} eq "cups") {
	set_cups_special_options($printer->{currentqueue}{queue});
    }

    # Check whether a USB printer is configured and activate USB printing if so
    my $useUSB = 0;
    foreach (values %{$printer->{configured}}) {
	$useUSB ||= $_->{queuedata}{connect} =~ /usb/i || 
	    $_->{DeviceURI} =~ /usb/i;
    }
    $useUSB ||= $printer->{currentqueue}{connect} =~ /usb/i;
    if ($useUSB) {
	my $f = "$::prefix/etc/sysconfig/usb";
	my %usb = getVarsFromSh($f);
	$usb{PRINTER} = "yes";
	setVarsInSh($f, \%usb);
    }

    # Open permissions for device file when PDQ is chosen as spooler
    # so normal users can print.
    if ($printer->{SPOOLER} eq 'pdq') {
	if ($printer->{currentqueue}{connect} =~ 
	    m!^\s*(file|parallel|usb|serial):(\S*)\s*$!) {
	    set_permissions($1, "666");
	}
    }

    # Make a new printer entry in the $printer structure
    $printer->{configured}{$printer->{currentqueue}{queue}}{queuedata} =
        {};
    copy_printer_params($printer->{currentqueue},
      $printer->{configured}{$printer->{currentqueue}{queue}}{queuedata});
    # Construct an entry line for tree view in main window of
    # printerdrake
    make_menuentry($printer, $printer->{currentqueue}{queue});

    # Store the default option settings
    $printer->{configured}{$printer->{currentqueue}{queue}}{args} = {};
    $printer->{configured}{$printer->{currentqueue}{queue}}{args} =
	$printer->{ARGS};
    # Clean up
    delete($printer->{ARGS});
    $printer->{OLD_CHOICE} = "";
    $printer->{ARGS} = {};
    $printer->{DBENTRY} = "";
    $printer->{currentqueue} = {};

    return 1;
}

sub remove_queue($$) {
    my ($printer) = $_[0];
    my ($queue) = $_[1];
    run_program::rooted($::prefix, "foomatic-configure", "-R", "-q",
			"-s", $printer->{SPOOLER},
			"-n", $queue);
    # Delete old stuff from data structure
    delete $printer->{configured}{$queue};
    delete($printer->{currentqueue});
    delete($printer->{ARGS});
    $printer->{OLD_CHOICE} = "";
    $printer->{ARGS} = {};
    $printer->{DBENTRY} = "";
    $printer->{currentqueue} = {};
    removeprinterfromapplications($printer, $queue);
}

sub restart_queue($) {
    my ($printer) = @_;
    my $queue = $printer->{QUEUE};

    # Restart the daemon(s)
    for ($printer->{SPOOLER}) {
	/cups/ and do {
	    #- restart cups.
	    printer::services::restart("cups");
	    last };
	/lpr|lprng/ and do {
	    #- restart lpd.
	    foreach ("/var/spool/lpd/$queue/lock", "/var/spool/lpd/lpd.lock") {
		my $pidlpd = (cat_("$::prefix$_"))[0];
		kill 'TERM', $pidlpd if $pidlpd;
		unlink "$::prefix$_";
	    }
	    printer::services::restart("lpd"); sleep 1;
	    last };
    }
    # Kill the jobs
    run_program::rooted($::prefix, "foomatic-printjob", "-R",
			"-s", $printer->{SPOOLER},
			"-P", $queue, "-");

}

sub print_pages($@) {
    my ($printer, @pages) = @_;
    my $queue = $printer->{QUEUE};
    my $lpr = "/usr/bin/foomatic-printjob";
    my $lpq = "$lpr -Q";

    # Print the pages
    foreach (@pages) {
	my $page = $_;
	# Only text and PostScript can be printed directly with all spoolers,
	# images must be treated seperately
	if ($page =~ /\.jpg$/) {
	    if ($printer->{SPOOLER} ne "cups") {
		# Use "convert" from ImageMagick for non-CUPS spoolers
		system(($::testing ? $::prefix : "chroot $::prefix/ ") .
		       "/usr/bin/convert $page -page 427x654+100+65 PS:- | " .
		       ($::testing ? $::prefix : "chroot $::prefix/ ") .
		       "$lpr -s $printer->{SPOOLER} -P $queue");
	    } else {
		# Use CUPS's internal image converter with CUPS, tell it
		# to let the image occupy 90% of the page size (so nothing
		# gets cut off by unprintable borders)
		run_program::rooted($::prefix, $lpr, "-s", $printer->{SPOOLER},
				    "-P", $queue, "-o", "scaling=90", $page);
	    }		
	} else {
	    run_program::rooted($::prefix, $lpr, "-s", $printer->{SPOOLER},
				"-P", $queue, $page);
	}
    }
    sleep 5; #- allow lpr to send pages.
    # Check whether the job is queued
    local *F; 
    open F, ($::testing ? $::prefix : "chroot $::prefix/ ") . "$lpq -s $printer->{SPOOLER} -P $queue |";
    my @lpq_output =
	grep { !/^no entries/ && !(/^Rank\s+Owner/ .. /^\s*$/) } <F>;
    close F;
    @lpq_output;
}

sub help_output {
    my ($printer, $spooler) = @_;
    my $queue = $printer->{QUEUE};

    local *F; 
    open F, ($::testing ? $::prefix : "chroot $::prefix/ ") . sprintf($spoolers{$spooler}{help}, $queue);
    my $helptext = join("", <F>);
    close F;
    $helptext ||= "Option list not available!\n";
    return $helptext;
}

sub print_optionlist {
    my ($printer) = @_;
    my $queue = $printer->{QUEUE};
    my $lpr = "/usr/bin/foomatic-printjob";

    # Print the option list pages
    if ($printer->{configured}{$queue}{queuedata}{foomatic}) {
        run_program::rooted($::prefix, $lpr, "-s", $printer->{SPOOLER},
			    "-P", $queue, "-o", "docs",
			    "/etc/bashrc");
    } elsif ($printer->{configured}{$queue}{queuedata}{ppd}) {
	system(($::testing ? $::prefix : "chroot $::prefix/ ") .
	       "/usr/bin/lphelp $queue | " .
	       ($::testing ? $::prefix : "chroot $::prefix/ ") .
	       "$lpr -s $printer->{SPOOLER} -P $queue");
    }
}

# ---------------------------------------------------------------
#
# Spooler config stuff
#
# ---------------------------------------------------------------

sub get_copiable_queues {
    my ($oldspooler, $newspooler) = @_;

    my @queuelist;      #- here we will list all Foomatic-generated queues
    # Get queue list with foomatic-configure
    local *QUEUEOUTPUT;
    open QUEUEOUTPUT, ($::testing ? $::prefix : "chroot $::prefix/ ") . 
	    "foomatic-configure -Q -q -s $oldspooler |" or
		die "Could not run foomatic-configure";

    my $entry = {};
    my $inentry = 0;
    local $_;
    while (<QUEUEOUTPUT>) {
	chomp;
	if ($inentry) {
	    # We are inside a queue entry
	    if (m!^\s*</queue>\s*$!) {
		# entry completed
		$inentry = 0;
		if ($entry->{foomatic} && $entry->{spooler} eq $oldspooler) {
		    # Is the connection type supported by the new
		    # spooler?
		    if ($newspooler eq "cups" && $entry->{connect} =~ /^(file|ptal|lpd|socket|smb|ipp):/ ||
                  $newspooler =~ /^(lpd|lprng)$/ && $entry->{connect} =~ /^(file|ptal|lpd|socket|smb|ncp|postpipe):/ ||
                  $newspooler eq "pdq" && $entry->{connect} =~ /^(file|ptal|lpd|socket):/) {
                  push(@queuelist, $entry->{name});
		    }
		}
		$entry = {};
	    } elsif (m!^\s*<name>(.+)</name>\s*$!) {
		    # queue name
		    $entry->{name} = $1;
	    } elsif (m!^\s*<connect>(.+)</connect>\s*$!) {
		    # connection type (URI)
		    $entry->{connect} = $1;
	    }
	} else {
	    if (m!^\s*<queue\s+foomatic\s*=\s*\"?(\d+)\"?\s*spooler\s*=\s*\"?(\w+)\"?\s*>\s*$!) {
		# new entry
		$inentry = 1;
		$entry->{foomatic} = $1;
		$entry->{spooler} = $2;
	    }
	}
    }
    close QUEUEOUTPUT;
    
    return @queuelist;
}

sub copy_foomatic_queue {
    my ($printer, $oldqueue, $oldspooler, $newqueue) = @_;
    run_program::rooted($::prefix, "foomatic-configure", "-q",
			"-s", $printer->{SPOOLER},
			"-n", $newqueue,
			"-C", $oldspooler, $oldqueue);
    # In case of CUPS set some more useful defaults for text and image printing
    if ($printer->{SPOOLER} eq "cups") {
	set_cups_special_options($newqueue);
    }
}

# ------------------------------------------------------------------
#
# Stuff for non-interactive printer configuration
#
# ------------------------------------------------------------------

# Check whether a given URI (for example of an existing queue matches
# one of the auto-detected printers

sub autodetectionentry_for_uri {
    my ($uri, @autodetected) = @_;

    if ($uri =~ m!^usb://([^/]+)/([^/\?]+)(|\?serial=(\S+))$!) {
	# USB device with URI referring to printer model
	my $make = $1;
	my $model = $2;
	my $serial = $4;
	if ($make && $model) {
	    $make =~ s/\%20/ /g;
	    $model =~ s/\%20/ /g;
	    $serial =~ s/\%20/ /g;
	    $make =~ s/Hewlett[-\s_]Packard/HP/;
	    $make =~ s/HEWLETT[-\s_]PACKARD/HP/;
	    my $smake = handle_configs::searchstr($make);
	    my $smodel = handle_configs::searchstr($model);
	    foreach my $p (@autodetected) {
		next if $p->{port} !~ /usb/i;
		next if ((!$p->{val}{MANUFACTURER} ||
                    $p->{val}{MANUFACTURER} ne $make) &&
                   (!$p->{val}{DESCRIPTION} ||
                    $p->{val}{DESCRIPTION} !~ /^\s*$smake\s+/));
		next if ((!$p->{val}{MODEL} ||
			  $p->{val}{MODEL} ne $model) &&
			 (!$p->{val}{DESCRIPTION} ||
			  $p->{val}{DESCRIPTION} !~ /\s+$smodel\s*$/));
		next if ($serial &&
			 (!$p->{val}{SERIALNUMBER} ||
			  $p->{val}{SERIALNUMBER} ne $serial));
		return $p;
	    }
	}
    } elsif ($uri =~ m!^ptal://?mlc:!) {
	# HP multi-function device (controlled by HPOJ)
	my $ptaldevice = $uri;
	$ptaldevice =~ s!^ptal://?mlc:!!;
	if ($ptaldevice =~ /^par:(\d+)$/) {
	    my $device = "/dev/lp$1";
	    foreach my $p (@autodetected) {
		next if !$p->{port} ||
			 $p->{port} ne $device;
		return $p;
	    }
	} else {
	    my $model = $2 if $ptaldevice =~ /^(usb|par):(.*)$/;
	    $model =~ s/_/ /g;
	    foreach my $p (@autodetected) {
		next if !$p->{val}{MODEL} ||
			 $p->{val}{MODEL} ne $model;
		return $p;
	    }
	}
    } elsif ($uri =~ m!^(socket|smb|file|parallel|usb|serial):/!) {
	# Local print-only device, Ethernet-(TCP/Socket)-connected printer, 
	# or printer on Windows server
	my $device = $uri;
	$device =~ s/^(file|parallel|usb|serial)://;
	foreach my $p (@autodetected) {
	    next if !$p->{port} ||
		     $p->{port} ne $device;
	    return $p;
	}
    }
    return undef;
}

# ------------------------------------------------------------------
#
# Configuration of HP multi-function devices
#
# ------------------------------------------------------------------

sub configure_hpoj {
    my ($device, @autodetected) = @_;

    # Make the subroutines of /usr/sbin/ptal-init available
    # It's only necessary to read it at the first call of this subroutine,
    # the subroutine definitions stay valid after leaving this subroutine.
    if (!$ptalinitread) {
	local *PTALINIT;
	open PTALINIT, "$::prefix/usr/sbin/ptal-init" or do {
	    die "unable to open $::prefix/usr/sbin/ptal-init";
	};
	my @ptalinitfunctions; # subroutine definitions in /usr/sbin/ptal-init
	local $_;
	while (<PTALINIT>) {
	    if (m!sub main!) {
		last;
	    } elsif (m!^[^#]!) {
		# Make the subroutines also working during installation
		if ($::isInstall) {
		    s!\$::prefix!\$hpoj_prefix!g;
		    s!prefix="/usr"!prefix="$::prefix/usr"!g;
		    s!etcPtal="/etc/ptal"!etcPtal="$::prefix/etc/ptal"!g;
		    s!varLock="/var/lock"!varLock="$::prefix/var/lock"!g;
		    s!varRunPrefix="/var/run"!varRunPrefix="$::prefix/var/run"!g;
		}
		push @ptalinitfunctions, $_;
	    }
	}
	close PTALINIT;

	eval "package printer::hpoj;
        @ptalinitfunctions
        sub getDevnames {
	    return (%devnames)
	}
        sub getConfigInfo {
            return (%configInfo)
        }";

	if ($::isInstall) {
	    # Needed for photo card reader detection during installation
	    system("ln -s $::prefix/var/run/ptal-mlcd /var/run/ptal-mlcd");
	    system("ln -s $::prefix/etc/ptal /etc/ptal");
	}
	$ptalinitread = 1;
    }

    # Read the HPOJ config file and check whether this device is already
    # configured
    printer::hpoj::setupVariables();
    printer::hpoj::readDeviceInfo();

    $device =~ m!^/dev/\S*lp(\d+)$! or
	$device =~ m!^/dev/printers/(\d+)$! or
	$device =~ m!^socket://([^:]+)$! or
	$device =~ m!^socket://([^:]+):(\d+)$!;
    my $model = $1;
    my ($model_long, $serialnumber, $serialnumber_long) = ("", "", "");
    my $cardreader = 0;
    my $device_ok = 1;
    my $bus;
    my $address_arg = "";
    my $base_address = "";
    my $hostname = "";
    my $port = $2;
    if ($device =~ /usb/) {
	$bus = "usb";
    } elsif ($device =~ /par/ ||
	     $device =~ m!/dev/lp! ||
	     $device =~ /printers/) {
	$bus = "par";
	$address_arg = printer::detect::parport_addr($device);
	eval "$base_address = $1" if $address_arg =~ /^\s*-base\s+(\S+)/;
    } elsif ($device =~ /socket/) {
	$bus = "hpjd";
	$hostname = $model;
	return "" if $port && ($port < 9100 || $port > 9103);
	if ($port && $port != 9100) {
	    $port -= 9100;
	    $hostname .= ":$port";
	}
    } else {
	return "";
    }
    my $devdata;
    foreach (@autodetected) {
	$device eq $_->{port} or next;
	$devdata = $_;
	# $model is for the PTAL device name, so make sure that it is unique
	# so in the case of the model name auto-detection having failed leave
	# the port number or the host name as model name.
	my $searchunknown = N("Unknown model");
	if ($_->{val}{MODEL} &&
	    $_->{val}{MODEL} !~ /$searchunknown/i &&
	    $_->{val}{MODEL} !~ /^\s*$/) {
	    $model = $_->{val}{MODEL};
	}
	$serialnumber = $_->{val}{SERIALNUMBER};
	services::stop("hpoj") if ($bus ne "hpjd");
	# Check if the device is really an HP multi-function device
	#my $libusb = 0;
	foreach my $libusb (0, 1) {
	    # Do access via libusb/user mode only if we have a USB device
	    next if ($libusb && ($bus ne "usb"));
	    # Preliminary workaround to make the user-mode USB devices
	    # (LIDIL devices) installable as verification of the HPOJ
	    # settings of these devices does not work yet. The workaround
	    # will probably removed after Mandrake 9.2.
	    # Note: This workaround leaves out the checking for a photo
	    # memory card reader, but to my knowledge there are no LIDIL
	    # devices with card reader yet.
	    if ($libusb) {
		$device_ok = 1;
		next;
	    }
	    my $printermoduleunloaded = 0;
	    if ($bus ne "hpjd") {
		if (!$libusb) {
		    # Start ptal-mlcd daemon for locally connected devices
		    # (kernel mode with "printer" module for USB).
		    run_program::rooted($::prefix, 
					"ptal-mlcd", "$bus:probe",
					"-device", 
					$device, split(' ',$address_arg));
		} else {
		    # Start ptal-mlcd daemon for user-mode USB devices
		    # (all LIDIL MF devices as HP PSC 1xxx and OfficeJet 
		    #  4xxx)
		    my $usbdev = usbdevice($_->{val});
		    if (defined($usbdev)) {
			# Unload kernel module "printer"
			if (modules::get_probeall("usb-interface")) {
			    eval(modules::unload("printer"));
			    $printermoduleunloaded = 1;
			}
			# Start ptal-mlcd
			run_program::rooted($::prefix, 
					    "ptal-mlcd", "$bus:probe",
					    "-device", $usbdev);
		    } else {
			# We could not determine the USB device number,
			# so we cannot check this device in user mode
			next;
		    }
		}
	    }
	    $device_ok = 0;
	    my $ptalprobedevice = $bus eq "hpjd" ? "hpjd:$hostname" : "mlc:$bus:probe";
	    local *F;
	    if (open F, ($::testing ? $::prefix : "chroot $::prefix/ ") . "/usr/bin/ptal-devid $ptalprobedevice |") {
		my $devid = join("", <F>);
		close F;
		if ($devid) {
		    $device_ok = 1;
		    local *F;
		    if (open F, ($::testing ? $::prefix : "chroot $::prefix/ ") . "/usr/bin/ptal-devid $ptalprobedevice -long -mdl 2>/dev/null |") {
			$model_long = join("", <F>);
			close F;
			chomp $model_long;
			# If SNMP or local port auto-detection failed but 
			# HPOJ auto-detection succeeded, fill in model name 
			# here.
			if (!$_->{val}{MODEL} ||
			    $_->{val}{MODEL} =~ /$searchunknown/i ||
			    $_->{val}{MODEL} =~ /^\s*$/) {
			    if ($model_long =~ /:([^:;]+);/) {
				$_->{val}{MODEL} = $1;
			    }
			}
		    }
		    if (open F, ($::testing ? $::prefix : "chroot $::prefix/ ") . "/usr/bin/ptal-devid $ptalprobedevice -long -sern 2>/dev/null |") { #-#
			$serialnumber_long = join("", <F>);
			close F;
			chomp $serialnumber_long;
		    }
		    $cardreader = 1 if printer::hpoj::cardReaderDetected($ptalprobedevice);
		}
	    }
	    if ($bus ne "hpjd") {
		# Stop ptal-mlcd daemon for locally connected devices
		local *F;
		if (open F, ($::testing ? $::prefix : "chroot $::prefix/ ") . qq(ps auxwww | grep "ptal-mlcd $bus:probe" | grep -v grep | )) {
		    my $line = <F>;
		    if ($line =~ /^\s*\S+\s+(\d+)\s+/) {
			my $pid = $1;
			kill 15, $pid;
		    }
		    close F;
		}
		$printermoduleunloaded && eval(modules::load("printer"));
	    }
	    last if $device_ok;
	}
	printer::services::start("hpoj") if ($bus ne "hpjd");
	last;
    }
    # No, it is not an HP multi-function device.
    return "" if !$device_ok;
	
    # If $model_long and $serialnumber_long stay empty, fill them with
    # $model and $serialnumber
    $model_long ||= $model;
    $serialnumber_long ||= $serialnumber;

    # Determine the ptal device name from already existing config files
    my $ptalprefix =
	($bus eq "hpjd" ? "hpjd:" : "mlc:$bus:");
    my $ptaldevice = printer::hpoj::lookupDevname($ptalprefix, $model_long, 
				    $serialnumber_long, $base_address);

    # It's all done for us, the device is already configured
    return $ptaldevice if defined($ptaldevice);

    # Determine the ptal name for a new device
    if ($bus eq "hpjd") {
	$ptaldevice = "hpjd:$hostname";
    } else {
	$ptaldevice = $model;
	$ptaldevice =~ s![\s/]+!_!g;
	$ptaldevice = "mlc:$bus:$ptaldevice";
    }

    # Delete any old/conflicting devices
    printer::hpoj::deleteDevice($ptaldevice);
    if ($bus eq "par") {
	while (1) {
	    my $oldDevname = printer::hpoj::lookupDevname("mlc:par:",undef,undef,$base_address);
	    last unless defined($oldDevname);
	    printer::hpoj::deleteDevice($oldDevname);
	}
    }

    # Configure the device

    # Open configuration file
    local *CONFIG;
    open(CONFIG, "> $::prefix/etc/ptal/$ptaldevice") or
	die "Could not open /etc/ptal/$ptaldevice for writing!\n";

    # Write file header.
    my $date = chomp_(`date`);
    print CONFIG
qq(
# Added $date by "printerdrake"

# The basic format for this file is "key[+]=value".
# If you say "+=" instead of "=", then the value is appended to any
# value already defined for this key, rather than replacing it.

# Comments must start at the beginning of the line.  Otherwise, they may
# be interpreted as being part of the value.

# If you have multiple devices and want to define options that apply to
# all of them, then put them in the file /etc/ptal/defaults, which is read
# in before this file.

# The format version of this file:
#   ptal-init ignores devices with incorrect/missing versions.
init.version=2\n");

    # Write model string.
    if ($model_long !~ /\S/) {
	print CONFIG
	    "\n" .
	    qq(# "printerdrake" couldn't read the model but added this device anyway:\n) .
	    "# ";
    } else {
	print CONFIG
	    "\n" .
	    "# The device model that was originally detected on this port:\n" .
	    qq(#   If this ever changes, then you should re-run "printerdrake"\n) .
	    "#   to delete and re-configure this device.\n";
	if ($bus eq "par") {
	    print CONFIG
		"#   Comment out if you don't care what model is really connected to this\n" .
		"#   parallel port.\n";
	}
    }
    print CONFIG
	qq(init.mlcd.append+=-devidmatch "$model_long"\n);

    # Write serial-number string.
    if ($serialnumber_long !~ /\S/) {
	print CONFIG
	    "\n" .
	    "# The device's serial number is unknown.\n" .
	    "# ";
    } else {
	print CONFIG
	    "\n" .
	    "# The serial number of the device that was originally detected on this port:\n";
	if ($bus =~ /^[pu]/) {
	    print CONFIG
		"#   Comment out if you want to disable serial-number matching.\n";
	}
    }
    print CONFIG
	qq(init.mlcd.append+=-devidmatch "$serialnumber_long"\n);

    if ($bus =~ /^[pu]/) {
	print CONFIG
	    "\n" .
	    "# Standard options passed to ptal-mlcd:\n" .
	    "init.mlcd.append+=";
	if ($bus eq "usb") {
	    # Important: don't put more quotes around /dev/usb/lp[0-9]*,
	    # because ptal-mlcd currently does no globbing:
	    print CONFIG "-device /dev/usb/lp0 /dev/usb/lp1 /dev/usb/lp2 /dev/usb/lp3 /dev/usb/lp4 /dev/usb/lp5 /dev/usb/lp6 /dev/usb/lp7 /dev/usb/lp8 /dev/usb/lp9 /dev/usb/lp10 /dev/usb/lp11 /dev/usb/lp12 /dev/usb/lp13 /dev/usb/lp14 /dev/usb/lp15";
	} elsif ($bus eq "par") {
	    print CONFIG "$address_arg -device $device";
	}
	print CONFIG "\n" .
	    "\n" .
	    "# ptal-mlcd's remote console can be useful for debugging, but may be a\n" .
	    "# security/DoS risk otherwise.  In any case, it's accessible with the\n" .
	    qq(# command "ptal-connect mlc:<XXX>:<YYY> -service PTAL-MLCD-CONSOLE".\n) .
	    "# Uncomment the following line if you want to enable this feature for\n" .
	    "# this device:\n" .
	    "# init.mlcd.append+=-remconsole\n" .
	    "\n" .
	    "# If you need to pass any other command-line options to ptal-mlcd, then\n" .
	    "# add them to the following line and uncomment the line:\n" .
	    "# init.mlcd.append+=\n" .
	    "\n" .
	    "# By default ptal-printd is started for mlc: devices.  If you use CUPS,\n" .
	    "# then you may not be able to use ptal-printd, and you can uncomment the\n" .
	    "# following line to disable ptal-printd for this device:\n" .
	    "# init.printd.start=0\n";
    } else {
	print CONFIG
	    "\n" .
	    "# By default ptal-printd isn't started for hpjd: devices.\n" .
	    "# If for some reason you want to start it for this device, then\n" .
	    "# uncomment the following line:\n" .
	    "init.printd.start=1\n";
    }

    print CONFIG
	"\n" .
	"# If you need to pass any additional command-line options to ptal-printd,\n" .
	"# then add them to the following line and uncomment the line:\n" .
	"# init.printd.append+=\n";
    if ($cardreader) {
	print CONFIG
	    "\n" .
	    "# Uncomment the following line to enable ptal-photod for this device:\n" .
	    "init.photod.start=1\n" .
	    "\n" .
	    "# If you have more than one photo-card-capable peripheral and you want to\n" .
	    "# assign particular TCP port numbers and mtools drive letters to each one,\n" .
	    qq(# then change the line below to use the "-portoffset <n>" option.\n) .
	    "init.photod.append+=-maxaltports 26\n";
    }
    close(CONFIG);
    printer::hpoj::readOneDevice($ptaldevice);

    # Restart HPOJ
    printer::services::restart("hpoj");

    # Return HPOJ device name to form the URI
    return $ptaldevice;
}

sub devicefound {
    my ($usbid, $model, $serial) = @_;
    # Compare the output of "lsusb -vv" with the elements of the device 
    # ID string
    if ($serial && ($usbid->{'SERIALNUMBER'} eq $serial)) {
	# Match of serial number has absolute priority
	return 1;
    } elsif ($model && ($usbid->{'MODEL'} eq $model)) {
	# Try to match the model name otherwise
	return 1;
    }
    return 0;
}

sub usbdevice() {
    my ($usbid) = @_;
    # Run "lsusb -vv¨ and search the given device to get its USB bus and
    # device numbers
    local *F;
    open F, ($::testing ? "" : "chroot $::prefix/ ") .
	'/bin/sh -c "export LC_ALL=C; lsusb -vv 2> /dev/null" |'
	or return undef;
    my ($bus, $device, $model, $serial) = ("", "", "", "");
    my $found = 0;
    while (my $line = <F>) {
	chomp $line;
	if ($line =~ m/^\s*Bus\s+(\d+)\s+Device\s+(\d+)\s*:/i) {
	    # head line of a new device
	    my ($newbus, $newdevice) = ($1, $2);
	    last if (($model || $serial) && 
		     ($found = devicefound($usbid, $model, $serial)));
	    ($bus, $device) = ($newbus, $newdevice);
	} elsif ($line =~ m/^\s*iProduct\s+\d+\s+(.+)$/i) {
	    # model line
	    next if $device eq "";
	    $model = $1;
	} elsif ($line =~ m/^\s*iSerial\s+\d+\s+(.+)$/i) {
	    # model line
	    next if $device eq "";
	    $serial = $1;
	}
    }
    close F;
    # Check last entry
    $found = devicefound($usbid, $model, $serial);

    return 0 if !$found;
    return sprintf("%%%03d%%%03d", $bus, $device);
}

sub config_sane() {
    # Add HPOJ backend to /etc/sane.d/dll.conf if needed (no individual
    # config file /etc/sane.d/hpoj.conf necessary, the HPOJ driver finds the
    # scanner automatically)
    return if member("hpoj", chomp_(cat_("$::prefix/etc/sane.d/dll.conf")));
    eval { append_to_file("$::prefix/etc/sane.d/dll.conf", "hpoj\n") } or
	   die "can't write SANE config in /etc/sane.d/dll.conf: $!";
}

sub config_photocard() {

    # Add definitions for the drives p:. q:, r:, and s: to /etc/mtools.conf
    cat_("$::prefix/etc/mtools.conf") !~ m/^\s*drive\s+p:/m or return;

    append_to_file("$::prefix/etc/mtools.conf", <<'EOF');
# Drive definitions added for the photo card readers in HP multi-function
# devices driven by HPOJ
drive p: file=":0" remote
drive q: file=":1" remote
drive r: file=":2" remote
drive s: file=":3" remote
# This turns off some file system integrity checks of mtools, it is needed
# for some photo cards.
mtools_skip_check=1
EOF

    # Generate a config file for the graphical mtools frontend MToolsFM or
    # modify the existing one
    my $mtoolsfmconf;
    if (-f "$::prefix/etc/mtoolsfm.conf") {
	$mtoolsfmconf = cat_("$::prefix/etc/mtoolsfm.conf") or die "can't read MToolsFM config in $::prefix/etc/mtoolsfm.conf: $!";
	my $alloweddrives = lc($1) if $mtoolsfmconf =~ m/^\s*DRIVES\s*=\s*\"([A-Za-z ]*)\"/m;
	foreach my $letter ("p", "q", "r", "s") {
         $alloweddrives .= $letter if $alloweddrives !~ /$letter/;
	}
	$mtoolsfmconf =~ s/^\s*DRIVES\s*=\s*"[A-Za-z ]*"/DRIVES="$alloweddrives"/m;
	$mtoolsfmconf =~ s/^\s*LEFTDRIVE\s*=\s*"[^"]*"/LEFTDRIVE="p"/m;
        #"# Fix emacs syntax highlighting
    } else {
	$mtoolsfmconf = <<'EOF';
# MToolsFM config file. comments start with a hash sign.
#
# This variable sets the allowed driveletters (all lowercase). Example:
# DRIVES="ab"
DRIVES="apqrs"
#
# This variable sets the driveletter upon startup in the left window.
# An empty string or space is for the hardisk. Example:
# LEFTDRIVE="a"
LEFTDRIVE="p"
#
# This variable sets the driveletter upon startup in the right window.
# An empty string or space is for the hardisk. Example:
# RIGHTDRIVE="a"
RIGHTDRIVE=" "
EOF
    }
    output("$::prefix/etc/mtoolsfm.conf", $mtoolsfmconf);
}

# ------------------------------------------------------------------
#
# Configuration of printers in applications
#
# ------------------------------------------------------------------

sub configureapplications {
    my ($printer) = @_;
    setcupslink($printer);
    printer::office::configureoffice('Star Office', $printer);
    printer::office::configureoffice('OpenOffice.Org', $printer);
    printer::gimp::configure($printer);
}

sub addcupsremotetoapplications {
    my ($printer, $queue) = @_;
    setcupslink($printer);
    return printer::office::add_cups_remote_to_office('Star Office', $printer, $queue) &&
	   printer::office::add_cups_remote_to_office('OpenOffice.Org', $printer, $queue) &&
	   printer::gimp::addcupsremoteto($printer, $queue);
}

sub removeprinterfromapplications {
    my ($printer, $queue) = @_;
    setcupslink($printer);
    return printer::office::remove_printer_from_office('Star Office', $printer, $queue) &&
	   printer::office::remove_printer_from_office('OpenOffice.Org', $printer, $queue) &&
	   printer::gimp::removeprinterfrom($printer, $queue);
}

sub removelocalprintersfromapplications {
    my ($printer) = @_;
    setcupslink($printer);
    printer::office::remove_local_printers_from_office('Star Office', $printer);
    printer::office::remove_local_printers_from_office('OpenOffice.Org', $printer);
    printer::gimp::removelocalprintersfrom($printer);
}

sub setcupslink {
    my ($printer) = @_;
    return 1 if !$::isInstall || $printer->{SPOOLER} ne "cups" || -d "/etc/cups/ppd";
    system("ln -sf $::prefix/etc/cups /etc/cups");
    return 1;
}


1;
n2288' href='#n2288'>2288</a>
<a id='n2289' href='#n2289'>2289</a>
<a id='n2290' href='#n2290'>2290</a>
<a id='n2291' href='#n2291'>2291</a>
<a id='n2292' href='#n2292'>2292</a>
<a id='n2293' href='#n2293'>2293</a>
<a id='n2294' href='#n2294'>2294</a>
<a id='n2295' href='#n2295'>2295</a>
<a id='n2296' href='#n2296'>2296</a>
<a id='n2297' href='#n2297'>2297</a>
<a id='n2298' href='#n2298'>2298</a>
<a id='n2299' href='#n2299'>2299</a>
<a id='n2300' href='#n2300'>2300</a>
<a id='n2301' href='#n2301'>2301</a>
<a id='n2302' href='#n2302'>2302</a>
<a id='n2303' href='#n2303'>2303</a>
<a id='n2304' href='#n2304'>2304</a>
<a id='n2305' href='#n2305'>2305</a>
<a id='n2306' href='#n2306'>2306</a>
<a id='n2307' href='#n2307'>2307</a>
<a id='n2308' href='#n2308'>2308</a>
<a id='n2309' href='#n2309'>2309</a>
<a id='n2310' href='#n2310'>2310</a>
<a id='n2311' href='#n2311'>2311</a>
<a id='n2312' href='#n2312'>2312</a>
<a id='n2313' href='#n2313'>2313</a>
<a id='n2314' href='#n2314'>2314</a>
<a id='n2315' href='#n2315'>2315</a>
<a id='n2316' href='#n2316'>2316</a>
<a id='n2317' href='#n2317'>2317</a>
<a id='n2318' href='#n2318'>2318</a>
<a id='n2319' href='#n2319'>2319</a>
<a id='n2320' href='#n2320'>2320</a>
<a id='n2321' href='#n2321'>2321</a>
<a id='n2322' href='#n2322'>2322</a>
<a id='n2323' href='#n2323'>2323</a>
<a id='n2324' href='#n2324'>2324</a>
<a id='n2325' href='#n2325'>2325</a>
<a id='n2326' href='#n2326'>2326</a>
<a id='n2327' href='#n2327'>2327</a>
<a id='n2328' href='#n2328'>2328</a>
<a id='n2329' href='#n2329'>2329</a>
<a id='n2330' href='#n2330'>2330</a>
<a id='n2331' href='#n2331'>2331</a>
<a id='n2332' href='#n2332'>2332</a>
<a id='n2333' href='#n2333'>2333</a>
<a id='n2334' href='#n2334'>2334</a>
<a id='n2335' href='#n2335'>2335</a>
<a id='n2336' href='#n2336'>2336</a>
<a id='n2337' href='#n2337'>2337</a>
<a id='n2338' href='#n2338'>2338</a>
<a id='n2339' href='#n2339'>2339</a>
<a id='n2340' href='#n2340'>2340</a>
<a id='n2341' href='#n2341'>2341</a>
<a id='n2342' href='#n2342'>2342</a>
<a id='n2343' href='#n2343'>2343</a>
<a id='n2344' href='#n2344'>2344</a>
<a id='n2345' href='#n2345'>2345</a>
<a id='n2346' href='#n2346'>2346</a>
<a id='n2347' href='#n2347'>2347</a>
<a id='n2348' href='#n2348'>2348</a>
<a id='n2349' href='#n2349'>2349</a>
<a id='n2350' href='#n2350'>2350</a>
<a id='n2351' href='#n2351'>2351</a>
<a id='n2352' href='#n2352'>2352</a>
<a id='n2353' href='#n2353'>2353</a>
<a id='n2354' href='#n2354'>2354</a>
<a id='n2355' href='#n2355'>2355</a>
<a id='n2356' href='#n2356'>2356</a>
<a id='n2357' href='#n2357'>2357</a>
<a id='n2358' href='#n2358'>2358</a>
<a id='n2359' href='#n2359'>2359</a>
<a id='n2360' href='#n2360'>2360</a>
<a id='n2361' href='#n2361'>2361</a>
<a id='n2362' href='#n2362'>2362</a>
<a id='n2363' href='#n2363'>2363</a>
<a id='n2364' href='#n2364'>2364</a>
<a id='n2365' href='#n2365'>2365</a>
<a id='n2366' href='#n2366'>2366</a>
<a id='n2367' href='#n2367'>2367</a>
<a id='n2368' href='#n2368'>2368</a>
<a id='n2369' href='#n2369'>2369</a>
<a id='n2370' href='#n2370'>2370</a>
<a id='n2371' href='#n2371'>2371</a>
<a id='n2372' href='#n2372'>2372</a>
<a id='n2373' href='#n2373'>2373</a>
<a id='n2374' href='#n2374'>2374</a>
<a id='n2375' href='#n2375'>2375</a>
<a id='n2376' href='#n2376'>2376</a>
<a id='n2377' href='#n2377'>2377</a>
<a id='n2378' href='#n2378'>2378</a>
<a id='n2379' href='#n2379'>2379</a>
<a id='n2380' href='#n2380'>2380</a>
<a id='n2381' href='#n2381'>2381</a>
<a id='n2382' href='#n2382'>2382</a>
<a id='n2383' href='#n2383'>2383</a>
<a id='n2384' href='#n2384'>2384</a>
<a id='n2385' href='#n2385'>2385</a>
<a id='n2386' href='#n2386'>2386</a>
<a id='n2387' href='#n2387'>2387</a>
<a id='n2388' href='#n2388'>2388</a>
<a id='n2389' href='#n2389'>2389</a>
<a id='n2390' href='#n2390'>2390</a>
<a id='n2391' href='#n2391'>2391</a>
<a id='n2392' href='#n2392'>2392</a>
<a id='n2393' href='#n2393'>2393</a>
<a id='n2394' href='#n2394'>2394</a>
<a id='n2395' href='#n2395'>2395</a>
<a id='n2396' href='#n2396'>2396</a>
<a id='n2397' href='#n2397'>2397</a>
<a id='n2398' href='#n2398'>2398</a>
<a id='n2399' href='#n2399'>2399</a>
<a id='n2400' href='#n2400'>2400</a>
<a id='n2401' href='#n2401'>2401</a>
<a id='n2402' href='#n2402'>2402</a>
<a id='n2403' href='#n2403'>2403</a>
<a id='n2404' href='#n2404'>2404</a>
<a id='n2405' href='#n2405'>2405</a>
<a id='n2406' href='#n2406'>2406</a>
<a id='n2407' href='#n2407'>2407</a>
<a id='n2408' href='#n2408'>2408</a>
<a id='n2409' href='#n2409'>2409</a>
<a id='n2410' href='#n2410'>2410</a>
<a id='n2411' href='#n2411'>2411</a>
<a id='n2412' href='#n2412'>2412</a>
<a id='n2413' href='#n2413'>2413</a>
<a id='n2414' href='#n2414'>2414</a>
<a id='n2415' href='#n2415'>2415</a>
<a id='n2416' href='#n2416'>2416</a>
<a id='n2417' href='#n2417'>2417</a>
<a id='n2418' href='#n2418'>2418</a>
<a id='n2419' href='#n2419'>2419</a>
<a id='n2420' href='#n2420'>2420</a>
<a id='n2421' href='#n2421'>2421</a>
<a id='n2422' href='#n2422'>2422</a>
<a id='n2423' href='#n2423'>2423</a>
<a id='n2424' href='#n2424'>2424</a>
<a id='n2425' href='#n2425'>2425</a>
<a id='n2426' href='#n2426'>2426</a>
<a id='n2427' href='#n2427'>2427</a>
<a id='n2428' href='#n2428'>2428</a>
<a id='n2429' href='#n2429'>2429</a>
<a id='n2430' href='#n2430'>2430</a>
<a id='n2431' href='#n2431'>2431</a>
<a id='n2432' href='#n2432'>2432</a>
<a id='n2433' href='#n2433'>2433</a>
<a id='n2434' href='#n2434'>2434</a>
<a id='n2435' href='#n2435'>2435</a>
<a id='n2436' href='#n2436'>2436</a>
<a id='n2437' href='#n2437'>2437</a>
<a id='n2438' href='#n2438'>2438</a>
<a id='n2439' href='#n2439'>2439</a>
<a id='n2440' href='#n2440'>2440</a>
<a id='n2441' href='#n2441'>2441</a>
<a id='n2442' href='#n2442'>2442</a>
<a id='n2443' href='#n2443'>2443</a>
<a id='n2444' href='#n2444'>2444</a>
<a id='n2445' href='#n2445'>2445</a>
<a id='n2446' href='#n2446'>2446</a>
<a id='n2447' href='#n2447'>2447</a>
<a id='n2448' href='#n2448'>2448</a>
<a id='n2449' href='#n2449'>2449</a>
<a id='n2450' href='#n2450'>2450</a>
<a id='n2451' href='#n2451'>2451</a>
<a id='n2452' href='#n2452'>2452</a>
<a id='n2453' href='#n2453'>2453</a>
<a id='n2454' href='#n2454'>2454</a>
<a id='n2455' href='#n2455'>2455</a>
<a id='n2456' href='#n2456'>2456</a>
<a id='n2457' href='#n2457'>2457</a>
<a id='n2458' href='#n2458'>2458</a>
<a id='n2459' href='#n2459'>2459</a>
<a id='n2460' href='#n2460'>2460</a>
<a id='n2461' href='#n2461'>2461</a>
<a id='n2462' href='#n2462'>2462</a>
<a id='n2463' href='#n2463'>2463</a>
<a id='n2464' href='#n2464'>2464</a>
<a id='n2465' href='#n2465'>2465</a>
<a id='n2466' href='#n2466'>2466</a>
<a id='n2467' href='#n2467'>2467</a>
<a id='n2468' href='#n2468'>2468</a>
<a id='n2469' href='#n2469'>2469</a>
<a id='n2470' href='#n2470'>2470</a>
<a id='n2471' href='#n2471'>2471</a>
<a id='n2472' href='#n2472'>2472</a>
<a id='n2473' href='#n2473'>2473</a>
<a id='n2474' href='#n2474'>2474</a>
<a id='n2475' href='#n2475'>2475</a>
<a id='n2476' href='#n2476'>2476</a>
<a id='n2477' href='#n2477'>2477</a>
<a id='n2478' href='#n2478'>2478</a>
<a id='n2479' href='#n2479'>2479</a>
<a id='n2480' href='#n2480'>2480</a>
<a id='n2481' href='#n2481'>2481</a>
<a id='n2482' href='#n2482'>2482</a>
<a id='n2483' href='#n2483'>2483</a>
<a id='n2484' href='#n2484'>2484</a>
<a id='n2485' href='#n2485'>2485</a>
<a id='n2486' href='#n2486'>2486</a>
<a id='n2487' href='#n2487'>2487</a>
<a id='n2488' href='#n2488'>2488</a>
<a id='n2489' href='#n2489'>2489</a>
<a id='n2490' href='#n2490'>2490</a>
<a id='n2491' href='#n2491'>2491</a>
<a id='n2492' href='#n2492'>2492</a>
<a id='n2493' href='#n2493'>2493</a>
<a id='n2494' href='#n2494'>2494</a>
<a id='n2495' href='#n2495'>2495</a>
<a id='n2496' href='#n2496'>2496</a>
<a id='n2497' href='#n2497'>2497</a>
<a id='n2498' href='#n2498'>2498</a>
<a id='n2499' href='#n2499'>2499</a>
<a id='n2500' href='#n2500'>2500</a>
<a id='n2501' href='#n2501'>2501</a>
<a id='n2502' href='#n2502'>2502</a>
<a id='n2503' href='#n2503'>2503</a>
<a id='n2504' href='#n2504'>2504</a>
<a id='n2505' href='#n2505'>2505</a>
<a id='n2506' href='#n2506'>2506</a>
<a id='n2507' href='#n2507'>2507</a>
<a id='n2508' href='#n2508'>2508</a>
<a id='n2509' href='#n2509'>2509</a>
<a id='n2510' href='#n2510'>2510</a>
<a id='n2511' href='#n2511'>2511</a>
<a id='n2512' href='#n2512'>2512</a>
<a id='n2513' href='#n2513'>2513</a>
<a id='n2514' href='#n2514'>2514</a>
<a id='n2515' href='#n2515'>2515</a>
<a id='n2516' href='#n2516'>2516</a>
<a id='n2517' href='#n2517'>2517</a>
<a id='n2518' href='#n2518'>2518</a>
<a id='n2519' href='#n2519'>2519</a>
<a id='n2520' href='#n2520'>2520</a>
<a id='n2521' href='#n2521'>2521</a>
<a id='n2522' href='#n2522'>2522</a>
<a id='n2523' href='#n2523'>2523</a>
<a id='n2524' href='#n2524'>2524</a>
<a id='n2525' href='#n2525'>2525</a>
<a id='n2526' href='#n2526'>2526</a>
<a id='n2527' href='#n2527'>2527</a>
<a id='n2528' href='#n2528'>2528</a>
<a id='n2529' href='#n2529'>2529</a>
<a id='n2530' href='#n2530'>2530</a>
<a id='n2531' href='#n2531'>2531</a>
<a id='n2532' href='#n2532'>2532</a>
<a id='n2533' href='#n2533'>2533</a>
<a id='n2534' href='#n2534'>2534</a>
<a id='n2535' href='#n2535'>2535</a>
<a id='n2536' href='#n2536'>2536</a>
<a id='n2537' href='#n2537'>2537</a>
<a id='n2538' href='#n2538'>2538</a>
<a id='n2539' href='#n2539'>2539</a>
<a id='n2540' href='#n2540'>2540</a>
<a id='n2541' href='#n2541'>2541</a>
<a id='n2542' href='#n2542'>2542</a>
<a id='n2543' href='#n2543'>2543</a>
<a id='n2544' href='#n2544'>2544</a>
<a id='n2545' href='#n2545'>2545</a>
<a id='n2546' href='#n2546'>2546</a>
<a id='n2547' href='#n2547'>2547</a>
<a id='n2548' href='#n2548'>2548</a>
<a id='n2549' href='#n2549'>2549</a>
<a id='n2550' href='#n2550'>2550</a>
<a id='n2551' href='#n2551'>2551</a>
<a id='n2552' href='#n2552'>2552</a>
<a id='n2553' href='#n2553'>2553</a>
<a id='n2554' href='#n2554'>2554</a>
<a id='n2555' href='#n2555'>2555</a>
<a id='n2556' href='#n2556'>2556</a>
<a id='n2557' href='#n2557'>2557</a>
<a id='n2558' href='#n2558'>2558</a>
<a id='n2559' href='#n2559'>2559</a>
<a id='n2560' href='#n2560'>2560</a>
<a id='n2561' href='#n2561'>2561</a>
<a id='n2562' href='#n2562'>2562</a>
<a id='n2563' href='#n2563'>2563</a>
<a id='n2564' href='#n2564'>2564</a>
<a id='n2565' href='#n2565'>2565</a>
<a id='n2566' href='#n2566'>2566</a>
<a id='n2567' href='#n2567'>2567</a>
<a id='n2568' href='#n2568'>2568</a>
<a id='n2569' href='#n2569'>2569</a>
<a id='n2570' href='#n2570'>2570</a>
<a id='n2571' href='#n2571'>2571</a>
<a id='n2572' href='#n2572'>2572</a>
<a id='n2573' href='#n2573'>2573</a>
<a id='n2574' href='#n2574'>2574</a>
<a id='n2575' href='#n2575'>2575</a>
<a id='n2576' href='#n2576'>2576</a>
<a id='n2577' href='#n2577'>2577</a>
<a id='n2578' href='#n2578'>2578</a>
<a id='n2579' href='#n2579'>2579</a>
<a id='n2580' href='#n2580'>2580</a>
<a id='n2581' href='#n2581'>2581</a>
<a id='n2582' href='#n2582'>2582</a>
<a id='n2583' href='#n2583'>2583</a>
<a id='n2584' href='#n2584'>2584</a>
<a id='n2585' href='#n2585'>2585</a>
<a id='n2586' href='#n2586'>2586</a>
<a id='n2587' href='#n2587'>2587</a>
<a id='n2588' href='#n2588'>2588</a>
<a id='n2589' href='#n2589'>2589</a>
<a id='n2590' href='#n2590'>2590</a>
<a id='n2591' href='#n2591'>2591</a>
<a id='n2592' href='#n2592'>2592</a>
<a id='n2593' href='#n2593'>2593</a>
<a id='n2594' href='#n2594'>2594</a>
<a id='n2595' href='#n2595'>2595</a>
<a id='n2596' href='#n2596'>2596</a>
<a id='n2597' href='#n2597'>2597</a>
<a id='n2598' href='#n2598'>2598</a>
<a id='n2599' href='#n2599'>2599</a>
<a id='n2600' href='#n2600'>2600</a>
<a id='n2601' href='#n2601'>2601</a>
<a id='n2602' href='#n2602'>2602</a>
<a id='n2603' href='#n2603'>2603</a>
<a id='n2604' href='#n2604'>2604</a>
<a id='n2605' href='#n2605'>2605</a>
<a id='n2606' href='#n2606'>2606</a>
<a id='n2607' href='#n2607'>2607</a>
<a id='n2608' href='#n2608'>2608</a>
<a id='n2609' href='#n2609'>2609</a>
<a id='n2610' href='#n2610'>2610</a>
<a id='n2611' href='#n2611'>2611</a>
<a id='n2612' href='#n2612'>2612</a>
<a id='n2613' href='#n2613'>2613</a>
<a id='n2614' href='#n2614'>2614</a>
<a id='n2615' href='#n2615'>2615</a>
<a id='n2616' href='#n2616'>2616</a>
<a id='n2617' href='#n2617'>2617</a>
<a id='n2618' href='#n2618'>2618</a>
<a id='n2619' href='#n2619'>2619</a>
<a id='n2620' href='#n2620'>2620</a>
<a id='n2621' href='#n2621'>2621</a>
<a id='n2622' href='#n2622'>2622</a>
<a id='n2623' href='#n2623'>2623</a>
<a id='n2624' href='#n2624'>2624</a>
<a id='n2625' href='#n2625'>2625</a>
<a id='n2626' href='#n2626'>2626</a>
<a id='n2627' href='#n2627'>2627</a>
<a id='n2628' href='#n2628'>2628</a>
<a id='n2629' href='#n2629'>2629</a>
<a id='n2630' href='#n2630'>2630</a>
<a id='n2631' href='#n2631'>2631</a>
<a id='n2632' href='#n2632'>2632</a>
<a id='n2633' href='#n2633'>2633</a>
<a id='n2634' href='#n2634'>2634</a>
<a id='n2635' href='#n2635'>2635</a>
<a id='n2636' href='#n2636'>2636</a>
<a id='n2637' href='#n2637'>2637</a>
<a id='n2638' href='#n2638'>2638</a>
<a id='n2639' href='#n2639'>2639</a>
<a id='n2640' href='#n2640'>2640</a>
<a id='n2641' href='#n2641'>2641</a>
<a id='n2642' href='#n2642'>2642</a>
<a id='n2643' href='#n2643'>2643</a>
<a id='n2644' href='#n2644'>2644</a>
<a id='n2645' href='#n2645'>2645</a>
<a id='n2646' href='#n2646'>2646</a>
<a id='n2647' href='#n2647'>2647</a>
<a id='n2648' href='#n2648'>2648</a>
<a id='n2649' href='#n2649'>2649</a>
<a id='n2650' href='#n2650'>2650</a>
<a id='n2651' href='#n2651'>2651</a>
<a id='n2652' href='#n2652'>2652</a>
<a id='n2653' href='#n2653'>2653</a>
<a id='n2654' href='#n2654'>2654</a>
<a id='n2655' href='#n2655'>2655</a>
<a id='n2656' href='#n2656'>2656</a>
<a id='n2657' href='#n2657'>2657</a>
<a id='n2658' href='#n2658'>2658</a>
<a id='n2659' href='#n2659'>2659</a>
<a id='n2660' href='#n2660'>2660</a>
<a id='n2661' href='#n2661'>2661</a>
<a id='n2662' href='#n2662'>2662</a>
<a id='n2663' href='#n2663'>2663</a>
<a id='n2664' href='#n2664'>2664</a>
<a id='n2665' href='#n2665'>2665</a>
<a id='n2666' href='#n2666'>2666</a>
<a id='n2667' href='#n2667'>2667</a>
<a id='n2668' href='#n2668'>2668</a>
<a id='n2669' href='#n2669'>2669</a>
<a id='n2670' href='#n2670'>2670</a>
<a id='n2671' href='#n2671'>2671</a>
<a id='n2672' href='#n2672'>2672</a>
<a id='n2673' href='#n2673'>2673</a>
<a id='n2674' href='#n2674'>2674</a>
<a id='n2675' href='#n2675'>2675</a>
<a id='n2676' href='#n2676'>2676</a>
<a id='n2677' href='#n2677'>2677</a>
<a id='n2678' href='#n2678'>2678</a>
<a id='n2679' href='#n2679'>2679</a>
<a id='n2680' href='#n2680'>2680</a>
<a id='n2681' href='#n2681'>2681</a>
<a id='n2682' href='#n2682'>2682</a>
<a id='n2683' href='#n2683'>2683</a>
<a id='n2684' href='#n2684'>2684</a>
<a id='n2685' href='#n2685'>2685</a>
<a id='n2686' href='#n2686'>2686</a>
<a id='n2687' href='#n2687'>2687</a>
<a id='n2688' href='#n2688'>2688</a>
<a id='n2689' href='#n2689'>2689</a>
<a id='n2690' href='#n2690'>2690</a>
<a id='n2691' href='#n2691'>2691</a>
<a id='n2692' href='#n2692'>2692</a>
<a id='n2693' href='#n2693'>2693</a>
<a id='n2694' href='#n2694'>2694</a>
<a id='n2695' href='#n2695'>2695</a>
<a id='n2696' href='#n2696'>2696</a>
<a id='n2697' href='#n2697'>2697</a>
<a id='n2698' href='#n2698'>2698</a>
<a id='n2699' href='#n2699'>2699</a>
<a id='n2700' href='#n2700'>2700</a>
<a id='n2701' href='#n2701'>2701</a>
<a id='n2702' href='#n2702'>2702</a>
<a id='n2703' href='#n2703'>2703</a>
<a id='n2704' href='#n2704'>2704</a>
<a id='n2705' href='#n2705'>2705</a>
<a id='n2706' href='#n2706'>2706</a>
<a id='n2707' href='#n2707'>2707</a>
<a id='n2708' href='#n2708'>2708</a>
<a id='n2709' href='#n2709'>2709</a>
<a id='n2710' href='#n2710'>2710</a>
<a id='n2711' href='#n2711'>2711</a>
<a id='n2712' href='#n2712'>2712</a>
<a id='n2713' href='#n2713'>2713</a>
<a id='n2714' href='#n2714'>2714</a>
<a id='n2715' href='#n2715'>2715</a>
<a id='n2716' href='#n2716'>2716</a>
<a id='n2717' href='#n2717'>2717</a>
<a id='n2718' href='#n2718'>2718</a>
<a id='n2719' href='#n2719'>2719</a>
<a id='n2720' href='#n2720'>2720</a>
<a id='n2721' href='#n2721'>2721</a>
<a id='n2722' href='#n2722'>2722</a>
<a id='n2723' href='#n2723'>2723</a>
<a id='n2724' href='#n2724'>2724</a>
<a id='n2725' href='#n2725'>2725</a>
<a id='n2726' href='#n2726'>2726</a>
<a id='n2727' href='#n2727'>2727</a>
<a id='n2728' href='#n2728'>2728</a>
<a id='n2729' href='#n2729'>2729</a>
<a id='n2730' href='#n2730'>2730</a>
<a id='n2731' href='#n2731'>2731</a>
<a id='n2732' href='#n2732'>2732</a>
<a id='n2733' href='#n2733'>2733</a>
<a id='n2734' href='#n2734'>2734</a>
<a id='n2735' href='#n2735'>2735</a>
<a id='n2736' href='#n2736'>2736</a>
<a id='n2737' href='#n2737'>2737</a>
<a id='n2738' href='#n2738'>2738</a>
<a id='n2739' href='#n2739'>2739</a>
<a id='n2740' href='#n2740'>2740</a>
<a id='n2741' href='#n2741'>2741</a>
<a id='n2742' href='#n2742'>2742</a>
<a id='n2743' href='#n2743'>2743</a>
<a id='n2744' href='#n2744'>2744</a>
<a id='n2745' href='#n2745'>2745</a>
<a id='n2746' href='#n2746'>2746</a>
<a id='n2747' href='#n2747'>2747</a>
<a id='n2748' href='#n2748'>2748</a>
<a id='n2749' href='#n2749'>2749</a>
<a id='n2750' href='#n2750'>2750</a>
<a id='n2751' href='#n2751'>2751</a>
<a id='n2752' href='#n2752'>2752</a>
<a id='n2753' href='#n2753'>2753</a>
<a id='n2754' href='#n2754'>2754</a>
<a id='n2755' href='#n2755'>2755</a>
<a id='n2756' href='#n2756'>2756</a>
<a id='n2757' href='#n2757'>2757</a>
<a id='n2758' href='#n2758'>2758</a>
<a id='n2759' href='#n2759'>2759</a>
<a id='n2760' href='#n2760'>2760</a>
<a id='n2761' href='#n2761'>2761</a>
<a id='n2762' href='#n2762'>2762</a>
<a id='n2763' href='#n2763'>2763</a>
<a id='n2764' href='#n2764'>2764</a>
<a id='n2765' href='#n2765'>2765</a>
<a id='n2766' href='#n2766'>2766</a>
<a id='n2767' href='#n2767'>2767</a>
<a id='n2768' href='#n2768'>2768</a>
<a id='n2769' href='#n2769'>2769</a>
<a id='n2770' href='#n2770'>2770</a>
<a id='n2771' href='#n2771'>2771</a>
<a id='n2772' href='#n2772'>2772</a>
<a id='n2773' href='#n2773'>2773</a>
<a id='n2774' href='#n2774'>2774</a>
<a id='n2775' href='#n2775'>2775</a>
<a id='n2776' href='#n2776'>2776</a>
<a id='n2777' href='#n2777'>2777</a>
<a id='n2778' href='#n2778'>2778</a>
<a id='n2779' href='#n2779'>2779</a>
<a id='n2780' href='#n2780'>2780</a>
<a id='n2781' href='#n2781'>2781</a>
<a id='n2782' href='#n2782'>2782</a>
<a id='n2783' href='#n2783'>2783</a>
<a id='n2784' href='#n2784'>2784</a>
<a id='n2785' href='#n2785'>2785</a>
<a id='n2786' href='#n2786'>2786</a>
<a id='n2787' href='#n2787'>2787</a>
<a id='n2788' href='#n2788'>2788</a>
<a id='n2789' href='#n2789'>2789</a>
<a id='n2790' href='#n2790'>2790</a>
<a id='n2791' href='#n2791'>2791</a>
<a id='n2792' href='#n2792'>2792</a>
<a id='n2793' href='#n2793'>2793</a>
<a id='n2794' href='#n2794'>2794</a>
<a id='n2795' href='#n2795'>2795</a>
<a id='n2796' href='#n2796'>2796</a>
<a id='n2797' href='#n2797'>2797</a>
<a id='n2798' href='#n2798'>2798</a>
<a id='n2799' href='#n2799'>2799</a>
<a id='n2800' href='#n2800'>2800</a>
<a id='n2801' href='#n2801'>2801</a>
<a id='n2802' href='#n2802'>2802</a>
<a id='n2803' href='#n2803'>2803</a>
<a id='n2804' href='#n2804'>2804</a>
<a id='n2805' href='#n2805'>2805</a>
<a id='n2806' href='#n2806'>2806</a>
<a id='n2807' href='#n2807'>2807</a>
<a id='n2808' href='#n2808'>2808</a>
<a id='n2809' href='#n2809'>2809</a>
<a id='n2810' href='#n2810'>2810</a>
<a id='n2811' href='#n2811'>2811</a>
<a id='n2812' href='#n2812'>2812</a>
<a id='n2813' href='#n2813'>2813</a>
<a id='n2814' href='#n2814'>2814</a>
<a id='n2815' href='#n2815'>2815</a>
<a id='n2816' href='#n2816'>2816</a>
<a id='n2817' href='#n2817'>2817</a>
<a id='n2818' href='#n2818'>2818</a>
<a id='n2819' href='#n2819'>2819</a>
<a id='n2820' href='#n2820'>2820</a>
<a id='n2821' href='#n2821'>2821</a>
<a id='n2822' href='#n2822'>2822</a>
<a id='n2823' href='#n2823'>2823</a>
<a id='n2824' href='#n2824'>2824</a>
<a id='n2825' href='#n2825'>2825</a>
<a id='n2826' href='#n2826'>2826</a>
<a id='n2827' href='#n2827'>2827</a>
<a id='n2828' href='#n2828'>2828</a>
<a id='n2829' href='#n2829'>2829</a>
<a id='n2830' href='#n2830'>2830</a>
<a id='n2831' href='#n2831'>2831</a>
<a id='n2832' href='#n2832'>2832</a>
<a id='n2833' href='#n2833'>2833</a>
<a id='n2834' href='#n2834'>2834</a>
<a id='n2835' href='#n2835'>2835</a>
<a id='n2836' href='#n2836'>2836</a>
<a id='n2837' href='#n2837'>2837</a>
<a id='n2838' href='#n2838'>2838</a>
<a id='n2839' href='#n2839'>2839</a>
<a id='n2840' href='#n2840'>2840</a>
<a id='n2841' href='#n2841'>2841</a>
<a id='n2842' href='#n2842'>2842</a>
<a id='n2843' href='#n2843'>2843</a>
<a id='n2844' href='#n2844'>2844</a>
<a id='n2845' href='#n2845'>2845</a>
<a id='n2846' href='#n2846'>2846</a>
<a id='n2847' href='#n2847'>2847</a>
<a id='n2848' href='#n2848'>2848</a>
<a id='n2849' href='#n2849'>2849</a>
<a id='n2850' href='#n2850'>2850</a>
<a id='n2851' href='#n2851'>2851</a>
<a id='n2852' href='#n2852'>2852</a>
<a id='n2853' href='#n2853'>2853</a>
<a id='n2854' href='#n2854'>2854</a>
<a id='n2855' href='#n2855'>2855</a>
<a id='n2856' href='#n2856'>2856</a>
<a id='n2857' href='#n2857'>2857</a>
<a id='n2858' href='#n2858'>2858</a>
<a id='n2859' href='#n2859'>2859</a>
<a id='n2860' href='#n2860'>2860</a>
<a id='n2861' href='#n2861'>2861</a>
<a id='n2862' href='#n2862'>2862</a>
<a id='n2863' href='#n2863'>2863</a>
<a id='n2864' href='#n2864'>2864</a>
<a id='n2865' href='#n2865'>2865</a>
<a id='n2866' href='#n2866'>2866</a>
<a id='n2867' href='#n2867'>2867</a>
<a id='n2868' href='#n2868'>2868</a>
<a id='n2869' href='#n2869'>2869</a>
<a id='n2870' href='#n2870'>2870</a>
<a id='n2871' href='#n2871'>2871</a>
<a id='n2872' href='#n2872'>2872</a>
<a id='n2873' href='#n2873'>2873</a>
<a id='n2874' href='#n2874'>2874</a>
<a id='n2875' href='#n2875'>2875</a>
<a id='n2876' href='#n2876'>2876</a>
<a id='n2877' href='#n2877'>2877</a>
<a id='n2878' href='#n2878'>2878</a>
<a id='n2879' href='#n2879'>2879</a>
<a id='n2880' href='#n2880'>2880</a>
<a id='n2881' href='#n2881'>2881</a>
<a id='n2882' href='#n2882'>2882</a>
<a id='n2883' href='#n2883'>2883</a>
<a id='n2884' href='#n2884'>2884</a>
<a id='n2885' href='#n2885'>2885</a>
<a id='n2886' href='#n2886'>2886</a>
<a id='n2887' href='#n2887'>2887</a>
<a id='n2888' href='#n2888'>2888</a>
<a id='n2889' href='#n2889'>2889</a>
<a id='n2890' href='#n2890'>2890</a>
<a id='n2891' href='#n2891'>2891</a>
<a id='n2892' href='#n2892'>2892</a>
<a id='n2893' href='#n2893'>2893</a>
<a id='n2894' href='#n2894'>2894</a>
<a id='n2895' href='#n2895'>2895</a>
<a id='n2896' href='#n2896'>2896</a>
<a id='n2897' href='#n2897'>2897</a>
<a id='n2898' href='#n2898'>2898</a>
<a id='n2899' href='#n2899'>2899</a>
<a id='n2900' href='#n2900'>2900</a>
<a id='n2901' href='#n2901'>2901</a>
<a id='n2902' href='#n2902'>2902</a>
<a id='n2903' href='#n2903'>2903</a>
<a id='n2904' href='#n2904'>2904</a>
<a id='n2905' href='#n2905'>2905</a>
<a id='n2906' href='#n2906'>2906</a>
<a id='n2907' href='#n2907'>2907</a>
<a id='n2908' href='#n2908'>2908</a>
<a id='n2909' href='#n2909'>2909</a>
<a id='n2910' href='#n2910'>2910</a>
<a id='n2911' href='#n2911'>2911</a>
<a id='n2912' href='#n2912'>2912</a>
<a id='n2913' href='#n2913'>2913</a>
<a id='n2914' href='#n2914'>2914</a>
<a id='n2915' href='#n2915'>2915</a>
<a id='n2916' href='#n2916'>2916</a>
<a id='n2917' href='#n2917'>2917</a>
<a id='n2918' href='#n2918'>2918</a>
<a id='n2919' href='#n2919'>2919</a>
<a id='n2920' href='#n2920'>2920</a>
<a id='n2921' href='#n2921'>2921</a>
<a id='n2922' href='#n2922'>2922</a>
<a id='n2923' href='#n2923'>2923</a>
<a id='n2924' href='#n2924'>2924</a>
<a id='n2925' href='#n2925'>2925</a>
<a id='n2926' href='#n2926'>2926</a>
<a id='n2927' href='#n2927'>2927</a>
<a id='n2928' href='#n2928'>2928</a>
<a id='n2929' href='#n2929'>2929</a>
<a id='n2930' href='#n2930'>2930</a>
<a id='n2931' href='#n2931'>2931</a>
<a id='n2932' href='#n2932'>2932</a>
<a id='n2933' href='#n2933'>2933</a>
<a id='n2934' href='#n2934'>2934</a>
<a id='n2935' href='#n2935'>2935</a>
<a id='n2936' href='#n2936'>2936</a>
<a id='n2937' href='#n2937'>2937</a>
<a id='n2938' href='#n2938'>2938</a>
<a id='n2939' href='#n2939'>2939</a>
<a id='n2940' href='#n2940'>2940</a>
<a id='n2941' href='#n2941'>2941</a>
<a id='n2942' href='#n2942'>2942</a>
<a id='n2943' href='#n2943'>2943</a>
<a id='n2944' href='#n2944'>2944</a>
<a id='n2945' href='#n2945'>2945</a>
<a id='n2946' href='#n2946'>2946</a>
<a id='n2947' href='#n2947'>2947</a>
<a id='n2948' href='#n2948'>2948</a>
<a id='n2949' href='#n2949'>2949</a>
<a id='n2950' href='#n2950'>2950</a>
<a id='n2951' href='#n2951'>2951</a>
<a id='n2952' href='#n2952'>2952</a>
<a id='n2953' href='#n2953'>2953</a>
<a id='n2954' href='#n2954'>2954</a>
<a id='n2955' href='#n2955'>2955</a>
<a id='n2956' href='#n2956'>2956</a>
<a id='n2957' href='#n2957'>2957</a>
<a id='n2958' href='#n2958'>2958</a>
<a id='n2959' href='#n2959'>2959</a>
<a id='n2960' href='#n2960'>2960</a>
<a id='n2961' href='#n2961'>2961</a>
<a id='n2962' href='#n2962'>2962</a>
<a id='n2963' href='#n2963'>2963</a>
<a id='n2964' href='#n2964'>2964</a>
<a id='n2965' href='#n2965'>2965</a>
<a id='n2966' href='#n2966'>2966</a>
<a id='n2967' href='#n2967'>2967</a>
<a id='n2968' href='#n2968'>2968</a>
<a id='n2969' href='#n2969'>2969</a>
<a id='n2970' href='#n2970'>2970</a>
<a id='n2971' href='#n2971'>2971</a>
<a id='n2972' href='#n2972'>2972</a>
<a id='n2973' href='#n2973'>2973</a>
<a id='n2974' href='#n2974'>2974</a>
<a id='n2975' href='#n2975'>2975</a>
<a id='n2976' href='#n2976'>2976</a>
<a id='n2977' href='#n2977'>2977</a>
<a id='n2978' href='#n2978'>2978</a>
<a id='n2979' href='#n2979'>2979</a>
<a id='n2980' href='#n2980'>2980</a>
<a id='n2981' href='#n2981'>2981</a>
<a id='n2982' href='#n2982'>2982</a>
<a id='n2983' href='#n2983'>2983</a>
<a id='n2984' href='#n2984'>2984</a>
<a id='n2985' href='#n2985'>2985</a>
<a id='n2986' href='#n2986'>2986</a>
<a id='n2987' href='#n2987'>2987</a>
<a id='n2988' href='#n2988'>2988</a>
<a id='n2989' href='#n2989'>2989</a>
<a id='n2990' href='#n2990'>2990</a>
<a id='n2991' href='#n2991'>2991</a>
<a id='n2992' href='#n2992'>2992</a>
<a id='n2993' href='#n2993'>2993</a>
<a id='n2994' href='#n2994'>2994</a>
<a id='n2995' href='#n2995'>2995</a>
<a id='n2996' href='#n2996'>2996</a>
<a id='n2997' href='#n2997'>2997</a>
<a id='n2998' href='#n2998'>2998</a>
<a id='n2999' href='#n2999'>2999</a>
<a id='n3000' href='#n3000'>3000</a>
<a id='n3001' href='#n3001'>3001</a>
<a id='n3002' href='#n3002'>3002</a>
<a id='n3003' href='#n3003'>3003</a>
<a id='n3004' href='#n3004'>3004</a>
<a id='n3005' href='#n3005'>3005</a>
<a id='n3006' href='#n3006'>3006</a>
<a id='n3007' href='#n3007'>3007</a>
<a id='n3008' href='#n3008'>3008</a>
<a id='n3009' href='#n3009'>3009</a>
<a id='n3010' href='#n3010'>3010</a>
<a id='n3011' href='#n3011'>3011</a>
<a id='n3012' href='#n3012'>3012</a>
<a id='n3013' href='#n3013'>3013</a>
<a id='n3014' href='#n3014'>3014</a>
<a id='n3015' href='#n3015'>3015</a>
<a id='n3016' href='#n3016'>3016</a>
<a id='n3017' href='#n3017'>3017</a>
<a id='n3018' href='#n3018'>3018</a>
<a id='n3019' href='#n3019'>3019</a>
<a id='n3020' href='#n3020'>3020</a>
<a id='n3021' href='#n3021'>3021</a>
<a id='n3022' href='#n3022'>3022</a>
<a id='n3023' href='#n3023'>3023</a>
<a id='n3024' href='#n3024'>3024</a>
<a id='n3025' href='#n3025'>3025</a>
<a id='n3026' href='#n3026'>3026</a>
<a id='n3027' href='#n3027'>3027</a>
<a id='n3028' href='#n3028'>3028</a>
<a id='n3029' href='#n3029'>3029</a>
<a id='n3030' href='#n3030'>3030</a>
<a id='n3031' href='#n3031'>3031</a>
<a id='n3032' href='#n3032'>3032</a>
<a id='n3033' href='#n3033'>3033</a>
<a id='n3034' href='#n3034'>3034</a>
<a id='n3035' href='#n3035'>3035</a>
<a id='n3036' href='#n3036'>3036</a>
<a id='n3037' href='#n3037'>3037</a>
<a id='n3038' href='#n3038'>3038</a>
<a id='n3039' href='#n3039'>3039</a>
<a id='n3040' href='#n3040'>3040</a>
<a id='n3041' href='#n3041'>3041</a>
<a id='n3042' href='#n3042'>3042</a>
<a id='n3043' href='#n3043'>3043</a>
<a id='n3044' href='#n3044'>3044</a>
<a id='n3045' href='#n3045'>3045</a>
<a id='n3046' href='#n3046'>3046</a>
<a id='n3047' href='#n3047'>3047</a>
<a id='n3048' href='#n3048'>3048</a>
<a id='n3049' href='#n3049'>3049</a>
<a id='n3050' href='#n3050'>3050</a>
<a id='n3051' href='#n3051'>3051</a>
<a id='n3052' href='#n3052'>3052</a>
<a id='n3053' href='#n3053'>3053</a>
<a id='n3054' href='#n3054'>3054</a>
<a id='n3055' href='#n3055'>3055</a>
<a id='n3056' href='#n3056'>3056</a>
<a id='n3057' href='#n3057'>3057</a>
<a id='n3058' href='#n3058'>3058</a>
<a id='n3059' href='#n3059'>3059</a>
<a id='n3060' href='#n3060'>3060</a>
<a id='n3061' href='#n3061'>3061</a>
<a id='n3062' href='#n3062'>3062</a>
<a id='n3063' href='#n3063'>3063</a>
<a id='n3064' href='#n3064'>3064</a>
<a id='n3065' href='#n3065'>3065</a>
<a id='n3066' href='#n3066'>3066</a>
<a id='n3067' href='#n3067'>3067</a>
<a id='n3068' href='#n3068'>3068</a>
<a id='n3069' href='#n3069'>3069</a>
<a id='n3070' href='#n3070'>3070</a>
<a id='n3071' href='#n3071'>3071</a>
<a id='n3072' href='#n3072'>3072</a>
<a id='n3073' href='#n3073'>3073</a>
<a id='n3074' href='#n3074'>3074</a>
<a id='n3075' href='#n3075'>3075</a>
<a id='n3076' href='#n3076'>3076</a>
<a id='n3077' href='#n3077'>3077</a>
<a id='n3078' href='#n3078'>3078</a>
<a id='n3079' href='#n3079'>3079</a>
<a id='n3080' href='#n3080'>3080</a>
<a id='n3081' href='#n3081'>3081</a>
<a id='n3082' href='#n3082'>3082</a>
<a id='n3083' href='#n3083'>3083</a>
<a id='n3084' href='#n3084'>3084</a>
<a id='n3085' href='#n3085'>3085</a>
<a id='n3086' href='#n3086'>3086</a>
<a id='n3087' href='#n3087'>3087</a>
<a id='n3088' href='#n3088'>3088</a>
<a id='n3089' href='#n3089'>3089</a>
<a id='n3090' href='#n3090'>3090</a>
<a id='n3091' href='#n3091'>3091</a>
<a id='n3092' href='#n3092'>3092</a>
<a id='n3093' href='#n3093'>3093</a>
<a id='n3094' href='#n3094'>3094</a>
<a id='n3095' href='#n3095'>3095</a>
<a id='n3096' href='#n3096'>3096</a>
<a id='n3097' href='#n3097'>3097</a>
<a id='n3098' href='#n3098'>3098</a>
<a id='n3099' href='#n3099'>3099</a>
<a id='n3100' href='#n3100'>3100</a>
<a id='n3101' href='#n3101'>3101</a>
<a id='n3102' href='#n3102'>3102</a>
<a id='n3103' href='#n3103'>3103</a>
<a id='n3104' href='#n3104'>3104</a>
<a id='n3105' href='#n3105'>3105</a>
<a id='n3106' href='#n3106'>3106</a>
<a id='n3107' href='#n3107'>3107</a>
<a id='n3108' href='#n3108'>3108</a>
<a id='n3109' href='#n3109'>3109</a>
<a id='n3110' href='#n3110'>3110</a>
<a id='n3111' href='#n3111'>3111</a>
<a id='n3112' href='#n3112'>3112</a>
<a id='n3113' href='#n3113'>3113</a>
<a id='n3114' href='#n3114'>3114</a>
<a id='n3115' href='#n3115'>3115</a>
<a id='n3116' href='#n3116'>3116</a>
<a id='n3117' href='#n3117'>3117</a>
<a id='n3118' href='#n3118'>3118</a>
<a id='n3119' href='#n3119'>3119</a>
<a id='n3120' href='#n3120'>3120</a>
<a id='n3121' href='#n3121'>3121</a>
<a id='n3122' href='#n3122'>3122</a>
<a id='n3123' href='#n3123'>3123</a>
<a id='n3124' href='#n3124'>3124</a>
<a id='n3125' href='#n3125'>3125</a>
<a id='n3126' href='#n3126'>3126</a>
<a id='n3127' href='#n3127'>3127</a>
<a id='n3128' href='#n3128'>3128</a>
<a id='n3129' href='#n3129'>3129</a>
<a id='n3130' href='#n3130'>3130</a>
<a id='n3131' href='#n3131'>3131</a>
<a id='n3132' href='#n3132'>3132</a>
<a id='n3133' href='#n3133'>3133</a>
<a id='n3134' href='#n3134'>3134</a>
<a id='n3135' href='#n3135'>3135</a>
<a id='n3136' href='#n3136'>3136</a>
<a id='n3137' href='#n3137'>3137</a>
<a id='n3138' href='#n3138'>3138</a>
<a id='n3139' href='#n3139'>3139</a>
<a id='n3140' href='#n3140'>3140</a>
<a id='n3141' href='#n3141'>3141</a>
<a id='n3142' href='#n3142'>3142</a>
<a id='n3143' href='#n3143'>3143</a>
<a id='n3144' href='#n3144'>3144</a>
<a id='n3145' href='#n3145'>3145</a>
<a id='n3146' href='#n3146'>3146</a>
<a id='n3147' href='#n3147'>3147</a>
<a id='n3148' href='#n3148'>3148</a>
<a id='n3149' href='#n3149'>3149</a>
<a id='n3150' href='#n3150'>3150</a>
<a id='n3151' href='#n3151'>3151</a>
<a id='n3152' href='#n3152'>3152</a>
<a id='n3153' href='#n3153'>3153</a>
<a id='n3154' href='#n3154'>3154</a>
<a id='n3155' href='#n3155'>3155</a>
<a id='n3156' href='#n3156'>3156</a>
<a id='n3157' href='#n3157'>3157</a>
<a id='n3158' href='#n3158'>3158</a>
<a id='n3159' href='#n3159'>3159</a>
<a id='n3160' href='#n3160'>3160</a>
<a id='n3161' href='#n3161'>3161</a>
<a id='n3162' href='#n3162'>3162</a>
<a id='n3163' href='#n3163'>3163</a>
<a id='n3164' href='#n3164'>3164</a>
<a id='n3165' href='#n3165'>3165</a>
<a id='n3166' href='#n3166'>3166</a>
<a id='n3167' href='#n3167'>3167</a>
<a id='n3168' href='#n3168'>3168</a>
<a id='n3169' href='#n3169'>3169</a>
<a id='n3170' href='#n3170'>3170</a>
<a id='n3171' href='#n3171'>3171</a>
<a id='n3172' href='#n3172'>3172</a>
<a id='n3173' href='#n3173'>3173</a>
<a id='n3174' href='#n3174'>3174</a>
<a id='n3175' href='#n3175'>3175</a>
<a id='n3176' href='#n3176'>3176</a>
<a id='n3177' href='#n3177'>3177</a>
<a id='n3178' href='#n3178'>3178</a>
<a id='n3179' href='#n3179'>3179</a>
<a id='n3180' href='#n3180'>3180</a>
<a id='n3181' href='#n3181'>3181</a>
<a id='n3182' href='#n3182'>3182</a>
<a id='n3183' href='#n3183'>3183</a>
<a id='n3184' href='#n3184'>3184</a>
<a id='n3185' href='#n3185'>3185</a>
<a id='n3186' href='#n3186'>3186</a>
<a id='n3187' href='#n3187'>3187</a>
<a id='n3188' href='#n3188'>3188</a>
<a id='n3189' href='#n3189'>3189</a>
<a id='n3190' href='#n3190'>3190</a>
<a id='n3191' href='#n3191'>3191</a>
<a id='n3192' href='#n3192'>3192</a>
<a id='n3193' href='#n3193'>3193</a>
<a id='n3194' href='#n3194'>3194</a>
<a id='n3195' href='#n3195'>3195</a>
<a id='n3196' href='#n3196'>3196</a>
<a id='n3197' href='#n3197'>3197</a>
<a id='n3198' href='#n3198'>3198</a>
<a id='n3199' href='#n3199'>3199</a>
<a id='n3200' href='#n3200'>3200</a>
<a id='n3201' href='#n3201'>3201</a>
<a id='n3202' href='#n3202'>3202</a>
<a id='n3203' href='#n3203'>3203</a>
<a id='n3204' href='#n3204'>3204</a>
<a id='n3205' href='#n3205'>3205</a>
<a id='n3206' href='#n3206'>3206</a>
<a id='n3207' href='#n3207'>3207</a>
<a id='n3208' href='#n3208'>3208</a>
<a id='n3209' href='#n3209'>3209</a>
<a id='n3210' href='#n3210'>3210</a>
<a id='n3211' href='#n3211'>3211</a>
<a id='n3212' href='#n3212'>3212</a>
<a id='n3213' href='#n3213'>3213</a>
<a id='n3214' href='#n3214'>3214</a>
<a id='n3215' href='#n3215'>3215</a>
<a id='n3216' href='#n3216'>3216</a>
<a id='n3217' href='#n3217'>3217</a>
<a id='n3218' href='#n3218'>3218</a>
<a id='n3219' href='#n3219'>3219</a>
<a id='n3220' href='#n3220'>3220</a>
<a id='n3221' href='#n3221'>3221</a>
<a id='n3222' href='#n3222'>3222</a>
<a id='n3223' href='#n3223'>3223</a>
<a id='n3224' href='#n3224'>3224</a>
<a id='n3225' href='#n3225'>3225</a>
<a id='n3226' href='#n3226'>3226</a>
<a id='n3227' href='#n3227'>3227</a>
<a id='n3228' href='#n3228'>3228</a>
<a id='n3229' href='#n3229'>3229</a>
<a id='n3230' href='#n3230'>3230</a>
<a id='n3231' href='#n3231'>3231</a>
<a id='n3232' href='#n3232'>3232</a>
<a id='n3233' href='#n3233'>3233</a>
<a id='n3234' href='#n3234'>3234</a>
<a id='n3235' href='#n3235'>3235</a>
<a id='n3236' href='#n3236'>3236</a>
<a id='n3237' href='#n3237'>3237</a>
<a id='n3238' href='#n3238'>3238</a>
<a id='n3239' href='#n3239'>3239</a>
<a id='n3240' href='#n3240'>3240</a>
<a id='n3241' href='#n3241'>3241</a>
<a id='n3242' href='#n3242'>3242</a>
<a id='n3243' href='#n3243'>3243</a>
<a id='n3244' href='#n3244'>3244</a>
<a id='n3245' href='#n3245'>3245</a>
<a id='n3246' href='#n3246'>3246</a>
<a id='n3247' href='#n3247'>3247</a>
<a id='n3248' href='#n3248'>3248</a>
<a id='n3249' href='#n3249'>3249</a>
<a id='n3250' href='#n3250'>3250</a>
<a id='n3251' href='#n3251'>3251</a>
<a id='n3252' href='#n3252'>3252</a>
<a id='n3253' href='#n3253'>3253</a>
<a id='n3254' href='#n3254'>3254</a>
<a id='n3255' href='#n3255'>3255</a>
<a id='n3256' href='#n3256'>3256</a>
<a id='n3257' href='#n3257'>3257</a>
<a id='n3258' href='#n3258'>3258</a>
<a id='n3259' href='#n3259'>3259</a>
<a id='n3260' href='#n3260'>3260</a>
<a id='n3261' href='#n3261'>3261</a>
<a id='n3262' href='#n3262'>3262</a>
<a id='n3263' href='#n3263'>3263</a>
<a id='n3264' href='#n3264'>3264</a>
<a id='n3265' href='#n3265'>3265</a>
<a id='n3266' href='#n3266'>3266</a>
<a id='n3267' href='#n3267'>3267</a>
<a id='n3268' href='#n3268'>3268</a>
<a id='n3269' href='#n3269'>3269</a>
<a id='n3270' href='#n3270'>3270</a>
<a id='n3271' href='#n3271'>3271</a>
<a id='n3272' href='#n3272'>3272</a>
<a id='n3273' href='#n3273'>3273</a>
<a id='n3274' href='#n3274'>3274</a>
<a id='n3275' href='#n3275'>3275</a>
<a id='n3276' href='#n3276'>3276</a>
<a id='n3277' href='#n3277'>3277</a>
<a id='n3278' href='#n3278'>3278</a>
<a id='n3279' href='#n3279'>3279</a>
<a id='n3280' href='#n3280'>3280</a>
<a id='n3281' href='#n3281'>3281</a>
<a id='n3282' href='#n3282'>3282</a>
<a id='n3283' href='#n3283'>3283</a>
<a id='n3284' href='#n3284'>3284</a>
<a id='n3285' href='#n3285'>3285</a>
<a id='n3286' href='#n3286'>3286</a>
<a id='n3287' href='#n3287'>3287</a>
<a id='n3288' href='#n3288'>3288</a>
<a id='n3289' href='#n3289'>3289</a>
<a id='n3290' href='#n3290'>3290</a>
<a id='n3291' href='#n3291'>3291</a>
<a id='n3292' href='#n3292'>3292</a>
<a id='n3293' href='#n3293'>3293</a>
<a id='n3294' href='#n3294'>3294</a>
<a id='n3295' href='#n3295'>3295</a>
<a id='n3296' href='#n3296'>3296</a>
<a id='n3297' href='#n3297'>3297</a>
<a id='n3298' href='#n3298'>3298</a>
<a id='n3299' href='#n3299'>3299</a>
<a id='n3300' href='#n3300'>3300</a>
<a id='n3301' href='#n3301'>3301</a>
<a id='n3302' href='#n3302'>3302</a>
<a id='n3303' href='#n3303'>3303</a>
<a id='n3304' href='#n3304'>3304</a>
<a id='n3305' href='#n3305'>3305</a>
<a id='n3306' href='#n3306'>3306</a>
<a id='n3307' href='#n3307'>3307</a>
<a id='n3308' href='#n3308'>3308</a>
<a id='n3309' href='#n3309'>3309</a>
<a id='n3310' href='#n3310'>3310</a>
<a id='n3311' href='#n3311'>3311</a>
<a id='n3312' href='#n3312'>3312</a>
<a id='n3313' href='#n3313'>3313</a>
<a id='n3314' href='#n3314'>3314</a>
<a id='n3315' href='#n3315'>3315</a>
<a id='n3316' href='#n3316'>3316</a>
<a id='n3317' href='#n3317'>3317</a>
<a id='n3318' href='#n3318'>3318</a>
<a id='n3319' href='#n3319'>3319</a>
<a id='n3320' href='#n3320'>3320</a>
<a id='n3321' href='#n3321'>3321</a>
<a id='n3322' href='#n3322'>3322</a>
<a id='n3323' href='#n3323'>3323</a>
<a id='n3324' href='#n3324'>3324</a>
<a id='n3325' href='#n3325'>3325</a>
<a id='n3326' href='#n3326'>3326</a>
<a id='n3327' href='#n3327'>3327</a>
<a id='n3328' href='#n3328'>3328</a>
<a id='n3329' href='#n3329'>3329</a>
<a id='n3330' href='#n3330'>3330</a>
<a id='n3331' href='#n3331'>3331</a>
<a id='n3332' href='#n3332'>3332</a>
<a id='n3333' href='#n3333'>3333</a>
<a id='n3334' href='#n3334'>3334</a>
<a id='n3335' href='#n3335'>3335</a>
<a id='n3336' href='#n3336'>3336</a>
<a id='n3337' href='#n3337'>3337</a>
<a id='n3338' href='#n3338'>3338</a>
<a id='n3339' href='#n3339'>3339</a>
<a id='n3340' href='#n3340'>3340</a>
<a id='n3341' href='#n3341'>3341</a>
<a id='n3342' href='#n3342'>3342</a>
<a id='n3343' href='#n3343'>3343</a>
<a id='n3344' href='#n3344'>3344</a>
<a id='n3345' href='#n3345'>3345</a>
<a id='n3346' href='#n3346'>3346</a>
<a id='n3347' href='#n3347'>3347</a>
<a id='n3348' href='#n3348'>3348</a>
<a id='n3349' href='#n3349'>3349</a>
<a id='n3350' href='#n3350'>3350</a>
<a id='n3351' href='#n3351'>3351</a>
<a id='n3352' href='#n3352'>3352</a>
<a id='n3353' href='#n3353'>3353</a>
<a id='n3354' href='#n3354'>3354</a>
<a id='n3355' href='#n3355'>3355</a>
<a id='n3356' href='#n3356'>3356</a>
<a id='n3357' href='#n3357'>3357</a>
<a id='n3358' href='#n3358'>3358</a>
<a id='n3359' href='#n3359'>3359</a>
<a id='n3360' href='#n3360'>3360</a>
<a id='n3361' href='#n3361'>3361</a>
<a id='n3362' href='#n3362'>3362</a>
<a id='n3363' href='#n3363'>3363</a>
<a id='n3364' href='#n3364'>3364</a>
<a id='n3365' href='#n3365'>3365</a>
<a id='n3366' href='#n3366'>3366</a>
<a id='n3367' href='#n3367'>3367</a>
<a id='n3368' href='#n3368'>3368</a>
<a id='n3369' href='#n3369'>3369</a>
<a id='n3370' href='#n3370'>3370</a>
<a id='n3371' href='#n3371'>3371</a>
<a id='n3372' href='#n3372'>3372</a>
<a id='n3373' href='#n3373'>3373</a>
<a id='n3374' href='#n3374'>3374</a>
<a id='n3375' href='#n3375'>3375</a>
<a id='n3376' href='#n3376'>3376</a>
<a id='n3377' href='#n3377'>3377</a>
<a id='n3378' href='#n3378'>3378</a>
<a id='n3379' href='#n3379'>3379</a>
<a id='n3380' href='#n3380'>3380</a>
<a id='n3381' href='#n3381'>3381</a>
<a id='n3382' href='#n3382'>3382</a>
<a id='n3383' href='#n3383'>3383</a>
<a id='n3384' href='#n3384'>3384</a>
<a id='n3385' href='#n3385'>3385</a>
<a id='n3386' href='#n3386'>3386</a>
<a id='n3387' href='#n3387'>3387</a>
<a id='n3388' href='#n3388'>3388</a>
<a id='n3389' href='#n3389'>3389</a>
<a id='n3390' href='#n3390'>3390</a>
<a id='n3391' href='#n3391'>3391</a>
<a id='n3392' href='#n3392'>3392</a>
<a id='n3393' href='#n3393'>3393</a>
<a id='n3394' href='#n3394'>3394</a>
<a id='n3395' href='#n3395'>3395</a>
<a id='n3396' href='#n3396'>3396</a>
<a id='n3397' href='#n3397'>3397</a>
<a id='n3398' href='#n3398'>3398</a>
<a id='n3399' href='#n3399'>3399</a>
<a id='n3400' href='#n3400'>3400</a>
<a id='n3401' href='#n3401'>3401</a>
<a id='n3402' href='#n3402'>3402</a>
<a id='n3403' href='#n3403'>3403</a>
<a id='n3404' href='#n3404'>3404</a>
<a id='n3405' href='#n3405'>3405</a>
<a id='n3406' href='#n3406'>3406</a>
<a id='n3407' href='#n3407'>3407</a>
<a id='n3408' href='#n3408'>3408</a>
<a id='n3409' href='#n3409'>3409</a>
<a id='n3410' href='#n3410'>3410</a>
<a id='n3411' href='#n3411'>3411</a>
<a id='n3412' href='#n3412'>3412</a>
<a id='n3413' href='#n3413'>3413</a>
<a id='n3414' href='#n3414'>3414</a>
<a id='n3415' href='#n3415'>3415</a>
<a id='n3416' href='#n3416'>3416</a>
<a id='n3417' href='#n3417'>3417</a>
<a id='n3418' href='#n3418'>3418</a>
<a id='n3419' href='#n3419'>3419</a>
<a id='n3420' href='#n3420'>3420</a>
<a id='n3421' href='#n3421'>3421</a>
<a id='n3422' href='#n3422'>3422</a>
<a id='n3423' href='#n3423'>3423</a>
<a id='n3424' href='#n3424'>3424</a>
<a id='n3425' href='#n3425'>3425</a>
<a id='n3426' href='#n3426'>3426</a>
<a id='n3427' href='#n3427'>3427</a>
<a id='n3428' href='#n3428'>3428</a>
<a id='n3429' href='#n3429'>3429</a>
<a id='n3430' href='#n3430'>3430</a>
<a id='n3431' href='#n3431'>3431</a>
<a id='n3432' href='#n3432'>3432</a>
<a id='n3433' href='#n3433'>3433</a>
<a id='n3434' href='#n3434'>3434</a>
<a id='n3435' href='#n3435'>3435</a>
<a id='n3436' href='#n3436'>3436</a>
<a id='n3437' href='#n3437'>3437</a>
<a id='n3438' href='#n3438'>3438</a>
<a id='n3439' href='#n3439'>3439</a>
<a id='n3440' href='#n3440'>3440</a>
<a id='n3441' href='#n3441'>3441</a>
<a id='n3442' href='#n3442'>3442</a>
<a id='n3443' href='#n3443'>3443</a>
<a id='n3444' href='#n3444'>3444</a>
<a id='n3445' href='#n3445'>3445</a>
<a id='n3446' href='#n3446'>3446</a>
<a id='n3447' href='#n3447'>3447</a>
<a id='n3448' href='#n3448'>3448</a>
<a id='n3449' href='#n3449'>3449</a>
<a id='n3450' href='#n3450'>3450</a>
<a id='n3451' href='#n3451'>3451</a>
<a id='n3452' href='#n3452'>3452</a>
<a id='n3453' href='#n3453'>3453</a>
<a id='n3454' href='#n3454'>3454</a>
<a id='n3455' href='#n3455'>3455</a>
<a id='n3456' href='#n3456'>3456</a>
<a id='n3457' href='#n3457'>3457</a>
<a id='n3458' href='#n3458'>3458</a>
<a id='n3459' href='#n3459'>3459</a>
<a id='n3460' href='#n3460'>3460</a>
<a id='n3461' href='#n3461'>3461</a>
<a id='n3462' href='#n3462'>3462</a>
<a id='n3463' href='#n3463'>3463</a>
<a id='n3464' href='#n3464'>3464</a>
<a id='n3465' href='#n3465'>3465</a>
<a id='n3466' href='#n3466'>3466</a>
<a id='n3467' href='#n3467'>3467</a>
<a id='n3468' href='#n3468'>3468</a>
<a id='n3469' href='#n3469'>3469</a>
<a id='n3470' href='#n3470'>3470</a>
<a id='n3471' href='#n3471'>3471</a>
<a id='n3472' href='#n3472'>3472</a>
<a id='n3473' href='#n3473'>3473</a>
<a id='n3474' href='#n3474'>3474</a>
<a id='n3475' href='#n3475'>3475</a>
<a id='n3476' href='#n3476'>3476</a>
<a id='n3477' href='#n3477'>3477</a>
<a id='n3478' href='#n3478'>3478</a>
<a id='n3479' href='#n3479'>3479</a>
<a id='n3480' href='#n3480'>3480</a>
<a id='n3481' href='#n3481'>3481</a>
<a id='n3482' href='#n3482'>3482</a>
<a id='n3483' href='#n3483'>3483</a>
<a id='n3484' href='#n3484'>3484</a>
<a id='n3485' href='#n3485'>3485</a>
<a id='n3486' href='#n3486'>3486</a>
<a id='n3487' href='#n3487'>3487</a>
<a id='n3488' href='#n3488'>3488</a>
<a id='n3489' href='#n3489'>3489</a>
<a id='n3490' href='#n3490'>3490</a>
<a id='n3491' href='#n3491'>3491</a>
<a id='n3492' href='#n3492'>3492</a>
<a id='n3493' href='#n3493'>3493</a>
<a id='n3494' href='#n3494'>3494</a>
<a id='n3495' href='#n3495'>3495</a>
<a id='n3496' href='#n3496'>3496</a>
<a id='n3497' href='#n3497'>3497</a>
<a id='n3498' href='#n3498'>3498</a>
<a id='n3499' href='#n3499'>3499</a>
<a id='n3500' href='#n3500'>3500</a>
<a id='n3501' href='#n3501'>3501</a>
<a id='n3502' href='#n3502'>3502</a>
<a id='n3503' href='#n3503'>3503</a>
<a id='n3504' href='#n3504'>3504</a>
<a id='n3505' href='#n3505'>3505</a>
<a id='n3506' href='#n3506'>3506</a>
<a id='n3507' href='#n3507'>3507</a>
<a id='n3508' href='#n3508'>3508</a>
<a id='n3509' href='#n3509'>3509</a>
<a id='n3510' href='#n3510'>3510</a>
<a id='n3511' href='#n3511'>3511</a>
<a id='n3512' href='#n3512'>3512</a>
<a id='n3513' href='#n3513'>3513</a>
<a id='n3514' href='#n3514'>3514</a>
<a id='n3515' href='#n3515'>3515</a>
<a id='n3516' href='#n3516'>3516</a>
<a id='n3517' href='#n3517'>3517</a>
<a id='n3518' href='#n3518'>3518</a>
<a id='n3519' href='#n3519'>3519</a>
<a id='n3520' href='#n3520'>3520</a>
<a id='n3521' href='#n3521'>3521</a>
<a id='n3522' href='#n3522'>3522</a>
<a id='n3523' href='#n3523'>3523</a>
<a id='n3524' href='#n3524'>3524</a>
<a id='n3525' href='#n3525'>3525</a>
<a id='n3526' href='#n3526'>3526</a>
<a id='n3527' href='#n3527'>3527</a>
<a id='n3528' href='#n3528'>3528</a>
<a id='n3529' href='#n3529'>3529</a>
<a id='n3530' href='#n3530'>3530</a>
<a id='n3531' href='#n3531'>3531</a>
<a id='n3532' href='#n3532'>3532</a>
<a id='n3533' href='#n3533'>3533</a>
<a id='n3534' href='#n3534'>3534</a>
<a id='n3535' href='#n3535'>3535</a>
<a id='n3536' href='#n3536'>3536</a>
<a id='n3537' href='#n3537'>3537</a>
<a id='n3538' href='#n3538'>3538</a>
<a id='n3539' href='#n3539'>3539</a>
<a id='n3540' href='#n3540'>3540</a>
<a id='n3541' href='#n3541'>3541</a>
<a id='n3542' href='#n3542'>3542</a>
<a id='n3543' href='#n3543'>3543</a>
<a id='n3544' href='#n3544'>3544</a>
<a id='n3545' href='#n3545'>3545</a>
<a id='n3546' href='#n3546'>3546</a>
<a id='n3547' href='#n3547'>3547</a>
<a id='n3548' href='#n3548'>3548</a>
<a id='n3549' href='#n3549'>3549</a>
<a id='n3550' href='#n3550'>3550</a>
<a id='n3551' href='#n3551'>3551</a>
<a id='n3552' href='#n3552'>3552</a>
<a id='n3553' href='#n3553'>3553</a>
<a id='n3554' href='#n3554'>3554</a>
<a id='n3555' href='#n3555'>3555</a>
<a id='n3556' href='#n3556'>3556</a>
<a id='n3557' href='#n3557'>3557</a>
<a id='n3558' href='#n3558'>3558</a>
<a id='n3559' href='#n3559'>3559</a>
<a id='n3560' href='#n3560'>3560</a>
<a id='n3561' href='#n3561'>3561</a>
<a id='n3562' href='#n3562'>3562</a>
<a id='n3563' href='#n3563'>3563</a>
<a id='n3564' href='#n3564'>3564</a>
<a id='n3565' href='#n3565'>3565</a>
<a id='n3566' href='#n3566'>3566</a>
<a id='n3567' href='#n3567'>3567</a>
<a id='n3568' href='#n3568'>3568</a>
<a id='n3569' href='#n3569'>3569</a>
<a id='n3570' href='#n3570'>3570</a>
<a id='n3571' href='#n3571'>3571</a>
<a id='n3572' href='#n3572'>3572</a>
<a id='n3573' href='#n3573'>3573</a>
<a id='n3574' href='#n3574'>3574</a>
<a id='n3575' href='#n3575'>3575</a>
<a id='n3576' href='#n3576'>3576</a>
<a id='n3577' href='#n3577'>3577</a>
<a id='n3578' href='#n3578'>3578</a>
<a id='n3579' href='#n3579'>3579</a>
<a id='n3580' href='#n3580'>3580</a>
<a id='n3581' href='#n3581'>3581</a>
<a id='n3582' href='#n3582'>3582</a>
<a id='n3583' href='#n3583'>3583</a>
<a id='n3584' href='#n3584'>3584</a>
<a id='n3585' href='#n3585'>3585</a>
<a id='n3586' href='#n3586'>3586</a>
<a id='n3587' href='#n3587'>3587</a>
<a id='n3588' href='#n3588'>3588</a>
<a id='n3589' href='#n3589'>3589</a>
<a id='n3590' href='#n3590'>3590</a>
<a id='n3591' href='#n3591'>3591</a>
<a id='n3592' href='#n3592'>3592</a>
<a id='n3593' href='#n3593'>3593</a>
<a id='n3594' href='#n3594'>3594</a>
<a id='n3595' href='#n3595'>3595</a>
<a id='n3596' href='#n3596'>3596</a>
<a id='n3597' href='#n3597'>3597</a>
<a id='n3598' href='#n3598'>3598</a>
<a id='n3599' href='#n3599'>3599</a>
<a id='n3600' href='#n3600'>3600</a>
<a id='n3601' href='#n3601'>3601</a>
<a id='n3602' href='#n3602'>3602</a>
<a id='n3603' href='#n3603'>3603</a>
<a id='n3604' href='#n3604'>3604</a>
<a id='n3605' href='#n3605'>3605</a>
<a id='n3606' href='#n3606'>3606</a>
<a id='n3607' href='#n3607'>3607</a>
<a id='n3608' href='#n3608'>3608</a>
<a id='n3609' href='#n3609'>3609</a>
<a id='n3610' href='#n3610'>3610</a>
<a id='n3611' href='#n3611'>3611</a>
<a id='n3612' href='#n3612'>3612</a>
<a id='n3613' href='#n3613'>3613</a>
<a id='n3614' href='#n3614'>3614</a>
<a id='n3615' href='#n3615'>3615</a>
<a id='n3616' href='#n3616'>3616</a>
<a id='n3617' href='#n3617'>3617</a>
<a id='n3618' href='#n3618'>3618</a>
<a id='n3619' href='#n3619'>3619</a>
<a id='n3620' href='#n3620'>3620</a>
<a id='n3621' href='#n3621'>3621</a>
<a id='n3622' href='#n3622'>3622</a>
<a id='n3623' href='#n3623'>3623</a>
<a id='n3624' href='#n3624'>3624</a>
<a id='n3625' href='#n3625'>3625</a>
<a id='n3626' href='#n3626'>3626</a>
<a id='n3627' href='#n3627'>3627</a>
<a id='n3628' href='#n3628'>3628</a>
<a id='n3629' href='#n3629'>3629</a>
<a id='n3630' href='#n3630'>3630</a>
<a id='n3631' href='#n3631'>3631</a>
<a id='n3632' href='#n3632'>3632</a>
<a id='n3633' href='#n3633'>3633</a>
<a id='n3634' href='#n3634'>3634</a>
<a id='n3635' href='#n3635'>3635</a>
<a id='n3636' href='#n3636'>3636</a>
<a id='n3637' href='#n3637'>3637</a>
<a id='n3638' href='#n3638'>3638</a>
<a id='n3639' href='#n3639'>3639</a>
<a id='n3640' href='#n3640'>3640</a>
<a id='n3641' href='#n3641'>3641</a>
<a id='n3642' href='#n3642'>3642</a>
<a id='n3643' href='#n3643'>3643</a>
<a id='n3644' href='#n3644'>3644</a>
<a id='n3645' href='#n3645'>3645</a>
<a id='n3646' href='#n3646'>3646</a>
<a id='n3647' href='#n3647'>3647</a>
<a id='n3648' href='#n3648'>3648</a>
<a id='n3649' href='#n3649'>3649</a>
<a id='n3650' href='#n3650'>3650</a>
<a id='n3651' href='#n3651'>3651</a>
<a id='n3652' href='#n3652'>3652</a>
<a id='n3653' href='#n3653'>3653</a>
<a id='n3654' href='#n3654'>3654</a>
<a id='n3655' href='#n3655'>3655</a>
<a id='n3656' href='#n3656'>3656</a>
<a id='n3657' href='#n3657'>3657</a>
<a id='n3658' href='#n3658'>3658</a>
<a id='n3659' href='#n3659'>3659</a>
<a id='n3660' href='#n3660'>3660</a>
<a id='n3661' href='#n3661'>3661</a>
<a id='n3662' href='#n3662'>3662</a>
<a id='n3663' href='#n3663'>3663</a>
<a id='n3664' href='#n3664'>3664</a>
<a id='n3665' href='#n3665'>3665</a>
<a id='n3666' href='#n3666'>3666</a>
<a id='n3667' href='#n3667'>3667</a>
<a id='n3668' href='#n3668'>3668</a>
<a id='n3669' href='#n3669'>3669</a>
<a id='n3670' href='#n3670'>3670</a>
<a id='n3671' href='#n3671'>3671</a>
<a id='n3672' href='#n3672'>3672</a>
<a id='n3673' href='#n3673'>3673</a>
<a id='n3674' href='#n3674'>3674</a>
<a id='n3675' href='#n3675'>3675</a>
<a id='n3676' href='#n3676'>3676</a>
<a id='n3677' href='#n3677'>3677</a>
<a id='n3678' href='#n3678'>3678</a>
<a id='n3679' href='#n3679'>3679</a>
<a id='n3680' href='#n3680'>3680</a>
<a id='n3681' href='#n3681'>3681</a>
<a id='n3682' href='#n3682'>3682</a>
<a id='n3683' href='#n3683'>3683</a>
<a id='n3684' href='#n3684'>3684</a>
<a id='n3685' href='#n3685'>3685</a>
<a id='n3686' href='#n3686'>3686</a>
<a id='n3687' href='#n3687'>3687</a>
<a id='n3688' href='#n3688'>3688</a>
<a id='n3689' href='#n3689'>3689</a>
<a id='n3690' href='#n3690'>3690</a>
<a id='n3691' href='#n3691'>3691</a>
<a id='n3692' href='#n3692'>3692</a>
<a id='n3693' href='#n3693'>3693</a>
<a id='n3694' href='#n3694'>3694</a>
<a id='n3695' href='#n3695'>3695</a>
<a id='n3696' href='#n3696'>3696</a>
<a id='n3697' href='#n3697'>3697</a>
<a id='n3698' href='#n3698'>3698</a>
<a id='n3699' href='#n3699'>3699</a>
<a id='n3700' href='#n3700'>3700</a>
<a id='n3701' href='#n3701'>3701</a>
<a id='n3702' href='#n3702'>3702</a>
<a id='n3703' href='#n3703'>3703</a>
<a id='n3704' href='#n3704'>3704</a>
<a id='n3705' href='#n3705'>3705</a>
<a id='n3706' href='#n3706'>3706</a>
<a id='n3707' href='#n3707'>3707</a>
<a id='n3708' href='#n3708'>3708</a>
<a id='n3709' href='#n3709'>3709</a>
<a id='n3710' href='#n3710'>3710</a>
<a id='n3711' href='#n3711'>3711</a>
<a id='n3712' href='#n3712'>3712</a>
<a id='n3713' href='#n3713'>3713</a>
<a id='n3714' href='#n3714'>3714</a>
<a id='n3715' href='#n3715'>3715</a>
<a id='n3716' href='#n3716'>3716</a>
<a id='n3717' href='#n3717'>3717</a>
<a id='n3718' href='#n3718'>3718</a>
<a id='n3719' href='#n3719'>3719</a>
<a id='n3720' href='#n3720'>3720</a>
<a id='n3721' href='#n3721'>3721</a>
<a id='n3722' href='#n3722'>3722</a>
<a id='n3723' href='#n3723'>3723</a>
<a id='n3724' href='#n3724'>3724</a>
<a id='n3725' href='#n3725'>3725</a>
<a id='n3726' href='#n3726'>3726</a>
<a id='n3727' href='#n3727'>3727</a>
<a id='n3728' href='#n3728'>3728</a>
<a id='n3729' href='#n3729'>3729</a>
<a id='n3730' href='#n3730'>3730</a>
<a id='n3731' href='#n3731'>3731</a>
<a id='n3732' href='#n3732'>3732</a>
<a id='n3733' href='#n3733'>3733</a>
<a id='n3734' href='#n3734'>3734</a>
<a id='n3735' href='#n3735'>3735</a>
<a id='n3736' href='#n3736'>3736</a>
<a id='n3737' href='#n3737'>3737</a>
<a id='n3738' href='#n3738'>3738</a>
<a id='n3739' href='#n3739'>3739</a>
<a id='n3740' href='#n3740'>3740</a>
<a id='n3741' href='#n3741'>3741</a>
<a id='n3742' href='#n3742'>3742</a>
<a id='n3743' href='#n3743'>3743</a>
<a id='n3744' href='#n3744'>3744</a>
<a id='n3745' href='#n3745'>3745</a>
<a id='n3746' href='#n3746'>3746</a>
<a id='n3747' href='#n3747'>3747</a>
<a id='n3748' href='#n3748'>3748</a>
<a id='n3749' href='#n3749'>3749</a>
<a id='n3750' href='#n3750'>3750</a>
<a id='n3751' href='#n3751'>3751</a>
<a id='n3752' href='#n3752'>3752</a>
<a id='n3753' href='#n3753'>3753</a>
<a id='n3754' href='#n3754'>3754</a>
<a id='n3755' href='#n3755'>3755</a>
<a id='n3756' href='#n3756'>3756</a>
<a id='n3757' href='#n3757'>3757</a>
<a id='n3758' href='#n3758'>3758</a>
<a id='n3759' href='#n3759'>3759</a>
<a id='n3760' href='#n3760'>3760</a>
<a id='n3761' href='#n3761'>3761</a>
<a id='n3762' href='#n3762'>3762</a>
<a id='n3763' href='#n3763'>3763</a>
<a id='n3764' href='#n3764'>3764</a>
<a id='n3765' href='#n3765'>3765</a>
<a id='n3766' href='#n3766'>3766</a>
<a id='n3767' href='#n3767'>3767</a>
<a id='n3768' href='#n3768'>3768</a>
<a id='n3769' href='#n3769'>3769</a>
<a id='n3770' href='#n3770'>3770</a>
<a id='n3771' href='#n3771'>3771</a>
<a id='n3772' href='#n3772'>3772</a>
<a id='n3773' href='#n3773'>3773</a>
<a id='n3774' href='#n3774'>3774</a>
<a id='n3775' href='#n3775'>3775</a>
<a id='n3776' href='#n3776'>3776</a>
<a id='n3777' href='#n3777'>3777</a>
<a id='n3778' href='#n3778'>3778</a>
<a id='n3779' href='#n3779'>3779</a>
<a id='n3780' href='#n3780'>3780</a>
<a id='n3781' href='#n3781'>3781</a>
<a id='n3782' href='#n3782'>3782</a>
<a id='n3783' href='#n3783'>3783</a>
<a id='n3784' href='#n3784'>3784</a>
<a id='n3785' href='#n3785'>3785</a>
<a id='n3786' href='#n3786'>3786</a>
<a id='n3787' href='#n3787'>3787</a>
<a id='n3788' href='#n3788'>3788</a>
<a id='n3789' href='#n3789'>3789</a>
<a id='n3790' href='#n3790'>3790</a>
<a id='n3791' href='#n3791'>3791</a>
<a id='n3792' href='#n3792'>3792</a>
<a id='n3793' href='#n3793'>3793</a>
<a id='n3794' href='#n3794'>3794</a>
<a id='n3795' href='#n3795'>3795</a>
<a id='n3796' href='#n3796'>3796</a>
<a id='n3797' href='#n3797'>3797</a>
<a id='n3798' href='#n3798'>3798</a>
<a id='n3799' href='#n3799'>3799</a>
<a id='n3800' href='#n3800'>3800</a>
<a id='n3801' href='#n3801'>3801</a>
<a id='n3802' href='#n3802'>3802</a>
<a id='n3803' href='#n3803'>3803</a>
<a id='n3804' href='#n3804'>3804</a>
<a id='n3805' href='#n3805'>3805</a>
<a id='n3806' href='#n3806'>3806</a>
<a id='n3807' href='#n3807'>3807</a>
<a id='n3808' href='#n3808'>3808</a>
<a id='n3809' href='#n3809'>3809</a>
<a id='n3810' href='#n3810'>3810</a>
<a id='n3811' href='#n3811'>3811</a>
<a id='n3812' href='#n3812'>3812</a>
<a id='n3813' href='#n3813'>3813</a>
<a id='n3814' href='#n3814'>3814</a>
<a id='n3815' href='#n3815'>3815</a>
<a id='n3816' href='#n3816'>3816</a>
<a id='n3817' href='#n3817'>3817</a>
<a id='n3818' href='#n3818'>3818</a>
<a id='n3819' href='#n3819'>3819</a>
<a id='n3820' href='#n3820'>3820</a>
<a id='n3821' href='#n3821'>3821</a>
<a id='n3822' href='#n3822'>3822</a>
<a id='n3823' href='#n3823'>3823</a>
<a id='n3824' href='#n3824'>3824</a>
<a id='n3825' href='#n3825'>3825</a>
<a id='n3826' href='#n3826'>3826</a>
<a id='n3827' href='#n3827'>3827</a>
<a id='n3828' href='#n3828'>3828</a>
<a id='n3829' href='#n3829'>3829</a>
<a id='n3830' href='#n3830'>3830</a>
<a id='n3831' href='#n3831'>3831</a>
<a id='n3832' href='#n3832'>3832</a>
<a id='n3833' href='#n3833'>3833</a>
<a id='n3834' href='#n3834'>3834</a>
<a id='n3835' href='#n3835'>3835</a>
<a id='n3836' href='#n3836'>3836</a>
<a id='n3837' href='#n3837'>3837</a>
<a id='n3838' href='#n3838'>3838</a>
<a id='n3839' href='#n3839'>3839</a>
<a id='n3840' href='#n3840'>3840</a>
<a id='n3841' href='#n3841'>3841</a>
<a id='n3842' href='#n3842'>3842</a>
<a id='n3843' href='#n3843'>3843</a>
<a id='n3844' href='#n3844'>3844</a>
<a id='n3845' href='#n3845'>3845</a>
<a id='n3846' href='#n3846'>3846</a>
<a id='n3847' href='#n3847'>3847</a>
<a id='n3848' href='#n3848'>3848</a>
<a id='n3849' href='#n3849'>3849</a>
<a id='n3850' href='#n3850'>3850</a>
<a id='n3851' href='#n3851'>3851</a>
<a id='n3852' href='#n3852'>3852</a>
<a id='n3853' href='#n3853'>3853</a>
<a id='n3854' href='#n3854'>3854</a>
<a id='n3855' href='#n3855'>3855</a>
<a id='n3856' href='#n3856'>3856</a>
<a id='n3857' href='#n3857'>3857</a>
<a id='n3858' href='#n3858'>3858</a>
<a id='n3859' href='#n3859'>3859</a>
<a id='n3860' href='#n3860'>3860</a>
<a id='n3861' href='#n3861'>3861</a>
<a id='n3862' href='#n3862'>3862</a>
<a id='n3863' href='#n3863'>3863</a>
<a id='n3864' href='#n3864'>3864</a>
<a id='n3865' href='#n3865'>3865</a>
<a id='n3866' href='#n3866'>3866</a>
<a id='n3867' href='#n3867'>3867</a>
<a id='n3868' href='#n3868'>3868</a>
<a id='n3869' href='#n3869'>3869</a>
<a id='n3870' href='#n3870'>3870</a>
<a id='n3871' href='#n3871'>3871</a>
<a id='n3872' href='#n3872'>3872</a>
<a id='n3873' href='#n3873'>3873</a>
<a id='n3874' href='#n3874'>3874</a>
<a id='n3875' href='#n3875'>3875</a>
<a id='n3876' href='#n3876'>3876</a>
<a id='n3877' href='#n3877'>3877</a>
<a id='n3878' href='#n3878'>3878</a>
<a id='n3879' href='#n3879'>3879</a>
<a id='n3880' href='#n3880'>3880</a>
<a id='n3881' href='#n3881'>3881</a>
<a id='n3882' href='#n3882'>3882</a>
<a id='n3883' href='#n3883'>3883</a>
<a id='n3884' href='#n3884'>3884</a>
<a id='n3885' href='#n3885'>3885</a>
<a id='n3886' href='#n3886'>3886</a>
<a id='n3887' href='#n3887'>3887</a>
<a id='n3888' href='#n3888'>3888</a>
<a id='n3889' href='#n3889'>3889</a>
<a id='n3890' href='#n3890'>3890</a>
<a id='n3891' href='#n3891'>3891</a>
<a id='n3892' href='#n3892'>3892</a>
<a id='n3893' href='#n3893'>3893</a>
<a id='n3894' href='#n3894'>3894</a>
<a id='n3895' href='#n3895'>3895</a>
<a id='n3896' href='#n3896'>3896</a>
<a id='n3897' href='#n3897'>3897</a>
<a id='n3898' href='#n3898'>3898</a>
<a id='n3899' href='#n3899'>3899</a>
<a id='n3900' href='#n3900'>3900</a>
<a id='n3901' href='#n3901'>3901</a>
<a id='n3902' href='#n3902'>3902</a>
<a id='n3903' href='#n3903'>3903</a>
<a id='n3904' href='#n3904'>3904</a>
<a id='n3905' href='#n3905'>3905</a>
<a id='n3906' href='#n3906'>3906</a>
<a id='n3907' href='#n3907'>3907</a>
<a id='n3908' href='#n3908'>3908</a>
<a id='n3909' href='#n3909'>3909</a>
<a id='n3910' href='#n3910'>3910</a>
<a id='n3911' href='#n3911'>3911</a>
<a id='n3912' href='#n3912'>3912</a>
<a id='n3913' href='#n3913'>3913</a>
<a id='n3914' href='#n3914'>3914</a>
<a id='n3915' href='#n3915'>3915</a>
<a id='n3916' href='#n3916'>3916</a>
<a id='n3917' href='#n3917'>3917</a>
<a id='n3918' href='#n3918'>3918</a>
<a id='n3919' href='#n3919'>3919</a>
<a id='n3920' href='#n3920'>3920</a>
<a id='n3921' href='#n3921'>3921</a>
<a id='n3922' href='#n3922'>3922</a>
<a id='n3923' href='#n3923'>3923</a>
<a id='n3924' href='#n3924'>3924</a>
<a id='n3925' href='#n3925'>3925</a>
<a id='n3926' href='#n3926'>3926</a>
<a id='n3927' href='#n3927'>3927</a>
<a id='n3928' href='#n3928'>3928</a>
<a id='n3929' href='#n3929'>3929</a>
<a id='n3930' href='#n3930'>3930</a>
<a id='n3931' href='#n3931'>3931</a>
<a id='n3932' href='#n3932'>3932</a>
<a id='n3933' href='#n3933'>3933</a>
<a id='n3934' href='#n3934'>3934</a>
<a id='n3935' href='#n3935'>3935</a>
<a id='n3936' href='#n3936'>3936</a>
<a id='n3937' href='#n3937'>3937</a>
<a id='n3938' href='#n3938'>3938</a>
<a id='n3939' href='#n3939'>3939</a>
<a id='n3940' href='#n3940'>3940</a>
<a id='n3941' href='#n3941'>3941</a>
<a id='n3942' href='#n3942'>3942</a>
<a id='n3943' href='#n3943'>3943</a>
<a id='n3944' href='#n3944'>3944</a>
<a id='n3945' href='#n3945'>3945</a>
<a id='n3946' href='#n3946'>3946</a>
<a id='n3947' href='#n3947'>3947</a>
<a id='n3948' href='#n3948'>3948</a>
<a id='n3949' href='#n3949'>3949</a>
<a id='n3950' href='#n3950'>3950</a>
<a id='n3951' href='#n3951'>3951</a>
<a id='n3952' href='#n3952'>3952</a>
<a id='n3953' href='#n3953'>3953</a>
<a id='n3954' href='#n3954'>3954</a>
<a id='n3955' href='#n3955'>3955</a>
<a id='n3956' href='#n3956'>3956</a>
<a id='n3957' href='#n3957'>3957</a>
<a id='n3958' href='#n3958'>3958</a>
<a id='n3959' href='#n3959'>3959</a>
<a id='n3960' href='#n3960'>3960</a>
<a id='n3961' href='#n3961'>3961</a>
<a id='n3962' href='#n3962'>3962</a>
<a id='n3963' href='#n3963'>3963</a>
<a id='n3964' href='#n3964'>3964</a>
<a id='n3965' href='#n3965'>3965</a>
<a id='n3966' href='#n3966'>3966</a>
<a id='n3967' href='#n3967'>3967</a>
<a id='n3968' href='#n3968'>3968</a>
<a id='n3969' href='#n3969'>3969</a>
<a id='n3970' href='#n3970'>3970</a>
<a id='n3971' href='#n3971'>3971</a>
<a id='n3972' href='#n3972'>3972</a>
<a id='n3973' href='#n3973'>3973</a>
<a id='n3974' href='#n3974'>3974</a>
<a id='n3975' href='#n3975'>3975</a>
<a id='n3976' href='#n3976'>3976</a>
<a id='n3977' href='#n3977'>3977</a>
<a id='n3978' href='#n3978'>3978</a>
<a id='n3979' href='#n3979'>3979</a>
<a id='n3980' href='#n3980'>3980</a>
<a id='n3981' href='#n3981'>3981</a>
<a id='n3982' href='#n3982'>3982</a>
<a id='n3983' href='#n3983'>3983</a>
<a id='n3984' href='#n3984'>3984</a>
<a id='n3985' href='#n3985'>3985</a>
<a id='n3986' href='#n3986'>3986</a>
<a id='n3987' href='#n3987'>3987</a>
<a id='n3988' href='#n3988'>3988</a>
<a id='n3989' href='#n3989'>3989</a>
<a id='n3990' href='#n3990'>3990</a>
<a id='n3991' href='#n3991'>3991</a>
<a id='n3992' href='#n3992'>3992</a>
<a id='n3993' href='#n3993'>3993</a>
<a id='n3994' href='#n3994'>3994</a>
<a id='n3995' href='#n3995'>3995</a>
<a id='n3996' href='#n3996'>3996</a>
<a id='n3997' href='#n3997'>3997</a>
<a id='n3998' href='#n3998'>3998</a>
<a id='n3999' href='#n3999'>3999</a>
<a id='n4000' href='#n4000'>4000</a>
<a id='n4001' href='#n4001'>4001</a>
<a id='n4002' href='#n4002'>4002</a>
<a id='n4003' href='#n4003'>4003</a>
<a id='n4004' href='#n4004'>4004</a>
<a id='n4005' href='#n4005'>4005</a>
<a id='n4006' href='#n4006'>4006</a>
<a id='n4007' href='#n4007'>4007</a>
<a id='n4008' href='#n4008'>4008</a>
<a id='n4009' href='#n4009'>4009</a>
<a id='n4010' href='#n4010'>4010</a>
<a id='n4011' href='#n4011'>4011</a>
<a id='n4012' href='#n4012'>4012</a>
<a id='n4013' href='#n4013'>4013</a>
<a id='n4014' href='#n4014'>4014</a>
<a id='n4015' href='#n4015'>4015</a>
<a id='n4016' href='#n4016'>4016</a>
<a id='n4017' href='#n4017'>4017</a>
<a id='n4018' href='#n4018'>4018</a>
<a id='n4019' href='#n4019'>4019</a>
<a id='n4020' href='#n4020'>4020</a>
<a id='n4021' href='#n4021'>4021</a>
<a id='n4022' href='#n4022'>4022</a>
<a id='n4023' href='#n4023'>4023</a>
<a id='n4024' href='#n4024'>4024</a>
<a id='n4025' href='#n4025'>4025</a>
<a id='n4026' href='#n4026'>4026</a>
<a id='n4027' href='#n4027'>4027</a>
<a id='n4028' href='#n4028'>4028</a>
<a id='n4029' href='#n4029'>4029</a>
<a id='n4030' href='#n4030'>4030</a>
<a id='n4031' href='#n4031'>4031</a>
<a id='n4032' href='#n4032'>4032</a>
<a id='n4033' href='#n4033'>4033</a>
<a id='n4034' href='#n4034'>4034</a>
<a id='n4035' href='#n4035'>4035</a>
<a id='n4036' href='#n4036'>4036</a>
<a id='n4037' href='#n4037'>4037</a>
<a id='n4038' href='#n4038'>4038</a>
<a id='n4039' href='#n4039'>4039</a>
<a id='n4040' href='#n4040'>4040</a>
<a id='n4041' href='#n4041'>4041</a>
<a id='n4042' href='#n4042'>4042</a>
<a id='n4043' href='#n4043'>4043</a>
<a id='n4044' href='#n4044'>4044</a>
<a id='n4045' href='#n4045'>4045</a>
<a id='n4046' href='#n4046'>4046</a>
<a id='n4047' href='#n4047'>4047</a>
<a id='n4048' href='#n4048'>4048</a>
<a id='n4049' href='#n4049'>4049</a>
<a id='n4050' href='#n4050'>4050</a>
<a id='n4051' href='#n4051'>4051</a>
<a id='n4052' href='#n4052'>4052</a>
<a id='n4053' href='#n4053'>4053</a>
<a id='n4054' href='#n4054'>4054</a>
<a id='n4055' href='#n4055'>4055</a>
<a id='n4056' href='#n4056'>4056</a>
<a id='n4057' href='#n4057'>4057</a>
<a id='n4058' href='#n4058'>4058</a>
<a id='n4059' href='#n4059'>4059</a>
<a id='n4060' href='#n4060'>4060</a>
<a id='n4061' href='#n4061'>4061</a>
<a id='n4062' href='#n4062'>4062</a>
<a id='n4063' href='#n4063'>4063</a>
<a id='n4064' href='#n4064'>4064</a>
<a id='n4065' href='#n4065'>4065</a>
<a id='n4066' href='#n4066'>4066</a>
<a id='n4067' href='#n4067'>4067</a>
<a id='n4068' href='#n4068'>4068</a>
<a id='n4069' href='#n4069'>4069</a>
<a id='n4070' href='#n4070'>4070</a>
<a id='n4071' href='#n4071'>4071</a>
<a id='n4072' href='#n4072'>4072</a>
<a id='n4073' href='#n4073'>4073</a>
<a id='n4074' href='#n4074'>4074</a>
<a id='n4075' href='#n4075'>4075</a>
<a id='n4076' href='#n4076'>4076</a>
<a id='n4077' href='#n4077'>4077</a>
<a id='n4078' href='#n4078'>4078</a>
<a id='n4079' href='#n4079'>4079</a>
<a id='n4080' href='#n4080'>4080</a>
<a id='n4081' href='#n4081'>4081</a>
<a id='n4082' href='#n4082'>4082</a>
<a id='n4083' href='#n4083'>4083</a>
<a id='n4084' href='#n4084'>4084</a>
<a id='n4085' href='#n4085'>4085</a>
<a id='n4086' href='#n4086'>4086</a>
<a id='n4087' href='#n4087'>4087</a>
<a id='n4088' href='#n4088'>4088</a>
<a id='n4089' href='#n4089'>4089</a>
<a id='n4090' href='#n4090'>4090</a>
<a id='n4091' href='#n4091'>4091</a>
<a id='n4092' href='#n4092'>4092</a>
<a id='n4093' href='#n4093'>4093</a>
<a id='n4094' href='#n4094'>4094</a>
<a id='n4095' href='#n4095'>4095</a>
<a id='n4096' href='#n4096'>4096</a>
<a id='n4097' href='#n4097'>4097</a>
<a id='n4098' href='#n4098'>4098</a>
<a id='n4099' href='#n4099'>4099</a>
<a id='n4100' href='#n4100'>4100</a>
<a id='n4101' href='#n4101'>4101</a>
<a id='n4102' href='#n4102'>4102</a>
<a id='n4103' href='#n4103'>4103</a>
<a id='n4104' href='#n4104'>4104</a>
<a id='n4105' href='#n4105'>4105</a>
<a id='n4106' href='#n4106'>4106</a>
<a id='n4107' href='#n4107'>4107</a>
<a id='n4108' href='#n4108'>4108</a>
<a id='n4109' href='#n4109'>4109</a>
<a id='n4110' href='#n4110'>4110</a>
<a id='n4111' href='#n4111'>4111</a>
<a id='n4112' href='#n4112'>4112</a>
<a id='n4113' href='#n4113'>4113</a>
<a id='n4114' href='#n4114'>4114</a>
<a id='n4115' href='#n4115'>4115</a>
<a id='n4116' href='#n4116'>4116</a>
<a id='n4117' href='#n4117'>4117</a>
<a id='n4118' href='#n4118'>4118</a>
<a id='n4119' href='#n4119'>4119</a>
<a id='n4120' href='#n4120'>4120</a>
<a id='n4121' href='#n4121'>4121</a>
<a id='n4122' href='#n4122'>4122</a>
<a id='n4123' href='#n4123'>4123</a>
<a id='n4124' href='#n4124'>4124</a>
<a id='n4125' href='#n4125'>4125</a>
<a id='n4126' href='#n4126'>4126</a>
<a id='n4127' href='#n4127'>4127</a>
<a id='n4128' href='#n4128'>4128</a>
<a id='n4129' href='#n4129'>4129</a>
<a id='n4130' href='#n4130'>4130</a>
<a id='n4131' href='#n4131'>4131</a>
<a id='n4132' href='#n4132'>4132</a>
<a id='n4133' href='#n4133'>4133</a>
<a id='n4134' href='#n4134'>4134</a>
<a id='n4135' href='#n4135'>4135</a>
<a id='n4136' href='#n4136'>4136</a>
<a id='n4137' href='#n4137'>4137</a>
<a id='n4138' href='#n4138'>4138</a>
<a id='n4139' href='#n4139'>4139</a>
<a id='n4140' href='#n4140'>4140</a>
<a id='n4141' href='#n4141'>4141</a>
<a id='n4142' href='#n4142'>4142</a>
<a id='n4143' href='#n4143'>4143</a>
<a id='n4144' href='#n4144'>4144</a>
<a id='n4145' href='#n4145'>4145</a>
<a id='n4146' href='#n4146'>4146</a>
<a id='n4147' href='#n4147'>4147</a>
<a id='n4148' href='#n4148'>4148</a>
<a id='n4149' href='#n4149'>4149</a>
<a id='n4150' href='#n4150'>4150</a>
<a id='n4151' href='#n4151'>4151</a>
<a id='n4152' href='#n4152'>4152</a>
<a id='n4153' href='#n4153'>4153</a>
<a id='n4154' href='#n4154'>4154</a>
<a id='n4155' href='#n4155'>4155</a>
<a id='n4156' href='#n4156'>4156</a>
<a id='n4157' href='#n4157'>4157</a>
<a id='n4158' href='#n4158'>4158</a>
<a id='n4159' href='#n4159'>4159</a>
<a id='n4160' href='#n4160'>4160</a>
<a id='n4161' href='#n4161'>4161</a>
<a id='n4162' href='#n4162'>4162</a>
<a id='n4163' href='#n4163'>4163</a>
<a id='n4164' href='#n4164'>4164</a>
<a id='n4165' href='#n4165'>4165</a>
<a id='n4166' href='#n4166'>4166</a>
<a id='n4167' href='#n4167'>4167</a>
<a id='n4168' href='#n4168'>4168</a>
<a id='n4169' href='#n4169'>4169</a>
<a id='n4170' href='#n4170'>4170</a>
<a id='n4171' href='#n4171'>4171</a>
<a id='n4172' href='#n4172'>4172</a>
<a id='n4173' href='#n4173'>4173</a>
<a id='n4174' href='#n4174'>4174</a>
<a id='n4175' href='#n4175'>4175</a>
<a id='n4176' href='#n4176'>4176</a>
<a id='n4177' href='#n4177'>4177</a>
<a id='n4178' href='#n4178'>4178</a>
<a id='n4179' href='#n4179'>4179</a>
<a id='n4180' href='#n4180'>4180</a>
<a id='n4181' href='#n4181'>4181</a>
<a id='n4182' href='#n4182'>4182</a>
<a id='n4183' href='#n4183'>4183</a>
<a id='n4184' href='#n4184'>4184</a>
<a id='n4185' href='#n4185'>4185</a>
<a id='n4186' href='#n4186'>4186</a>
<a id='n4187' href='#n4187'>4187</a>
<a id='n4188' href='#n4188'>4188</a>
<a id='n4189' href='#n4189'>4189</a>
<a id='n4190' href='#n4190'>4190</a>
<a id='n4191' href='#n4191'>4191</a>
<a id='n4192' href='#n4192'>4192</a>
<a id='n4193' href='#n4193'>4193</a>
<a id='n4194' href='#n4194'>4194</a>
<a id='n4195' href='#n4195'>4195</a>
<a id='n4196' href='#n4196'>4196</a>
<a id='n4197' href='#n4197'>4197</a>
<a id='n4198' href='#n4198'>4198</a>
<a id='n4199' href='#n4199'>4199</a>
<a id='n4200' href='#n4200'>4200</a>
<a id='n4201' href='#n4201'>4201</a>
<a id='n4202' href='#n4202'>4202</a>
<a id='n4203' href='#n4203'>4203</a>
<a id='n4204' href='#n4204'>4204</a>
<a id='n4205' href='#n4205'>4205</a>
<a id='n4206' href='#n4206'>4206</a>
<a id='n4207' href='#n4207'>4207</a>
<a id='n4208' href='#n4208'>4208</a>
<a id='n4209' href='#n4209'>4209</a>
<a id='n4210' href='#n4210'>4210</a>
<a id='n4211' href='#n4211'>4211</a>
<a id='n4212' href='#n4212'>4212</a>
<a id='n4213' href='#n4213'>4213</a>
<a id='n4214' href='#n4214'>4214</a>
<a id='n4215' href='#n4215'>4215</a>
<a id='n4216' href='#n4216'>4216</a>
<a id='n4217' href='#n4217'>4217</a>
<a id='n4218' href='#n4218'>4218</a>
<a id='n4219' href='#n4219'>4219</a>
<a id='n4220' href='#n4220'>4220</a>
<a id='n4221' href='#n4221'>4221</a>
<a id='n4222' href='#n4222'>4222</a>
<a id='n4223' href='#n4223'>4223</a>
<a id='n4224' href='#n4224'>4224</a>
<a id='n4225' href='#n4225'>4225</a>
<a id='n4226' href='#n4226'>4226</a>
<a id='n4227' href='#n4227'>4227</a>
<a id='n4228' href='#n4228'>4228</a>
<a id='n4229' href='#n4229'>4229</a>
<a id='n4230' href='#n4230'>4230</a>
<a id='n4231' href='#n4231'>4231</a>
<a id='n4232' href='#n4232'>4232</a>
<a id='n4233' href='#n4233'>4233</a>
<a id='n4234' href='#n4234'>4234</a>
<a id='n4235' href='#n4235'>4235</a>
<a id='n4236' href='#n4236'>4236</a>
<a id='n4237' href='#n4237'>4237</a>
<a id='n4238' href='#n4238'>4238</a>
<a id='n4239' href='#n4239'>4239</a>
<a id='n4240' href='#n4240'>4240</a>
<a id='n4241' href='#n4241'>4241</a>
<a id='n4242' href='#n4242'>4242</a>
<a id='n4243' href='#n4243'>4243</a>
<a id='n4244' href='#n4244'>4244</a>
<a id='n4245' href='#n4245'>4245</a>
<a id='n4246' href='#n4246'>4246</a>
<a id='n4247' href='#n4247'>4247</a>
<a id='n4248' href='#n4248'>4248</a>
<a id='n4249' href='#n4249'>4249</a>
<a id='n4250' href='#n4250'>4250</a>
<a id='n4251' href='#n4251'>4251</a>
<a id='n4252' href='#n4252'>4252</a>
<a id='n4253' href='#n4253'>4253</a>
<a id='n4254' href='#n4254'>4254</a>
<a id='n4255' href='#n4255'>4255</a>
<a id='n4256' href='#n4256'>4256</a>
<a id='n4257' href='#n4257'>4257</a>
<a id='n4258' href='#n4258'>4258</a>
<a id='n4259' href='#n4259'>4259</a>
<a id='n4260' href='#n4260'>4260</a>
<a id='n4261' href='#n4261'>4261</a>
<a id='n4262' href='#n4262'>4262</a>
<a id='n4263' href='#n4263'>4263</a>
<a id='n4264' href='#n4264'>4264</a>
<a id='n4265' href='#n4265'>4265</a>
<a id='n4266' href='#n4266'>4266</a>
<a id='n4267' href='#n4267'>4267</a>
<a id='n4268' href='#n4268'>4268</a>
<a id='n4269' href='#n4269'>4269</a>
<a id='n4270' href='#n4270'>4270</a>
<a id='n4271' href='#n4271'>4271</a>
<a id='n4272' href='#n4272'>4272</a>
<a id='n4273' href='#n4273'>4273</a>
<a id='n4274' href='#n4274'>4274</a>
<a id='n4275' href='#n4275'>4275</a>
<a id='n4276' href='#n4276'>4276</a>
<a id='n4277' href='#n4277'>4277</a>
</pre></td>
<td class='lines'><pre><code><span class="hl kwa">package</span> printer<span class="hl opt">::</span>printerdrake<span class="hl opt">;</span>
<span class="hl slc"># $Id$</span>

<span class="hl kwa">use</span> strict<span class="hl opt">;</span>

<span class="hl kwa">use</span> common<span class="hl opt">;</span>
<span class="hl kwa">use</span> modules<span class="hl opt">;</span>
<span class="hl kwa">use</span> network<span class="hl opt">;</span>
<span class="hl kwa">use</span> <span class="hl kwc">log</span><span class="hl opt">;</span>
<span class="hl kwa">use</span> interactive<span class="hl opt">;</span>
<span class="hl kwa">use</span> printer<span class="hl opt">::</span>main<span class="hl opt">;</span>
<span class="hl kwa">use</span> printer<span class="hl opt">::</span>services<span class="hl opt">;</span>
<span class="hl kwa">use</span> printer<span class="hl opt">::</span>detect<span class="hl opt">;</span>
<span class="hl kwa">use</span> printer<span class="hl opt">::</span><span class="hl kwa">default</span><span class="hl opt">;</span>
<span class="hl kwa">use</span> printer<span class="hl opt">::</span>data<span class="hl opt">;</span>

<span class="hl num">1</span><span class="hl opt">;</span>

<span class="hl kwc">my</span> <span class="hl kwb">$hp1000fwtext</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;The HP LaserJet 1000 needs its firmware to be uploaded after being turned on. Download the Windows driver package from the HP web site (the firmware on the printer&apos;s CD does not work) and extract the firmware file from it by uncompresing the self-extracting &apos;.exe&apos; file with the &apos;unzip&apos; utility and searching for the &apos;sihp1000.img&apos; file. Copy this file into the &apos;/etc/printer&apos; directory. There it will be found by the automatic uploader script and uploaded whenever the printer is connected and turned on.</span>
<span class="hl str">&quot;</span><span class="hl opt">);</span>

<span class="hl kwa">sub</span> config_cups <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl kwc">local</span> <span class="hl opt">$::</span>isWizard <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl slc"># Check whether the network functionality is configured and</span>
    <span class="hl slc"># running</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>check_network<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork,</span> <span class="hl num">0</span><span class="hl opt">)) {</span> <span class="hl kwa">return</span> <span class="hl num">0</span> <span class="hl opt">};</span>

    <span class="hl slc">#$in-&gt;set_help(&apos;configureRemoteCUPSServer&apos;) if $::isInstall;</span>
    <span class="hl slc">#- hack to handle cups remote server printing,</span>
    <span class="hl slc">#- first read /etc/cups/cupsd.conf for variable BrowsePoll address:port</span>
    <span class="hl slc"># Return value: 0 when nothing was changed (&quot;Apply&quot; never pressed), 1</span>
    <span class="hl slc"># when &quot;Apply&quot; was at least pressed once.</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$retvalue</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl slc"># Read CUPS config file</span>
    <span class="hl opt">&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>cupsd_conf<span class="hl opt">}} =</span>
	printer<span class="hl opt">::</span>main<span class="hl opt">::</span>read_cupsd_conf<span class="hl opt">();</span>
    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>read_cups_config<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
    <span class="hl slc"># Read state of japanese text printing mode</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$jap_textmode</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>get_jap_textmode<span class="hl opt">();</span>
    <span class="hl slc"># Read state for auto-correction of cupsd.conf</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>autocorrection<span class="hl opt">} =</span>
	printer<span class="hl opt">::</span>main<span class="hl opt">::</span>get_cups_autoconf<span class="hl opt">();</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$oldautocorr</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>autocorrection<span class="hl opt">};</span>
    <span class="hl slc"># Human-readable strings for hosts onto which the local printers</span>
    <span class="hl slc"># are shared</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$maindone</span><span class="hl opt">;</span>
    <span class="hl kwa">while</span> <span class="hl opt">(!</span><span class="hl kwb">$maindone</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$sharehosts</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>makesharehostlist<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$browsepoll</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>makebrowsepolllist<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$buttonclicked</span><span class="hl opt">;</span>
	<span class="hl slc">#- Show dialog</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span>
	    <span class="hl opt">(</span>
	     <span class="hl opt">{</span> 
		 title <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;CUPS printer configuration&quot;</span><span class="hl opt">),</span>
		 messages <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Here you can choose whether the printers connected to this machine should be accessable by remote machines and by which remote machines.&quot;</span><span class="hl opt">) .</span>
		     N<span class="hl opt">(</span><span class="hl str">&quot;You can also decide here whether printers on remote machines should be automatically made available on this machine.&quot;</span><span class="hl opt">),</span>
	     <span class="hl opt">},</span>
	     <span class="hl opt">[</span>
	      <span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;The printers on this machine are available to other computers&quot;</span><span class="hl opt">),</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;bool&apos;</span><span class="hl opt">,</span>
		val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>localprintersshared<span class="hl opt">} },</span>
	      <span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Automatically find available printers on remote machines&quot;</span><span class="hl opt">),</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;bool&apos;</span><span class="hl opt">,</span>
		val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>remotebroadcastsaccepted<span class="hl opt">} },</span>
	      <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer sharing on hosts/networks: &quot;</span><span class="hl opt">) .</span>
		    <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>customsharingsetup<span class="hl opt">}</span> ?
		     N<span class="hl opt">(</span><span class="hl str">&quot;Custom configuration&quot;</span><span class="hl opt">) :</span>
		     <span class="hl opt">(</span><span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$sharehosts</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}} &gt;=</span> <span class="hl num">0</span> ?
		      <span class="hl opt">(</span><span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$sharehosts</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}} &gt;</span> <span class="hl num">1</span> ?
		       <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&quot;, &quot;</span><span class="hl opt">, &#64;{</span><span class="hl kwb">$sharehosts</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}}[</span><span class="hl num">0</span><span class="hl opt">,</span><span class="hl num">1</span><span class="hl opt">]) .</span> <span class="hl str">&quot; ...&quot;</span> <span class="hl opt">:</span>
		       <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&quot;, &quot;</span><span class="hl opt">, &#64;{</span><span class="hl kwb">$sharehosts</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}})) :</span>
		      N<span class="hl opt">(</span><span class="hl str">&quot;No remote machines&quot;</span><span class="hl opt">))),</span> 
		type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;button&apos;</span><span class="hl opt">,</span>
		clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		    <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;sharehosts&quot;</span><span class="hl opt">;</span>
		    <span class="hl num">1</span><span class="hl opt">;</span>
		<span class="hl opt">},</span>
		disabled <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		    <span class="hl opt">(!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>localprintersshared<span class="hl opt">} &amp;&amp;</span>
		     <span class="hl opt">!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>remotebroadcastsaccepted<span class="hl opt">});</span>
		<span class="hl opt">} },</span>
	      <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Additional CUPS servers: &quot;</span><span class="hl opt">) .</span>
		     <span class="hl opt">(</span><span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}} &gt;=</span> <span class="hl num">0</span> ?
		      <span class="hl opt">(</span><span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}} &gt;</span> <span class="hl num">1</span> ?
		       <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&quot;, &quot;</span><span class="hl opt">, &#64;{</span><span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}}[</span><span class="hl num">0</span><span class="hl opt">,</span><span class="hl num">1</span><span class="hl opt">]) .</span> <span class="hl str">&quot; ...&quot;</span> <span class="hl opt">:</span>
		       <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&quot;, &quot;</span><span class="hl opt">, &#64;{</span><span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}})) :</span>
		      N<span class="hl opt">(</span><span class="hl str">&quot;None&quot;</span><span class="hl opt">)),</span> 
		type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;button&apos;</span><span class="hl opt">,</span>
		help <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;To get access to printers on remote CUPS servers in your local network you only need to turn on the</span> <span class="hl esc">\&quot;</span><span class="hl str">Automatically find available printers on remote machines</span><span class="hl esc">\&quot;</span> <span class="hl str">option; the CUPS servers inform your machine automatically about their printers. All printers currently known to your machine are listed in the</span> <span class="hl esc">\&quot;</span><span class="hl str">Remote printers</span><span class="hl esc">\&quot;</span> <span class="hl str">section in the main window of Printerdrake. If your CUPS server(s) is/are not in your local network, you have to enter the IP address(es) and optionally the port number(s) here to get the printer information from the server(s).&quot;</span><span class="hl opt">),</span>
		clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		    <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;browsepoll&quot;</span><span class="hl opt">;</span>
		    <span class="hl num">1</span><span class="hl opt">;</span>
		<span class="hl opt">} },</span>
	      <span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Japanese text printing mode&quot;</span><span class="hl opt">),</span>
		help <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Turning on this allows to print plain text files in japanese language. Only use this function if you really want to print text in japanese, if it is activated you cannot print accentuated characters in latin fonts any more and you will not be able to adjust the margins, the character size, etc. This setting only affects printers defined on this machine. If you want to print japanese text on a printer set up on a remote machine, you have to activate this function on that remote machine.&quot;</span><span class="hl opt">),</span>
		type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;bool&apos;</span><span class="hl opt">,</span>
		val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$jap_textmode</span> <span class="hl opt">},</span>
	      if_<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">},</span>
		  <span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Automatic correction of CUPS configuration&quot;</span><span class="hl opt">),</span>
		    type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;bool&apos;</span><span class="hl opt">,</span>
		    help <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;When this option is turned on, on every startup of CUPS it is automatically made sure that</span>
<span class="hl str"></span>
<span class="hl str">- if LPD/LPRng is installed, /etc/printcap will not be overwritten by CUPS</span>
<span class="hl str"></span>
<span class="hl str">- if /etc/cups/cupsd.conf is missing, it will be created</span>
<span class="hl str"></span>
<span class="hl str">- when printer information is broadcasted, it does not contain</span> <span class="hl esc">\&quot;</span><span class="hl str">localhost</span><span class="hl esc">\&quot;</span> <span class="hl str">as the server name.</span>
<span class="hl str"></span>
<span class="hl str">If some of these measures lead to problems for you, turn this option off, but then you have to take care of these points.&quot;</span><span class="hl opt">),</span>
		    val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>autocorrection<span class="hl opt">} }),</span>
	      <span class="hl opt">]</span>
	     <span class="hl opt">)</span>
	    <span class="hl opt">) {</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$buttonclicked</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;sharehosts&quot;</span><span class="hl opt">) {</span>
		<span class="hl slc"># Show dialog to add hosts to share printers to</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$subdone</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$choice</span><span class="hl opt">;</span>
		<span class="hl kwa">while</span> <span class="hl opt">(!</span><span class="hl kwb">$subdone</span><span class="hl opt">) {</span>
		    <span class="hl slc"># Entry should be edited when double-clicked</span>
		    <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;edit&quot;</span><span class="hl opt">;</span>
		    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span>
			<span class="hl opt">(</span>
			 <span class="hl opt">{</span> title <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Sharing of local printers&quot;</span><span class="hl opt">),</span>
			   messages <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;These are the machines and networks on which the locally connected printer(s) should be available:&quot;</span><span class="hl opt">),</span>
			   ok <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
			   cancel <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
		         <span class="hl opt">},</span>
			 <span class="hl slc"># List the hosts</span>
			 <span class="hl opt">[ {</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$choice,</span> format <span class="hl opt">=&gt;</span> \<span class="hl opt">&amp;</span>translate<span class="hl opt">,</span>
			     <span class="hl kwc">sort</span> <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span> separator <span class="hl opt">=&gt;</span> <span class="hl str">&quot;####&quot;</span><span class="hl opt">,</span>
			     tree_expanded <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span>
			     quit_if_double_click <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span>
			     allow_empty_list <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span>
			     list <span class="hl opt">=&gt;</span> <span class="hl kwb">$sharehosts</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">} },</span>
			   <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Add host/network&quot;</span><span class="hl opt">),</span> 
			     type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;button&apos;</span><span class="hl opt">,</span>
			     clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;add&quot;</span><span class="hl opt">;</span>
				 <span class="hl num">1</span><span class="hl opt">;</span> 
			     <span class="hl opt">} },</span>
			   <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Edit selected host/network&quot;</span><span class="hl opt">),</span> 
			     type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;button&apos;</span><span class="hl opt">,</span>
			     clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;edit&quot;</span><span class="hl opt">;</span>
				 <span class="hl num">1</span><span class="hl opt">;</span> 
			     <span class="hl opt">},</span>
			     disabled <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$sharehosts</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}} &lt;</span> <span class="hl num">0</span><span class="hl opt">);</span>
			     <span class="hl opt">} },</span>
			   <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Remove selected host/network&quot;</span><span class="hl opt">),</span> 
			     type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;button&apos;</span><span class="hl opt">,</span>
			     clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;remove&quot;</span><span class="hl opt">;</span>
				 <span class="hl num">1</span><span class="hl opt">;</span> 
			     <span class="hl opt">},</span>
			     disabled <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$sharehosts</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}} &lt;</span> <span class="hl num">0</span><span class="hl opt">);</span>
			     <span class="hl opt">} },</span>
			   <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Done&quot;</span><span class="hl opt">),</span> 
			     type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;button&apos;</span><span class="hl opt">,</span>
			     clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
				 <span class="hl kwb">$subdone</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
				 <span class="hl num">1</span><span class="hl opt">;</span> 
			     <span class="hl opt">} },</span>
			   <span class="hl opt">]</span>
			 <span class="hl opt">);</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$buttonclicked</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;add&quot;</span> <span class="hl opt">||</span>
			<span class="hl kwb">$buttonclicked</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;edit&quot;</span><span class="hl opt">) {</span>
			<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$hostchoice, $ip</span><span class="hl opt">);</span>
			<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$buttonclicked</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;add&quot;</span><span class="hl opt">) {</span>
			    <span class="hl slc"># Use first entry as default for a new entry</span>
			    <span class="hl kwb">$hostchoice</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Local network(s)&quot;</span><span class="hl opt">);</span>
			<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
			    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$sharehosts</span><span class="hl opt">-&gt;{</span>invhash<span class="hl opt">}{</span><span class="hl kwb">$choice</span><span class="hl opt">} =~</span> <span class="hl kwd">/^\&#64;/</span><span class="hl opt">) {</span>
				<span class="hl slc"># Entry to edit is not an IP address</span>
				<span class="hl kwb">$hostchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$choice</span><span class="hl opt">;</span>
			    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
				<span class="hl slc"># Entry is an IP address</span>
				<span class="hl kwb">$hostchoice</span> <span class="hl opt">=</span> 
				    N<span class="hl opt">(</span><span class="hl str">&quot;IP address of host/network:&quot;</span><span class="hl opt">);</span>
				<span class="hl kwb">$ip</span> <span class="hl opt">=</span> <span class="hl kwb">$sharehosts</span><span class="hl opt">-&gt;{</span>invhash<span class="hl opt">}{</span><span class="hl kwb">$choice</span><span class="hl opt">};</span>
			    <span class="hl opt">}</span>
			<span class="hl opt">}</span>
			<span class="hl kwc">my</span> <span class="hl kwb">&#64;menu</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Local network(s)&quot;</span><span class="hl opt">);</span>
			<span class="hl kwc">my</span> <span class="hl kwb">&#64;interfaces</span> <span class="hl opt">=</span> 
			    printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>getNetworkInterfaces<span class="hl opt">();</span>
		        <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$interface</span> <span class="hl opt">(</span><span class="hl kwb">&#64;interfaces</span><span class="hl opt">) {</span>
			    <span class="hl kwc">push</span> <span class="hl kwb">&#64;menu,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Interface</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span><span class="hl str">&quot;,</span> <span class="hl ipl">$interface</span><span class="hl str">);</span>
<span class="hl str">			}</span>
<span class="hl str">			push</span> <span class="hl ipl">&#64;menu,</span> <span class="hl str">N(&quot;</span>IP address of host<span class="hl opt">/</span>network<span class="hl opt">:</span><span class="hl str">&quot;);</span>
<span class="hl str">			# Show the dialog</span>
<span class="hl str">			my</span> <span class="hl ipl">$address</span><span class="hl str">;</span>
<span class="hl str">			my</span> <span class="hl ipl">$oldaddress</span> <span class="hl str">= </span>
<span class="hl str">			    (</span><span class="hl ipl">$buttonclicked</span> <span class="hl str">eq &quot;</span>edit<span class="hl str">&quot; ?</span>
<span class="hl str"></span>			     <span class="hl ipl">$sharehosts</span><span class="hl str">-&gt;{invhash}{</span><span class="hl ipl">$choice</span><span class="hl str">} : &quot;</span><span class="hl str">&quot;);</span>
<span class="hl str">			if (</span><span class="hl ipl">$in</span><span class="hl str">-&gt;ask_from_</span>
<span class="hl str">			    (</span>
<span class="hl str">			     { title =&gt; N(&quot;</span>Sharing of <span class="hl kwc">local</span> printers<span class="hl str">&quot;),</span>
<span class="hl str">			       messages =&gt; N(&quot;</span>Choose the network <span class="hl kwc">or</span> host on which the <span class="hl kwc">local</span> printers should be made available<span class="hl opt">:</span><span class="hl str">&quot;),</span>
<span class="hl str">			       callbacks =&gt; {</span>
<span class="hl str">				   complete =&gt; sub {</span>
<span class="hl str">				       if (</span><span class="hl ipl">$hostchoice</span> <span class="hl str">eq </span>
<span class="hl str">					    N(&quot;</span>IP address of host<span class="hl opt">/</span>network<span class="hl opt">:</span><span class="hl str">&quot;) &amp;&amp;</span>
<span class="hl str"></span>					   <span class="hl ipl">$ip</span> <span class="hl str">=~ /^\s*</span><span class="hl ipl">$/</span><span class="hl str">) {</span>
<span class="hl str">					   </span>
<span class="hl str"></span>					   <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_warn(&apos;&apos;, N(&quot;</span>Host<span class="hl opt">/</span>network IP address missing<span class="hl opt">.</span><span class="hl str">&quot;));</span>
<span class="hl str">					   return (1,1);</span>
<span class="hl str">				       }</span>
<span class="hl str">				       if (</span><span class="hl ipl">$hostchoice</span> <span class="hl str">eq </span>
<span class="hl str">					    N(&quot;</span>IP address of host<span class="hl opt">/</span>network<span class="hl opt">:</span><span class="hl str">&quot;) &amp;&amp;</span>
<span class="hl str">					   !printer::main::is_network_ip(</span><span class="hl ipl">$ip</span><span class="hl str">)) {</span>
<span class="hl str">					   </span>
<span class="hl str"></span>					   <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_warn(&apos;&apos;, </span>
<span class="hl str">N(&quot;</span>The entered host<span class="hl opt">/</span>network IP <span class="hl kwa">is</span> <span class="hl kwc">not</span> correct<span class="hl opt">.</span><span class="hl esc">\n</span><span class="hl str">&quot;) .</span>
<span class="hl str">N(&quot;</span>Examples <span class="hl kwa">for</span> correct IPs<span class="hl opt">:</span><span class="hl esc">\n</span><span class="hl str">&quot;) .</span>
<span class="hl str">  &quot;</span><span class="hl num">192.168.100.194</span><span class="hl esc">\n</span><span class="hl str">&quot; .</span>
<span class="hl str">  &quot;</span><span class="hl num">10.0.0</span><span class="hl opt">.*</span><span class="hl esc">\n</span><span class="hl str">&quot; .</span>
<span class="hl str">  &quot;</span><span class="hl num">10.1</span><span class="hl opt">.*</span><span class="hl esc">\n</span><span class="hl str">&quot; .</span>
<span class="hl str">  &quot;</span><span class="hl num">192.168.100.0</span><span class="hl opt">/</span><span class="hl num">24</span><span class="hl esc">\n</span><span class="hl str">&quot; .</span>
<span class="hl str">  &quot;</span><span class="hl num">192.168.100.0</span><span class="hl opt">/</span><span class="hl num">255.255.255.0</span><span class="hl esc">\n</span><span class="hl str">&quot;</span>
<span class="hl str">);</span>
<span class="hl str">					   return (1,1);</span>
<span class="hl str">				       }</span>
<span class="hl str">				       if (</span><span class="hl ipl">$hostchoice</span> <span class="hl str">eq</span> <span class="hl ipl">$menu</span><span class="hl str">[0]) {</span>
<span class="hl str"></span>					   <span class="hl ipl">$address</span> <span class="hl str">= &quot;</span>\<span class="hl kwb">&#64;LOCAL</span><span class="hl str">&quot;;</span>
<span class="hl str">				       } elsif (</span><span class="hl ipl">$hostchoice</span> <span class="hl str">eq</span> <span class="hl ipl">$menu</span><span class="hl str">[-1]) {</span>
<span class="hl str"></span>					   <span class="hl ipl">$address</span> <span class="hl str">=</span> <span class="hl ipl">$ip</span><span class="hl str">;</span>
<span class="hl str">				       } else {</span>
<span class="hl str">					   (</span><span class="hl ipl">$address</span><span class="hl str">) =</span>
<span class="hl str">					       grep {</span> <span class="hl ipl">$hostchoice</span> <span class="hl str">=~ /</span><span class="hl ipl">$_/</span> <span class="hl str">} </span>
<span class="hl str"></span>					       <span class="hl ipl">&#64;interfaces</span><span class="hl str">;</span>
<span class="hl str"></span>					   <span class="hl ipl">$address</span> <span class="hl str">= &quot;</span>\<span class="hl kwb">&#64;IF</span><span class="hl opt">(</span><span class="hl kwb">$address</span><span class="hl opt">)</span><span class="hl str">&quot;;</span>
<span class="hl str">				       }</span>
<span class="hl str">				       # Check whether item is duplicate</span>
<span class="hl str">				       if (</span><span class="hl ipl">$address</span> <span class="hl str">ne</span> <span class="hl ipl">$oldaddress</span> <span class="hl str">&amp;&amp;</span>
<span class="hl str">					   member(</span><span class="hl ipl">$address,</span>
<span class="hl str">						  &#64;{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{clientnetworks}})) {</span>
<span class="hl str"></span>					   <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_warn(&apos;&apos;, </span>
<span class="hl str">							 N(&quot;</span>This host<span class="hl opt">/</span>network <span class="hl kwa">is</span> already <span class="hl kwa">in</span> the list<span class="hl opt">,</span> it cannot be added again<span class="hl opt">.</span><span class="hl esc">\n</span><span class="hl str">&quot;));</span>
<span class="hl str">					   if (</span><span class="hl ipl">$hostchoice</span> <span class="hl str">eq </span>
<span class="hl str">					       N(&quot;</span>IP address of host<span class="hl opt">/</span>network<span class="hl opt">:</span><span class="hl str">&quot;)) {</span>
<span class="hl str">					       return (1,1);</span>
<span class="hl str">					   } else {</span>
<span class="hl str">					       return (1,0);</span>
<span class="hl str">					   }</span>
<span class="hl str">				       }</span>
<span class="hl str">				       return 0;</span>
<span class="hl str">				   },</span>
<span class="hl str">			       },</span>
<span class="hl str">			   },</span>
<span class="hl str">			     # List the host types</span>
<span class="hl str">			     [ { val =&gt; \</span><span class="hl ipl">$hostchoice,</span> <span class="hl str">format =&gt; \&amp;translate,</span>
<span class="hl str">				 type =&gt; &apos;list&apos;,</span>
<span class="hl str">				 sort =&gt; 0,</span>
<span class="hl str">				 list =&gt; \</span><span class="hl ipl">&#64;menu</span> <span class="hl str">},</span>
<span class="hl str">			       { val =&gt; \</span><span class="hl ipl">$ip,</span> 
<span class="hl str">				 disabled =&gt; sub {</span>
<span class="hl str"></span>				     <span class="hl ipl">$hostchoice</span> <span class="hl str">ne </span>
<span class="hl str">					 N(&quot;</span>IP address of host<span class="hl opt">/</span>network<span class="hl opt">:</span><span class="hl str">&quot;);</span>
<span class="hl str">			         } },</span>
<span class="hl str">			       ],</span>
<span class="hl str">			     )) {</span>
<span class="hl str">			    # OK was clicked, insert new item into the list</span>
<span class="hl str">			    if (</span><span class="hl ipl">$buttonclicked</span> <span class="hl str">eq &quot;</span>add<span class="hl str">&quot;) {</span>
<span class="hl str">				push(&#64;{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{clientnetworks}},</span>
<span class="hl str"></span>				     <span class="hl ipl">$address</span><span class="hl str">);</span>
<span class="hl str">			    } else {</span>
<span class="hl str">				&#64;{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{clientnetworks}} =</span>
<span class="hl str">				    map { (</span><span class="hl ipl">$_</span> <span class="hl str">eq</span>
<span class="hl str"></span>					  <span class="hl ipl">$sharehosts</span><span class="hl str">-&gt;{invhash}{</span><span class="hl ipl">$choice</span><span class="hl str">} ?</span>
<span class="hl str"></span>					  <span class="hl ipl">$address</span> <span class="hl str">:</span> <span class="hl ipl">$_</span><span class="hl str">) }</span>
<span class="hl str">				        &#64;{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{clientnetworks}};</span>
<span class="hl str">			    }</span>
<span class="hl str">			    # Refresh list of hosts</span>
<span class="hl str"></span>			    <span class="hl ipl">$sharehosts</span> <span class="hl str">= </span>
<span class="hl str">			    printer::main::makesharehostlist(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str">			    # We have modified the configuration now</span>
<span class="hl str"></span>			    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{customsharingsetup} = 0;</span>
<span class="hl str">			    # Position the list cursor on the new/modified</span>
<span class="hl str">			    # item</span>
<span class="hl str"></span>			    <span class="hl ipl">$choice</span> <span class="hl str">=</span> <span class="hl ipl">$sharehosts</span><span class="hl str">-&gt;{hash}{</span><span class="hl ipl">$address</span><span class="hl str">};</span>
<span class="hl str">			}</span>
<span class="hl str">		    } elsif (</span><span class="hl ipl">$buttonclicked</span> <span class="hl str">eq &quot;</span>remove<span class="hl str">&quot;) {</span>
<span class="hl str">			&#64;{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{clientnetworks}} =</span>
<span class="hl str">			    grep {</span> <span class="hl ipl">$_</span> <span class="hl str">ne</span> <span class="hl ipl">$sharehosts</span><span class="hl str">-&gt;{invhash}{</span><span class="hl ipl">$choice</span><span class="hl str">} }</span>
<span class="hl str">			    &#64;{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{clientnetworks}};</span>
<span class="hl str">			# Refresh list of hosts</span>
<span class="hl str"></span>			<span class="hl ipl">$sharehosts</span> <span class="hl str">= </span>
<span class="hl str">			    printer::main::makesharehostlist(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str">			# We have modified the configuration now</span>
<span class="hl str"></span>			<span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{customsharingsetup} = 0;</span>
<span class="hl str">		    }</span>
<span class="hl str">		}</span>
<span class="hl str">		# If we have no entry in the list, we do not</span>
<span class="hl str">		# share the local printers, mark this</span>
<span class="hl str">		if (</span><span class="hl ipl">$#</span><span class="hl str">{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{clientnetworks}} &lt; 0) {</span>
<span class="hl str"></span>		    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{localprintersshared} = 0;</span>
<span class="hl str"></span>		    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{cupsconfig}{remotebroadcastsaccepted} = 0;</span>
<span class="hl str">		}</span>
<span class="hl str">	    } elsif (</span><span class="hl ipl">$buttonclicked</span> <span class="hl str">eq &quot;</span>browsepoll<span class="hl str">&quot;) {</span>
<span class="hl str">		# Show dialog to add hosts to &quot;</span>BrowsePoll<span class="hl str">&quot; from</span>
<span class="hl str">		my</span> <span class="hl ipl">$subdone</span> <span class="hl str">= 0;</span>
<span class="hl str">		my</span> <span class="hl ipl">$choice</span><span class="hl str">;</span>
<span class="hl str">		while (!</span><span class="hl ipl">$subdone</span><span class="hl str">) {</span>
<span class="hl str">		    # Entry should be edited when double-clicked</span>
<span class="hl str"></span>		    <span class="hl ipl">$buttonclicked</span> <span class="hl str">= &quot;</span>edit<span class="hl str">&quot;;</span>
<span class="hl str"></span>		    <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_from_</span>
<span class="hl str">			(</span>
<span class="hl str">			 { title =&gt; N(&quot;</span>Accessing printers on remote CUPS servers<span class="hl str">&quot;),</span>
<span class="hl str">			   messages =&gt; N(&quot;</span>Add here the CUPS servers whose printers you want to <span class="hl kwa">use</span><span class="hl opt">.</span> You only need to <span class="hl kwa">do</span> this <span class="hl kwa">if</span> the servers <span class="hl kwa">do</span> <span class="hl kwc">not</span> broadcast their printer information into the <span class="hl kwc">local</span> network<span class="hl opt">.</span><span class="hl str">&quot;),</span>
<span class="hl str">			   ok =&gt; &quot;</span><span class="hl str">&quot;,</span>
<span class="hl str">			   cancel =&gt; &quot;</span><span class="hl str">&quot;,</span>
<span class="hl str">		         },</span>
<span class="hl str">			 # List the hosts</span>
<span class="hl str">			 [ { val =&gt; \</span><span class="hl ipl">$choice,</span> <span class="hl str">format =&gt; \&amp;translate,</span>
<span class="hl str">			     sort =&gt; 0, separator =&gt; &quot;</span><span class="hl slc">####&quot;,</span>
			     tree_expanded <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span>
			     quit_if_double_click <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span>
			     allow_empty_list <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span>
			     list <span class="hl opt">=&gt;</span> <span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">} },</span>
			   <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Add server&quot;</span><span class="hl opt">),</span> 
			     type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;button&apos;</span><span class="hl opt">,</span>
			     clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;add&quot;</span><span class="hl opt">;</span>
				 <span class="hl num">1</span><span class="hl opt">;</span> 
			     <span class="hl opt">} },</span>
			   <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Edit selected server&quot;</span><span class="hl opt">),</span> 
			     type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;button&apos;</span><span class="hl opt">,</span>
			     clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;edit&quot;</span><span class="hl opt">;</span>
				 <span class="hl num">1</span><span class="hl opt">;</span> 
			     <span class="hl opt">},</span>
			     disabled <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}} &lt;</span> <span class="hl num">0</span><span class="hl opt">);</span>
			     <span class="hl opt">} },</span>
			   <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Remove selected server&quot;</span><span class="hl opt">),</span> 
			     type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;button&apos;</span><span class="hl opt">,</span>
			     clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;remove&quot;</span><span class="hl opt">;</span>
				 <span class="hl num">1</span><span class="hl opt">;</span> 
			     <span class="hl opt">},</span>
			     disabled <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>list<span class="hl opt">}} &lt;</span> <span class="hl num">0</span><span class="hl opt">);</span>
			     <span class="hl opt">} },</span>
			   <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Done&quot;</span><span class="hl opt">),</span> 
			     type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;button&apos;</span><span class="hl opt">,</span>
			     clicked_may_quit <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				 <span class="hl kwb">$buttonclicked</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
				 <span class="hl kwb">$subdone</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
				 <span class="hl num">1</span><span class="hl opt">;</span> 
			     <span class="hl opt">} },</span>
			   <span class="hl opt">]</span>
			 <span class="hl opt">);</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$buttonclicked</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;add&quot;</span> <span class="hl opt">||</span>
			<span class="hl kwb">$buttonclicked</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;edit&quot;</span><span class="hl opt">) {</span>
			<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$ip, $port</span><span class="hl opt">);</span>
			<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$buttonclicked</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;add&quot;</span><span class="hl opt">) {</span>
			    <span class="hl slc"># Use default port</span>
			    <span class="hl kwb">$port</span> <span class="hl opt">=</span> <span class="hl str">&apos;631&apos;</span><span class="hl opt">;</span>
			<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
			    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>invhash<span class="hl opt">}{</span><span class="hl kwb">$choice</span><span class="hl opt">} =~</span>
				<span class="hl kwd">/^([^:]+):([^:]+)$/</span><span class="hl opt">) {</span>
				<span class="hl slc"># Entry to edit has IP and port</span>
				<span class="hl kwb">$ip</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
				<span class="hl kwb">$port</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
			    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
				<span class="hl slc"># Entry is only an IP, no port, so take</span>
				<span class="hl slc"># the default port 631</span>
				<span class="hl kwb">$ip</span> <span class="hl opt">=</span> <span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>invhash<span class="hl opt">}{</span><span class="hl kwb">$choice</span><span class="hl opt">};</span>
				<span class="hl kwb">$port</span> <span class="hl opt">=</span> <span class="hl str">&apos;631&apos;</span><span class="hl opt">;</span>
			    <span class="hl opt">}</span>
			<span class="hl opt">}</span>
			<span class="hl slc"># Show the dialog</span>
			<span class="hl kwc">my</span> <span class="hl kwb">$address</span><span class="hl opt">;</span>
			<span class="hl kwc">my</span> <span class="hl kwb">$oldaddress</span> <span class="hl opt">=</span> 
			    <span class="hl opt">(</span><span class="hl kwb">$buttonclicked</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;edit&quot;</span> ?
			     <span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>invhash<span class="hl opt">}{</span><span class="hl kwb">$choice</span><span class="hl opt">} :</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">);</span>
			<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span>
			    <span class="hl opt">(</span>
			     <span class="hl opt">{</span> title <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Accessing printers on remote CUPS servers&quot;</span><span class="hl opt">),</span>
			       messages <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Enter IP address and port of the host whose printers you want to use.&quot;</span><span class="hl opt">) .</span> <span class="hl str">&apos; &apos;</span> <span class="hl opt">.</span>
				   N<span class="hl opt">(</span><span class="hl str">&quot;If no port is given, 631 will be taken as default.&quot;</span><span class="hl opt">),</span>
			       callbacks <span class="hl opt">=&gt; {</span>
				   complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
				       <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$ip</span> <span class="hl opt">=~</span> <span class="hl kwd">/^\s*$/</span><span class="hl opt">) {</span>
					   <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Server IP missing!&quot;</span><span class="hl opt">));</span>
					   <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
				       <span class="hl opt">}</span>
				       <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$ip</span> <span class="hl opt">!~</span> 
					   <span class="hl kwd">/^\s*(\d+\.\d+\.\d+\.\d+)\s*$/</span><span class="hl opt">) {</span>
					   <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> 
N<span class="hl opt">(</span><span class="hl str">&quot;The entered IP is not correct.</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">) .</span>
N<span class="hl opt">(</span><span class="hl str">&quot;Examples for correct IPs:</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">) .</span>
  <span class="hl str">&quot;192.168.100.194</span><span class="hl esc">\n</span><span class="hl str">&quot;</span> <span class="hl opt">.</span>
  <span class="hl str">&quot;10.0.0.2</span><span class="hl esc">\n</span><span class="hl str">&quot;</span>
<span class="hl opt">);</span>
					   <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
				       <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
					   <span class="hl kwb">$ip</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
				       <span class="hl opt">}</span>
				       <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$port</span> <span class="hl opt">!~</span> <span class="hl kwd">/\S/</span><span class="hl opt">) {</span>
					   <span class="hl kwb">$port</span> <span class="hl opt">=</span> <span class="hl str">&apos;631&apos;</span><span class="hl opt">;</span>
				       <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$port</span> <span class="hl opt">!~</span> <span class="hl kwd">/^\s*(\d+)\s*$/</span><span class="hl opt">) {</span>
					   <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;The port number should be an integer!&quot;</span><span class="hl opt">));</span>
					   <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">1</span><span class="hl opt">);</span>
				       <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
					   <span class="hl kwb">$port</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
				       <span class="hl opt">}</span>
				       <span class="hl kwb">$address</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$ip</span><span class="hl str">:</span><span class="hl ipl">$port</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
				       <span class="hl slc"># Check whether item is duplicate</span>
				       <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$address</span> <span class="hl kwc">ne</span> <span class="hl kwb">$oldaddress</span> <span class="hl opt">&amp;&amp;</span>
					   member<span class="hl opt">(</span><span class="hl kwb">$address,</span>
						  <span class="hl opt">&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>BrowsePoll<span class="hl opt">}})) {</span>
					   <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> 
							 N<span class="hl opt">(</span><span class="hl str">&quot;This server is already in the list, it cannot be added again.</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">));</span>
					   <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
				       <span class="hl opt">}</span>
				       <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
				   <span class="hl opt">},</span>
			       <span class="hl opt">},</span>
			   <span class="hl opt">},</span>
			     <span class="hl slc"># Ask for IP and port</span>
			     <span class="hl opt">[ {</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$ip,</span> 
				 label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;IP address&quot;</span><span class="hl opt">) },</span>
			       <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$port,</span> 
				 label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Port&quot;</span><span class="hl opt">) },</span>
			       <span class="hl opt">],</span>
			     <span class="hl opt">)) {</span>
			    <span class="hl slc"># OK was clicked, insert new item into the list</span>
			    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$buttonclicked</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;add&quot;</span><span class="hl opt">) {</span>
				<span class="hl kwc">push</span><span class="hl opt">(&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>BrowsePoll<span class="hl opt">}},</span>
				     <span class="hl kwb">$address</span><span class="hl opt">);</span>
			    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
				<span class="hl opt">&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>BrowsePoll<span class="hl opt">}} =</span>
				    <span class="hl kwc">map</span> <span class="hl opt">{ (</span><span class="hl kwb">$_</span> <span class="hl kwc">eq</span>
					  <span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>invhash<span class="hl opt">}{</span><span class="hl kwb">$choice</span><span class="hl opt">}</span> ?
					  <span class="hl kwb">$address</span> <span class="hl opt">:</span> <span class="hl kwb">$_</span><span class="hl opt">) }</span>
				        <span class="hl opt">&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>BrowsePoll<span class="hl opt">}};</span>
			    <span class="hl opt">}</span>
			    <span class="hl slc"># Refresh list of hosts</span>
			    <span class="hl kwb">$browsepoll</span> <span class="hl opt">=</span> 
			    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>makebrowsepolllist<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
			    <span class="hl slc"># Position the list cursor on the new/modified</span>
			    <span class="hl slc"># item</span>
			    <span class="hl kwb">$choice</span> <span class="hl opt">=</span> <span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>hash<span class="hl opt">}{</span><span class="hl kwb">$address</span><span class="hl opt">};</span>
			<span class="hl opt">}</span>
		    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$buttonclicked</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;remove&quot;</span><span class="hl opt">) {</span>
			<span class="hl opt">&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>BrowsePoll<span class="hl opt">}} =</span>
			    <span class="hl kwc">grep</span> <span class="hl opt">{</span> <span class="hl kwb">$_</span> <span class="hl kwc">ne</span> <span class="hl kwb">$browsepoll</span><span class="hl opt">-&gt;{</span>invhash<span class="hl opt">}{</span><span class="hl kwb">$choice</span><span class="hl opt">} }</span>
			    <span class="hl opt">&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>BrowsePoll<span class="hl opt">}};</span>
			<span class="hl slc"># Refresh list of hosts</span>
			<span class="hl kwb">$browsepoll</span> <span class="hl opt">=</span> 
			    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>makebrowsepolllist<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl slc"># We have clicked &quot;OK&quot;</span>
		<span class="hl kwb">$retvalue</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
		<span class="hl kwb">$maindone</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
		<span class="hl slc"># Write state for auto-correction of cupsd.conf</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$oldautocorr</span> <span class="hl opt">!=</span> 
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>autocorrection<span class="hl opt">}) {</span>
		    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>set_cups_autoconf
			<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>autocorrection<span class="hl opt">});</span>
		<span class="hl opt">}</span>
		<span class="hl slc"># Write state of japanese text printing mode</span>
		printer<span class="hl opt">::</span>main<span class="hl opt">::</span>set_jap_textmode<span class="hl opt">(</span><span class="hl kwb">$jap_textmode</span><span class="hl opt">);</span>
		<span class="hl slc"># Write cupsd.conf</span>
		printer<span class="hl opt">::</span>main<span class="hl opt">::</span>write_cups_config<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$w</span> <span class="hl opt">=</span> 
		    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
				      N<span class="hl opt">(</span><span class="hl str">&quot;Restarting CUPS...&quot;</span><span class="hl opt">));</span>
		printer<span class="hl opt">::</span>main<span class="hl opt">::</span>write_cupsd_conf
		    <span class="hl opt">(&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>cupsconfig<span class="hl opt">}{</span>cupsd_conf<span class="hl opt">}});</span>
		<span class="hl kwc">undef</span> <span class="hl kwb">$w</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl slc"># Cancel clicked</span>
	    <span class="hl kwb">$maindone</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>clean_cups_config<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
    <span class="hl kwa">return</span> <span class="hl kwb">$retvalue</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> choose_printer_type <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>str_type<span class="hl opt">} =</span> <span class="hl kwb">$printer_type_inv</span><span class="hl opt">{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>TYPE<span class="hl opt">}};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$autodetect</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwb">$autodetect</span> <span class="hl opt">=</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECT<span class="hl opt">};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;printertypes</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>printer_type<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span><span class="hl opt">(</span>
		   <span class="hl opt">{</span> title <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Select Printer Connection&quot;</span><span class="hl opt">),</span>
		     messages <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;How is the printer connected?&quot;</span><span class="hl opt">) .</span>
			 if_<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;cups&quot;</span><span class="hl opt">,</span>
			  N<span class="hl opt">(</span><span class="hl str">&quot;</span>
<span class="hl str">Printers on remote CUPS servers do not need to be configured here; these printers will be automatically detected.&quot;</span><span class="hl opt">)),</span>
		     <span class="hl opt">},</span>
		   <span class="hl opt">[</span>
		    <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>str_type<span class="hl opt">},</span>
		      list <span class="hl opt">=&gt;</span> \<span class="hl kwb">&#64;printertypes,</span> 
		      not_edit <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span> <span class="hl kwc">sort</span> <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span>
		      type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;list&apos;</span> <span class="hl opt">},</span>
		    <span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer auto-detection (Local, TCP/Socket, and SMB printers)&quot;</span><span class="hl opt">),</span>
		      type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;bool&apos;</span><span class="hl opt">,</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$autodetect</span> <span class="hl opt">}</span>
		    <span class="hl opt">]</span>
		   <span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECT<span class="hl opt">} =</span> <span class="hl kwb">$autodetect</span> ? <span class="hl num">1</span> <span class="hl opt">:</span> <span class="hl kwc">undef</span><span class="hl opt">;</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>TYPE<span class="hl opt">} =</span> <span class="hl kwb">$printer_type</span><span class="hl opt">{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>str_type<span class="hl opt">}};</span>
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_printer_connection <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl slc"># Choose the appropriate connection config dialog</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$done</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwa">for</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>TYPE<span class="hl opt">}) {</span>
	<span class="hl kwd">/LOCAL/</span>    <span class="hl kwc">and</span> setup_local_autoscan<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">)</span> <span class="hl kwc">and</span> <span class="hl kwa">last</span><span class="hl opt">;</span>
	<span class="hl kwd">/LPD/</span>      <span class="hl kwc">and</span> setup_lpd<span class="hl opt">(</span>      <span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">)</span> <span class="hl kwc">and</span> <span class="hl kwa">last</span><span class="hl opt">;</span>
	<span class="hl kwd">/SOCKET/</span>   <span class="hl kwc">and</span> setup_socket<span class="hl opt">(</span>   <span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">)</span> <span class="hl kwc">and</span> <span class="hl kwa">last</span><span class="hl opt">;</span>
	<span class="hl kwd">/SMB/</span>      <span class="hl kwc">and</span> setup_smb<span class="hl opt">(</span>      <span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">)</span> <span class="hl kwc">and</span> <span class="hl kwa">last</span><span class="hl opt">;</span>
	<span class="hl kwd">/NCP/</span>      <span class="hl kwc">and</span> setup_ncp<span class="hl opt">(</span>      <span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">)</span> <span class="hl kwc">and</span> <span class="hl kwa">last</span><span class="hl opt">;</span>
	<span class="hl kwd">/URI/</span>      <span class="hl kwc">and</span> setup_uri<span class="hl opt">(</span>      <span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">)</span> <span class="hl kwc">and</span> <span class="hl kwa">last</span><span class="hl opt">;</span>
	<span class="hl kwd">/POSTPIPE/</span> <span class="hl kwc">and</span> setup_postpipe<span class="hl opt">(</span> <span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">and</span> <span class="hl kwa">last</span><span class="hl opt">;</span>
	<span class="hl kwb">$done</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span> <span class="hl kwa">last</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> <span class="hl kwb">$done</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> first_time_dialog <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwa">return</span> <span class="hl num">1</span> <span class="hl kwa">if</span> printer<span class="hl opt">::</span><span class="hl kwa">default</span><span class="hl opt">::</span>get_spooler<span class="hl opt">() || $::</span>isInstall<span class="hl opt">;</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Checking your system...&quot;</span><span class="hl opt">));</span>

    <span class="hl slc"># Auto-detect local printers   </span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;autodetected</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>local_detect<span class="hl opt">();</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$msg</span> <span class="hl opt">=</span> <span class="hl kwa">do</span> <span class="hl opt">{</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">&#64;autodetected</span><span class="hl opt">) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">&#64;printerlist</span> <span class="hl opt">=</span> 
	      <span class="hl kwc">map</span> <span class="hl opt">{</span>
		  <span class="hl kwc">my</span> <span class="hl kwb">$entry</span> <span class="hl opt">=</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>DESCRIPTION<span class="hl opt">};</span>
		  if_<span class="hl opt">(</span><span class="hl kwb">$entry,</span> <span class="hl str">&quot;  -</span>  <span class="hl ipl">$entry\n</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
	      <span class="hl opt">}</span> <span class="hl kwb">&#64;autodetected</span><span class="hl opt">;</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$unknown_printers</span> <span class="hl opt">=</span> <span class="hl kwb">&#64;autodetected</span> <span class="hl opt">-</span> <span class="hl kwb">&#64;printerlist</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">&#64;printerlist</span><span class="hl opt">) {</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$unknown_msg</span> <span class="hl opt">=</span> 
		  <span class="hl kwb">$unknown_printers</span> <span class="hl opt">==</span> <span class="hl num">1</span> ? 
		    <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span> <span class="hl opt">.</span> N<span class="hl opt">(</span><span class="hl str">&quot;and one unknown printer&quot;</span><span class="hl opt">) :</span>
		  <span class="hl kwb">$unknown_printers</span> <span class="hl opt">&gt;</span> <span class="hl num">1</span> ?
		    <span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">&quot;</span> <span class="hl opt">.</span> N<span class="hl opt">(</span><span class="hl str">&quot;and</span> <span class="hl ipl">%d</span> <span class="hl str">unknown printers&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$unknown_printers</span><span class="hl opt">) :</span>
		    <span class="hl str">&apos;&apos;</span><span class="hl opt">;</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$main_msg</span> <span class="hl opt">=</span> 
		  <span class="hl kwb">&#64;printerlist</span> <span class="hl opt">&gt;</span> <span class="hl num">1</span> ?
		    N_<span class="hl opt">(</span><span class="hl str">&quot;The following printers</span><span class="hl esc">\n\n</span><span class="hl str"></span><span class="hl ipl">%s%s\nare</span> <span class="hl str">directly connected to your system&quot;</span><span class="hl opt">) :</span>
		  <span class="hl kwb">$unknown_printers</span> ?
		    N_<span class="hl opt">(</span><span class="hl str">&quot;The following printer</span><span class="hl esc">\n\n</span><span class="hl str"></span><span class="hl ipl">%s%s\nare</span> <span class="hl str">directly connected to your system&quot;</span><span class="hl opt">) :</span>
		    N_<span class="hl opt">(</span><span class="hl str">&quot;The following printer</span><span class="hl esc">\n\n</span><span class="hl str"></span><span class="hl ipl">%s%s\nis</span> <span class="hl str">directly connected to your system&quot;</span><span class="hl opt">);</span>
		<span class="hl kwc">sprintf</span><span class="hl opt">(</span><span class="hl kwb">$main_msg,</span> <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl kwb">&#64;printerlist</span><span class="hl opt">),</span> <span class="hl kwb">$unknown_msg</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwb">$unknown_printers</span> <span class="hl opt">==</span> <span class="hl num">1</span> ?
		  N<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">There is one unknown printer directly connected to your system&quot;</span><span class="hl opt">) :</span>
		  N<span class="hl opt">(</span><span class="hl str">&quot;</span><span class="hl esc">\n</span><span class="hl str">There are</span> <span class="hl ipl">%d</span> <span class="hl str">unknown printers directly connected to your system&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$unknown_printers</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    N<span class="hl opt">(</span><span class="hl str">&quot;There are no printers found which are directly connected to your machine&quot;</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
    <span class="hl opt">};</span>
    <span class="hl kwb">$msg</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot; (Make sure that all your printers are connected and turned on).</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">);</span>

    <span class="hl slc"># Do we have a local network?</span>

    <span class="hl slc"># If networking is configured, start it, but don&apos;t ask the user to</span>
    <span class="hl slc"># configure networking.</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$havelocalnetworks</span> <span class="hl opt">=</span> 
	 check_network<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork,</span> <span class="hl num">1</span><span class="hl opt">) &amp;&amp;</span> 
	  printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>getIPsInLocalNetworks<span class="hl opt">() != ();</span>

    <span class="hl slc"># Finish building the dialog text</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$question</span> <span class="hl opt">= (</span><span class="hl kwb">$havelocalnetworks</span> ?
		    <span class="hl opt">(</span><span class="hl kwb">&#64;autodetected</span> ?
		     N<span class="hl opt">(</span><span class="hl str">&quot;Do you want to enable printing on the printers mentioned above or on printers in the local network?</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">) :</span>
		     N<span class="hl opt">(</span><span class="hl str">&quot;Do you want to enable printing on printers in the local network?</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">)) :</span>
		    <span class="hl opt">(</span><span class="hl kwb">&#64;autodetected</span> ?
		     N<span class="hl opt">(</span><span class="hl str">&quot;Do you want to enable printing on the printers mentioned above?</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">) :</span>
		     N<span class="hl opt">(</span><span class="hl str">&quot;Are you sure that you want to set up printing on this machine?</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">)));</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$warning</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;NOTE: Depending on the printer model and the printing system up to</span> <span class="hl ipl">%d</span> <span class="hl str">MB of additional software will be installed.&quot;</span><span class="hl opt">,</span> <span class="hl num">80</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$dialogtext</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$msg\n$question\n$warning</span><span class="hl str">&quot;</span><span class="hl opt">;</span>

    <span class="hl slc"># Close wait message</span>
    <span class="hl kwc">undef</span> <span class="hl kwb">$w</span><span class="hl opt">;</span>

    <span class="hl slc"># Show dialog</span>
    <span class="hl kwa">return</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_yesorno</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span> <span class="hl kwb">$dialogtext,</span> <span class="hl num">0</span><span class="hl opt">);</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> configure_new_printers <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $_upNetwork</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc"># This procedure auto-detects local printers and checks whether</span>
    <span class="hl slc"># there is already a queue for them. If there is no queue for an</span>
    <span class="hl slc"># auto-detected printer, a queue gets set up non-interactively.</span>

    <span class="hl slc"># Experts can have weird things as self-made CUPS backends, so do not</span>
    <span class="hl slc"># automatically pollute the system with unwished queues in expert</span>
    <span class="hl slc"># mode</span>
    <span class="hl kwa">return</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">};</span>
    
    <span class="hl slc"># Wait message</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
			       N<span class="hl opt">(</span><span class="hl str">&quot;Searching for new printers...&quot;</span><span class="hl opt">));</span>

    <span class="hl slc"># When HPOJ is running, it blocks the printer ports on which it is</span>
    <span class="hl slc"># configured, so we stop it here. If it is not installed or not </span>
    <span class="hl slc"># configured, this command has no effect.</span>
    <span class="hl kwa">require</span> services<span class="hl opt">;</span>
    services<span class="hl opt">::</span>stop<span class="hl opt">(</span><span class="hl str">&quot;hpoj&quot;</span><span class="hl opt">);</span>

    <span class="hl slc"># Auto-detect local printers</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;autodetected</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>local_detect<span class="hl opt">();</span>

    <span class="hl slc"># We are ready with auto-detection, so we restart HPOJ here. If it </span>
    <span class="hl slc"># is not installed or not configured, this command has no effect.</span>
    services<span class="hl opt">::</span>start<span class="hl opt">(</span><span class="hl str">&quot;hpoj&quot;</span><span class="hl opt">);</span>

    <span class="hl slc"># No printer found? So no need of new queues.</span>
    <span class="hl kwa">return</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">&#64;autodetected</span><span class="hl opt">;</span>

    <span class="hl slc"># Black-list all auto-detected printers for which there is already</span>
    <span class="hl slc"># a queue</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;blacklist</span><span class="hl opt">;</span>
    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$queue</span> <span class="hl opt">(</span><span class="hl kwc">keys</span> <span class="hl opt">%{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}}) {</span>
	<span class="hl slc"># Does the URI of this installed queue match one of the autodetected</span>
	<span class="hl slc"># printers?</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$uri</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span>queuedata<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">};</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>autodetectionentry_for_uri
	    <span class="hl opt">(</span><span class="hl kwb">$uri, &#64;autodetected</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">defined</span><span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">)) {</span>
	    <span class="hl slc"># Blacklist the port</span>
	    <span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;blacklist, $p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">});</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl slc"># Now install queues for all auto-detected printers which have no queue</span>
    <span class="hl slc"># yet</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>noninteractive<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span> <span class="hl slc"># Suppress all interactive steps</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$configapps</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">(</span><span class="hl kwb">&#64;autodetected</span><span class="hl opt">) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!</span>member<span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">},</span> <span class="hl kwb">&#64;blacklist</span><span class="hl opt">)) {</span>
	    <span class="hl slc"># Initialize some variables for queue setup</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NEW<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>TYPE<span class="hl opt">} =</span> <span class="hl str">&quot;LOCAL&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">} = {</span> queue    <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
					 foomatic <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span>
					 desc     <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
					 loc      <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
					 make     <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
					 model    <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
					 printer  <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
					 driver   <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
					 <span class="hl kwc">connect</span>  <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
					 spooler  <span class="hl opt">=&gt;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">},</span>
				       <span class="hl opt">};</span>
	    <span class="hl slc"># Generate a queue name from manufacturer and model</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$queue</span><span class="hl opt">;</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$unknown</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>MANUFACTURER<span class="hl opt">} || !</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>MODEL<span class="hl opt">} ||</span>
		<span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>MODEL<span class="hl opt">}</span> <span class="hl kwc">eq</span> N<span class="hl opt">(</span><span class="hl str">&quot;Unknown Model&quot;</span><span class="hl opt">)) {</span>
		<span class="hl kwb">$queue</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer&quot;</span><span class="hl opt">);</span>
		<span class="hl kwb">$unknown</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$make</span> <span class="hl opt">=</span> <span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>MANUFACTURER<span class="hl opt">};</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>SKU<span class="hl opt">}) {</span>
		    <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$make</span> <span class="hl opt">.</span> <span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>SKU<span class="hl opt">};</span>
		<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		    <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$make</span> <span class="hl opt">.</span> <span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>MODEL<span class="hl opt">};</span>
		<span class="hl opt">}</span>
		<span class="hl kwb">$queue</span> <span class="hl opt">=~</span> <span class="hl kwd">s/series//gi</span><span class="hl opt">;</span>
		<span class="hl kwb">$queue</span> <span class="hl opt">=~</span> <span class="hl kwd">s/[\s\(\)\-,]//g</span><span class="hl opt">;</span>
		<span class="hl kwb">$queue</span> <span class="hl opt">=~</span> <span class="hl kwd">s/^$make$make/$make/</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl slc"># Append a number if the queue name already exists</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}) {</span>
		<span class="hl kwb">$queue</span> <span class="hl opt">=~</span> <span class="hl kwd">s/(\d)$/$1_/</span><span class="hl opt">;</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$i</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
		<span class="hl kwa">while</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl str">&quot;</span><span class="hl ipl">$queue$i</span><span class="hl str">&quot;</span><span class="hl opt">}) {</span>
		    <span class="hl kwb">$i++</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
		<span class="hl kwb">$queue</span> <span class="hl opt">.=</span> <span class="hl kwb">$i</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>queue<span class="hl opt">} =</span> <span class="hl kwb">$queue</span><span class="hl opt">;</span>
	    <span class="hl kwc">undef</span> <span class="hl kwb">$w</span><span class="hl opt">;</span>
	    <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
				    <span class="hl opt">(</span><span class="hl kwb">$unknown</span> ?
				     N<span class="hl opt">(</span><span class="hl str">&quot;Configuring printer ...&quot;</span><span class="hl opt">) :</span>
				     N<span class="hl opt">(</span><span class="hl str">&quot;Configuring printer</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span><span class="hl opt">...</span><span class="hl str">&quot;,</span>
<span class="hl str"></span>				       <span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{queue})));</span>
<span class="hl str">	    # Do configuration of multi-function devices and look up</span>
<span class="hl str">	    # model name in the printer database</span>
<span class="hl str">	    setup_common(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$p</span><span class="hl str">-&gt;{val}{DESCRIPTION},</span> <span class="hl ipl">$p</span><span class="hl str">-&gt;{port},</span>
<span class="hl str">			 1,</span> <span class="hl ipl">&#64;autodetected</span><span class="hl str">) or next;</span>
<span class="hl str">	    # Set also OLD_QUEUE field so that the subroutines for the</span>
<span class="hl str">	    # configuration work correctly.</span>
<span class="hl str"></span>	    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{OLD_QUEUE} =</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{QUEUE} =</span>
<span class="hl str"></span>		<span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{queue};</span>
<span class="hl str">	    # Do the steps of queue setup</span>
<span class="hl str">	    get_db_entry(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">);</span>
<span class="hl str">	    # Let the user choose the model manually if it could not be</span>
<span class="hl str">	    # auto-detected.</span>
<span class="hl str">	    if (!</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY}) {</span>
<span class="hl str">		# Set the OLD_CHOICE to a non-existing value</span>
<span class="hl str"></span>		<span class="hl ipl">$printer</span><span class="hl str">-&gt;{OLD_CHOICE} = &quot;</span>XXX<span class="hl str">&quot;;</span>
<span class="hl str">		# Set model selection cursor onto the &quot;</span>Raw Printer<span class="hl str">&quot; entry.</span>
<span class="hl str"></span>		<span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} = N(&quot;</span>Raw printer <span class="hl opt">(</span>No driver<span class="hl opt">)</span><span class="hl str">&quot;);</span>
<span class="hl str">		# Info about what was detected</span>
<span class="hl str">		my</span> <span class="hl ipl">$info</span> <span class="hl str">= N(&quot;</span><span class="hl opt">(</span><span class="hl str">&quot;) . if_(</span><span class="hl ipl">$p</span><span class="hl str">-&gt;{val}{DESCRIPTION},</span>
<span class="hl str"></span>					<span class="hl ipl">$p</span><span class="hl str">-&gt;{val}{DESCRIPTION} . N(&quot;</span> on <span class="hl str">&quot;)) .</span>
<span class="hl str"></span>					<span class="hl ipl">$p</span><span class="hl str">-&gt;{port} . N(&quot;</span><span class="hl opt">)</span><span class="hl str">&quot;);</span>
<span class="hl str">		# Remove wait message</span>
<span class="hl str">		undef</span> <span class="hl ipl">$w</span><span class="hl str">;</span>
<span class="hl str">		# Choose the printer/driver from the list</span>
<span class="hl str"></span>		<span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} = </span>
<span class="hl str"></span>		    <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_from_treelist(N(&quot;</span>Printer model selection<span class="hl str">&quot;),</span>
<span class="hl str">					   N(&quot;</span>Which printer model <span class="hl kwa">do</span> you have?<span class="hl str">&quot;) .</span>
<span class="hl str">					   N(&quot;</span>

Printerdrake could <span class="hl kwc">not</span> determine which model your printer <span class="hl kwb">%s</span> <span class="hl kwa">is</span><span class="hl opt">.</span> Please choose the correct model from the list<span class="hl opt">.</span><span class="hl str">&quot;,</span> <span class="hl ipl">$info</span><span class="hl str">) . &quot;</span> <span class="hl str">&quot; .</span>
<span class="hl str">					   N(&quot;</span>If your printer <span class="hl kwa">is</span> <span class="hl kwc">not</span> listed<span class="hl opt">,</span> choose a compatible <span class="hl opt">(</span>see printer manual<span class="hl opt">)</span> <span class="hl kwc">or</span> a similar one<span class="hl opt">.</span><span class="hl str">&quot;), &apos;|&apos;,</span>
<span class="hl str">					   [ keys</span> <span class="hl ipl">%printer</span><span class="hl str">::main::thedb ],</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY}) or next;</span>
<span class="hl str">		if (</span><span class="hl ipl">$unknown</span><span class="hl str">) {</span>
<span class="hl str">		    # Rename the queue according to the chosen model</span>
<span class="hl str"></span>		    <span class="hl ipl">$queue</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY};</span>
<span class="hl str"></span>		    <span class="hl ipl">$queue</span> <span class="hl str">=~ s/\|/ /g;</span>
<span class="hl str"></span>		    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{desc} =</span> <span class="hl ipl">$queue</span><span class="hl str">;</span>
<span class="hl str"></span>		    <span class="hl ipl">$queue</span> <span class="hl str">=~ s/series//gi;</span>
<span class="hl str"></span>		    <span class="hl ipl">$queue</span> <span class="hl str">=~ s/[\s\(\)\-,]//g;</span>
<span class="hl str">		    # Append a number if the queue name already exists</span>
<span class="hl str">		    if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}) {</span>
<span class="hl str"></span>			<span class="hl ipl">$queue</span> <span class="hl str">=~ s/(\d)$/$1_/;</span>
<span class="hl str">			my</span> <span class="hl ipl">$i</span> <span class="hl str">= 1;</span>
<span class="hl str">			while (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{&quot;</span><span class="hl kwb">$queue$i</span><span class="hl str">&quot;}) {</span>
<span class="hl str"></span>			    <span class="hl ipl">$i++</span><span class="hl str">;</span>
<span class="hl str">			}</span>
<span class="hl str"></span>			<span class="hl ipl">$queue</span> <span class="hl str">.=</span> <span class="hl ipl">$i</span><span class="hl str">;</span>
<span class="hl str">		    }</span>
<span class="hl str"></span>		    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{queue} =</span> <span class="hl ipl">$queue</span><span class="hl str">;</span>
<span class="hl str"></span>		    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{QUEUE} =</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{queue};</span>
<span class="hl str">		}</span>
<span class="hl str">		# Restore wait message</span>
<span class="hl str"></span>		<span class="hl ipl">$w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(N(&quot;</span>Printerdrake<span class="hl str">&quot;),</span>
<span class="hl str">					N(&quot;</span>Configuring printer <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot;...&quot;</span><span class="hl opt">,</span>
					  <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>queue<span class="hl opt">}));</span>
	    <span class="hl opt">}</span>
	    get_printer_info<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">next</span><span class="hl opt">;</span>
	    setup_options<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">next</span><span class="hl opt">;</span>
	    configure_queue<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">next</span><span class="hl opt">;</span>
	    <span class="hl kwb">$configapps</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
	    <span class="hl slc"># If there is no default printer set, let this one get the</span>
	    <span class="hl slc"># default</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">}) {</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">} =</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>QUEUE<span class="hl opt">};</span>
		printer<span class="hl opt">::</span><span class="hl kwa">default</span><span class="hl opt">::</span>set_printer<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Delete some variables</span>
	<span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl str">qw(OLD_QUEUE QUEUE TYPE str_type DBENTRY ARGS OLD_CHOICE)</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} =</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">} = {};</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>complete<span class="hl opt">} =</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl slc"># Configure the current printer queues in applications</span>
    <span class="hl kwc">undef</span> <span class="hl kwb">$w</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$configapps</span><span class="hl opt">) {</span>
	<span class="hl kwb">$w</span> <span class="hl opt">=</span>
	    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
			      N<span class="hl opt">(</span><span class="hl str">&quot;Configuring applications...&quot;</span><span class="hl opt">));</span>
	printer<span class="hl opt">::</span>main<span class="hl opt">::</span>configureapplications<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	<span class="hl kwc">undef</span> <span class="hl kwb">$w</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">undef</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>noninteractive<span class="hl opt">};</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> wizard_welcome <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$ret</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$autodetectlocal</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$autodetectnetwork</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$autodetectsmb</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl slc"># If networking is configured, start it, but don&apos;t ask the user to</span>
    <span class="hl slc"># configure networking.</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$havelocalnetworks</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">}) {</span>
	<span class="hl kwb">$havelocalnetworks</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl kwc">undef</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTNETWORK<span class="hl opt">};</span>
	<span class="hl kwc">undef</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTSMB<span class="hl opt">};</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$havelocalnetworks</span> <span class="hl opt">=</span> check_network<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork,</span> <span class="hl num">1</span><span class="hl opt">) &amp;&amp;</span>
			      printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>getIPsInLocalNetworks<span class="hl opt">() != ();</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$havelocalnetworks</span><span class="hl opt">) {</span>
	    <span class="hl kwc">undef</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTNETWORK<span class="hl opt">};</span>
	    <span class="hl kwc">undef</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTSMB<span class="hl opt">};</span>
	<span class="hl opt">}</span>
	<span class="hl kwb">$autodetectlocal</span> <span class="hl opt">=</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTLOCAL<span class="hl opt">};</span>
	<span class="hl kwb">$autodetectnetwork</span> <span class="hl opt">=</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTNETWORK<span class="hl opt">};</span>
	<span class="hl kwb">$autodetectsmb</span> <span class="hl opt">=</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTSMB<span class="hl opt">};</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">) {</span>
	<span class="hl kwc">eval</span> <span class="hl opt">{</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">}) {</span>
		<span class="hl kwa">if</span> <span class="hl opt">($::</span>isWizard<span class="hl opt">) {</span>
		    <span class="hl kwb">$ret</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_okcancel</span><span class="hl opt">(</span>
			 N<span class="hl opt">(</span><span class="hl str">&quot;Add a new printer&quot;</span><span class="hl opt">),</span>
			 N<span class="hl opt">(</span><span class="hl str">&quot;</span>
<span class="hl str">Welcome to the Printer Setup Wizard</span>
<span class="hl str"></span>
<span class="hl str">This wizard allows you to install local or remote printers to be used from this machine and also from other machines in the network.</span>
<span class="hl str"></span>
<span class="hl str">It asks you for all necessary information to set up the printer and gives you access to all available printer drivers, driver options, and printer connection types.&quot;</span><span class="hl opt">));</span>
		<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		    <span class="hl kwb">$ret</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwb">$ret</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span><span class="hl opt">(</span>
		     <span class="hl opt">{</span> title <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Add a new printer&quot;</span><span class="hl opt">),</span>
		       messages <span class="hl opt">=&gt; (</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;pdq&quot;</span> ? 
				   <span class="hl opt">(</span><span class="hl kwb">$havelocalnetworks</span> ? N<span class="hl opt">(</span><span class="hl str">&quot;</span>
<span class="hl str">Welcome to the Printer Setup Wizard</span>
<span class="hl str"></span>
<span class="hl str">This wizard will help you to install your printer(s) connected to this computer, connected directly to the network or to a remote Windows machine.</span>
<span class="hl str"></span>
<span class="hl str">Please plug in and turn on all printers connected to this machine so that it/they can be auto-detected. Also your network printer(s) and your Windows machines must be connected and turned on.</span>
<span class="hl str"></span>
<span class="hl str">Note that auto-detecting printers on the network takes longer than the auto-detection of only the printers connected to this machine. So turn off the auto-detection of network and/or Windows-hosted printers when you don&apos;t need it.</span>
<span class="hl str"></span>
<span class="hl str"> Click on</span> <span class="hl esc">\&quot;</span><span class="hl str">Next</span><span class="hl esc">\&quot;</span> <span class="hl str">when you are ready, and on</span> <span class="hl esc">\&quot;</span><span class="hl str">Cancel</span><span class="hl esc">\&quot;</span> <span class="hl str">if you do not want to set up your printer(s) now.&quot;</span><span class="hl opt">) :</span> N<span class="hl opt">(</span><span class="hl str">&quot;</span>
<span class="hl str">Welcome to the Printer Setup Wizard</span>
<span class="hl str"></span>
<span class="hl str">This wizard will help you to install your printer(s) connected to this computer.</span>
<span class="hl str"></span>
<span class="hl str">Please plug in and turn on all printers connected to this machine so that it/they can be auto-detected.</span>
<span class="hl str"></span>
<span class="hl str"> Click on</span> <span class="hl esc">\&quot;</span><span class="hl str">Next</span><span class="hl esc">\&quot;</span> <span class="hl str">when you are ready, and on</span> <span class="hl esc">\&quot;</span><span class="hl str">Cancel</span><span class="hl esc">\&quot;</span> <span class="hl str">if you do not want to set up your printer(s) now.&quot;</span><span class="hl opt">)) :</span> 
				   <span class="hl opt">(</span><span class="hl kwb">$havelocalnetworks</span> ? N<span class="hl opt">(</span><span class="hl str">&quot;</span>
<span class="hl str">Welcome to the Printer Setup Wizard</span>
<span class="hl str"></span>
<span class="hl str">This wizard will help you to install your printer(s) connected to this computer or connected directly to the network.</span>
<span class="hl str"></span>
<span class="hl str">If you have printer(s) connected to this machine, Please plug it/them in on this computer and turn it/them on so that it/they can be auto-detected. Also your network printer(s) must be connected and turned on.</span>
<span class="hl str"></span>
<span class="hl str">Note that auto-detecting printers on the network takes longer than the auto-detection of only the printers connected to this machine. So turn off the auto-detection of network printers when you don&apos;t need it.</span>
<span class="hl str"></span>
<span class="hl str"> Click on</span> <span class="hl esc">\&quot;</span><span class="hl str">Next</span><span class="hl esc">\&quot;</span> <span class="hl str">when you are ready, and on</span> <span class="hl esc">\&quot;</span><span class="hl str">Cancel</span><span class="hl esc">\&quot;</span> <span class="hl str">if you do not want to set up your printer(s) now.&quot;</span><span class="hl opt">) :</span> N<span class="hl opt">(</span><span class="hl str">&quot;</span>
<span class="hl str">Welcome to the Printer Setup Wizard</span>
<span class="hl str"></span>
<span class="hl str">This wizard will help you to install your printer(s) connected to this computer.</span>
<span class="hl str"></span>
<span class="hl str">If you have printer(s) connected to this machine, Please plug it/them in on this computer and turn it/them on so that it/they can be auto-detected.</span>
<span class="hl str"></span>
<span class="hl str"> Click on</span> <span class="hl esc">\&quot;</span><span class="hl str">Next</span><span class="hl esc">\&quot;</span> <span class="hl str">when you are ready, and on</span> <span class="hl esc">\&quot;</span><span class="hl str">Cancel</span><span class="hl esc">\&quot;</span> <span class="hl str">if you do not want to set up your printer(s) now.&quot;</span><span class="hl opt">))) },</span>
		     <span class="hl opt">[</span>
		      <span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Auto-detect printers connected to this machine&quot;</span><span class="hl opt">),</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;bool&apos;</span><span class="hl opt">,</span>
			val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$autodetectlocal</span> <span class="hl opt">},</span>
		           if_<span class="hl opt">(</span><span class="hl kwb">$havelocalnetworks,</span>
		      <span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Auto-detect printers connected directly to the local network&quot;</span><span class="hl opt">),</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;bool&apos;</span><span class="hl opt">,</span>
			val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$autodetectnetwork</span> <span class="hl opt">},</span>
			   if_<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;pdq&quot;</span><span class="hl opt">,</span>
		      <span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Auto-detect printers connected to machines running Microsoft Windows&quot;</span><span class="hl opt">),</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;bool&apos;</span><span class="hl opt">,</span>
			val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$autodetectsmb</span> <span class="hl opt">})),</span>
		      <span class="hl opt">]);</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTLOCAL<span class="hl opt">} =</span> <span class="hl kwb">$autodetectlocal</span> ? <span class="hl num">1</span> <span class="hl opt">:</span> <span class="hl kwc">undef</span><span class="hl opt">;</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTNETWORK<span class="hl opt">} =</span> <span class="hl kwb">$autodetectnetwork</span> ? <span class="hl num">1</span> <span class="hl opt">:</span> <span class="hl kwc">undef</span><span class="hl opt">;</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTSMB<span class="hl opt">} =</span> <span class="hl kwb">$autodetectsmb</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;pdq&quot;</span> ? <span class="hl num">1</span> <span class="hl opt">:</span> <span class="hl kwc">undef</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">};</span>
	<span class="hl kwa">return</span> <span class="hl kwb">$&#64;</span> <span class="hl opt">=~</span> <span class="hl kwd">/wizcancel/</span> ? <span class="hl num">0</span> <span class="hl opt">:</span> <span class="hl kwb">$ret</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> wizard_congratulations <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_okcancel</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Add a new printer&quot;</span><span class="hl opt">),</span>
			  N<span class="hl opt">(</span><span class="hl str">&quot;</span>
<span class="hl str">Congratulations, your printer is now installed and configured!</span>
<span class="hl str"></span>
<span class="hl str">You can print using the</span> <span class="hl esc">\&quot;</span><span class="hl str">Print</span><span class="hl esc">\&quot;</span> <span class="hl str">command of your application (usually in the</span> <span class="hl esc">\&quot;</span><span class="hl str">File</span><span class="hl esc">\&quot;</span> <span class="hl str">menu).</span>
<span class="hl str"></span>
<span class="hl str">If you want to add, remove, or rename a printer, or if you want to change the default option settings (paper input tray, printout quality, ...), select</span> <span class="hl esc">\&quot;</span><span class="hl str">Printer</span><span class="hl esc">\&quot;</span> <span class="hl str">in the</span> <span class="hl esc">\&quot;</span><span class="hl str">Hardware</span><span class="hl esc">\&quot;</span> <span class="hl str">section of the Mandrake Control Center.&quot;</span><span class="hl opt">))</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_local_autoscan <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>OLD_QUEUE<span class="hl opt">};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$expert_or_modify</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">} || !</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NEW<span class="hl opt">};</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$do_auto_detect</span> <span class="hl opt">=</span> 
	<span class="hl opt">(</span><span class="hl kwb">$expert_or_modify</span> <span class="hl opt">&amp;&amp;</span>
	  <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECT<span class="hl opt">} ||</span>
	 <span class="hl opt">(!</span><span class="hl kwb">$expert_or_modify</span> <span class="hl opt">&amp;&amp;</span>
	  <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTLOCAL<span class="hl opt">} ||</span>
	   <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTNETWORK<span class="hl opt">} ||</span>
	   <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTSMB<span class="hl opt">})));</span>

    <span class="hl slc"># If the user requested auto-detection of remote printers, check</span>
    <span class="hl slc"># whether the network functionality is configured and running</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTNETWORK<span class="hl opt">} ||</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTSMB<span class="hl opt">}) {</span>
	<span class="hl kwa">return</span> <span class="hl num">0</span> <span class="hl kwa">unless</span> check_network<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork,</span> <span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl kwc">my</span> <span class="hl kwb">&#64;autodetected</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$menuentries</span> <span class="hl opt">= {};</span>
<span class="hl slc">#    $in-&gt;set_help(&apos;setupLocal&apos;) if $::isInstall;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$do_auto_detect</span><span class="hl opt">) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!$::</span>testing <span class="hl opt">&amp;&amp;</span>
	    <span class="hl opt">!</span><span class="hl kwb">$expert_or_modify</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTSMB<span class="hl opt">} &amp;&amp; !</span>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/smbclient&apos;</span><span class="hl opt">)) {</span>
	    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;samba-client&apos;</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$_w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printer auto-detection&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Detecting devices...&quot;</span><span class="hl opt">));</span>
	<span class="hl slc"># When HPOJ is running, it blocks the printer ports on which it is</span>
	<span class="hl slc"># configured, so we stop it here. If it is not installed or not </span>
	<span class="hl slc"># configured, this command has no effect.</span>
	<span class="hl kwa">require</span> services<span class="hl opt">;</span>
	services<span class="hl opt">::</span>stop<span class="hl opt">(</span><span class="hl str">&quot;hpoj&quot;</span><span class="hl opt">);</span>
	<span class="hl kwb">&#64;autodetected</span> <span class="hl opt">= (</span>
	    <span class="hl kwb">$expert_or_modify</span> <span class="hl opt">||</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTLOCAL<span class="hl opt">}</span> ? printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>local_detect<span class="hl opt">() : (),</span>
	    <span class="hl opt">!</span><span class="hl kwb">$expert_or_modify</span> ? printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>whatNetPrinter<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTNETWORK<span class="hl opt">},</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTSMB<span class="hl opt">}) : (),</span>
        <span class="hl opt">);</span>
	<span class="hl slc"># We have more than one printer, so we must ask the user for a queue</span>
	<span class="hl slc"># name in the fully automatic printer configuration.</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MORETHANONE<span class="hl opt">} =</span> <span class="hl kwb">$#autodetected</span> <span class="hl opt">&gt;</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;str</span><span class="hl opt">;</span>
	<span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">(</span><span class="hl kwb">&#64;autodetected</span><span class="hl opt">) {</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>DESCRIPTION<span class="hl opt">}) {</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$menustr</span> <span class="hl opt">=</span> <span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>DESCRIPTION<span class="hl opt">};</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">} =~</span> <span class="hl kwd">m!^/dev/lp(\d+)$!</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot; on parallel port #</span><span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$1</span><span class="hl opt">);</span>
		<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">} =~</span> <span class="hl kwd">m!^/dev/usb/lp(\d+)$!</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;, USB printer #</span><span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$1</span><span class="hl opt">);</span>
		<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">} =~</span> <span class="hl kwd">m!^socket://([^:]+):(\d+)$!</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;, network printer</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span><span class="hl opt">,</span> port <span class="hl kwb">%s</span><span class="hl str">&quot;,</span> <span class="hl ipl">$1,</span> <span class="hl str"></span><span class="hl ipl">$2</span><span class="hl str">);</span>
<span class="hl str">		} elsif (</span><span class="hl ipl">$p</span><span class="hl str">-&gt;{port} =~ m!^smb://([^/:]+)/([^/:]+)$!) {</span>
<span class="hl str"></span>		    <span class="hl ipl">$menustr</span> <span class="hl str">.= N(&quot;</span><span class="hl opt">,</span> printer <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot; on SMB/Windows server</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span><span class="hl str">&quot;,</span> <span class="hl ipl">$2,</span> <span class="hl str"></span><span class="hl ipl">$1</span><span class="hl str">);</span>
<span class="hl str">		}</span>
<span class="hl str"></span>		<span class="hl ipl">$menustr</span> <span class="hl str">.= &quot;</span> <span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">})</span><span class="hl str">&quot; if</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{expert};</span>
<span class="hl str"></span>		<span class="hl ipl">$menuentries</span><span class="hl str">-&gt;{</span><span class="hl ipl">$menustr</span><span class="hl str">} =</span> <span class="hl ipl">$p</span><span class="hl str">-&gt;{port};</span>
<span class="hl str">		push</span> <span class="hl ipl">&#64;str,</span> <span class="hl str">N(&quot;</span>Detected <span class="hl kwb">%s</span><span class="hl str">&quot;,</span> <span class="hl ipl">$menustr</span><span class="hl str">);</span>
<span class="hl str">	    } else {</span>
<span class="hl str">		my</span> <span class="hl ipl">$menustr</span><span class="hl str">;</span>
<span class="hl str">		if (</span><span class="hl ipl">$p</span><span class="hl str">-&gt;{port} =~ m!^/dev/lp(\d+)$!) {</span>
<span class="hl str"></span>		    <span class="hl ipl">$menustr</span> <span class="hl str">= N(&quot;</span>Printer on parallel port <span class="hl slc">#%s&quot;, $1);</span>
		<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">} =~</span> <span class="hl kwd">m!^/dev/usb/lp(\d+)$!</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$menustr</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;USB printer #</span><span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$1</span><span class="hl opt">);</span>
		<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">} =~</span> <span class="hl kwd">m!^socket://([^:]+):(\d+)$!</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Network printer</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span><span class="hl opt">,</span> port <span class="hl kwb">%s</span><span class="hl str">&quot;,</span> <span class="hl ipl">$1,</span> <span class="hl str"></span><span class="hl ipl">$2</span><span class="hl str">);</span>
<span class="hl str">		} elsif (</span><span class="hl ipl">$p</span><span class="hl str">-&gt;{port} =~ m!^smb://([^/:]+)/([^/:]+)$!) {</span>
<span class="hl str"></span>		    <span class="hl ipl">$menustr</span> <span class="hl str">.= N(&quot;</span>Printer <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot; on SMB/Windows server</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span><span class="hl str">&quot;,</span> <span class="hl ipl">$2,</span> <span class="hl str"></span><span class="hl ipl">$1</span><span class="hl str">);</span>
<span class="hl str">		}</span>
<span class="hl str"></span>		<span class="hl ipl">$menustr</span> <span class="hl str">.= &quot;</span> <span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">})</span><span class="hl str">&quot; if</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{expert};</span>
<span class="hl str"></span>		<span class="hl ipl">$menuentries</span><span class="hl str">-&gt;{</span><span class="hl ipl">$menustr</span><span class="hl str">} =</span> <span class="hl ipl">$p</span><span class="hl str">-&gt;{port};</span>
<span class="hl str">	    }</span>
<span class="hl str">	}</span>
<span class="hl str">	my</span> <span class="hl ipl">&#64;port</span><span class="hl str">;</span>
<span class="hl str">	if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{expert}) {</span>
<span class="hl str"></span>	    <span class="hl ipl">&#64;port</span> <span class="hl str">= printer::detect::whatPrinterPort();</span>
<span class="hl str">	  LOOP: foreach my</span> <span class="hl ipl">$q</span> <span class="hl str">(</span><span class="hl ipl">&#64;port</span><span class="hl str">) {</span>
<span class="hl str">		if (</span><span class="hl ipl">&#64;str</span><span class="hl str">) {</span>
<span class="hl str">		    foreach my</span> <span class="hl ipl">$p</span> <span class="hl str">(</span><span class="hl ipl">&#64;autodetected</span><span class="hl str">) {</span>
<span class="hl str">			last LOOP if</span> <span class="hl ipl">$p</span><span class="hl str">-&gt;{port} eq</span> <span class="hl ipl">$q</span><span class="hl str">;</span>
<span class="hl str">		    }</span>
<span class="hl str">		}</span>
<span class="hl str">		my</span> <span class="hl ipl">$menustr</span><span class="hl str">;</span>
<span class="hl str">		if (</span><span class="hl ipl">$q</span> <span class="hl str">=~ m!^/dev/lp(\d+)$!) {</span>
<span class="hl str"></span>		    <span class="hl ipl">$menustr</span> <span class="hl str">= N(&quot;</span>Printer on parallel port <span class="hl slc">#%s&quot;, $1);</span>
		<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$q</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^/dev/usb/lp(\d+)$!</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$menustr</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;USB printer #</span><span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$1</span><span class="hl opt">);</span>
		<span class="hl opt">}</span>
		<span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> <span class="hl str">&quot; (</span><span class="hl ipl">$q</span><span class="hl str">)&quot;</span> <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">};</span>
		<span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$menustr</span><span class="hl opt">} =</span> <span class="hl kwb">$q</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># We are ready with auto-detection, so we restart HPOJ here. If it </span>
	<span class="hl slc"># is not installed or not configured, this command has no effect.</span>
	printer<span class="hl opt">::</span>services<span class="hl opt">::</span>start<span class="hl opt">(</span><span class="hl str">&quot;hpoj&quot;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl slc"># Always ask for queue name in recommended mode when no auto-</span>
	<span class="hl slc"># detection was done</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MORETHANONE<span class="hl opt">} =</span> <span class="hl kwb">$#autodetected</span> <span class="hl opt">&gt;</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$m</span><span class="hl opt">;</span>
	<span class="hl kwa">for</span> <span class="hl opt">(</span><span class="hl kwb">$m</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span> <span class="hl kwb">$m</span> <span class="hl opt">&lt;=</span> <span class="hl num">2</span><span class="hl opt">;</span> <span class="hl kwb">$m++</span><span class="hl opt">) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$menustr</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer on parallel port #</span><span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$m</span><span class="hl opt">);</span>
	    <span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> <span class="hl str">&quot; (/dev/lp</span><span class="hl ipl">$m</span><span class="hl str">)&quot;</span> <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">};</span>
	    <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$menustr</span><span class="hl opt">} =</span> <span class="hl str">&quot;/dev/lp</span><span class="hl ipl">$m</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwb">$menustr</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;USB printer #</span><span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$m</span><span class="hl opt">);</span>
	    <span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> <span class="hl str">&quot; (/dev/usb/lp</span><span class="hl ipl">$m</span><span class="hl str">)&quot;</span> <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">};</span>
	    <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$menustr</span><span class="hl opt">} =</span> <span class="hl str">&quot;/dev/usb/lp</span><span class="hl ipl">$m</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;menuentrieslist</span> <span class="hl opt">=</span> <span class="hl kwc">sort</span> <span class="hl opt">{</span> 
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;prefixes</span> <span class="hl opt">= (</span><span class="hl str">&quot;/dev/lp&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/dev/usb/lp&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;/dev/&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;socket:&quot;</span><span class="hl opt">,</span> 
			<span class="hl str">&quot;smb:&quot;</span><span class="hl opt">);</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$first</span> <span class="hl opt">=</span> <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$a</span><span class="hl opt">};</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$second</span> <span class="hl opt">=</span> <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$b</span><span class="hl opt">};</span>
	<span class="hl kwa">for</span> <span class="hl opt">(</span><span class="hl kwc">my</span> <span class="hl kwb">$i</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span> <span class="hl kwb">$i</span> <span class="hl opt">&lt;=</span> <span class="hl kwb">$#prefixes</span><span class="hl opt">;</span> <span class="hl kwb">$i++</span><span class="hl opt">) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$firstinlist</span> <span class="hl opt">=</span> <span class="hl kwb">$first</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^$prefixes[$i]!</span><span class="hl opt">;</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$secondinlist</span> <span class="hl opt">=</span> <span class="hl kwb">$second</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^$prefixes[$i]!</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$firstinlist</span> <span class="hl opt">&amp;&amp; !</span><span class="hl kwb">$secondinlist</span><span class="hl opt">) {</span> <span class="hl kwa">return</span> <span class="hl opt">-</span><span class="hl num">1</span> <span class="hl opt">};</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$secondinlist</span> <span class="hl opt">&amp;&amp; !</span><span class="hl kwb">$firstinlist</span><span class="hl opt">) {</span> <span class="hl kwa">return</span> <span class="hl num">1</span> <span class="hl opt">};</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">return</span> <span class="hl kwb">$first</span> <span class="hl kwc">cmp</span> <span class="hl kwb">$second</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwc">keys</span><span class="hl opt">(</span><span class="hl kwb">%$menuentries</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$oldmenuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$device</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>autodetectionentry_for_uri
	    <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">},</span> <span class="hl kwb">&#64;autodetected</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">defined</span><span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">)) {</span>
	    <span class="hl kwb">$device</span> <span class="hl opt">=</span> <span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">};</span>
	    <span class="hl kwb">$menuchoice</span> <span class="hl opt">= {</span> <span class="hl kwc">reverse</span> <span class="hl kwb">%$menuentries</span> <span class="hl opt">}-&gt;{</span><span class="hl kwb">$device</span><span class="hl opt">};</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$menuchoice</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;&quot;</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">&#64;menuentrieslist</span> <span class="hl opt">&gt; -</span><span class="hl num">1</span><span class="hl opt">) {</span>
	<span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$menuentrieslist</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">];</span>
	<span class="hl kwb">$oldmenuchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">;</span>
	<span class="hl kwb">$device</span> <span class="hl opt">=</span> <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$menuchoice</span><span class="hl opt">}</span> <span class="hl kwa">if</span> <span class="hl kwb">$device</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">) {</span>
<span class="hl slc">#	$printer-&gt;{expert} or $in-&gt;set_help(&apos;configurePrinterDev&apos;) if $::isInstall;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$#menuentrieslist</span> <span class="hl opt">&lt;</span> <span class="hl num">0</span><span class="hl opt">) {</span> <span class="hl slc"># No menu entry</span>
	    <span class="hl slc"># auto-detection has failed, we must do all manually</span>
	    <span class="hl kwb">$do_auto_detect</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">}) {</span>
		<span class="hl kwb">$device</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_entry</span><span class="hl opt">(</span>
		     N<span class="hl opt">(</span><span class="hl str">&quot;Local Printer&quot;</span><span class="hl opt">),</span>
		     N<span class="hl opt">(</span><span class="hl str">&quot;No local printer found! To manually install a printer enter a device name/file name in the input line (Parallel Ports: /dev/lp0, /dev/lp1, ..., equivalent to LPT1:, LPT2:, ..., 1st USB printer: /dev/usb/lp0, 2nd USB printer: /dev/usb/lp1, ...).&quot;</span><span class="hl opt">),</span>
		     <span class="hl opt">{</span> 
			 complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
			     <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$menuchoice</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
				 <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;You must enter a device or file name!&quot;</span><span class="hl opt">));</span>
				 <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
			     <span class="hl opt">}</span>
			     <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
			 <span class="hl opt">}</span>
		     <span class="hl opt">});</span>
		<span class="hl kwa">return</span> <span class="hl num">0</span> <span class="hl kwa">if</span> <span class="hl kwb">$device</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printer auto-detection&quot;</span><span class="hl opt">),</span>
			      N<span class="hl opt">(</span><span class="hl str">&quot;No printer found!&quot;</span><span class="hl opt">));</span>
		<span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$manualconf</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	    <span class="hl kwb">$manualconf</span> <span class="hl opt">=</span> <span class="hl num">1</span> <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">} || !</span><span class="hl kwb">$do_auto_detect</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span><span class="hl opt">(</span>
		 <span class="hl opt">{</span> title <span class="hl opt">=&gt; (</span><span class="hl kwb">$expert_or_modify</span> ?
			     N<span class="hl opt">(</span><span class="hl str">&quot;Local Printers&quot;</span><span class="hl opt">) :</span>
			     N<span class="hl opt">(</span><span class="hl str">&quot;Available printers&quot;</span><span class="hl opt">)),</span>
		   messages <span class="hl opt">=&gt; ((</span><span class="hl kwb">$do_auto_detect</span> ?
				 <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">}</span> ?
				  <span class="hl opt">(</span><span class="hl kwb">$#menuentrieslist</span> <span class="hl opt">==</span> <span class="hl num">0</span> ?
				   <span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;The following printer was auto-detected. &quot;</span><span class="hl opt">) .</span>
				    <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NEW<span class="hl opt">}</span> ?
				     N<span class="hl opt">(</span><span class="hl str">&quot;If it is not the one you want to configure, enter a device name/file name in the input line&quot;</span><span class="hl opt">) :</span>
				     N<span class="hl opt">(</span><span class="hl str">&quot;Alternatively, you can specify a device name/file name in the input line&quot;</span><span class="hl opt">))) :</span>
				   <span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Here is a list of all auto-detected printers. &quot;</span><span class="hl opt">) .</span>
				    <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NEW<span class="hl opt">}</span> ?
				     N<span class="hl opt">(</span><span class="hl str">&quot;Please choose the printer you want to set up or enter a device name/file name in the input line&quot;</span><span class="hl opt">) :</span>
				     N<span class="hl opt">(</span><span class="hl str">&quot;Please choose the printer to which the print jobs should go or enter a device name/file name in the input line&quot;</span><span class="hl opt">)))) :</span>
				  <span class="hl opt">(</span><span class="hl kwb">$#menuentrieslist</span> <span class="hl opt">==</span> <span class="hl num">0</span> ?
				   <span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;The following printer was auto-detected. &quot;</span><span class="hl opt">) .</span>
				    <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NEW<span class="hl opt">}</span> ?
				     N<span class="hl opt">(</span><span class="hl str">&quot;The configuration of the printer will work fully automatically. If your printer was not correctly detected or if you prefer a customized printer configuration, turn on</span> <span class="hl esc">\&quot;</span><span class="hl str">Manual configuration</span><span class="hl esc">\&quot;</span><span class="hl str">.&quot;</span><span class="hl opt">) :</span> 
				     N<span class="hl opt">(</span><span class="hl str">&quot;Currently, no alternative possibility is available&quot;</span><span class="hl opt">))) :</span>
				   <span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Here is a list of all auto-detected printers. &quot;</span><span class="hl opt">) .</span>
				    <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NEW<span class="hl opt">}</span> ?
				     N<span class="hl opt">(</span><span class="hl str">&quot;Please choose the printer you want to set up. The configuration of the printer will work fully automatically. If your printer was not correctly detected or if you prefer a customized printer configuration, turn on</span> <span class="hl esc">\&quot;</span><span class="hl str">Manual configuration</span><span class="hl esc">\&quot;</span><span class="hl str">.&quot;</span><span class="hl opt">) :</span>
				     N<span class="hl opt">(</span><span class="hl str">&quot;Please choose the printer to which the print jobs should go.&quot;</span><span class="hl opt">))))) :</span>
				 <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">}</span> ?
				  N<span class="hl opt">(</span><span class="hl str">&quot;Please choose the port that your printer is connected to or enter a device name/file name in the input line&quot;</span><span class="hl opt">) :</span>
				  N<span class="hl opt">(</span><span class="hl str">&quot;Please choose the port that your printer is connected to.&quot;</span><span class="hl opt">))) .</span>
				if_<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">},</span>
				    N<span class="hl opt">(</span><span class="hl str">&quot; (Parallel Ports: /dev/lp0, /dev/lp1, ..., equivalent to LPT1:, LPT2:, ..., 1st USB printer: /dev/usb/lp0, 2nd USB printer: /dev/usb/lp1, ...).&quot;</span><span class="hl opt">))),</span> 
				  callbacks <span class="hl opt">=&gt; {</span>
				      complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
					  <span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwb">$menuchoice</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
					      <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;You must choose/enter a printer/device!&quot;</span><span class="hl opt">));</span>
					      <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
					  <span class="hl opt">}</span>
					  <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
				      <span class="hl opt">},</span>
				      changed <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
					  <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$oldmenuchoice</span> <span class="hl kwc">ne</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">) {</span>
					      <span class="hl kwb">$device</span> <span class="hl opt">=</span> <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$menuchoice</span><span class="hl opt">};</span>
					      <span class="hl kwb">$oldmenuchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">;</span>
					  <span class="hl opt">}</span>
					  <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
				      <span class="hl opt">}</span>
				  <span class="hl opt">} },</span>
		 <span class="hl opt">[</span>
		  if_<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">}, {</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$device</span> <span class="hl opt">}),</span>
		  <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$menuchoice,</span> list <span class="hl opt">=&gt;</span> \<span class="hl kwb">&#64;menuentrieslist,</span> 
		    not_edit <span class="hl opt">=&gt; !</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">},</span> format <span class="hl opt">=&gt;</span> \<span class="hl opt">&amp;</span>translate<span class="hl opt">,</span>
		    allow_empty_list <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;list&apos;</span> <span class="hl opt">},</span>
		  if_<span class="hl opt">(!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">} &amp;&amp;</span> <span class="hl kwb">$do_auto_detect</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NEW<span class="hl opt">},</span> 
		   <span class="hl opt">{</span> text <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Manual configuration&quot;</span><span class="hl opt">),</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;bool&apos;</span><span class="hl opt">,</span>
		     val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$manualconf</span> <span class="hl opt">}),</span>
		  <span class="hl opt">]</span>
		 <span class="hl opt">)) {</span>
		<span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$device</span> <span class="hl kwc">ne</span> <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$menuchoice</span><span class="hl opt">}) {</span>
		<span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
		<span class="hl kwb">$do_auto_detect</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">} =</span> <span class="hl kwb">$manualconf</span> ? <span class="hl num">1</span> <span class="hl opt">:</span> <span class="hl kwc">undef</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl slc">#- LPD and LPRng need netcat (&apos;nc&apos;) to access to socket printers</span>
    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;lpd&apos;</span> <span class="hl opt">||</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;lprng&apos;</span><span class="hl opt">) &amp;&amp;</span>
        <span class="hl opt">!$::</span>testing <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$device</span> <span class="hl opt">=~</span> <span class="hl kwd">/^socket:/</span> <span class="hl opt">&amp;&amp; !</span>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/nc&apos;</span><span class="hl opt">)) {</span>
        <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;nc&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl slc"># Do configuration of multi-function devices and look up model name</span>
    <span class="hl slc"># in the printer database</span>
    setup_common<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $menuchoice, $device, $do_auto_detect,</span>
		  <span class="hl kwb">&#64;autodetected</span><span class="hl opt">);</span>

    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_lpd <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc"># Check whether the network functionality is configured and</span>
    <span class="hl slc"># running</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>check_network<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork,</span> <span class="hl num">0</span><span class="hl opt">)) {</span> <span class="hl kwa">return</span> <span class="hl num">0</span> <span class="hl opt">};</span>

<span class="hl slc">#    $in-&gt;set_help(&apos;setupLPD&apos;) if $::isInstall;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$uri, $remotehost, $remotequeue</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>OLD_QUEUE<span class="hl opt">};</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">} &amp;&amp;</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">m/^lpd:/</span><span class="hl opt">) {</span>
	<span class="hl kwb">$uri</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">};</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$uri</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^\s*lpd://([^/]+)/([^/]+)/?\s*$!</span><span class="hl opt">) {</span>
         <span class="hl kwb">$remotehost</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
         <span class="hl kwb">$remotequeue</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
     <span class="hl opt">}</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$remotehost</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	<span class="hl kwb">$remotequeue</span> <span class="hl opt">=</span> <span class="hl str">&quot;lp&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">return if</span> <span class="hl opt">!</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Remote lpd Printer Options&quot;</span><span class="hl opt">),</span>
N<span class="hl opt">(</span><span class="hl str">&quot;To use a remote lpd printer, you need to supply the hostname of the printer server and the printer name on that server.&quot;</span><span class="hl opt">), [</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Remote host name&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$remotehost</span> <span class="hl opt">},</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Remote printer name&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$remotequeue</span> <span class="hl opt">} ],</span>
complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$remotehost</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Remote host name missing!&quot;</span><span class="hl opt">));</span>
	<span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$remotequeue</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Remote printer name missing!&quot;</span><span class="hl opt">));</span>
	<span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">1</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
			      <span class="hl opt">);</span>
    <span class="hl slc">#- make the DeviceURI from user input.</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =</span> <span class="hl str">&quot;lpd://</span><span class="hl ipl">$remotehost/$remotequeue</span><span class="hl str">&quot;</span><span class="hl opt">;</span>

    <span class="hl slc">#- LPD does not support filtered queues to a remote LPD server by itself</span>
    <span class="hl slc">#- It needs an additional program as &quot;rlpr&quot;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;lpd&apos;</span> <span class="hl opt">&amp;&amp; !$::</span>testing <span class="hl opt">&amp;&amp; !</span>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/rlpr&apos;</span><span class="hl opt">)) {</span>
        <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;rlpr&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl slc"># Auto-detect printer model (works if host is an ethernet-connected</span>
    <span class="hl slc"># printer)</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$modelinfo</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>getSNMPModel<span class="hl opt">(</span><span class="hl kwb">$remotehost</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$auto_hpoj</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">defined</span><span class="hl opt">(</span><span class="hl kwb">$modelinfo</span><span class="hl opt">) &amp;&amp;</span>
	<span class="hl kwb">$modelinfo</span><span class="hl opt">-&gt;{</span>MANUFACTURER<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span> <span class="hl opt">&amp;&amp;</span>
	<span class="hl kwb">$modelinfo</span><span class="hl opt">-&gt;{</span>MODEL<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
        <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Detected model:</span> <span class="hl ipl">%s</span> <span class="hl str"></span><span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span>
                            <span class="hl kwb">$modelinfo</span><span class="hl opt">-&gt;{</span>MANUFACTURER<span class="hl opt">},</span> <span class="hl kwb">$modelinfo</span><span class="hl opt">-&gt;{</span>MODEL<span class="hl opt">}));</span>
        <span class="hl kwb">$auto_hpoj</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$auto_hpoj</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl slc"># Do configuration of multi-function devices and look up model name</span>
    <span class="hl slc"># in the printer database</span>
    setup_common<span class="hl opt">(</span><span class="hl kwb">$printer, $in,</span>
		  <span class="hl str">&quot;</span><span class="hl ipl">$modelinfo</span><span class="hl str">-&gt;{MANUFACTURER}</span> <span class="hl ipl">$modelinfo</span><span class="hl str">-&gt;{MODEL}&quot;</span><span class="hl opt">,</span> 
		  <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">},</span> <span class="hl kwb">$auto_hpoj,</span>
                  <span class="hl opt">({</span>port <span class="hl opt">=&gt;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">},</span>
                    val <span class="hl opt">=&gt;</span> <span class="hl kwb">$modelinfo</span> <span class="hl opt">}));</span>

    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_smb <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc"># Check whether the network functionality is configured and</span>
    <span class="hl slc"># running</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>check_network<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork,</span> <span class="hl num">0</span><span class="hl opt">)) {</span> <span class="hl kwa">return</span> <span class="hl num">0</span> <span class="hl opt">};</span>

<span class="hl slc">#    $in-&gt;set_help(&apos;setupSMB&apos;) if $::isInstall;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$uri, $smbuser, $smbpassword, $workgroup, $smbserver, $smbserverip, $smbshare</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>OLD_QUEUE<span class="hl opt">};</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">} &amp;&amp;</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">m/^smb:/</span><span class="hl opt">) {</span>
	<span class="hl kwb">$uri</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">};</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$parameters</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span> <span class="hl kwa">if</span> <span class="hl kwb">$uri</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^\s*smb://(.*)$!</span><span class="hl opt">;</span>
	<span class="hl slc"># Get the user&apos;s login and password from the URI</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$parameters</span> <span class="hl opt">=~</span> <span class="hl kwd">m!([^&#64;]*)&#64;([^&#64;]+)!</span><span class="hl opt">) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$login</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	    <span class="hl kwb">$parameters</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$login</span> <span class="hl opt">=~</span> <span class="hl kwd">m!([^:]*):([^:]*)!</span><span class="hl opt">) {</span>
		<span class="hl kwb">$smbuser</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
		<span class="hl kwb">$smbpassword</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwb">$smbuser</span> <span class="hl opt">=</span> <span class="hl kwb">$login</span><span class="hl opt">;</span>
		<span class="hl kwb">$smbpassword</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$smbuser</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwb">$smbpassword</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Get the workgroup, server, and share name</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$parameters</span> <span class="hl opt">=~</span> <span class="hl kwd">m!([^/]*)/([^/]+)/([^/]+)$!</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$workgroup</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	    <span class="hl kwb">$smbserver</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
	    <span class="hl kwb">$smbshare</span> <span class="hl opt">=</span> <span class="hl kwb">$3</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$parameters</span> <span class="hl opt">=~</span> <span class="hl kwd">m!([^/]+)/([^/]+)$!</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$workgroup</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwb">$smbserver</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	    <span class="hl kwb">$smbshare</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwc">die</span> <span class="hl str">&quot;The</span> <span class="hl esc">\&quot;</span><span class="hl str">smb://</span><span class="hl esc">\&quot;</span> <span class="hl str">URI must at least contain the server name and the share name!</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span>network<span class="hl opt">::</span>is_ip<span class="hl opt">(</span><span class="hl kwb">$smbserver</span><span class="hl opt">)) {</span>
	    <span class="hl kwb">$smbserverip</span> <span class="hl opt">=</span> <span class="hl kwb">$smbserver</span><span class="hl opt">;</span>
	    <span class="hl kwb">$smbserver</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$autodetect</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;autodetected</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$menuentries</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;menuentrieslist</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$oldmenuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECT<span class="hl opt">}) {</span>
	<span class="hl kwb">$autodetect</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!$::</span>testing <span class="hl opt">&amp;&amp; !</span>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/smbclient&apos;</span><span class="hl opt">)) {</span>
	    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;samba-client&apos;</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$_w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printer auto-detection&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Scanning network...&quot;</span><span class="hl opt">));</span>
	<span class="hl kwb">&#64;autodetected</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>net_smb_detect<span class="hl opt">();</span>
     <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$server, $share</span><span class="hl opt">);</span>
	<span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">(</span><span class="hl kwb">&#64;autodetected</span><span class="hl opt">) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$menustr</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">} =~</span> <span class="hl kwd">m!^smb://([^/:]+)/([^/:]+)$!</span><span class="hl opt">) {</span>
             <span class="hl kwb">$server</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
             <span class="hl kwb">$share</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
         <span class="hl opt">}</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>DESCRIPTION<span class="hl opt">}) {</span>
		<span class="hl kwb">$menustr</span> <span class="hl opt">=</span> <span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>DESCRIPTION<span class="hl opt">};</span>
		<span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;, printer</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span> on server <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
			      <span class="hl kwb">$share, $server</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwb">$menustr</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span> on server <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
			     <span class="hl kwb">$share, $server</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$menustr</span><span class="hl opt">} =</span> <span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">};</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$server</span> <span class="hl kwc">eq</span> <span class="hl kwb">$smbserver</span> <span class="hl opt">&amp;&amp;</span>
		<span class="hl kwb">$share</span> <span class="hl kwc">eq</span> <span class="hl kwb">$smbshare</span><span class="hl opt">) {</span>
		<span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$menustr</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
	<span class="hl kwb">&#64;menuentrieslist</span> <span class="hl opt">=</span> <span class="hl kwc">sort</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$a</span><span class="hl opt">}</span> <span class="hl kwc">cmp</span> <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$b</span><span class="hl opt">};</span>
	<span class="hl opt">}</span> <span class="hl kwc">keys</span><span class="hl opt">(</span><span class="hl kwb">%$menuentries</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">} &amp;&amp;</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">m/^smb:/</span> <span class="hl opt">&amp;&amp;</span>
	    <span class="hl kwb">$menuchoice</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$menustr</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>make<span class="hl opt">}) {</span>
		<span class="hl kwb">$menustr</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{make}</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{model}&quot;</span><span class="hl opt">;</span>
		<span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;, printer</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span> on server <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
			      <span class="hl kwb">$smbshare, $smbserver</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwb">$menustr</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span> on server <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
			     <span class="hl kwb">$smbshare, $smbserver</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$menustr</span><span class="hl opt">} =</span> <span class="hl str">&quot;smb://</span><span class="hl ipl">$smbserver/$smbshare</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwc">unshift</span><span class="hl opt">(</span><span class="hl kwb">&#64;menuentrieslist, $menustr</span><span class="hl opt">);</span>
	    <span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$menustr</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$#menuentrieslist</span> <span class="hl opt">&lt;</span> <span class="hl num">0</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$autodetect</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$menuchoice</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$menuentrieslist</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">];</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$menuentrieslist</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]} =~</span>
		<span class="hl kwd">m!^smb://([^/:]+)/([^/:]+)$!</span><span class="hl opt">) {</span>
             <span class="hl kwb">$smbserver</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
             <span class="hl kwb">$smbshare</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
         <span class="hl opt">}</span>
	<span class="hl opt">}</span>
	<span class="hl kwb">$oldmenuchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">return</span> <span class="hl num">0</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span>
	 N<span class="hl opt">(</span><span class="hl str">&quot;SMB (Windows 9x/NT) Printer Options&quot;</span><span class="hl opt">),</span>
	 N<span class="hl opt">(</span><span class="hl str">&quot;To print to a SMB printer, you need to provide the SMB host name (Note! It may be different from its TCP/IP hostname!) and possibly the IP address of the print server, as well as the share name for the printer you wish to access and any applicable user name, password, and workgroup information.&quot;</span><span class="hl opt">) .</span>
	 <span class="hl opt">(</span><span class="hl kwb">$autodetect</span> ? N<span class="hl opt">(</span><span class="hl str">&quot; If the desired printer was auto-detected, simply choose it from the list and then add user name, password, and/or workgroup if needed.&quot;</span><span class="hl opt">) :</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">),</span>
	 <span class="hl opt">[</span> 
	  <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;SMB server host&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$smbserver</span> <span class="hl opt">},</span>
	  <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;SMB server IP&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$smbserverip</span> <span class="hl opt">},</span>
	  <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Share name&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$smbshare</span> <span class="hl opt">},</span>
	  <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;User name&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$smbuser</span> <span class="hl opt">},</span>
	  <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Password&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$smbpassword,</span> hidden <span class="hl opt">=&gt;</span> <span class="hl num">1</span> <span class="hl opt">},</span>
	  <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Workgroup&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$workgroup</span> <span class="hl opt">},</span>
	  if_<span class="hl opt">(</span><span class="hl kwb">$autodetect,</span>
	   <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Auto-detected&quot;</span><span class="hl opt">),</span>
	     val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$menuchoice,</span> list <span class="hl opt">=&gt;</span> \<span class="hl kwb">&#64;menuentrieslist,</span> 
	     not_edit <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span> format <span class="hl opt">=&gt;</span> \<span class="hl opt">&amp;</span>translate<span class="hl opt">,</span> <span class="hl kwc">sort</span> <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span>
	     allow_empty_list <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;combo&apos;</span> <span class="hl opt">}) ],</span>
	 complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	     <span class="hl kwa">if</span> <span class="hl opt">(!</span>network<span class="hl opt">::</span>is_ip<span class="hl opt">(</span><span class="hl kwb">$smbserverip</span><span class="hl opt">) &amp;&amp;</span> <span class="hl kwb">$smbserverip</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
		 <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;IP address should be in format 1.2.3.4&quot;</span><span class="hl opt">));</span>
		 <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">1</span><span class="hl opt">);</span>
	     <span class="hl opt">}</span>
	     <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$smbserver</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;&quot;</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$smbserverip</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
		 <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Either the server name or the server&apos;s IP must be given!&quot;</span><span class="hl opt">));</span>
		 <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
	     <span class="hl opt">}</span>
	     <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$smbshare</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
		 <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Samba share name missing!&quot;</span><span class="hl opt">));</span>
		 <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">2</span><span class="hl opt">);</span>
	     <span class="hl opt">}</span>
	     <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$smbpassword</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
		 <span class="hl kwc">local</span> <span class="hl opt">$::</span>isWizard <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
		 <span class="hl kwc">my</span> <span class="hl kwb">$yes</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_yesorno</span><span class="hl opt">(</span>
		      N<span class="hl opt">(</span><span class="hl str">&quot;SECURITY WARNING!&quot;</span><span class="hl opt">),</span>
		      N<span class="hl opt">(</span><span class="hl str">&quot;You are about to set up printing to a Windows account with password. Due to a fault in the architecture of the Samba client software the password is put in clear text into the command line of the Samba client used to transmit the print job to the Windows server. So it is possible for every user on this machine to display the password on the screen by issuing commands as</span> <span class="hl esc">\&quot;</span><span class="hl str">ps auxwww</span><span class="hl esc">\&quot;</span><span class="hl str">.</span>
<span class="hl str"></span>
<span class="hl str">We recommend to make use of one of the following alternatives (in all cases you have to make sure that only machines from your local network have access to your Windows server, for example by means of a firewall):</span>
<span class="hl str"></span>
<span class="hl str">Use a password-less account on your Windows server, as the</span> <span class="hl esc">\&quot;</span><span class="hl str">GUEST</span><span class="hl esc">\&quot;</span> <span class="hl str">account or a special account dedicated for printing. Do not remove the password protection from a personal account or the administrator account.</span>
<span class="hl str"></span>
<span class="hl str">Set up your Windows server to make the printer available under the LPD protocol. Then set up printing from this machine with the</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span> connection type <span class="hl kwa">in</span> Printerdrake<span class="hl opt">.</span>

<span class="hl str">&quot;, N(&quot;</span>Printer on remote lpd server<span class="hl str">&quot;)) .</span>
<span class="hl str">		      (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{expert} ? </span>
<span class="hl str">		       N(&quot;</span>Set up your Windows server to make the printer available under the IPP protocol <span class="hl kwc">and</span> set up printing from this machine with the <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot; connection type in Printerdrake.</span>
<span class="hl str"></span>
<span class="hl str">&quot;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Enter a printer device URI&quot;</span><span class="hl opt">)) :</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) .</span>
N<span class="hl opt">(</span><span class="hl str">&quot;Connect your printer to a Linux server and let your Windows machine(s) connect to it as a client.</span>
<span class="hl str"></span>
<span class="hl str">Do you really want to continue setting up this printer as you are doing now?&quot;</span><span class="hl opt">),</span> <span class="hl num">0</span><span class="hl opt">);</span>
		 <span class="hl kwa">return</span> <span class="hl num">0</span> <span class="hl kwa">if</span> <span class="hl kwb">$yes</span><span class="hl opt">;</span>
		 <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">2</span><span class="hl opt">);</span>
	     <span class="hl opt">}</span>
	     <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
	 <span class="hl opt">},</span>
	 changed <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	     <span class="hl kwa">return</span> <span class="hl num">0</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$autodetect</span><span class="hl opt">;</span>
	     <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$oldmenuchoice</span> <span class="hl kwc">ne</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">) {</span>
		 <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$menuchoice</span><span class="hl opt">} =~</span> <span class="hl kwd">m!^smb://([^/:]+)/([^/:]+)$!</span><span class="hl opt">) {</span>
               <span class="hl kwb">$smbserver</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
               <span class="hl kwb">$smbshare</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
           <span class="hl opt">}</span>
		 <span class="hl kwb">$oldmenuchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">;</span>
	     <span class="hl opt">}</span>
	     <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
	 <span class="hl opt">}</span>
	 <span class="hl opt">);</span>
    <span class="hl slc">#- make the DeviceURI from, try to probe for available variable to</span>
    <span class="hl slc">#- build a suitable URI.</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =</span>
    <span class="hl kwc">join</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">, (</span><span class="hl str">&quot;smb://&quot;</span><span class="hl opt">, (</span><span class="hl kwb">$smbuser</span> <span class="hl opt">&amp;&amp; (</span><span class="hl kwb">$smbuser</span> <span class="hl opt">.</span> 
    <span class="hl opt">(</span><span class="hl kwb">$smbpassword</span> <span class="hl opt">&amp;&amp;</span> <span class="hl str">&quot;:</span><span class="hl ipl">$smbpassword</span><span class="hl str">&quot;</span><span class="hl opt">) .</span> <span class="hl str">&apos;&#64;&apos;</span><span class="hl opt">)), (</span><span class="hl kwb">$workgroup</span> <span class="hl opt">&amp;&amp;</span> <span class="hl str">&quot;</span><span class="hl ipl">$workgroup/</span><span class="hl str">&quot;</span><span class="hl opt">),</span>
    <span class="hl opt">(</span><span class="hl kwb">$smbserver</span> <span class="hl opt">||</span> <span class="hl kwb">$smbserverip</span><span class="hl opt">),</span> <span class="hl str">&quot;/</span><span class="hl ipl">$smbshare</span><span class="hl str">&quot;</span><span class="hl opt">);</span>

    <span class="hl kwa">if</span> <span class="hl opt">(!$::</span>testing <span class="hl opt">&amp;&amp; !</span>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/smbclient&apos;</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;samba-client&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;cups&apos;</span> <span class="hl kwc">and</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>restart_queue<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_ncp <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc"># Check whether the network functionality is configured and</span>
    <span class="hl slc"># running</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>check_network<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork,</span> <span class="hl num">0</span><span class="hl opt">)) {</span> <span class="hl kwa">return</span> <span class="hl num">0</span> <span class="hl opt">};</span>

<span class="hl slc">#    $in-&gt;set_help(&apos;setupNCP&apos;) if $::isInstall;</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$uri, $ncpuser, $ncppassword, $ncpserver, $ncpqueue</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>OLD_QUEUE<span class="hl opt">};</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">} &amp;&amp;</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">m/^ncp:/</span><span class="hl opt">) {</span>
	<span class="hl kwb">$uri</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">};</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$parameters</span> <span class="hl opt">=</span> <span class="hl kwb">$uri</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^\s*ncp://(.*)$!</span><span class="hl opt">;</span>
	<span class="hl slc"># Get the user&apos;s login and password from the URI</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$parameters</span> <span class="hl opt">=~</span> <span class="hl kwd">m!([^&#64;]*)&#64;([^&#64;]+)!</span><span class="hl opt">) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$login</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	    <span class="hl kwb">$parameters</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$login</span> <span class="hl opt">=~</span> <span class="hl kwd">m!([^:]*):([^:]*)!</span><span class="hl opt">) {</span>
		<span class="hl kwb">$ncpuser</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
		<span class="hl kwb">$ncppassword</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwb">$ncpuser</span> <span class="hl opt">=</span> <span class="hl kwb">$login</span><span class="hl opt">;</span>
		<span class="hl kwb">$ncppassword</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$ncpuser</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwb">$ncppassword</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Get the workgroup, server, and share name</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$parameters</span> <span class="hl opt">=~</span> <span class="hl kwd">m!([^/]+)/([^/]+)$!</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$ncpserver</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	    <span class="hl kwb">$ncpqueue</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwc">die</span> <span class="hl str">&quot;The</span> <span class="hl esc">\&quot;</span><span class="hl str">ncp://</span><span class="hl esc">\&quot;</span> <span class="hl str">URI must at least contain the server name and the share name!</span><span class="hl esc">\n</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">return</span> <span class="hl num">0</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;NetWare Printer Options&quot;</span><span class="hl opt">),</span>
N<span class="hl opt">(</span><span class="hl str">&quot;To print on a NetWare printer, you need to provide the NetWare print server name (Note! it may be different from its TCP/IP hostname!) as well as the print queue name for the printer you wish to access and any applicable user name and password.&quot;</span><span class="hl opt">), [</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer Server&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$ncpserver</span> <span class="hl opt">},</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Print Queue Name&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$ncpqueue</span> <span class="hl opt">},</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;User name&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$ncpuser</span> <span class="hl opt">},</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Password&quot;</span><span class="hl opt">),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$ncppassword,</span> hidden <span class="hl opt">=&gt;</span> <span class="hl num">1</span> <span class="hl opt">} ],</span>
complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
    <span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwb">$ncpserver</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;NCP server name missing!&quot;</span><span class="hl opt">));</span>
	<span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwb">$ncpqueue</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;NCP queue name missing!&quot;</span><span class="hl opt">));</span>
	<span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">1</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
					<span class="hl opt">);</span>
    <span class="hl slc"># Generate the Foomatic URI</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =</span>
    <span class="hl kwc">join</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">, (</span><span class="hl str">&quot;ncp://&quot;</span><span class="hl opt">, (</span><span class="hl kwb">$ncpuser</span> <span class="hl opt">&amp;&amp; (</span><span class="hl kwb">$ncpuser</span> <span class="hl opt">.</span> 
    <span class="hl opt">(</span><span class="hl kwb">$ncppassword</span> <span class="hl opt">&amp;&amp;</span> <span class="hl str">&quot;:</span><span class="hl ipl">$ncppassword</span><span class="hl str">&quot;</span><span class="hl opt">) .</span> <span class="hl str">&apos;&#64;&apos;</span><span class="hl opt">)),</span>
    <span class="hl str">&quot;</span><span class="hl ipl">$ncpserver/$ncpqueue</span><span class="hl str">&quot;</span><span class="hl opt">);</span>

	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;ncpfs&apos;</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl opt">!$::</span>testing <span class="hl opt">&amp;&amp; !</span>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/nprint&apos;</span><span class="hl opt">);</span>

    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_socket <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc"># Check whether the network functionality is configured and</span>
    <span class="hl slc"># running</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>check_network<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork,</span> <span class="hl num">0</span><span class="hl opt">)) {</span> <span class="hl kwa">return</span> <span class="hl num">0</span> <span class="hl opt">};</span>

<span class="hl slc">#    $in-&gt;set_help(&apos;setupSocket&apos;) if $::isInstall;</span>

    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$uri, $remotehost, $remoteport</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>OLD_QUEUE<span class="hl opt">};</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">} &amp;&amp;</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span>  <span class="hl kwd">m!^(socket:|ptal://?hpjd:)!</span><span class="hl opt">) {</span>
	<span class="hl kwb">$uri</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">};</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$uri</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^ptal:!</span><span class="hl opt">) {</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$uri</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^ptal://?hpjd:([^/:]+):([0-9]+)/?\s*$!</span><span class="hl opt">) {</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$ptalport</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span> <span class="hl opt">-</span> <span class="hl num">9100</span><span class="hl opt">;</span>
		<span class="hl opt">(</span><span class="hl kwb">$remotehost, $remoteport</span><span class="hl opt">) = (</span><span class="hl kwb">$1, $ptalport</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$uri</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^ptal://?hpjd:([^/:]+)\s*$!</span><span class="hl opt">) {</span>
		<span class="hl opt">(</span><span class="hl kwb">$remotehost, $remoteport</span><span class="hl opt">) = (</span><span class="hl kwb">$1,</span> <span class="hl num">9100</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl opt">(</span><span class="hl kwb">$remotehost, $remoteport</span><span class="hl opt">) =</span>
		<span class="hl kwb">$uri</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^\s*socket://([^/:]+):([0-9]+)/?\s*$!</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$remotehost</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	<span class="hl kwb">$remoteport</span> <span class="hl opt">=</span> <span class="hl str">&quot;9100&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$autodetect</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;autodetected</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$menuentries</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;menuentrieslist</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$oldmenuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECT<span class="hl opt">}) {</span>
	<span class="hl kwb">$autodetect</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$_w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printer auto-detection&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Scanning network...&quot;</span><span class="hl opt">));</span>
	<span class="hl kwb">&#64;autodetected</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>net_detect<span class="hl opt">();</span>
     <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$host, $port</span><span class="hl opt">);</span>
	<span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$p</span> <span class="hl opt">(</span><span class="hl kwb">&#64;autodetected</span><span class="hl opt">) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$menustr</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">} =~</span> <span class="hl kwd">m!^socket://([^:]+):(\d+)$!</span><span class="hl opt">) {</span>
             <span class="hl kwb">$host</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
             <span class="hl kwb">$port</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
         <span class="hl opt">}</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>DESCRIPTION<span class="hl opt">}) {</span>
		<span class="hl kwb">$menustr</span> <span class="hl opt">=</span> <span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>DESCRIPTION<span class="hl opt">};</span>
		<span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;, host</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span><span class="hl opt">,</span> port <span class="hl kwb">%s</span><span class="hl str">&quot;,</span>
<span class="hl str"></span>			      <span class="hl ipl">$host,</span> <span class="hl str"></span><span class="hl ipl">$port</span><span class="hl str">);</span>
<span class="hl str">	    } else {</span>
<span class="hl str"></span>		<span class="hl ipl">$menustr</span> <span class="hl str">= N(&quot;</span>Host <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot;, port</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$host, $port</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$menustr</span><span class="hl opt">} =</span> <span class="hl kwb">$p</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">};</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$host</span> <span class="hl kwc">eq</span> <span class="hl kwb">$remotehost</span> <span class="hl opt">&amp;&amp;</span>
		<span class="hl kwb">$host</span> <span class="hl kwc">eq</span> <span class="hl kwb">$remotehost</span><span class="hl opt">) {</span>
		<span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$menustr</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
	<span class="hl kwb">&#64;menuentrieslist</span> <span class="hl opt">=</span> <span class="hl kwc">sort</span> <span class="hl opt">{</span> 
	    <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$a</span><span class="hl opt">}</span> <span class="hl kwc">cmp</span> <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$b</span><span class="hl opt">};</span>
	<span class="hl opt">}</span> <span class="hl kwc">keys</span><span class="hl opt">(</span><span class="hl kwb">%$menuentries</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">} &amp;&amp;</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">m!^(socket:|ptal://?hpjd:)!</span> <span class="hl opt">&amp;&amp;</span>
	    <span class="hl kwb">$menuchoice</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$menustr</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>make<span class="hl opt">}) {</span>
		<span class="hl kwb">$menustr</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{make}</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{model}&quot;</span><span class="hl opt">;</span>
		<span class="hl kwb">$menustr</span> <span class="hl opt">.=</span> N<span class="hl opt">(</span><span class="hl str">&quot;, host</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span><span class="hl opt">,</span> port <span class="hl kwb">%s</span><span class="hl str">&quot;,</span>
<span class="hl str"></span>			      <span class="hl ipl">$remotehost,</span> <span class="hl str"></span><span class="hl ipl">$remoteport</span><span class="hl str">);</span>
<span class="hl str">	    } else {</span>
<span class="hl str"></span>		<span class="hl ipl">$menustr</span> <span class="hl str">= N(&quot;</span>Host <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot;, port</span> <span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span>
			      <span class="hl kwb">$remotehost, $remoteport</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$menustr</span><span class="hl opt">} =</span> <span class="hl str">&quot;socket://</span><span class="hl ipl">$remotehost</span><span class="hl str">:</span><span class="hl ipl">$remoteport</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	    <span class="hl kwc">unshift</span><span class="hl opt">(</span><span class="hl kwb">&#64;menuentrieslist, $menustr</span><span class="hl opt">);</span>
	    <span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$menustr</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$#menuentrieslist</span> <span class="hl opt">&lt;</span> <span class="hl num">0</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$autodetect</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$menuchoice</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$menuentrieslist</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">];</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$menuentrieslist</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]} =~</span> <span class="hl kwd">m!^socket://([^:]+):(\d+)$!</span><span class="hl opt">) {</span>
             <span class="hl kwb">$remotehost</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
             <span class="hl kwb">$remoteport</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
         <span class="hl opt">}</span>
	<span class="hl opt">}</span>
	<span class="hl kwb">$oldmenuchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">return</span> <span class="hl num">0</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span><span class="hl opt">(</span>
	 <span class="hl opt">{</span>
	     title <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;TCP/Socket Printer Options&quot;</span><span class="hl opt">),</span>
	     messages <span class="hl opt">=&gt; (</span><span class="hl kwb">$autodetect</span> ?
			  N<span class="hl opt">(</span><span class="hl str">&quot;Choose one of the auto-detected printers from the list or enter the hostname or IP and the optional port number (default is 9100) in the input fields.&quot;</span><span class="hl opt">) :</span>
			  N<span class="hl opt">(</span><span class="hl str">&quot;To print to a TCP or socket printer, you need to provide the host name or IP of the printer and optionally the port number (default is 9100). On HP JetDirect servers the port number is usually 9100, on other servers it can vary. See the manual of your hardware.&quot;</span><span class="hl opt">)),</span>
		 callbacks <span class="hl opt">=&gt; {</span>
		 complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		     <span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwb">$remotehost</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
			 <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer host name or IP missing!&quot;</span><span class="hl opt">));</span>
			 <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
		     <span class="hl opt">}</span>
		     <span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwb">$remoteport</span> <span class="hl opt">=~</span> <span class="hl kwd">/^[0-9]+$/</span><span class="hl opt">) {</span>
			 <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;The port number should be an integer!&quot;</span><span class="hl opt">));</span>
			 <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">1</span><span class="hl opt">);</span>
		     <span class="hl opt">}</span>
		     <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
		 <span class="hl opt">},</span>
		 changed <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		     <span class="hl kwa">return</span> <span class="hl num">0</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$autodetect</span><span class="hl opt">;</span>
		     <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$oldmenuchoice</span> <span class="hl kwc">ne</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">) {</span>
                   <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$menuentries</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$menuchoice</span><span class="hl opt">} =~</span> <span class="hl kwd">m!^socket://([^:]+):(\d+)$!</span><span class="hl opt">) {</span>
                       <span class="hl kwb">$remotehost</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
                       <span class="hl kwb">$remoteport</span> <span class="hl opt">=</span> <span class="hl kwb">$2</span><span class="hl opt">;</span>
                   <span class="hl opt">}</span>
                   <span class="hl kwb">$oldmenuchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">;</span>
		     <span class="hl opt">}</span>
		     <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
		 <span class="hl opt">}</span>
	     <span class="hl opt">}</span>
	 <span class="hl opt">},</span>
	 <span class="hl opt">[</span>
	  <span class="hl opt">{</span> label <span class="hl opt">=&gt; (</span><span class="hl kwb">$autodetect</span> ? <span class="hl str">&quot;&quot;</span> <span class="hl opt">:</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer host name or IP&quot;</span><span class="hl opt">)),</span>
	    val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$remotehost</span> <span class="hl opt">},</span>
	  <span class="hl opt">{</span> label <span class="hl opt">=&gt; (</span><span class="hl kwb">$autodetect</span> ? <span class="hl str">&quot;&quot;</span> <span class="hl opt">:</span> N<span class="hl opt">(</span><span class="hl str">&quot;Port&quot;</span><span class="hl opt">)),</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$remoteport</span> <span class="hl opt">},</span>
	  if_<span class="hl opt">(</span><span class="hl kwb">$autodetect,</span>
	   <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$menuchoice,</span> list <span class="hl opt">=&gt;</span> \<span class="hl kwb">&#64;menuentrieslist,</span> 
	     not_edit <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span> format <span class="hl opt">=&gt;</span> \<span class="hl opt">&amp;</span>translate<span class="hl opt">,</span> <span class="hl kwc">sort</span> <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span>
	     allow_empty_list <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span> type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;list&apos;</span> <span class="hl opt">})</span>
	  <span class="hl opt">]</span>
	 <span class="hl opt">);</span>
    
    <span class="hl slc">#- make the Foomatic URI</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =</span> 
	<span class="hl kwc">join</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">, (</span><span class="hl str">&quot;socket://</span><span class="hl ipl">$remotehost</span><span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$remoteport</span> ? <span class="hl str">&quot;:</span><span class="hl ipl">$remoteport</span><span class="hl str">&quot;</span> <span class="hl opt">: ());</span>

    <span class="hl slc">#- LPD and LPRng need netcat (&apos;nc&apos;) to access to socket printers</span>
    <span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;lpd&apos;</span> <span class="hl opt">||</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;lprng&apos;</span><span class="hl opt">) &amp;&amp;</span> 
        <span class="hl opt">!$::</span>testing <span class="hl opt">&amp;&amp; !</span>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/nc&apos;</span><span class="hl opt">)) {</span>
        <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;nc&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl slc"># Auto-detect printer model</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$modelinfo</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECT<span class="hl opt">}) {</span>
	<span class="hl kwb">$modelinfo</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>getSNMPModel<span class="hl opt">(</span><span class="hl kwb">$remotehost</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$auto_hpoj</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">defined</span><span class="hl opt">(</span><span class="hl kwb">$modelinfo</span><span class="hl opt">) &amp;&amp;</span>
	<span class="hl kwb">$modelinfo</span><span class="hl opt">-&gt;{</span>MANUFACTURER<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span> <span class="hl opt">&amp;&amp;</span>
	<span class="hl kwb">$modelinfo</span><span class="hl opt">-&gt;{</span>MODEL<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
        <span class="hl kwb">$auto_hpoj</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$auto_hpoj</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl slc"># Do configuration of multi-function devices and look up model name</span>
    <span class="hl slc"># in the printer database</span>
    setup_common<span class="hl opt">(</span><span class="hl kwb">$printer, $in,</span>
		  <span class="hl str">&quot;</span><span class="hl ipl">$modelinfo</span><span class="hl str">-&gt;{MANUFACTURER}</span> <span class="hl ipl">$modelinfo</span><span class="hl str">-&gt;{MODEL}&quot;</span><span class="hl opt">,</span> 
		  <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">},</span> <span class="hl kwb">$auto_hpoj,</span>
                  <span class="hl opt">({</span>port <span class="hl opt">=&gt;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">},</span>
                    val <span class="hl opt">=&gt;</span> <span class="hl kwb">$modelinfo</span> <span class="hl opt">}));</span>
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_uri <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

<span class="hl slc">#    $in-&gt;set_help(&apos;setupURI&apos;) if $::isInstall;</span>
    <span class="hl kwa">return if</span> <span class="hl opt">!</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printer Device URI&quot;</span><span class="hl opt">),</span>
N<span class="hl opt">(</span><span class="hl str">&quot;You can specify directly the URI to access the printer. The URI must fulfill either the CUPS or the Foomatic specifications. Note that not all URI types are supported by all the spoolers.&quot;</span><span class="hl opt">), [</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer Device URI&quot;</span><span class="hl opt">),</span>
val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">},</span>
list <span class="hl opt">=&gt; [</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">},</span>
	  <span class="hl str">&quot;parallel:/&quot;</span><span class="hl opt">,</span>
	  <span class="hl str">&quot;usb:/&quot;</span><span class="hl opt">,</span>
	  <span class="hl str">&quot;serial:/&quot;</span><span class="hl opt">,</span>
	  <span class="hl str">&quot;http://&quot;</span><span class="hl opt">,</span>
	  <span class="hl str">&quot;ipp://&quot;</span><span class="hl opt">,</span>
	  <span class="hl str">&quot;lpd://&quot;</span><span class="hl opt">,</span>
	  <span class="hl str">&quot;smb://&quot;</span><span class="hl opt">,</span>
	  <span class="hl str">&quot;ncp://&quot;</span><span class="hl opt">,</span>
	  <span class="hl str">&quot;socket://&quot;</span><span class="hl opt">,</span>
	  <span class="hl str">&quot;file:/&quot;</span><span class="hl opt">,</span>
	  <span class="hl str">&quot;postpipe:</span><span class="hl esc">\&quot;\&quot;</span><span class="hl str">&quot;</span><span class="hl opt">,</span>
	  <span class="hl opt">],</span> not_edit <span class="hl opt">=&gt;</span> <span class="hl num">0</span> <span class="hl opt">}, ],</span>
complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
    <span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">/[^:]+:.+/</span><span class="hl opt">) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;A valid URI must be entered!&quot;</span><span class="hl opt">));</span>
	<span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
    <span class="hl opt">);</span>

    <span class="hl slc"># Non-local printer, check network and abort if no network available</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} !~</span> <span class="hl kwd">m!^(file|parallel|usb|serial|mtink|ptal://?mlc):/!</span> <span class="hl opt">&amp;&amp;</span>
        <span class="hl opt">!</span>check_network<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork,</span> <span class="hl num">0</span><span class="hl opt">)) {</span> 
        <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl slc"># If the chosen protocol needs additional software, install it.</span>

    <span class="hl slc"># LPD does not support filtered queues to a remote LPD server by itself</span>
    <span class="hl slc"># It needs an additional program as &quot;rlpr&quot;</span>
    <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">/^lpd:/</span> <span class="hl opt">&amp;&amp;</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;lpd&apos;</span> <span class="hl opt">&amp;&amp; !$::</span>testing <span class="hl opt">&amp;&amp; !</span>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/rlpr&apos;</span><span class="hl opt">)) {</span>
        <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;rlpr&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">/^smb:/</span> <span class="hl opt">&amp;&amp;</span>
        <span class="hl opt">!$::</span>testing <span class="hl opt">&amp;&amp; !</span>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/smbclient&apos;</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;samba-client&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">/^ncp:/</span> <span class="hl opt">&amp;&amp;</span>
	<span class="hl opt">!$::</span>testing <span class="hl opt">&amp;&amp; !</span>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/nprint&apos;</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;ncpfs&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl slc">#- LPD and LPRng need netcat (&apos;nc&apos;) to access to socket printers</span>
    <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">/^socket:/</span> <span class="hl opt">&amp;&amp;</span>
	<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;lpd&apos;</span> <span class="hl opt">||</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;lprng&apos;</span><span class="hl opt">) &amp;&amp;</span>
        <span class="hl opt">!$::</span>testing <span class="hl opt">&amp;&amp; !</span>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/nc&apos;</span><span class="hl opt">)) {</span>
        <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;nc&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">m!^socket://([^:/]+)!</span> <span class="hl opt">||</span>
        <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">m!^lpd://([^:/]+)!</span> <span class="hl opt">||</span>
        <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">m!^http://([^:/]+)!</span> <span class="hl opt">||</span>
        <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">m!^ipp://([^:/]+)!</span><span class="hl opt">) {</span>
	
	<span class="hl slc"># Auto-detect printer model (works if host is an ethernet-connected</span>
	<span class="hl slc"># printer)</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$remotehost</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$modelinfo</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>getSNMPModel<span class="hl opt">(</span><span class="hl kwb">$remotehost</span><span class="hl opt">);</span>
        <span class="hl kwc">my</span> <span class="hl kwb">$auto_hpoj</span><span class="hl opt">;</span>
        <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">defined</span><span class="hl opt">(</span><span class="hl kwb">$modelinfo</span><span class="hl opt">) &amp;&amp;</span>
            <span class="hl kwb">$modelinfo</span><span class="hl opt">-&gt;{</span>MANUFACTURER<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span> <span class="hl opt">&amp;&amp;</span>
	    <span class="hl kwb">$modelinfo</span><span class="hl opt">-&gt;{</span>MODEL<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
            <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Detected model:</span> <span class="hl ipl">%s</span> <span class="hl str"></span><span class="hl ipl">%s</span><span class="hl str">&quot;</span><span class="hl opt">,</span>
                                <span class="hl kwb">$modelinfo</span><span class="hl opt">-&gt;{</span>MANUFACTURER<span class="hl opt">},</span>
				<span class="hl kwb">$modelinfo</span><span class="hl opt">-&gt;{</span>MODEL<span class="hl opt">}));</span>
            <span class="hl kwb">$auto_hpoj</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
        <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$auto_hpoj</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
        <span class="hl opt">}</span>

        <span class="hl slc"># Do configuration of multi-function devices and look up model name</span>
        <span class="hl slc"># in the printer database</span>
        setup_common<span class="hl opt">(</span><span class="hl kwb">$printer, $in,</span>
		      <span class="hl str">&quot;</span><span class="hl ipl">$modelinfo</span><span class="hl str">-&gt;{MANUFACTURER}</span> <span class="hl ipl">$modelinfo</span><span class="hl str">-&gt;{MODEL}&quot;</span><span class="hl opt">,</span> 
		      <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">},</span> <span class="hl kwb">$auto_hpoj,</span>
                      <span class="hl opt">({</span>port <span class="hl opt">=&gt;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">},</span>
                        val <span class="hl opt">=&gt;</span> <span class="hl kwb">$modelinfo</span> <span class="hl opt">}));</span>
    <span class="hl opt">}</span>

    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_postpipe <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

<span class="hl slc">#    $in-&gt;set_help(&apos;setupPostpipe&apos;) if $::isInstall;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$uri</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$commandline</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>OLD_QUEUE<span class="hl opt">};</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">} &amp;&amp;</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">m/^postpipe:/</span><span class="hl opt">) {</span>
	<span class="hl kwb">$uri</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">};</span>
	<span class="hl kwb">$commandline</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span> <span class="hl kwa">if</span> <span class="hl kwb">$uri</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^\s*postpipe:\&quot;(.*)\&quot;$!</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$commandline</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">return if</span> <span class="hl opt">!</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Pipe into command&quot;</span><span class="hl opt">),</span>
N<span class="hl opt">(</span><span class="hl str">&quot;Here you can specify any arbitrary command line into which the job should be piped instead of being sent directly to a printer.&quot;</span><span class="hl opt">), [</span>
<span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Command line&quot;</span><span class="hl opt">),</span>
val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$commandline</span> <span class="hl opt">}, ],</span>
complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
    <span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwb">$commandline</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;A command line must be entered!&quot;</span><span class="hl opt">));</span>
	<span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
<span class="hl opt">}</span>
<span class="hl opt">);</span>

    <span class="hl slc">#- make the Foomatic URI</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =</span> <span class="hl str">&quot;postpipe:</span><span class="hl ipl">$commandline</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
    
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_common <span class="hl opt">{</span>

    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $makemodel, $device, $do_auto_detect, &#64;autodetected</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc">#- Check whether the printer is an HP multi-function device and </span>
    <span class="hl slc">#- configure HPOJ if it is one</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$ptaldevice</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$isHPOJ</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$w</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$device</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^/dev/!</span> <span class="hl opt">||</span> <span class="hl kwb">$device</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^socket://!</span><span class="hl opt">) {</span>
	<span class="hl slc"># Ask user whether he has a multi-function device when he didn&apos;t</span>
	<span class="hl slc"># do auto-detection or when auto-detection failed</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$searchunknown</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Unknown model&quot;</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$do_auto_detect</span> <span class="hl opt">||</span>
	    <span class="hl kwb">$makemodel</span> <span class="hl kwc">eq</span> <span class="hl kwb">$searchunknown</span> <span class="hl opt">||</span>
	    <span class="hl kwb">$makemodel</span> <span class="hl opt">=~</span> <span class="hl kwd">/^\s*$/</span><span class="hl opt">) {</span>
	    <span class="hl kwc">local</span> <span class="hl opt">$::</span>isWizard <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>noninteractive<span class="hl opt">}) {</span>
		<span class="hl kwb">$isHPOJ</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_yesorno</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Add a new printer&quot;</span><span class="hl opt">),</span>
					   N<span class="hl opt">(</span><span class="hl str">&quot;Is your printer a multi-function device from HP or Sony (OfficeJet, PSC, LaserJet 1100/1200/1220/3200/3300 with scanner, DeskJet 450, Sony IJP-V100), an HP PhotoSmart or an HP LaserJet 2200?&quot;</span><span class="hl opt">),</span> <span class="hl num">0</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$makemodel</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+(OfficeJet|PSC|PhotoSmart|LaserJet\s+(1200|1220|2200|3200|33.0)|(DeskJet|dj)\s*450)/i</span> <span class="hl opt">||</span>
	    <span class="hl kwb">$makemodel</span> <span class="hl opt">=~</span> <span class="hl kwd">/Sony\s+IJP[\s\-]+V[\s\-]+100/i</span> <span class="hl opt">||</span>
	    <span class="hl kwb">$isHPOJ</span><span class="hl opt">) {</span>
	    <span class="hl slc"># Install HPOJ package</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(!$::</span>testing <span class="hl opt">&amp;&amp;</span>
		<span class="hl opt">!</span>files_exist<span class="hl opt">(</span><span class="hl str">qw(/usr/sbin/ptal-mlcd</span>
<span class="hl str">					   /usr/sbin/ptal-init</span>
<span class="hl str">					   /usr/bin/xojpanel)</span><span class="hl opt">)) {</span>
		<span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
					   N<span class="hl opt">(</span><span class="hl str">&quot;Installing HPOJ package...&quot;</span><span class="hl opt">))</span>
		    <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>noninteractive<span class="hl opt">};</span>
		<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;hpoj&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;xojpanel&apos;</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    <span class="hl slc"># Configure and start HPOJ</span>
	    <span class="hl kwc">undef</span> <span class="hl kwb">$w</span><span class="hl opt">;</span>
	    <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span>
		<span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
		 N<span class="hl opt">(</span><span class="hl str">&quot;Checking device and configuring HPOJ...&quot;</span><span class="hl opt">))</span>
		<span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>noninteractive<span class="hl opt">};</span>
	    <span class="hl kwb">$ptaldevice</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>configure_hpoj
		<span class="hl opt">(</span><span class="hl kwb">$device, &#64;autodetected</span><span class="hl opt">);</span>
	    
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$ptaldevice</span><span class="hl opt">) {</span>
		<span class="hl slc"># Configure scanning with SANE on the MF device</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$makemodel</span> <span class="hl opt">!~</span> <span class="hl kwd">/HP\s+PhotoSmart/i</span> <span class="hl opt">&amp;&amp;</span>
		    <span class="hl kwb">$makemodel</span> <span class="hl opt">!~</span> <span class="hl kwd">/HP\s+LaserJet\s+2200/i</span> <span class="hl opt">&amp;&amp;</span>
		    <span class="hl kwb">$makemodel</span> <span class="hl opt">!~</span> <span class="hl kwd">/HP\s+(DeskJet|dj)\s*450/i</span><span class="hl opt">) {</span>
		    <span class="hl slc"># Install SANE</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(!$::</span>testing <span class="hl opt">&amp;&amp;</span>
			<span class="hl opt">!</span>files_exist<span class="hl opt">(</span><span class="hl str">qw(/usr/bin/scanimage</span>
<span class="hl str">						   /usr/bin/xscanimage</span>
<span class="hl str">						   /usr/bin/xsane</span>
<span class="hl str">						   /etc/sane.d/dll.conf</span>
<span class="hl str">						   /usr/lib/libsane-hpoj.so.1)</span><span class="hl opt">,</span>
						if_<span class="hl opt">(</span>files_exist<span class="hl opt">(</span><span class="hl str">&apos;/usr/bin/gimp&apos;</span><span class="hl opt">),</span> 
						    <span class="hl str">&apos;/usr/bin/xsane-gimp&apos;</span><span class="hl opt">))) {</span>
			<span class="hl kwc">undef</span> <span class="hl kwb">$w</span><span class="hl opt">;</span>
			<span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span>
			    <span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
			     N<span class="hl opt">(</span><span class="hl str">&quot;Installing SANE packages...&quot;</span><span class="hl opt">))</span>
			    <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>noninteractive<span class="hl opt">};</span>
			<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;sane-backends&apos;</span><span class="hl opt">,</span>
					      <span class="hl str">&apos;sane-frontends&apos;</span><span class="hl opt">,</span>
					      <span class="hl str">&apos;xsane&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;libsane-hpoj1&apos;</span><span class="hl opt">,</span>
					      if_<span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">is_installed</span><span class="hl opt">(</span><span class="hl str">&apos;gimp&apos;</span><span class="hl opt">),</span> <span class="hl str">&apos;xsane-gimp&apos;</span><span class="hl opt">));</span>
		    <span class="hl opt">}</span>
		    <span class="hl slc"># Configure the HPOJ SANE backend</span>
		    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>config_sane<span class="hl opt">();</span>
		<span class="hl opt">}</span>
		<span class="hl slc"># Configure photo card access with mtools and MToolsFM</span>
		<span class="hl kwa">if</span> <span class="hl opt">((</span><span class="hl kwb">$makemodel</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+PhotoSmart/i</span> <span class="hl opt">||</span>
		     <span class="hl kwb">$makemodel</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+PSC\s*9[05]0/i</span> <span class="hl opt">||</span>
		     <span class="hl kwb">$makemodel</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+PSC\s*22\d\d/i</span> <span class="hl opt">||</span>
		     <span class="hl kwb">$makemodel</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+OfficeJet\s+D\s*1[45]5/i</span> <span class="hl opt">||</span>
		     <span class="hl kwb">$makemodel</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+OfficeJet\s+71[34]0/i</span> <span class="hl opt">||</span>
		     <span class="hl kwb">$makemodel</span> <span class="hl opt">=~</span> <span class="hl kwd">/HP\s+(DeskJet|dj)\s*450/i</span><span class="hl opt">) &amp;&amp;</span>
		    <span class="hl kwb">$makemodel</span> <span class="hl opt">!~</span> <span class="hl kwd">/HP\s+PhotoSmart\s+7150/i</span><span class="hl opt">) {</span>
		    <span class="hl slc"># Install mtools and MToolsFM</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(!$::</span>testing <span class="hl opt">&amp;&amp;</span>
			<span class="hl opt">!</span>files_exist<span class="hl opt">(</span><span class="hl str">qw(/usr/bin/mdir</span>
<span class="hl str">						  /usr/bin/mcopy</span>
<span class="hl str">						  /usr/bin/MToolsFM</span>
<span class="hl str">						  )</span><span class="hl opt">)) {</span>
			<span class="hl kwc">undef</span> <span class="hl kwb">$w</span><span class="hl opt">;</span>
			<span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span>
			    <span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
			     N<span class="hl opt">(</span><span class="hl str">&quot;Installing mtools packages...&quot;</span><span class="hl opt">))</span>
			    <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>noninteractive<span class="hl opt">};</span>
			<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;mtools&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;mtoolsfm&apos;</span><span class="hl opt">);</span>
		    <span class="hl opt">}</span>
		    <span class="hl slc"># Configure mtools/MToolsFM for photo card access</span>
		    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>config_photocard<span class="hl opt">();</span>
		<span class="hl opt">}</span>
		
		<span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>noninteractive<span class="hl opt">}) {</span>
		    <span class="hl kwc">my</span> <span class="hl kwb">$text</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
		    <span class="hl slc"># Inform user about how to scan with his MF device</span>
		    <span class="hl kwb">$text</span> <span class="hl opt">=</span> scanner_help<span class="hl opt">(</span><span class="hl kwb">$makemodel,</span> <span class="hl str">&quot;ptal://</span><span class="hl ipl">$ptaldevice</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$text</span><span class="hl opt">) {</span>
			<span class="hl kwc">undef</span> <span class="hl kwb">$w</span><span class="hl opt">;</span>
			<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span>
			    <span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Scanning on your HP multi-function device&quot;</span><span class="hl opt">),</span>
			     <span class="hl kwb">$text</span><span class="hl opt">);</span>
		    <span class="hl opt">}</span>
		    <span class="hl slc"># Inform user about how to access photo cards with his </span>
		    <span class="hl slc"># MF device</span>
		    <span class="hl kwb">$text</span> <span class="hl opt">=</span> photocard_help<span class="hl opt">(</span><span class="hl kwb">$makemodel,</span> <span class="hl str">&quot;ptal://</span><span class="hl ipl">$ptaldevice</span><span class="hl str">&quot;</span><span class="hl opt">);</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$text</span><span class="hl opt">) {</span>
			<span class="hl kwc">undef</span> <span class="hl kwb">$w</span><span class="hl opt">;</span>
			<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Photo memory card access on your HP multi-function device&quot;</span><span class="hl opt">),</span>
				      <span class="hl kwb">$text</span><span class="hl opt">);</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span>
		<span class="hl slc"># make the DeviceURI from $ptaldevice.</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =</span> <span class="hl str">&quot;ptal://&quot;</span> <span class="hl opt">.</span> <span class="hl kwb">$ptaldevice</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl slc"># make the DeviceURI from $device.</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =</span> <span class="hl kwb">$device</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwb">$w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span>
		<span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
		 N<span class="hl opt">(</span><span class="hl str">&quot;Checking device and configuring HPOJ...&quot;</span><span class="hl opt">))</span>
		<span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>noninteractive<span class="hl opt">} &amp;&amp; !</span><span class="hl kwc">defined</span><span class="hl opt">(</span><span class="hl kwb">$w</span><span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl slc"># make the DeviceURI from $device.</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =</span> <span class="hl kwb">$device</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl slc"># make the DeviceURI from $device.</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =</span> <span class="hl kwb">$device</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} !~</span> <span class="hl kwd">/:/</span><span class="hl opt">) {</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">/usb/</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =</span>
		<span class="hl str">&quot;usb:&quot;</span> <span class="hl opt">.</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">};</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">/(serial|tty)/</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =</span>
		<span class="hl str">&quot;serial:&quot;</span> <span class="hl opt">.</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">};</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> 
		 <span class="hl kwd">/(printers|parallel|parport|lp\d)/</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =</span>
		<span class="hl str">&quot;parallel:&quot;</span> <span class="hl opt">.</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">};</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =</span>
		<span class="hl str">&quot;file:&quot;</span> <span class="hl opt">.</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">};</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl slc">#- if CUPS is the spooler, make sure that CUPS knows the device</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;cups&quot;</span> <span class="hl opt">&amp;&amp;</span>
	<span class="hl kwb">$device</span> <span class="hl opt">!~</span> <span class="hl kwd">/^lpd:/</span> <span class="hl opt">&amp;&amp;</span>
	<span class="hl kwb">$device</span> <span class="hl opt">!~</span> <span class="hl kwd">/^smb:/</span> <span class="hl opt">&amp;&amp;</span>
	<span class="hl kwb">$device</span> <span class="hl opt">!~</span> <span class="hl kwd">/^socket:/</span> <span class="hl opt">&amp;&amp;</span>
	<span class="hl kwb">$device</span> <span class="hl opt">!~</span> <span class="hl kwd">/^http:/</span> <span class="hl opt">&amp;&amp;</span>
	<span class="hl kwb">$device</span> <span class="hl opt">!~</span> <span class="hl kwd">/^ipp:/</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$_w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span>
	    <span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
	     N<span class="hl opt">(</span><span class="hl str">&quot;Making printer port available for CUPS...&quot;</span><span class="hl opt">))</span>
	    <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>noninteractive<span class="hl opt">};</span>
	printer<span class="hl opt">::</span>main<span class="hl opt">::</span>assure_device_is_available_for_cups<span class="hl opt">(</span><span class="hl kwb">$ptaldevice</span> <span class="hl opt">||</span>
							   <span class="hl kwb">$device</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl slc">#- Read the printer driver database if necessary</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">keys</span> <span class="hl kwb">%printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb <span class="hl opt">==</span> <span class="hl num">0</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$_w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span>
	    <span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Reading printer database...&quot;</span><span class="hl opt">))</span>
	    <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>noninteractive<span class="hl opt">};</span>
        printer<span class="hl opt">::</span>main<span class="hl opt">::</span>read_printer_db<span class="hl opt">(</span><span class="hl kwb">$printer, $printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">});</span>
    <span class="hl opt">}</span>

    <span class="hl slc">#- Search the database entry which matches the detected printer best</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$descr</span> <span class="hl opt">=</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwb">&#64;autodetected</span><span class="hl opt">) {</span>
	<span class="hl kwb">$device</span> <span class="hl kwc">eq</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>port<span class="hl opt">}</span> <span class="hl kwc">or</span> <span class="hl kwa">next</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$automake, $automodel, $autodescr, $autocmdset, $autosku</span><span class="hl opt">) =</span>
	    <span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>MANUFACTURER<span class="hl opt">},</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>MODEL<span class="hl opt">},</span>
	     <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>DESCRIPTION<span class="hl opt">},</span> <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span><span class="hl str">&apos;COMMAND SET&apos;</span><span class="hl opt">},</span>
	     <span class="hl kwb">$_</span><span class="hl opt">-&gt;{</span>val<span class="hl opt">}{</span>SKU<span class="hl opt">});</span>
	<span class="hl slc"># Clean some manufacturer&apos;s names</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$descrmake</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>clean_manufacturer_name<span class="hl opt">(</span><span class="hl kwb">$automake</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$automake</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$autosku</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$descr</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$descrmake</span><span class="hl str">|</span><span class="hl ipl">$autosku</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$automake</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$automodel</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$descr</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$descrmake</span><span class="hl str">|</span><span class="hl ipl">$automodel</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwb">$descr</span> <span class="hl opt">=</span> <span class="hl kwb">$autodescr</span><span class="hl opt">;</span>
	    <span class="hl kwb">$descr</span> <span class="hl opt">=~</span> <span class="hl kwd">s/ /|/</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Remove manufacturer&apos;s name from the beginning of the</span>
	<span class="hl slc"># description (do not do this with manufacturer names which</span>
	<span class="hl slc"># contain odd characters)</span>
	<span class="hl kwb">$descr</span> <span class="hl opt">=~</span> <span class="hl kwd">s/^$descrmake\|\s*$descrmake\s*/$descrmake|/i</span>
	    <span class="hl kwa">if</span> <span class="hl kwb">$descrmake</span> <span class="hl opt">&amp;&amp;</span> 
           <span class="hl kwb">$descrmake</span> <span class="hl opt">!~</span> <span class="hl kwd">m![\\/\(\)\[\]\|\.\$\&#64;\%\*\?]!</span><span class="hl opt">;</span>
	<span class="hl slc"># Clean up the description from noise which makes the best match</span>
	<span class="hl slc"># difficult</span>
	<span class="hl kwb">$descr</span> <span class="hl opt">=~</span> <span class="hl kwd">s/\s+[Ss]eries//i</span><span class="hl opt">;</span>
	<span class="hl kwb">$descr</span> <span class="hl opt">=~</span> <span class="hl kwd">s/\s+\(?[Pp]rinter\)?$//i</span><span class="hl opt">;</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">} =</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">;</span>
	<span class="hl slc"># Try to find an exact match, check both whether the detected</span>
	<span class="hl slc"># make|model is in the make|model of the database entry and vice versa</span>
	<span class="hl slc"># If there is more than one matching database entry, the longest match</span>
	<span class="hl slc"># counts.</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$matchlength</span> <span class="hl opt">= -</span><span class="hl num">100</span><span class="hl opt">;</span>
	<span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$entry</span> <span class="hl opt">(</span><span class="hl kwc">keys</span> <span class="hl kwb">%printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb<span class="hl opt">) {</span>
	    <span class="hl slc"># Try to match the device ID string of the auto-detection</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb<span class="hl opt">{</span><span class="hl kwb">$entry</span><span class="hl opt">}{</span>make<span class="hl opt">} =~</span> <span class="hl kwd">/Generic/i</span><span class="hl opt">) {</span>
		<span class="hl slc"># Database entry for generic printer, check printer</span>
		<span class="hl slc"># languages (command set)</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$_cmd</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb<span class="hl opt">{</span><span class="hl kwb">$entry</span><span class="hl opt">}{</span>devidcmd<span class="hl opt">};</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb<span class="hl opt">{</span><span class="hl kwb">$entry</span><span class="hl opt">}{</span>model<span class="hl opt">} =~</span> 
		    <span class="hl kwd">m!PCL\s*5/5e!i</span><span class="hl opt">) {</span>
		    <span class="hl slc"># Generic PCL 5/5e Printer</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$autocmdset</span> <span class="hl opt">=~</span>
			<span class="hl kwd">/(^|[:,])PCL\s*\-*\s*(5|)([,;]|$)/i</span><span class="hl opt">) {</span>
			<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$matchlength</span> <span class="hl opt">&lt; -</span><span class="hl num">50</span><span class="hl opt">) {</span>
			    <span class="hl kwb">$matchlength</span> <span class="hl opt">= -</span><span class="hl num">50</span><span class="hl opt">;</span>
			    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">} =</span> <span class="hl kwb">$entry</span><span class="hl opt">;</span>
			    <span class="hl kwa">next</span><span class="hl opt">;</span>
			<span class="hl opt">}</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb<span class="hl opt">{</span><span class="hl kwb">$entry</span><span class="hl opt">}{</span>model<span class="hl opt">} =~</span> 
		    <span class="hl kwd">m!PCL\s*(6|XL)!i</span><span class="hl opt">) {</span>
		    <span class="hl slc"># Generic PCL 6/XL Printer</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$autocmdset</span> <span class="hl opt">=~</span>
			<span class="hl kwd">/(^|[:,])PCL\s*\-*\s*(6|XL)([,;]|$)/i</span><span class="hl opt">) {</span>
			<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$matchlength</span> <span class="hl opt">&lt; -</span><span class="hl num">40</span><span class="hl opt">) {</span>
			    <span class="hl kwb">$matchlength</span> <span class="hl opt">= -</span><span class="hl num">40</span><span class="hl opt">;</span>
			    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">} =</span> <span class="hl kwb">$entry</span><span class="hl opt">;</span>
			    <span class="hl kwa">next</span><span class="hl opt">;</span>
			<span class="hl opt">}</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb<span class="hl opt">{</span><span class="hl kwb">$entry</span><span class="hl opt">}{</span>model<span class="hl opt">} =~</span> 
		    <span class="hl kwd">m!(PostScript)!i</span><span class="hl opt">) {</span>
		    <span class="hl slc"># Generic PostScript Printer</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$autocmdset</span> <span class="hl opt">=~</span>
			<span class="hl kwd">/(^|[:,])(PS|POSTSCRIPT)[^:;,]*([,;]|$)/i</span><span class="hl opt">) {</span>
			<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$matchlength</span> <span class="hl opt">&lt; -</span><span class="hl num">10</span><span class="hl opt">) {</span>
			    <span class="hl kwb">$matchlength</span> <span class="hl opt">= -</span><span class="hl num">10</span><span class="hl opt">;</span>
			    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">} =</span> <span class="hl kwb">$entry</span><span class="hl opt">;</span>
			    <span class="hl kwa">next</span><span class="hl opt">;</span>
			<span class="hl opt">}</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl slc"># &quot;Real&quot; manufacturer, check manufacturer, model, and/or</span>
		<span class="hl slc"># description</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$matched</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
		<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$mfg, $mdl, $des</span><span class="hl opt">);</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$mfg</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb<span class="hl opt">{</span><span class="hl kwb">$entry</span><span class="hl opt">}{</span>devidmake<span class="hl opt">}) {</span>
		    <span class="hl kwb">$mfg</span> <span class="hl opt">=~</span> <span class="hl kwd">s/Hewlett[-\s_]Packard/HP/i</span><span class="hl opt">;</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">uc</span><span class="hl opt">(</span><span class="hl kwb">$mfg</span><span class="hl opt">)</span> <span class="hl kwc">ne uc</span><span class="hl opt">(</span><span class="hl kwb">$automake</span><span class="hl opt">)) {</span>
			<span class="hl kwb">$matched</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$mdl</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb<span class="hl opt">{</span><span class="hl kwb">$entry</span><span class="hl opt">}{</span>devidmodel<span class="hl opt">}) {</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$mdl</span> <span class="hl kwc">ne</span> <span class="hl kwb">$automodel</span><span class="hl opt">) {</span>
			<span class="hl kwb">$matched</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$des</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb<span class="hl opt">{</span><span class="hl kwb">$entry</span><span class="hl opt">}{</span>deviddesc<span class="hl opt">}) {</span>
		    <span class="hl kwb">$des</span> <span class="hl opt">=~</span> <span class="hl kwd">s/Hewlett[-\s_]Packard/HP/</span><span class="hl opt">;</span>
		    <span class="hl kwb">$des</span> <span class="hl opt">=~</span> <span class="hl kwd">s/HEWLETT[-\s_]PACKARD/HP/</span><span class="hl opt">;</span>    
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$des</span> <span class="hl kwc">ne</span> <span class="hl kwb">$autodescr</span><span class="hl opt">) {</span>
			<span class="hl kwb">$matched</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$matched</span> <span class="hl opt">&amp;&amp; (</span><span class="hl kwb">$des</span> <span class="hl opt">||</span> <span class="hl kwb">$mfg</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$mdl</span><span class="hl opt">)) {</span>
		    <span class="hl slc"># Full match to known auto-detection data</span>
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">} =</span> <span class="hl kwb">$entry</span><span class="hl opt">;</span>
		    <span class="hl kwb">$matchlength</span> <span class="hl opt">=</span> <span class="hl num">1000</span><span class="hl opt">;</span>
		    <span class="hl kwa">last</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span>
	    <span class="hl slc"># Do not search human-readable make and model names if we had an</span>
	    <span class="hl slc"># exact match or a match to the auto-detection ID string </span>
	    <span class="hl kwa">next if</span> <span class="hl kwb">$matchlength</span> <span class="hl opt">&gt;=</span> <span class="hl num">100</span><span class="hl opt">;</span>
	    <span class="hl slc"># Try to match the (human-readable) make and model of the</span>
	    <span class="hl slc"># Foomatic database or of thr PPD file</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$dbmakemodel</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">}) {</span>
		<span class="hl kwb">$dbmakemodel</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span> <span class="hl kwa">if</span> <span class="hl kwb">$entry</span> <span class="hl opt">=~</span> <span class="hl kwd">m/^(.*)\|[^\|]*$/</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwb">$dbmakemodel</span> <span class="hl opt">=</span> <span class="hl kwb">$entry</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl slc"># Don&apos;t try to match if the database entry does not provide</span>
	    <span class="hl slc"># make and model</span>
	    <span class="hl kwa">next unless</span> <span class="hl kwb">$dbmakemodel</span><span class="hl opt">;</span>
	    <span class="hl slc"># If make and model match exactly, we have found the correct</span>
	    <span class="hl slc"># entry and we can stop searching human-readable makes and</span>
	    <span class="hl slc"># models</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">lc</span><span class="hl opt">(</span><span class="hl kwb">$dbmakemodel</span><span class="hl opt">)</span> <span class="hl kwc">eq lc</span><span class="hl opt">(</span><span class="hl kwb">$descr</span><span class="hl opt">)) {</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">} =</span> <span class="hl kwb">$entry</span><span class="hl opt">;</span>
		<span class="hl kwb">$matchlength</span> <span class="hl opt">=</span> <span class="hl num">100</span><span class="hl opt">;</span>
		<span class="hl kwa">next</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl slc"># Matching a part of the human-readable makes and models</span>
	    <span class="hl slc"># should only be done if the search term is not the name of</span>
	    <span class="hl slc"># an old model, otherwise the newest, not yet listed models</span>
	    <span class="hl slc"># match with the oldest model of the manufacturer (as the</span>
	    <span class="hl slc"># Epson Stylus Photo 900 with the original Epson Stylus Photo)</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">&#64;badsearchterms</span> <span class="hl opt">=</span> 
		<span class="hl opt">(</span><span class="hl str">&quot;HP|DeskJet&quot;</span><span class="hl opt">,</span>
		 <span class="hl str">&quot;HP|LaserJet&quot;</span><span class="hl opt">,</span>
		 <span class="hl str">&quot;HP|DesignJet&quot;</span><span class="hl opt">,</span>
		 <span class="hl str">&quot;HP|OfficeJet&quot;</span><span class="hl opt">,</span>
		 <span class="hl str">&quot;HP|PhotoSmart&quot;</span><span class="hl opt">,</span>
		 <span class="hl str">&quot;EPSON|Stylus&quot;</span><span class="hl opt">,</span>
		 <span class="hl str">&quot;EPSON|Stylus Color&quot;</span><span class="hl opt">,</span>
		 <span class="hl str">&quot;EPSON|Stylus Photo&quot;</span><span class="hl opt">,</span>
		 <span class="hl str">&quot;EPSON|Stylus Pro&quot;</span><span class="hl opt">,</span>
		 <span class="hl str">&quot;XEROX|WorkCentre&quot;</span><span class="hl opt">,</span>
		 <span class="hl str">&quot;XEROX|DocuPrint&quot;</span><span class="hl opt">);</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(!</span>member<span class="hl opt">(</span><span class="hl kwb">$descr, &#64;badsearchterms</span><span class="hl opt">)) {</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$searchterm</span> <span class="hl opt">=</span> <span class="hl kwb">$descr</span><span class="hl opt">;</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$lsearchterm</span> <span class="hl opt">=</span> <span class="hl kwc">length</span><span class="hl opt">(</span><span class="hl kwb">$searchterm</span><span class="hl opt">);</span>
		<span class="hl kwb">$searchterm</span> <span class="hl opt">=~</span> <span class="hl kwd">s!([\\/\(\)\[\]\|\.\$\&#64;\%\*\?])!\\$1!g</span><span class="hl opt">;</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$lsearchterm</span> <span class="hl opt">&gt;</span> <span class="hl kwb">$matchlength</span> <span class="hl opt">&amp;&amp;</span>
		    <span class="hl kwb">$dbmakemodel</span> <span class="hl opt">=~</span> <span class="hl kwd">m!$searchterm!i</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$matchlength</span> <span class="hl opt">=</span> <span class="hl kwb">$lsearchterm</span><span class="hl opt">;</span>
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">} =</span> <span class="hl kwb">$entry</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(!</span>member<span class="hl opt">(</span><span class="hl kwb">$dbmakemodel, &#64;badsearchterms</span><span class="hl opt">)) {</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$searchterm</span> <span class="hl opt">=</span> <span class="hl kwb">$dbmakemodel</span><span class="hl opt">;</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$lsearchterm</span> <span class="hl opt">=</span> <span class="hl kwc">length</span><span class="hl opt">(</span><span class="hl kwb">$searchterm</span><span class="hl opt">);</span>
		<span class="hl kwb">$searchterm</span> <span class="hl opt">=~</span> <span class="hl kwd">s!([\\/\(\)\[\]\|\.\$\&#64;\%\*\?])!\\$1!g</span><span class="hl opt">;</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$lsearchterm</span> <span class="hl opt">&gt;</span> <span class="hl kwb">$matchlength</span> <span class="hl opt">&amp;&amp;</span>
		    <span class="hl kwb">$descr</span> <span class="hl opt">=~</span> <span class="hl kwd">m!$searchterm!i</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$matchlength</span> <span class="hl opt">=</span> <span class="hl kwb">$lsearchterm</span><span class="hl opt">;</span>
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">} =</span> <span class="hl kwb">$entry</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># No matching printer found, try a best match as last mean (not</span>
	<span class="hl slc"># when generating queues non-interactively)</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>noninteractive<span class="hl opt">}) {</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">} ||=</span>
		bestMatchSentence<span class="hl opt">(</span><span class="hl kwb">$descr,</span> <span class="hl kwc">keys</span> <span class="hl kwb">%printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb<span class="hl opt">);</span>
	    <span class="hl slc"># If the manufacturer was not guessed correctly, discard the</span>
	    <span class="hl slc"># guess.</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$guessedmake</span> <span class="hl opt">=</span> <span class="hl kwc">lc</span><span class="hl opt">(</span><span class="hl kwb">$1</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">} =~</span> <span class="hl kwd">/^([^\|]+)\|/</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$guessedmake</span> <span class="hl opt">!~</span> <span class="hl kwd">/Generic/i</span> <span class="hl opt">&amp;&amp;</span>
		<span class="hl kwb">$descr</span> <span class="hl opt">!~</span> <span class="hl kwd">/$guessedmake/i</span> <span class="hl opt">&amp;&amp;</span>
		<span class="hl opt">(</span><span class="hl kwb">$guessedmake</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;hp&quot;</span> <span class="hl opt">||</span>
		 <span class="hl kwb">$descr</span> <span class="hl opt">!~</span> <span class="hl kwd">/Hewlett[\s-]+Packard/i</span><span class="hl opt">))</span>
            <span class="hl opt">{</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">} =</span> <span class="hl str">&quot;&quot;</span> <span class="hl opt">};</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>

    <span class="hl slc">#- Pre-fill the &quot;Description&quot; field with the printer&apos;s model name</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>desc<span class="hl opt">} &amp;&amp;</span> <span class="hl kwb">$descr</span><span class="hl opt">) {</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>desc<span class="hl opt">} =</span> <span class="hl kwb">$descr</span><span class="hl opt">;</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>desc<span class="hl opt">} =~</span> <span class="hl kwd">s/\|/ /g</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl slc">#- When we have chosen a printer here, the question whether the</span>
    <span class="hl slc">#- automatically chosen model from the database is correct, should</span>
    <span class="hl slc">#- have &quot;This model is correct&quot; as default answer</span>
    <span class="hl kwc">delete</span><span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUALMODEL<span class="hl opt">});</span>

    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> choose_printer_name <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl slc"># Name, description, location</span>
<span class="hl slc">#    $in-&gt;set_help(&apos;setupPrinterName&apos;) if $::isInstall;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$default</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>queue<span class="hl opt">};</span>
    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span><span class="hl opt">(</span>
	 <span class="hl opt">{</span> title <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Enter Printer Name and Comments&quot;</span><span class="hl opt">),</span>
	   <span class="hl slc">#cancel =&gt; !$printer-&gt;{configured}{$queue} ? &apos;&apos; : N(&quot;Remove queue&quot;),</span>
	   callbacks <span class="hl opt">=&gt; {</span> complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
	       <span class="hl kwa">unless</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>queue<span class="hl opt">} =~</span> <span class="hl kwd">/^\w+$/</span><span class="hl opt">) {</span>
		   <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Name of printer should contain only letters, numbers and the underscore&quot;</span><span class="hl opt">));</span>
		   <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span><span class="hl num">0</span><span class="hl opt">);</span>
	       <span class="hl opt">}</span>
	       <span class="hl kwc">local</span> <span class="hl opt">$::</span>isWizard <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>
	       <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>queue<span class="hl opt">}}</span>
		   <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>queue<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl kwb">$default</span> <span class="hl opt">&amp;&amp;</span> 
		   <span class="hl opt">!</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_yesorno</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;The printer</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span> already <span class="hl kwc">exists</span><span class="hl opt">,</span><span class="hl esc">\n</span>do you really want to overwrite its configuration?<span class="hl str">&quot;,</span>
<span class="hl str"></span>					    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{queue}),</span>
<span class="hl str">				      0)) {</span>
<span class="hl str">		   return (1,0); # Let the user correct the name</span>
<span class="hl str">	       }</span>
<span class="hl str">	       return 0;</span>
<span class="hl str">	   },</span>
<span class="hl str">		      },</span>
<span class="hl str">	   messages =&gt;</span>
<span class="hl str">N(&quot;</span>Every printer needs a name <span class="hl opt">(</span><span class="hl kwa">for</span> example <span class="hl esc">\&quot;</span>printer<span class="hl esc">\&quot;</span><span class="hl opt">).</span> The Description <span class="hl kwc">and</span> Location fields <span class="hl kwa">do</span> <span class="hl kwc">not</span> need to be filled <span class="hl kwa">in</span><span class="hl opt">.</span> They are comments <span class="hl kwa">for</span> the users<span class="hl opt">.</span><span class="hl str">&quot;) }, </span>
<span class="hl str">	 [ { label =&gt; N(&quot;</span>Name of printer<span class="hl str">&quot;), val =&gt; \</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{queue} },</span>
<span class="hl str">	   { label =&gt; N(&quot;</span>Description<span class="hl str">&quot;), val =&gt; \</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{desc} },</span>
<span class="hl str">	   { label =&gt; N(&quot;</span>Location<span class="hl str">&quot;), val =&gt; \</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{loc} },</span>
<span class="hl str">	 ]) or return 0;</span>
<span class="hl str"></span>
<span class="hl str"></span>    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{QUEUE} =</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{queue};</span>
<span class="hl str">    1;</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub get_db_entry {</span>
<span class="hl str">    my (</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    #- Read the printer driver database if necessary</span>
<span class="hl str">    if (keys</span> <span class="hl ipl">%printer</span><span class="hl str">::main::thedb == 0) {</span>
<span class="hl str">	my</span> <span class="hl ipl">$_w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(N(&quot;</span>Printerdrake<span class="hl str">&quot;),</span>
<span class="hl str">				   N(&quot;</span>Reading printer database<span class="hl opt">...</span><span class="hl str">&quot;))</span>
<span class="hl str">	    if</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{noninteractive};</span>
<span class="hl str">	printer::main::read_printer_db(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{SPOOLER});</span>
<span class="hl str">    }</span>
<span class="hl str">    my</span> <span class="hl ipl">$_w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(N(&quot;</span>Printerdrake<span class="hl str">&quot;),</span>
<span class="hl str">			       N(&quot;</span>Preparing printer database<span class="hl opt">...</span><span class="hl str">&quot;))</span>
<span class="hl str">	if !</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{noninteractive};</span>
<span class="hl str">    my</span> <span class="hl ipl">$queue</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{OLD_QUEUE};</span>
<span class="hl str">    if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}) {</span>
<span class="hl str">	# The queue was already configured</span>
<span class="hl str">	if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{foomatic}) {</span>
<span class="hl str">	    # The queue was configured with Foomatic</span>
<span class="hl str">	    my</span> <span class="hl ipl">$driverstr</span><span class="hl str">;</span>
<span class="hl str">	    if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{driver} eq &quot;</span>Postscript<span class="hl str">&quot;) {</span>
<span class="hl str"></span>		<span class="hl ipl">$driverstr</span> <span class="hl str">= &quot;</span>PostScript<span class="hl str">&quot;;</span>
<span class="hl str">	    } else {</span>
<span class="hl str"></span>		<span class="hl ipl">$driverstr</span> <span class="hl str">= &quot;</span>GhostScript <span class="hl opt">+</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span>queuedata<span class="hl opt">}{</span>driver<span class="hl opt">}</span><span class="hl str">&quot;;</span>
<span class="hl str">	    }</span>
<span class="hl str">	    my</span> <span class="hl ipl">$make</span> <span class="hl str">= uc(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{make});</span>
<span class="hl str">	    my</span> <span class="hl ipl">$model</span> <span class="hl str">=</span>	<span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{model};</span>
<span class="hl str">	    if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{expert}) {</span>
<span class="hl str"></span>		<span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} = &quot;</span><span class="hl kwb">$make</span><span class="hl opt">|</span><span class="hl kwb">$model</span><span class="hl opt">|</span><span class="hl kwb">$driverstr</span><span class="hl str">&quot;;</span>
<span class="hl str">		# database key contains the &quot;</span><span class="hl opt">(</span>recommended<span class="hl opt">)</span><span class="hl str">&quot; for the</span>
<span class="hl str">		# recommended driver, so add it if necessary</span>
<span class="hl str">		if (!member(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY}, </span>
<span class="hl str">			    keys(</span><span class="hl ipl">%printer</span><span class="hl str">::main::thedb))) {</span>
<span class="hl str"></span>		    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} .= &quot;</span> <span class="hl opt">(</span>recommended<span class="hl opt">)</span><span class="hl str">&quot;;</span>
<span class="hl str">		}</span>
<span class="hl str">	    } else {</span>
<span class="hl str"></span>		<span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} = &quot;</span><span class="hl kwb">$make</span><span class="hl opt">|</span><span class="hl kwb">$model</span><span class="hl str">&quot;;</span>
<span class="hl str">	    }</span>
<span class="hl str"></span>	    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{OLD_CHOICE} =</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY};</span>
<span class="hl str">	} elsif (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{ppd}) {</span>
<span class="hl str">	    # Do we have a native CUPS driver or a PostScript PPD file?</span>
<span class="hl str"></span>	    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} =</span>
<span class="hl str">		printer::main::get_descr_from_ppd(</span><span class="hl ipl">$printer</span><span class="hl str">) ||</span>
<span class="hl str"></span>		<span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY};</span>
<span class="hl str">	    if (!member(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY}, </span>
<span class="hl str">			keys(</span><span class="hl ipl">%printer</span><span class="hl str">::main::thedb))) {</span>
<span class="hl str"></span>		<span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} .= &quot;</span> <span class="hl opt">(</span>recommended<span class="hl opt">)</span><span class="hl str">&quot;;</span>
<span class="hl str">	    }</span>
<span class="hl str"></span>	    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{OLD_CHOICE} =</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY};</span>
<span class="hl str">	}</span>
<span class="hl str">	my (</span><span class="hl ipl">$make,</span> <span class="hl str"></span><span class="hl ipl">$model</span><span class="hl str">);</span>
<span class="hl str">	if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} eq &quot;</span><span class="hl str">&quot;) {</span>
<span class="hl str">	    # Point the list cursor at least to manufacturer and model of </span>
<span class="hl str">	    # the printer</span>
<span class="hl str"></span>	    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} = &quot;</span><span class="hl str">&quot;;</span>
<span class="hl str">	    if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{foomatic}) {</span>
<span class="hl str"></span>		<span class="hl ipl">$make</span> <span class="hl str">= uc(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{make});</span>
<span class="hl str"></span>		<span class="hl ipl">$model</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{model};</span>
<span class="hl str">	    } elsif (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{ppd}) {</span>
<span class="hl str">		my</span> <span class="hl ipl">$makemodel</span> <span class="hl str">=</span>
<span class="hl str">		    printer::main::get_descr_from_ppd(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str">		if (</span><span class="hl ipl">$makemodel</span> <span class="hl str">=~ m!^([^\|]+)\|([^\|]+)(|\|.*)$!) {</span>
<span class="hl str"></span>              <span class="hl ipl">$make</span> <span class="hl str">=</span> <span class="hl ipl">$1</span><span class="hl str">;</span>
<span class="hl str"></span>              <span class="hl ipl">$model</span> <span class="hl str">=</span> <span class="hl ipl">$2</span><span class="hl str">;</span>
<span class="hl str">          }</span>
<span class="hl str">	    }</span>
<span class="hl str">	    foreach my</span> <span class="hl ipl">$key</span> <span class="hl str">(keys</span> <span class="hl ipl">%printer</span><span class="hl str">::main::thedb) {</span>
<span class="hl str">		if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{expert} &amp;&amp;</span>
<span class="hl str"></span>		    <span class="hl ipl">$key</span> <span class="hl str">=~ /^</span><span class="hl ipl">$make\</span><span class="hl str">|</span><span class="hl ipl">$model\</span><span class="hl str">|.*\(recommended\)</span><span class="hl ipl">$/</span> <span class="hl str">||</span>
<span class="hl str">		    !</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{expert} &amp;&amp;</span> <span class="hl ipl">$key</span> <span class="hl str">=~ /^</span><span class="hl ipl">$make\</span><span class="hl str">|</span><span class="hl ipl">$model$/</span><span class="hl str">) {</span>
<span class="hl str"></span>		    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} =</span> <span class="hl ipl">$key</span><span class="hl str">;</span>
<span class="hl str">		}</span>
<span class="hl str">	    }</span>
<span class="hl str">	}</span>
<span class="hl str">	if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} eq &quot;</span><span class="hl str">&quot;) {</span>
<span class="hl str">	    # Exact match of make and model did not work, try to clean</span>
<span class="hl str">	    # up the model name</span>
<span class="hl str"></span>	    <span class="hl ipl">$model</span> <span class="hl str">=~ s/PS//;</span>
<span class="hl str"></span>	    <span class="hl ipl">$model</span> <span class="hl str">=~ s/PostScript//i;</span>
<span class="hl str"></span>	    <span class="hl ipl">$model</span> <span class="hl str">=~ s/Series//i;</span>
<span class="hl str">	    foreach my</span> <span class="hl ipl">$key</span> <span class="hl str">(keys</span> <span class="hl ipl">%printer</span><span class="hl str">::main::thedb) {</span>
<span class="hl str">		if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{expert} &amp;&amp;</span> <span class="hl ipl">$key</span> <span class="hl str">=~ /^</span><span class="hl ipl">$make\</span><span class="hl str">|</span><span class="hl ipl">$model\</span><span class="hl str">|.*\(recommended\)</span><span class="hl ipl">$/</span> <span class="hl str">||</span>
<span class="hl str">		    !</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{expert} &amp;&amp;</span> <span class="hl ipl">$key</span> <span class="hl str">=~ /^</span><span class="hl ipl">$make\</span><span class="hl str">|</span><span class="hl ipl">$model$/</span><span class="hl str">) {</span>
<span class="hl str"></span>		    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} =</span> <span class="hl ipl">$key</span><span class="hl str">;</span>
<span class="hl str">		}</span>
<span class="hl str">	    }</span>
<span class="hl str">	}</span>
<span class="hl str">	if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} eq &quot;</span><span class="hl str">&quot; &amp;&amp;</span> <span class="hl ipl">$make</span> <span class="hl str">ne &quot;</span><span class="hl str">&quot;) {</span>
<span class="hl str">	    # Exact match with cleaned-up model did not work, try a best match</span>
<span class="hl str">	    my</span> <span class="hl ipl">$matchstr</span> <span class="hl str">= &quot;</span><span class="hl kwb">$make</span><span class="hl opt">|</span><span class="hl kwb">$model</span><span class="hl str">&quot;;</span>
<span class="hl str"></span>	    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} = </span>
<span class="hl str">		bestMatchSentence(</span><span class="hl ipl">$matchstr,</span> <span class="hl str">keys</span> <span class="hl ipl">%printer</span><span class="hl str">::main::thedb);</span>
<span class="hl str">	    # If the manufacturer was not guessed correctly, discard the</span>
<span class="hl str">	    # guess.</span>
<span class="hl str">	    my</span> <span class="hl ipl">$guessedmake</span> <span class="hl str">= lc(</span><span class="hl ipl">$1</span><span class="hl str">) if</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} =~ /^([^\|]+)\|/;</span>
<span class="hl str">	    if (</span><span class="hl ipl">$matchstr</span> <span class="hl str">!~ /</span><span class="hl ipl">$guessedmake/i</span> <span class="hl str">&amp;&amp;</span>
<span class="hl str">		(</span><span class="hl ipl">$guessedmake</span> <span class="hl str">ne &quot;</span>hp<span class="hl str">&quot; ||</span>
<span class="hl str"></span>		 <span class="hl ipl">$matchstr</span> <span class="hl str">!~ /Hewlett[\s-]+Packard/i))</span>
<span class="hl str">	    {</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} = &quot;</span><span class="hl str">&quot; };</span>
<span class="hl str">	}</span>
<span class="hl str">	if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} eq &quot;</span><span class="hl str">&quot;) {</span>
<span class="hl str">	    # Set the OLD_CHOICE to a non-existing value</span>
<span class="hl str"></span>	    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{OLD_CHOICE} = &quot;</span>XXX<span class="hl str">&quot;;</span>
<span class="hl str">	}</span>
<span class="hl str">    } else {</span>
<span class="hl str">	if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{expert} &amp;&amp;</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} !~ /(recommended)/) {</span>
<span class="hl str">	    my (</span><span class="hl ipl">$make,</span> <span class="hl str"></span><span class="hl ipl">$model</span><span class="hl str">) =</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} =~ /^([^\|]+)\|([^\|]+)\|/;</span>
<span class="hl str">	    foreach my</span> <span class="hl ipl">$key</span> <span class="hl str">(keys</span> <span class="hl ipl">%printer</span><span class="hl str">::main::thedb) {</span>
<span class="hl str">		if (</span><span class="hl ipl">$key</span> <span class="hl str">=~ /^</span><span class="hl ipl">$make\</span><span class="hl str">|</span><span class="hl ipl">$model\</span><span class="hl str">|.*\(recommended\)</span><span class="hl ipl">$/</span><span class="hl str">) {</span>
<span class="hl str"></span>		    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} =</span> <span class="hl ipl">$key</span><span class="hl str">;</span>
<span class="hl str">		}</span>
<span class="hl str">	    }</span>
<span class="hl str">	}</span>
<span class="hl str"></span>	<span class="hl ipl">$printer</span><span class="hl str">-&gt;{OLD_CHOICE} =</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY};</span>
<span class="hl str">    }</span>
<span class="hl str">    1;</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub is_model_correct {</span>
<span class="hl str">    my (</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">#</span>    <span class="hl ipl">$in</span><span class="hl str">-&gt;set_help(&apos;chooseModel&apos;) if $::isInstall;</span>
<span class="hl str">    my</span> <span class="hl ipl">$dbentry</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY};</span>
<span class="hl str">    if (!</span><span class="hl ipl">$dbentry</span><span class="hl str">) {</span>
<span class="hl str">	# If printerdrake could not determine the model, omit this dialog and</span>
<span class="hl str">	# let the user choose manually.</span>
<span class="hl str"></span>	<span class="hl ipl">$printer</span><span class="hl str">-&gt;{MANUALMODEL} = 1;</span>
<span class="hl str">	return 1;</span>
<span class="hl str">    }</span>
<span class="hl str"></span>    <span class="hl ipl">$dbentry</span> <span class="hl str">=~ s/\|/ /g;</span>
<span class="hl str">    my</span> <span class="hl ipl">$res</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_from_list_(</span>
<span class="hl str">	     N(&quot;</span>Your printer model<span class="hl str">&quot;),</span>
<span class="hl str">	     N(&quot;</span>Printerdrake <span class="hl kwa">has</span> compared the model name resulting from the printer auto-detection with the models listed <span class="hl kwa">in</span> its printer database to find the best match<span class="hl opt">.</span> This choice can be wrong<span class="hl opt">,</span> especially <span class="hl kwa">when</span> your printer <span class="hl kwa">is</span> <span class="hl kwc">not</span> listed at all <span class="hl kwa">in</span> the database<span class="hl opt">.</span> So check whether the choice <span class="hl kwa">is</span> correct <span class="hl kwc">and</span> click <span class="hl esc">\&quot;</span>The model <span class="hl kwa">is</span> correct<span class="hl esc">\&quot;</span> <span class="hl kwa">if</span> so <span class="hl kwc">and</span> <span class="hl kwa">if</span> <span class="hl kwc">not</span><span class="hl opt">,</span> click <span class="hl esc">\&quot;</span>Select model manually<span class="hl esc">\&quot;</span> so that you can choose your printer model manually on the <span class="hl kwa">next</span> screen<span class="hl opt">.</span>

For your printer Printerdrake <span class="hl kwa">has</span> found<span class="hl opt">:</span>

<span class="hl kwb">%s</span><span class="hl str">&quot;,</span> <span class="hl ipl">$dbentry</span><span class="hl str">),</span>
<span class="hl str">	     [N(&quot;</span>The model <span class="hl kwa">is</span> correct<span class="hl str">&quot;),</span>
<span class="hl str">	      N(&quot;</span>Select model manually<span class="hl str">&quot;)],</span>
<span class="hl str">	     (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{MANUALMODEL} ? N(&quot;</span>Select model manually<span class="hl str">&quot;) : </span>
<span class="hl str">	      N(&quot;</span>The model <span class="hl kwa">is</span> correct<span class="hl str">&quot;)));</span>
<span class="hl str">    return 0 if !</span><span class="hl ipl">$res</span><span class="hl str">;</span>
<span class="hl str"></span>    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{MANUALMODEL} =</span> <span class="hl ipl">$res</span> <span class="hl str">eq N(&quot;</span>Select model manually<span class="hl str">&quot;);</span>
<span class="hl str">    1;</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub choose_model {</span>
<span class="hl str">    my (</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">#</span>    <span class="hl ipl">$in</span><span class="hl str">-&gt;set_help(&apos;chooseModel&apos;) if $::isInstall;</span>
<span class="hl str">    #- Read the printer driver database if necessary</span>
<span class="hl str">    if (keys</span> <span class="hl ipl">%printer</span><span class="hl str">::main::thedb == 0) {</span>
<span class="hl str">	my</span> <span class="hl ipl">$_w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(N(&quot;</span>Printerdrake<span class="hl str">&quot;),</span>
<span class="hl str">				  N(&quot;</span>Reading printer database<span class="hl opt">...</span><span class="hl str">&quot;));</span>
<span class="hl str">        printer::main::read_printer_db(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{SPOOLER});</span>
<span class="hl str">    }</span>
<span class="hl str">    if (!member(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY}, keys(</span><span class="hl ipl">%printer</span><span class="hl str">::main::thedb))) {</span>
<span class="hl str"></span>	<span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} = N(&quot;</span>Raw printer <span class="hl opt">(</span>No driver<span class="hl opt">)</span><span class="hl str">&quot;);</span>
<span class="hl str">    }</span>
<span class="hl str">    # Choose the printer/driver from the list</span>
<span class="hl str">    return(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} =</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_from_treelist(N(&quot;</span>Printer model selection<span class="hl str">&quot;),</span>
<span class="hl str">							 N(&quot;</span>Which printer model <span class="hl kwa">do</span> you have?<span class="hl str">&quot;) .</span>
<span class="hl str">							 N(&quot;</span>

Please check whether Printerdrake did the auto-detection of your printer model correctly<span class="hl opt">.</span> Find the correct model <span class="hl kwa">in</span> the list <span class="hl kwa">when</span> a wrong model <span class="hl kwc">or</span> <span class="hl esc">\&quot;</span>Raw printer<span class="hl esc">\&quot;</span> <span class="hl kwa">is</span> highlighted<span class="hl opt">.</span><span class="hl str">&quot;) . &quot;</span> <span class="hl str">&quot; .</span>
<span class="hl str">N(&quot;</span>If your printer <span class="hl kwa">is</span> <span class="hl kwc">not</span> listed<span class="hl opt">,</span> choose a compatible <span class="hl opt">(</span>see printer manual<span class="hl opt">)</span> <span class="hl kwc">or</span> a similar one<span class="hl opt">.</span><span class="hl str">&quot;), &apos;|&apos;,</span>
<span class="hl str">							 [ keys</span> <span class="hl ipl">%printer</span><span class="hl str">::main::thedb ],</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY}));</span>
<span class="hl str"></span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">my</span> <span class="hl ipl">%lexmarkinkjet_options</span> <span class="hl str">= (</span>
<span class="hl str">                             &apos;parallel:/dev/lp0&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>ParPort1<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;parallel:/dev/lp1&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>ParPort2<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;parallel:/dev/lp2&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>ParPort3<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;usb:/dev/usb/lp0&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>USB1<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;usb:/dev/usb/lp1&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>USB2<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;usb:/dev/usb/lp2&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>USB3<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;file:/dev/lp0&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>ParPort1<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;file:/dev/lp1&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>ParPort2<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;file:/dev/lp2&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>ParPort3<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;file:/dev/usb/lp0&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>USB1<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;file:/dev/usb/lp1&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>USB2<span class="hl str">&quot;,</span>
<span class="hl str">                             &apos;file:/dev/usb/lp2&apos; =&gt; &quot;</span> <span class="hl opt">-</span>o Port<span class="hl opt">=</span>USB3<span class="hl str">&quot;,</span>
<span class="hl str">                             );</span>
<span class="hl str"></span>
<span class="hl str">sub get_printer_info {</span>
<span class="hl str">    my (</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    my</span> <span class="hl ipl">$queue</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{OLD_QUEUE};</span>
<span class="hl str">    my</span> <span class="hl ipl">$oldchoice</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{OLD_CHOICE};</span>
<span class="hl str">    my</span> <span class="hl ipl">$newdriver</span> <span class="hl str">= 0;</span>
<span class="hl str">    if (!</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">} ||    # New queue  or</span>
<span class="hl str">	(</span><span class="hl ipl">$oldchoice</span> <span class="hl str">&amp;&amp;</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} &amp;&amp; # make/model/driver changed</span>
<span class="hl str">	 (</span><span class="hl ipl">$oldchoice</span> <span class="hl str">ne</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY} ||</span>
<span class="hl str"></span>	  <span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{driver} ne </span>
<span class="hl str"></span>	   <span class="hl ipl">$printer</span><span class="hl str">::main::thedb{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{DBENTRY}}{driver}))) {</span>
<span class="hl str">	delete(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{printer});</span>
<span class="hl str">	delete(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{ppd});</span>
<span class="hl str"></span>	<span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{foomatic} = 0;</span>
<span class="hl str">	# Read info from printer database</span>
<span class="hl str">	foreach (qw(printer ppd driver make model)</span><span class="hl opt">) {</span> <span class="hl slc">#- copy some parameter, shorter that way...</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">} =</span> <span class="hl kwb">$printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb<span class="hl opt">{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">}}{</span><span class="hl kwb">$_</span><span class="hl opt">};</span>
	<span class="hl opt">}</span>
	<span class="hl kwb">$newdriver</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl slc"># Use the &quot;printer&quot; and not the &quot;foomatic&quot; field to identify a Foomatic</span>
    <span class="hl slc"># queue because in a new queue &quot;foomatic&quot; is not set yet.</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>printer<span class="hl opt">} ||</span> <span class="hl slc"># We have a Foomatic queue</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>ppd<span class="hl opt">}) {</span> <span class="hl slc"># We have a PPD queue</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>printer<span class="hl opt">}) {</span> <span class="hl slc"># Foomatic queue?</span>
	    <span class="hl slc"># In case of a new queue &quot;foomatic&quot; was not set yet</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>foomatic<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>ppd<span class="hl opt">} =</span> <span class="hl kwc">undef</span><span class="hl opt">;</span>
	<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>ppd<span class="hl opt">}) {</span> <span class="hl slc"># PPD queue?</span>
	    <span class="hl slc"># If we had a Foomatic queue before, unmark the flag and</span>
	    <span class="hl slc"># initialize the &quot;printer&quot; and &quot;driver&quot; fields</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>foomatic<span class="hl opt">} =</span> <span class="hl num">0</span><span class="hl opt">;</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>printer<span class="hl opt">} =</span> <span class="hl kwc">undef</span><span class="hl opt">;</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>driver<span class="hl opt">} =</span> <span class="hl str">&quot;PPD&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Now get the options for this printer/driver combo</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">} &amp;&amp;</span> 
	    <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span>queuedata<span class="hl opt">}{</span>foomatic<span class="hl opt">} ||</span>
	     <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span>queuedata<span class="hl opt">}{</span>ppd<span class="hl opt">})) {</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$newdriver</span><span class="hl opt">) {</span>
		<span class="hl slc"># The user didn&apos;t change the printer/driver</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">} =</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span>args<span class="hl opt">};</span>
	    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>foomatic<span class="hl opt">}) {</span>
		<span class="hl slc"># The queue was already configured with Foomatic ...</span>
		<span class="hl slc"># ... and the user has chosen another printer/driver</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">} =</span> 
		    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>read_foomatic_options<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>ppd<span class="hl opt">}) {</span>
		<span class="hl slc"># ... and the user has chosen another printer/driver</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">} =</span> 
		    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>read_ppd_options<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl slc"># The queue was not configured with Foomatic before</span>
	    <span class="hl slc"># Set some special options</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPECIAL_OPTIONS<span class="hl opt">} =</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">;</span>
	    <span class="hl slc"># Default page size depending on the country/language</span>
	    <span class="hl slc"># (US/Canada -&gt; Letter, Others -&gt; A4)</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$pagesize</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>PAPERSIZE<span class="hl opt">}) {</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPECIAL_OPTIONS<span class="hl opt">} .=</span> 
		    <span class="hl str">&quot; -o PageSize=</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{PAPERSIZE}&quot;</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">((</span><span class="hl kwb">$pagesize</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;{</span>lang<span class="hl opt">}) ||</span>
		     <span class="hl opt">(</span><span class="hl kwb">$pagesize</span> <span class="hl opt">=</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>LC_PAPER<span class="hl opt">}) ||</span>
		     <span class="hl opt">(</span><span class="hl kwb">$pagesize</span> <span class="hl opt">=</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>LANG<span class="hl opt">}) ||</span>
		     <span class="hl opt">(</span><span class="hl kwb">$pagesize</span> <span class="hl opt">=</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>LANGUAGE<span class="hl opt">}) ||</span>
		     <span class="hl opt">(</span><span class="hl kwb">$pagesize</span> <span class="hl opt">=</span> <span class="hl kwb">$ENV</span><span class="hl opt">{</span>LC_ALL<span class="hl opt">})) {</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$pagesize</span> <span class="hl opt">=~</span> <span class="hl kwd">/^en_CA/</span> <span class="hl opt">||</span>
		    <span class="hl kwb">$pagesize</span> <span class="hl opt">=~</span> <span class="hl kwd">/^fr_CA/</span> <span class="hl opt">||</span> 
		    <span class="hl kwb">$pagesize</span> <span class="hl opt">=~</span> <span class="hl kwd">/^en_US/</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$pagesize</span> <span class="hl opt">=</span> <span class="hl str">&quot;Letter&quot;</span><span class="hl opt">;</span>
		<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		    <span class="hl kwb">$pagesize</span> <span class="hl opt">=</span> <span class="hl str">&quot;A4&quot;</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPECIAL_OPTIONS<span class="hl opt">} .=</span> 
		    <span class="hl str">&quot; -o PageSize=</span><span class="hl ipl">$pagesize</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl slc"># oki4w driver -&gt; OKI winprinter which needs the</span>
	    <span class="hl slc"># oki4daemon to work</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>driver<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;oki4w&apos;</span><span class="hl opt">) {</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} !~</span> 
		    <span class="hl kwd">m!^(parallel|file):/dev/lp0$!</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;OKI winprinter configuration&quot;</span><span class="hl opt">),</span>
				  N<span class="hl opt">(</span><span class="hl str">&quot;You are configuring an OKI laser winprinter. These printers</span><span class="hl esc">\n</span><span class="hl str">use a very special communication protocol and therefore they work only when connected to the first parallel port. When your printer is connected to another port or to a print server box please connect the printer to the first parallel port before you print a test page. Otherwise the printer will not work. Your connection type setting will be ignored by the driver.&quot;</span><span class="hl opt">));</span>
		<span class="hl opt">}</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =</span> <span class="hl str">&apos;file:/dev/null&apos;</span><span class="hl opt">;</span>
		<span class="hl slc"># Start the oki4daemon</span>
		services<span class="hl opt">::</span>start_service_on_boot<span class="hl opt">(</span><span class="hl str">&apos;oki4daemon&apos;</span><span class="hl opt">);</span>
		printer<span class="hl opt">::</span>services<span class="hl opt">::</span>start<span class="hl opt">(</span><span class="hl str">&apos;oki4daemon&apos;</span><span class="hl opt">);</span>
		<span class="hl slc"># Set permissions</span>
		
		<span class="hl kwc">my</span> <span class="hl kwb">$h</span> <span class="hl opt">= {</span>
		    cups <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> set_permissions<span class="hl opt">(</span><span class="hl str">&apos;/dev/oki4drv&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;660&apos;</span><span class="hl opt">,</span> 
						  <span class="hl str">&apos;lp&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;sys&apos;</span><span class="hl opt">) },</span>
		    pdq  <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span> set_permissions<span class="hl opt">(</span><span class="hl str">&apos;/dev/oki4drv&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;666&apos;</span><span class="hl opt">) }</span>
		<span class="hl opt">};</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$s</span> <span class="hl opt">=</span> <span class="hl kwb">$h</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}} ||=</span> 
		    <span class="hl kwa">sub</span> <span class="hl opt">{</span> set_permissions<span class="hl opt">(</span><span class="hl str">&apos;/dev/oki4drv&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;660&apos;</span><span class="hl opt">,</span>
					  <span class="hl str">&apos;lp&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;lp&apos;</span><span class="hl opt">) };</span>
		<span class="hl opt">&amp;</span><span class="hl kwb">$s</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>driver<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;lexmarkinkjet&apos;</span><span class="hl opt">) {</span>
		<span class="hl slc"># Set &quot;Port&quot; option</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$opt</span> <span class="hl opt">=</span>
		    <span class="hl kwb">$lexmarkinkjet_options</span><span class="hl opt">{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">}};</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$opt</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPECIAL_OPTIONS<span class="hl opt">} .=</span> <span class="hl kwb">$opt</span><span class="hl opt">;</span>
		<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Lexmark inkjet configuration&quot;</span><span class="hl opt">),</span>
				  N<span class="hl opt">(</span><span class="hl str">&quot;The inkjet printer drivers provided by Lexmark only support local printers, no printers on remote machines or print server boxes. Please connect your printer to a local port or configure it on the machine where it is connected to.&quot;</span><span class="hl opt">));</span>
		    <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
		<span class="hl slc"># Set device permissions</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> 
		    <span class="hl kwd">/^\s*(file|parallel|usb):(\S*)\s*$/</span><span class="hl opt">) {</span>
              <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;cups&apos;</span><span class="hl opt">) {</span>
                  set_permissions<span class="hl opt">(</span><span class="hl kwb">$2,</span> <span class="hl str">&apos;660&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;lp&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;sys&apos;</span><span class="hl opt">);</span>
              <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;pdq&apos;</span><span class="hl opt">) {</span>
                  set_permissions<span class="hl opt">(</span><span class="hl kwb">$2,</span> <span class="hl str">&apos;666&apos;</span><span class="hl opt">);</span>
              <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
                  set_permissions<span class="hl opt">(</span><span class="hl kwb">$2,</span> <span class="hl str">&apos;660&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;lp&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;lp&apos;</span><span class="hl opt">);</span>
              <span class="hl opt">}</span>
		<span class="hl opt">}</span>
		<span class="hl slc"># This is needed to have the device not blocked by the</span>
		<span class="hl slc"># spooler backend.</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =</span> <span class="hl str">&apos;file:/dev/null&apos;</span><span class="hl opt">;</span>
		<span class="hl slc">#install packages</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$drivertype</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>model<span class="hl opt">};</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$drivertype</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;Z22&apos;</span><span class="hl opt">) {</span> <span class="hl kwb">$drivertype</span> <span class="hl opt">=</span> <span class="hl str">&apos;Z32&apos;</span> <span class="hl opt">}</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$drivertype</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;Z23&apos;</span><span class="hl opt">) {</span> <span class="hl kwb">$drivertype</span> <span class="hl opt">=</span> <span class="hl str">&apos;Z33&apos;</span> <span class="hl opt">}</span>
		<span class="hl kwb">$drivertype</span> <span class="hl opt">=</span> <span class="hl kwc">lc</span><span class="hl opt">(</span><span class="hl kwb">$drivertype</span><span class="hl opt">);</span>
		<span class="hl kwa">if</span> <span class="hl opt">(!</span>files_exist<span class="hl opt">(</span><span class="hl str">&quot;/usr/local/lexmark/</span><span class="hl ipl">$drivertype/$drivertype</span><span class="hl str">&quot;</span><span class="hl opt">)) {</span>
		    <span class="hl kwc">eval</span> <span class="hl opt">{</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&quot;lexmark-drivers-</span><span class="hl ipl">$drivertype</span><span class="hl str">&quot;</span><span class="hl opt">) };</span>
		<span class="hl opt">}</span>
		<span class="hl kwa">if</span> <span class="hl opt">(!</span>files_exist<span class="hl opt">(</span><span class="hl str">&quot;/usr/local/lexmark/</span><span class="hl ipl">$drivertype/$drivertype</span><span class="hl str">&quot;</span><span class="hl opt">)) {</span>
		    <span class="hl slc"># Driver installation failed, probably we do not have</span>
		    <span class="hl slc"># the commercial CDs</span>
		    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Lexmark inkjet configuration&quot;</span><span class="hl opt">),</span>
				  N<span class="hl opt">(</span><span class="hl str">&quot;To be able to print with your Lexmark inkjet and this configuration, you need the inkjet printer drivers provided by Lexmark (http://www.lexmark.com/). Click on the</span> <span class="hl esc">\&quot;</span><span class="hl str">Drivers</span><span class="hl esc">\&quot;</span> <span class="hl str">link. Then choose your model and afterwards</span> <span class="hl esc">\&quot;</span><span class="hl str">Linux</span><span class="hl esc">\&quot;</span> <span class="hl str">as operating system. The drivers come as RPM packages or shell scripts with interactive graphical installation. You do not need to do this configuration by the graphical frontends. Cancel directly after the license agreement. Then print printhead alignment pages with</span> <span class="hl esc">\&quot;</span><span class="hl str">lexmarkmaintain</span><span class="hl esc">\&quot;</span> <span class="hl str">and adjust the head alignment settings with this program.&quot;</span><span class="hl opt">));</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>printer<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;HP-LaserJet_1000&apos;</span><span class="hl opt">) {</span>
		<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Firmware-Upload for HP LaserJet 1000&quot;</span><span class="hl opt">),</span>
			      <span class="hl kwb">$hp1000fwtext</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>foomatic<span class="hl opt">}) {</span> <span class="hl slc"># Foomatic queue?</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">} =</span> 
		    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>read_foomatic_options<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>  <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>ppd<span class="hl opt">}) {</span> <span class="hl slc"># PPD queue?</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">} =</span>
		    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>read_ppd_options<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwc">delete</span><span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPECIAL_OPTIONS<span class="hl opt">});</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_options <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">&#64;simple_options</span> <span class="hl opt">=</span> 
	<span class="hl opt">(</span><span class="hl str">&quot;PageSize&quot;</span><span class="hl opt">,</span>        <span class="hl slc"># Media properties</span>
	 <span class="hl str">&quot;MediaType&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Form&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;InputSlot&quot;</span><span class="hl opt">,</span>       <span class="hl slc"># Trays</span>
	 <span class="hl str">&quot;Tray&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;OutBin&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;OutputBin&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;FaceUp&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;FaceDown&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Collate&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Manual&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;ManualFeed&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Manualfeed&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;ManualFeeder&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Feeder&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Duplex&quot;</span><span class="hl opt">,</span>          <span class="hl slc"># Double-sided printing</span>
	 <span class="hl str">&quot;Binding&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Tumble&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;DoubleSided&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Resolution&quot;</span><span class="hl opt">,</span>      <span class="hl slc"># Resolution/Quality</span>
	 <span class="hl str">&quot;GSResolution&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;HWResolution&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;JCLResolution&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Quality&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;PrintQuality&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;PrintoutQuality&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;QualityType&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;ImageType&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;stpImageType&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;EconoMode&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;JCLEconoMode&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;FastRes&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;JCLFastRes&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;InkType&quot;</span><span class="hl opt">,</span>         <span class="hl slc"># Colour/Gray/BW, 4-ink/6-ink</span>
	 <span class="hl str">&quot;stpInkType&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Mode&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;OutputMode&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;OutputType&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;ColorMode&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;ColorModel&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;PrintingMode&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Monochrome&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;BlackOnly&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Grayscale&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;GrayScale&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Colour&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Color&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Gamma&quot;</span><span class="hl opt">,</span>           <span class="hl slc"># Lighter/Darker</span>
	 <span class="hl str">&quot;GammaCorrection&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;GammaGeneral&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;MasterGamma&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;StpGamma&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;stpGamma&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;EconoMode&quot;</span><span class="hl opt">,</span>       <span class="hl slc"># Ink/Toner saving</span>
	 <span class="hl str">&quot;Economode&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;TonerSaving&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;JCLEconomode&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;HPNup&quot;</span><span class="hl opt">,</span>           <span class="hl slc"># Other useful options</span>
	 <span class="hl str">&quot;InstalledMemory&quot;</span><span class="hl opt">,</span> <span class="hl slc"># Laser printer hardware config</span>
	 <span class="hl str">&quot;Option1&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option2&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option3&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option4&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option5&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option6&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option7&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option8&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option9&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option10&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option11&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option12&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option13&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option14&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option15&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option16&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option17&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option18&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option19&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option20&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option21&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option22&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option23&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option24&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option25&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option26&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option27&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option28&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option29&quot;</span><span class="hl opt">,</span>
	 <span class="hl str">&quot;Option30&quot;</span>
	 <span class="hl opt">);</span>
<span class="hl slc">#    $in-&gt;set_help(&apos;setupOptions&apos;) if $::isInstall;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>printer<span class="hl opt">} ||</span> <span class="hl slc"># We have a Foomatic queue</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>ppd<span class="hl opt">}) {</span> <span class="hl slc"># We have a CUPS+PPD queue</span>
	<span class="hl slc"># Set up the widgets for the option dialog</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$helptext</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer default settings</span>
<span class="hl str"></span>
<span class="hl str">You should make sure that the page size and the ink type/printing mode (if available) and also the hardware configuration of laser printers (memory, duplex unit, extra trays) are set correctly. Note that with a very high printout quality/resolution printing can get substantially slower.&quot;</span><span class="hl opt">);</span>
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;widgets</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;userinputs</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;choicelists</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;shortchoicelists</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$i</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;oldgroup</span> <span class="hl opt">= (</span><span class="hl str">&quot;&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">);</span>
	<span class="hl kwa">for</span> <span class="hl opt">(</span><span class="hl kwb">$i</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span> <span class="hl kwb">$i</span> <span class="hl opt">&lt;=</span> <span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}};</span> <span class="hl kwb">$i++</span><span class="hl opt">) {</span>
	    <span class="hl slc"># Do not show hidden options (member options of a forced</span>
	    <span class="hl slc"># composite option)</span>
	    <span class="hl kwa">next if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>hidden<span class="hl opt">};</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$optshortdefault</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl kwa">default</span><span class="hl opt">};</span>
	    <span class="hl slc"># Should the option only show when the &quot;Advanced&quot; button was</span>
	    <span class="hl slc"># clicked?</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$advanced</span> <span class="hl opt">= ((</span><span class="hl kwc">defined</span><span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>group<span class="hl opt">}) &amp;&amp;</span>
			     <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>group<span class="hl opt">} !~</span>
			      <span class="hl kwd">/^(|General|.*install.*)$/i</span><span class="hl opt">)) ||</span>
			    <span class="hl opt">(!(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>group<span class="hl opt">}) &amp;&amp;</span>
			     <span class="hl opt">!</span>member<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>name<span class="hl opt">},</span>
				     <span class="hl kwb">&#64;simple_options</span><span class="hl opt">))</span> ? <span class="hl num">1</span> <span class="hl opt">:</span> <span class="hl num">0</span><span class="hl opt">);</span>
	    <span class="hl slc"># Group header</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>group<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl kwb">$oldgroup</span><span class="hl opt">[</span><span class="hl kwb">$advanced</span><span class="hl opt">]) {</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$_level</span> <span class="hl opt">=</span> <span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>grouptrans<span class="hl opt">}};</span>
		<span class="hl kwb">$oldgroup</span><span class="hl opt">[</span><span class="hl kwb">$advanced</span><span class="hl opt">] =</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>group<span class="hl opt">};</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>group<span class="hl opt">}) {</span>
		    <span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;widgets,</span>
			 <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> 
			   <span class="hl kwc">join</span><span class="hl opt">(</span><span class="hl str">&quot; / &quot;</span><span class="hl opt">, &#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>grouptrans<span class="hl opt">}}),</span>
			   advanced <span class="hl opt">=&gt;</span> <span class="hl kwb">$advanced</span> <span class="hl opt">});</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>type<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;enum&apos;</span><span class="hl opt">) {</span>
		<span class="hl slc"># enumerated option</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;choicelists,</span> <span class="hl opt">[]);</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;shortchoicelists,</span> <span class="hl opt">[]);</span>
		<span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$choice</span> <span class="hl opt">(&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>vals<span class="hl opt">}}) {</span>
		    <span class="hl kwc">push</span><span class="hl opt">(&#64;{</span><span class="hl kwb">$choicelists</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">]},</span> <span class="hl kwb">$choice</span><span class="hl opt">-&gt;{</span>comment<span class="hl opt">});</span>
		    <span class="hl kwc">push</span><span class="hl opt">(&#64;{</span><span class="hl kwb">$shortchoicelists</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">]},</span> <span class="hl kwb">$choice</span><span class="hl opt">-&gt;{</span>value<span class="hl opt">});</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$choice</span><span class="hl opt">-&gt;{</span>value<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl kwb">$optshortdefault</span><span class="hl opt">) {</span>
			<span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">] =</span> <span class="hl kwb">$choice</span><span class="hl opt">-&gt;{</span>comment<span class="hl opt">};</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;widgets,</span>
		     <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>comment<span class="hl opt">},</span> 
		       val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">],</span> 
		       not_edit <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span>
		       list <span class="hl opt">=&gt;</span> \<span class="hl opt">&#64;{</span><span class="hl kwb">$choicelists</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">]},</span>
		       <span class="hl kwc">sort</span> <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span>
		       advanced <span class="hl opt">=&gt;</span> <span class="hl kwb">$advanced,</span>
		       help <span class="hl opt">=&gt;</span> <span class="hl kwb">$helptext</span> <span class="hl opt">})</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>name<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&apos;PageRegion&apos;</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>type<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;bool&apos;</span><span class="hl opt">) {</span>
		<span class="hl slc"># boolean option</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;choicelists,</span> <span class="hl opt">[(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>comment_true<span class="hl opt">} ||</span>
				     <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>name<span class="hl opt">} ||</span> <span class="hl str">&quot;Yes&quot;</span><span class="hl opt">),</span>
				    <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>comment_false<span class="hl opt">} ||</span>
				     <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>name_false<span class="hl opt">} ||</span>
				     <span class="hl str">&quot;No&quot;</span><span class="hl opt">)]);</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;shortchoicelists,</span> <span class="hl opt">[]);</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$numdefault</span> <span class="hl opt">=</span> 
		    <span class="hl opt">(</span><span class="hl kwb">$optshortdefault</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^\s*(true|on|yes|1)\s*$!</span> ? 
		     <span class="hl str">&quot;1&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;0&quot;</span><span class="hl opt">);</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;userinputs, $choicelists</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">][</span><span class="hl num">1</span><span class="hl opt">-</span><span class="hl kwb">$numdefault</span><span class="hl opt">]);</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;widgets,</span>
		     <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>comment<span class="hl opt">},</span>
		       val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">],</span>
		       not_edit <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span>
		       list <span class="hl opt">=&gt;</span> \<span class="hl opt">&#64;{</span><span class="hl kwb">$choicelists</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">]},</span>
		       <span class="hl kwc">sort</span> <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span>
		       advanced <span class="hl opt">=&gt;</span> <span class="hl kwb">$advanced,</span>
		       help <span class="hl opt">=&gt;</span> <span class="hl kwb">$helptext</span> <span class="hl opt">});</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl slc"># numerical option</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;choicelists,</span> <span class="hl opt">[]);</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;shortchoicelists,</span> <span class="hl opt">[]);</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;userinputs, $optshortdefault</span><span class="hl opt">);</span>
		<span class="hl kwc">push</span><span class="hl opt">(</span><span class="hl kwb">&#64;widgets,</span>
		     <span class="hl opt">{</span> label <span class="hl opt">=&gt;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>comment<span class="hl opt">} .</span> 
			   <span class="hl str">&quot; (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{ARGS}[</span><span class="hl ipl">$i</span><span class="hl str">]{min}... &quot;</span> <span class="hl opt">.</span>
			       <span class="hl str">&quot;</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{ARGS}[</span><span class="hl ipl">$i</span><span class="hl str">]{max})&quot;</span><span class="hl opt">,</span>
			   <span class="hl slc">#type =&gt; &apos;range&apos;,</span>
			   <span class="hl slc">#min =&gt; $printer-&gt;{ARGS}[$i]{min},</span>
			   <span class="hl slc">#max =&gt; $printer-&gt;{ARGS}[$i]{max},</span>
			   val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">],</span>
			   advanced <span class="hl opt">=&gt;</span> <span class="hl kwb">$advanced,</span>
			   help <span class="hl opt">=&gt;</span> <span class="hl kwb">$helptext</span> <span class="hl opt">});</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Show the options dialog. The call-back function does a</span>
	<span class="hl slc"># range check of the numerical options.</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$windowtitle</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{make}</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{model}&quot;</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">}) {</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$driver</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$driver</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>driver<span class="hl opt">}) {</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>foomatic<span class="hl opt">}) {</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$driver</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;Postscript&apos;</span><span class="hl opt">) {</span>
			<span class="hl kwb">$driver</span> <span class="hl opt">=</span> <span class="hl str">&quot;PostScript&quot;</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
			<span class="hl kwb">$driver</span> <span class="hl opt">=</span> <span class="hl str">&quot;GhostScript +</span> <span class="hl ipl">$driver</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>ppd<span class="hl opt">}) {</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">}) {</span>
			<span class="hl kwb">$driver</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span> <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">} =~</span> <span class="hl kwd">/^[^\|]*\|[^\|]*\|(.*)$/</span><span class="hl opt">;</span>
		    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
			<span class="hl kwb">$driver</span> <span class="hl opt">=</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>get_descr_from_ppd<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
			<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$driver</span> <span class="hl opt">=~</span> <span class="hl kwd">/^[^\|]*\|[^\|]*$/</span><span class="hl opt">) {</span> <span class="hl slc"># No driver info</span>
			    <span class="hl kwb">$driver</span> <span class="hl opt">=</span> <span class="hl str">&quot;PPD&quot;</span><span class="hl opt">;</span>
			<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
			    <span class="hl kwb">$driver</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span> <span class="hl kwa">if</span> <span class="hl kwb">$driver</span> <span class="hl opt">=~</span> <span class="hl kwd">/^[^\|]*\|[^\|]*\|(.*)$/</span><span class="hl opt">;</span>
			<span class="hl opt">}</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span> 
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$driver</span><span class="hl opt">) {</span>
		<span class="hl kwb">$windowtitle</span> <span class="hl opt">.=</span> <span class="hl str">&quot;,</span> <span class="hl ipl">$driver</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Do not show the options setup dialog when installing a new printer</span>
	<span class="hl slc"># in recommended mode without &quot;Manual configuration&quot; turned on.</span>
	<span class="hl kwa">if</span> <span class="hl opt">((!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NEW<span class="hl opt">} ||</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">} ||</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">}) &amp;&amp;</span>
	    <span class="hl opt">!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>noninteractive<span class="hl opt">}) {</span>
	    <span class="hl kwa">return</span> <span class="hl num">0</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from</span><span class="hl opt">(</span>
		 <span class="hl kwb">$windowtitle,</span>
		 N<span class="hl opt">(</span><span class="hl str">&quot;Printer default settings&quot;</span><span class="hl opt">),</span>
		 \<span class="hl kwb">&#64;widgets,</span>
		 complete <span class="hl opt">=&gt;</span> <span class="hl kwa">sub</span> <span class="hl opt">{</span>
		     <span class="hl kwc">my</span> <span class="hl kwb">$i</span><span class="hl opt">;</span>
		     <span class="hl kwa">for</span> <span class="hl opt">(</span><span class="hl kwb">$i</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span> <span class="hl kwb">$i</span> <span class="hl opt">&lt;=</span> <span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}};</span> <span class="hl kwb">$i++</span><span class="hl opt">) {</span>
			 <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>type<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;int&apos;</span> <span class="hl opt">||</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>type<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;float&apos;</span><span class="hl opt">) {</span>
			     <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>type<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;int&apos;</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">] !~</span> <span class="hl kwd">/^[\-\+]?[0-9]+$/</span><span class="hl opt">) {</span>
				 <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Option</span> <span class="hl ipl">%s</span> <span class="hl str">must be an integer number!&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>comment<span class="hl opt">}));</span>
				 <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span> <span class="hl kwb">$i</span><span class="hl opt">);</span>
			     <span class="hl opt">}</span>
			     <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>type<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;float&apos;</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">] !~</span> <span class="hl kwd">/^[\-\+]?[0-9\.]+$/</span><span class="hl opt">) {</span>
				 <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Option</span> <span class="hl ipl">%s</span> <span class="hl str">must be a number!&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>comment<span class="hl opt">}));</span>
				 <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span> <span class="hl kwb">$i</span><span class="hl opt">);</span>
			     <span class="hl opt">}</span>
			     <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">] &lt;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>min<span class="hl opt">} ||</span> <span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">] &gt;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>max<span class="hl opt">}) {</span>
				 <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Option</span> <span class="hl ipl">%s</span> <span class="hl str">out of range!&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>comment<span class="hl opt">}));</span>
				 <span class="hl kwa">return</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">,</span> <span class="hl kwb">$i</span><span class="hl opt">);</span>
			     <span class="hl opt">}</span>
			 <span class="hl opt">}</span>
		     <span class="hl opt">}</span>
		     <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
		 <span class="hl opt">});</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Read out the user&apos;s choices and generate the appropriate command</span>
	<span class="hl slc"># line arguments</span>
	<span class="hl opt">&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>options<span class="hl opt">}} = ();</span>
	<span class="hl kwa">for</span> <span class="hl opt">(</span><span class="hl kwb">$i</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span> <span class="hl kwb">$i</span> <span class="hl opt">&lt;=</span> <span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}};</span> <span class="hl kwb">$i++</span><span class="hl opt">) {</span>
	    <span class="hl slc"># We did not show hidden options, so we do not have user input </span>
	    <span class="hl slc"># to add to the option list</span>
	    <span class="hl kwa">next if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>hidden<span class="hl opt">};</span>
	    <span class="hl kwc">push</span><span class="hl opt">(&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>options<span class="hl opt">}},</span> <span class="hl str">&quot;-o&quot;</span><span class="hl opt">);</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>type<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;enum&apos;</span><span class="hl opt">) {</span>
		<span class="hl slc"># enumerated option</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$j</span><span class="hl opt">;</span>
		<span class="hl kwa">for</span> <span class="hl opt">(</span><span class="hl kwb">$j</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span> <span class="hl kwb">$j</span> <span class="hl opt">&lt;=</span> <span class="hl kwb">$#</span><span class="hl opt">{</span><span class="hl kwb">$choicelists</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">]};</span> <span class="hl kwb">$j++</span><span class="hl opt">) {</span>
		    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$choicelists</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">][</span><span class="hl kwb">$j</span><span class="hl opt">]</span> <span class="hl kwc">eq</span> <span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">]) {</span>
			<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl kwa">default</span><span class="hl opt">} =</span>
			    <span class="hl kwb">$shortchoicelists</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">][</span><span class="hl kwb">$j</span><span class="hl opt">];</span>
			<span class="hl kwc">push</span><span class="hl opt">(&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>options<span class="hl opt">}},</span>
			     <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>name<span class="hl opt">} .</span> <span class="hl str">&quot;=&quot;</span> <span class="hl opt">.</span>
			     <span class="hl kwb">$shortchoicelists</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">][</span><span class="hl kwb">$j</span><span class="hl opt">]);</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>type<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;bool&apos;</span><span class="hl opt">) {</span>
		<span class="hl slc"># boolean option</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$v</span> <span class="hl opt">=</span> 
		    <span class="hl opt">(</span><span class="hl kwb">$choicelists</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">][</span><span class="hl num">0</span><span class="hl opt">]</span> <span class="hl kwc">eq</span> <span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">]</span> ? <span class="hl str">&quot;1&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;0&quot;</span><span class="hl opt">);</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl kwa">default</span><span class="hl opt">} =</span> <span class="hl kwb">$v</span><span class="hl opt">;</span>
		<span class="hl kwc">push</span><span class="hl opt">(&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>options<span class="hl opt">}},</span>
		     <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>name<span class="hl opt">} .</span> <span class="hl str">&quot;=&quot;</span> <span class="hl opt">.</span> <span class="hl kwb">$v</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl slc"># numerical option</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span><span class="hl kwa">default</span><span class="hl opt">} =</span> <span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">];</span>
		<span class="hl kwc">push</span><span class="hl opt">(&#64;{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>options<span class="hl opt">}},</span>
		     <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>ARGS<span class="hl opt">}[</span><span class="hl kwb">$i</span><span class="hl opt">]{</span>name<span class="hl opt">} .</span> <span class="hl str">&quot;=&quot;</span> <span class="hl opt">.</span> <span class="hl kwb">$userinputs</span><span class="hl opt">[</span><span class="hl kwb">$i</span><span class="hl opt">]);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setasdefault <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
<span class="hl slc">#    $in-&gt;set_help(&apos;setupAsDefault&apos;) if $::isInstall;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;&apos;</span> <span class="hl opt">||</span> <span class="hl slc"># We have no default printer,</span>
	                             <span class="hl slc"># so set the current one as default</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_yesorno</span><span class="hl opt">(</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> N<span class="hl opt">(</span><span class="hl str">&quot;Do you want to set this printer (</span><span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span><span class="hl opt">)</span><span class="hl esc">\n</span>as the <span class="hl kwa">default</span> printer?<span class="hl str">&quot;,</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{QUEUE}), 0)) { # Ask the user</span>
<span class="hl str"></span>	<span class="hl ipl">$printer</span><span class="hl str">-&gt;{DEFAULT} =</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{QUEUE};</span>
<span class="hl str">        printer::default::set_printer(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str">    }</span>
<span class="hl str">}</span>
<span class="hl str">	</span>
<span class="hl str">sub print_testpages {</span>
<span class="hl str">    my (</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$upNetwork</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">#</span>    <span class="hl ipl">$in</span><span class="hl str">-&gt;set_help(&apos;printTestPages&apos;) if $::isInstall;</span>
<span class="hl str">    # print test pages</span>
<span class="hl str">    my</span> <span class="hl ipl">$res2</span> <span class="hl str">= 0;</span>
<span class="hl str">    my</span> <span class="hl ipl">%options</span> <span class="hl str">= (alta4 =&gt; 0, altletter =&gt; 0, ascii =&gt; 0, photo =&gt; 0, standard =&gt; 1);</span>
<span class="hl str">    my</span> <span class="hl ipl">%old_options</span> <span class="hl str">= (alta4 =&gt; 0, altletter =&gt; 0, ascii =&gt; 0, photo =&gt; 0, standard =&gt; 1);</span>
<span class="hl str">    my</span> <span class="hl ipl">$oldres2</span> <span class="hl str">= 0;</span>
<span class="hl str">    my</span> <span class="hl ipl">$res1</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_from_(</span>
<span class="hl str">	 { title =&gt; N(&quot;</span>Test pages<span class="hl str">&quot;),</span>
<span class="hl str">	   messages =&gt; N(&quot;</span>Please <span class="hl kwc">select</span> the test pages you want to <span class="hl kwc">print</span><span class="hl opt">.</span>
Note<span class="hl opt">:</span> the photo test page can <span class="hl kwa">take</span> a rather long <span class="hl kwc">time</span> to get printed <span class="hl kwc">and</span> on laser printers with too low memory it can even <span class="hl kwc">not</span> come out<span class="hl opt">.</span> In most cases it <span class="hl kwa">is</span> enough to <span class="hl kwc">print</span> the standard test page<span class="hl opt">.</span><span class="hl str">&quot;),</span>
<span class="hl str">	   cancel =&gt; (!</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{NEW} ?</span>
<span class="hl str">		       N(&quot;</span>Cancel<span class="hl str">&quot;) : ($::isWizard ? N(&quot;</span><span class="hl opt">&lt;-</span> Previous<span class="hl str">&quot;) : </span>
<span class="hl str">				      N(&quot;</span>No test pages<span class="hl str">&quot;))),</span>
<span class="hl str">	   ok =&gt; ($::isWizard ? N(&quot;</span>Next <span class="hl opt">-&gt;</span><span class="hl str">&quot;) : N(&quot;</span>Print<span class="hl str">&quot;)),</span>
<span class="hl str">	   callbacks =&gt; {</span>
<span class="hl str">	       changed =&gt; sub {</span>
<span class="hl str">		   if (</span><span class="hl ipl">$oldres2</span> <span class="hl str">ne</span> <span class="hl ipl">$res2</span><span class="hl str">) {</span>
<span class="hl str">		       if (</span><span class="hl ipl">$res2</span><span class="hl str">) {</span>
<span class="hl str">				 foreach my</span> <span class="hl ipl">$opt</span> <span class="hl str">(keys</span> <span class="hl ipl">%options</span><span class="hl str">) {</span>
<span class="hl str"></span>					<span class="hl ipl">$options</span><span class="hl str">{</span><span class="hl ipl">$opt</span><span class="hl str">} = 0;</span>
<span class="hl str"></span>					<span class="hl ipl">$old_options</span><span class="hl str">{</span><span class="hl ipl">$opt</span><span class="hl str">} = 0;</span>
<span class="hl str">				 }</span>
<span class="hl str">		       }</span>
<span class="hl str"></span>		       <span class="hl ipl">$oldres2</span> <span class="hl str">=</span> <span class="hl ipl">$res2</span><span class="hl str">;</span>
<span class="hl str">		   }</span>
<span class="hl str">		   foreach my</span> <span class="hl ipl">$opt</span> <span class="hl str">(keys</span> <span class="hl ipl">%options</span><span class="hl str">) {</span>
<span class="hl str">			  if (</span><span class="hl ipl">$old_options</span><span class="hl str">{</span><span class="hl ipl">$opt</span><span class="hl str">} ne</span> <span class="hl ipl">$options</span><span class="hl str">{</span><span class="hl ipl">$opt</span><span class="hl str">}) {</span>
<span class="hl str">				 if (</span><span class="hl ipl">$options</span><span class="hl str">{</span><span class="hl ipl">$opt</span><span class="hl str">}) {</span>
<span class="hl str"></span>					<span class="hl ipl">$res2</span> <span class="hl str">= 0;</span>
<span class="hl str"></span>					<span class="hl ipl">$oldres2</span> <span class="hl str">= 0;</span>
<span class="hl str">				 }</span>
<span class="hl str"></span>				 <span class="hl ipl">$old_options</span><span class="hl str">{standard} =</span> <span class="hl ipl">$options</span><span class="hl str">{standard};</span>
<span class="hl str">			  }</span>
<span class="hl str">		   }</span>
<span class="hl str">		   return 0;</span>
<span class="hl str">	       }</span>
<span class="hl str">	   } },</span>
<span class="hl str">	 [</span>
<span class="hl str">	  { text =&gt; N(&quot;</span>Standard test page<span class="hl str">&quot;), type =&gt; &apos;bool&apos;,</span>
<span class="hl str">	    val =&gt; \</span><span class="hl ipl">$options</span><span class="hl str">{standard} },</span>
<span class="hl str">	  if_(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{expert},</span>
<span class="hl str">	   { text =&gt; N(&quot;</span>Alternative test page <span class="hl opt">(</span>Letter<span class="hl opt">)</span><span class="hl str">&quot;), type =&gt; &apos;bool&apos;, </span>
<span class="hl str">	     val =&gt; \</span><span class="hl ipl">$options</span><span class="hl str">{altletter} }),</span>
<span class="hl str">	  if_(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{expert},</span>
<span class="hl str">	   { text =&gt; N(&quot;</span>Alternative test page <span class="hl opt">(</span>A4<span class="hl opt">)</span><span class="hl str">&quot;), type =&gt; &apos;bool&apos;, </span>
<span class="hl str">	     val =&gt; \</span><span class="hl ipl">$options</span><span class="hl str">{alta4} }), </span>
<span class="hl str">	  { text =&gt; N(&quot;</span>Photo test page<span class="hl str">&quot;), type =&gt; &apos;bool&apos;, val =&gt; \</span><span class="hl ipl">$options</span><span class="hl str">{photo} },</span>
<span class="hl str">	  #{ text =&gt; N(&quot;</span>Plain text test page<span class="hl str">&quot;), type =&gt; &apos;bool&apos;,</span>
<span class="hl str">	  #  val =&gt; \</span><span class="hl ipl">$options</span><span class="hl str">{ascii} }</span>
<span class="hl str">	  if_($::isWizard,</span>
<span class="hl str">	   { text =&gt; N(&quot;</span>Do <span class="hl kwc">not print</span> any test page<span class="hl str">&quot;), type =&gt; &apos;bool&apos;, </span>
<span class="hl str">	     val =&gt; \</span><span class="hl ipl">$res2</span> <span class="hl str">})</span>
<span class="hl str">	  ]);</span>
<span class="hl str"></span>    <span class="hl ipl">$res2</span> <span class="hl str">= 1 if !(</span><span class="hl ipl">$options</span><span class="hl str">{standard} ||</span> <span class="hl ipl">$options</span><span class="hl str">{altletter} ||</span> <span class="hl ipl">$options</span><span class="hl str">{alta4} ||</span> <span class="hl ipl">$options</span><span class="hl str">{photo} ||</span> <span class="hl ipl">$options</span><span class="hl str">{ascii});</span>
<span class="hl str">    if (</span><span class="hl ipl">$res1</span> <span class="hl str">&amp;&amp; !</span><span class="hl ipl">$res2</span><span class="hl str">) {</span>
<span class="hl str">	my</span> <span class="hl ipl">&#64;lpq_output</span><span class="hl str">;</span>
<span class="hl str">	{</span>
<span class="hl str">	    my</span> <span class="hl ipl">$_w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(N(&quot;</span>Printerdrake<span class="hl str">&quot;),</span>
<span class="hl str">				      N(&quot;</span>Printing test page<span class="hl opt">(</span>s<span class="hl opt">)...</span><span class="hl str">&quot;));</span>
<span class="hl str">	    </span>
<span class="hl str"></span>	    <span class="hl ipl">$upNetwork</span> <span class="hl str">and do { &amp;</span><span class="hl ipl">$upNetwork</span><span class="hl str">(); undef</span> <span class="hl ipl">$upNetwork</span><span class="hl str">; sleep(1) };</span>
<span class="hl str">	    my</span> <span class="hl ipl">$stdtestpage</span> <span class="hl str">= &quot;</span><span class="hl kwd">/usr/s</span>hare<span class="hl kwd">/printer-testpages/</span>testprint<span class="hl opt">.</span>ps<span class="hl str">&quot;;</span>
<span class="hl str">	    my</span> <span class="hl ipl">$altlttestpage</span> <span class="hl str">= &quot;</span><span class="hl kwd">/usr/s</span>hare<span class="hl kwd">/printer-testpages/</span>testpage<span class="hl opt">.</span>ps<span class="hl str">&quot;;</span>
<span class="hl str">	    my</span> <span class="hl ipl">$alta4testpage</span> <span class="hl str">= &quot;</span><span class="hl kwd">/usr/s</span>hare<span class="hl kwd">/printer-testpages/</span>testpage-a4<span class="hl opt">.</span>ps<span class="hl str">&quot;;</span>
<span class="hl str">	    my</span> <span class="hl ipl">$phototestpage</span> <span class="hl str">= &quot;</span><span class="hl kwd">/usr/s</span>hare<span class="hl kwd">/printer-testpages/p</span>hoto<span class="hl opt">-</span>testpage<span class="hl opt">.</span>jpg<span class="hl str">&quot;;</span>
<span class="hl str">	    my</span> <span class="hl ipl">$asciitestpage</span> <span class="hl str">= &quot;</span><span class="hl kwd">/usr/s</span>hare<span class="hl kwd">/printer-testpages/</span>testpage<span class="hl opt">.</span>asc<span class="hl str">&quot;;</span>
<span class="hl str">	    my</span> <span class="hl ipl">&#64;testpages</span><span class="hl str">;</span>
<span class="hl str">	    # Install the filter to convert the photo test page to PS</span>
<span class="hl str">	    if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{SPOOLER} ne &quot;</span>cups<span class="hl str">&quot; &amp;&amp;</span> <span class="hl ipl">$options</span><span class="hl str">{photo} &amp;&amp; !$::testing &amp;&amp;</span>
<span class="hl str">		!files_exist(&apos;/usr/bin/convert&apos;)) {</span>
<span class="hl str"></span>		<span class="hl ipl">$in</span><span class="hl str">-&gt;do_pkgs-&gt;install(&apos;ImageMagick&apos;);</span>
<span class="hl str">	    }</span>
<span class="hl str">	    # set up list of pages to print</span>
<span class="hl str"></span>	    <span class="hl ipl">$options</span><span class="hl str">{standard} and push</span> <span class="hl ipl">&#64;testpages,</span> <span class="hl str"></span><span class="hl ipl">$stdtestpage</span><span class="hl str">;</span>
<span class="hl str"></span>	    <span class="hl ipl">$options</span><span class="hl str">{altletter} and push</span> <span class="hl ipl">&#64;testpages,</span> <span class="hl str"></span><span class="hl ipl">$altlttestpage</span><span class="hl str">;</span>
<span class="hl str"></span>	    <span class="hl ipl">$options</span><span class="hl str">{alta4} and push</span> <span class="hl ipl">&#64;testpages,</span> <span class="hl str"></span><span class="hl ipl">$alta4testpage</span><span class="hl str">;</span>
<span class="hl str"></span>	    <span class="hl ipl">$options</span><span class="hl str">{photo} and push</span> <span class="hl ipl">&#64;testpages,</span> <span class="hl str"></span><span class="hl ipl">$phototestpage</span><span class="hl str">;</span>
<span class="hl str"></span>	    <span class="hl ipl">$options</span><span class="hl str">{ascii} and push</span> <span class="hl ipl">&#64;testpages,</span> <span class="hl str"></span><span class="hl ipl">$asciitestpage</span><span class="hl str">;</span>
<span class="hl str">	    # print the stuff</span>
<span class="hl str"></span>	    <span class="hl ipl">&#64;lpq_output</span> <span class="hl str">= printer::main::print_pages(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">&#64;testpages</span><span class="hl str">);</span>
<span class="hl str">	}</span>
<span class="hl str">	my</span> <span class="hl ipl">$dialogtext</span><span class="hl str">;</span>
<span class="hl str">	if (</span><span class="hl ipl">&#64;lpq_output</span><span class="hl str">) {</span>
<span class="hl str"></span>	    <span class="hl ipl">$dialogtext</span> <span class="hl str">= N(&quot;</span>Test page<span class="hl opt">(</span>s<span class="hl opt">)</span> have been sent to the printer<span class="hl opt">.</span>
It may <span class="hl kwa">take</span> some <span class="hl kwc">time</span> before the printer starts<span class="hl opt">.</span>
Printing status<span class="hl opt">:</span><span class="hl esc">\n</span><span class="hl kwb">%s\n\n</span><span class="hl str">&quot;,</span> <span class="hl ipl">&#64;lpq_output</span><span class="hl str">);</span>
<span class="hl str">	} else {</span>
<span class="hl str"></span>	    <span class="hl ipl">$dialogtext</span> <span class="hl str">= N(&quot;</span>Test page<span class="hl opt">(</span>s<span class="hl opt">)</span> have been sent to the printer<span class="hl opt">.</span>
It may <span class="hl kwa">take</span> some <span class="hl kwc">time</span> before the printer starts<span class="hl opt">.</span><span class="hl esc">\n</span><span class="hl str">&quot;);</span>
<span class="hl str">	}</span>
<span class="hl str">	if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{NEW} == 0) {</span>
<span class="hl str"></span>	    <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_warn(&apos;&apos;,</span><span class="hl ipl">$dialogtext</span><span class="hl str">);</span>
<span class="hl str">	    return 1;</span>
<span class="hl str">	} else {</span>
<span class="hl str"></span>	    <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_yesorno(&apos;&apos;,</span> <span class="hl ipl">$dialogtext</span> <span class="hl str">. N(&quot;</span>Did it work properly?<span class="hl str">&quot;), 1) </span>
<span class="hl str">		and return 1;</span>
<span class="hl str">	}</span>
<span class="hl str">    } else {</span>
<span class="hl str">	return($::isWizard ?</span> <span class="hl ipl">$res1</span> <span class="hl str">: 1);</span>
<span class="hl str">    }</span>
<span class="hl str">    return 2;</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub printer_help {</span>
<span class="hl str">    my (</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    my</span> <span class="hl ipl">$spooler</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{SPOOLER};</span>
<span class="hl str">    my</span> <span class="hl ipl">$queue</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{QUEUE};</span>
<span class="hl str">    my</span> <span class="hl ipl">$default</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DEFAULT};</span>
<span class="hl str">    my</span> <span class="hl ipl">$raw</span> <span class="hl str">= 0;</span>
<span class="hl str">    my</span> <span class="hl ipl">$cupsremote</span> <span class="hl str">= 0;</span>
<span class="hl str">    my</span> <span class="hl ipl">$scanning</span> <span class="hl str">= &quot;</span><span class="hl str">&quot;;</span>
<span class="hl str">    my</span> <span class="hl ipl">$photocard</span> <span class="hl str">= &quot;</span><span class="hl str">&quot;;</span>
<span class="hl str">    my</span> <span class="hl ipl">$hp11000fw</span> <span class="hl str">= &quot;</span><span class="hl str">&quot;;</span>
<span class="hl str">    if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}) {</span>
<span class="hl str">	if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{model} eq &quot;</span>Unknown model<span class="hl str">&quot; ||</span>
<span class="hl str"></span>	    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{model} eq N(&quot;</span>Raw printer<span class="hl str">&quot;)) {</span>
<span class="hl str"></span>	    <span class="hl ipl">$raw</span> <span class="hl str">= 1;</span>
<span class="hl str">	}</span>
<span class="hl str">	# Information about scanning with HP&apos;s multi-function devices</span>
<span class="hl str"></span>	<span class="hl ipl">$scanning</span> <span class="hl str">= scanner_help(</span>
<span class="hl str"></span>	     <span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{make} . &quot;</span> <span class="hl str">&quot; .</span>
<span class="hl str"></span>	     <span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{model}, </span>
<span class="hl str"></span>	     <span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{connect});</span>
<span class="hl str">	if (</span><span class="hl ipl">$scanning</span><span class="hl str">) {</span>
<span class="hl str"></span>	    <span class="hl ipl">$scanning</span> <span class="hl str">= &quot;</span><span class="hl esc">\n\n</span><span class="hl kwb">$scanning\n\n</span><span class="hl str">&quot;;</span>
<span class="hl str">	}</span>
<span class="hl str">	# Information about photo card access with HP&apos;s multi-function devices</span>
<span class="hl str"></span>	<span class="hl ipl">$photocard</span> <span class="hl str">= photocard_help(</span>
<span class="hl str"></span>	     <span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{make} . &quot;</span> <span class="hl str">&quot; .</span>
<span class="hl str"></span>	     <span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{model}, </span>
<span class="hl str"></span>	     <span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{connect});</span>
<span class="hl str">	if (</span><span class="hl ipl">$photocard</span><span class="hl str">) {</span>
<span class="hl str"></span>	    <span class="hl ipl">$photocard</span> <span class="hl str">= &quot;</span><span class="hl esc">\n\n</span><span class="hl kwb">$photocard\n\n</span><span class="hl str">&quot;;</span>
<span class="hl str">	}</span>
<span class="hl str">	if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{printer} eq</span>
<span class="hl str">	    &apos;HP-LaserJet_1000&apos;) {</span>
<span class="hl str"></span>	    <span class="hl ipl">$hp11000fw</span> <span class="hl str">= &quot;</span><span class="hl esc">\n\n</span><span class="hl kwb">$hp1000fwtext\n</span><span class="hl str">&quot;;</span>
<span class="hl str">	}</span>
<span class="hl str">    } else {</span>
<span class="hl str"></span>	<span class="hl ipl">$cupsremote</span> <span class="hl str">= 1;</span>
<span class="hl str">    }</span>
<span class="hl str"></span>
<span class="hl str">    my</span> <span class="hl ipl">$dialogtext</span><span class="hl str">;</span>
<span class="hl str">    if (</span><span class="hl ipl">$spooler</span> <span class="hl str">eq &quot;</span>cups<span class="hl str">&quot;) {</span>
<span class="hl str"></span>	<span class="hl ipl">$dialogtext</span> <span class="hl str">=</span>
<span class="hl str">N(&quot;</span>To <span class="hl kwc">print</span> a file from the command line <span class="hl opt">(</span>terminal window<span class="hl opt">)</span> you can either <span class="hl kwa">use</span> the command <span class="hl esc">\&quot;</span><span class="hl kwb">%s</span> <span class="hl opt">&lt;</span>file<span class="hl opt">&gt;</span><span class="hl esc">\&quot;</span> <span class="hl kwc">or</span> a graphical printing tool<span class="hl opt">:</span> <span class="hl esc">\&quot;</span>xpp <span class="hl opt">&lt;</span>file<span class="hl opt">&gt;</span><span class="hl esc">\&quot;</span> <span class="hl kwc">or</span> <span class="hl esc">\&quot;</span>kprinter <span class="hl opt">&lt;</span>file<span class="hl opt">&gt;</span><span class="hl esc">\&quot;</span><span class="hl opt">.</span> The graphical tools allow you to choose the printer <span class="hl kwc">and</span> to modify the option settings easily<span class="hl opt">.</span>
<span class="hl str">&quot;, (</span><span class="hl ipl">$queue</span> <span class="hl str">ne</span> <span class="hl ipl">$default</span> <span class="hl str">? &quot;</span>lpr <span class="hl opt">-</span>P <span class="hl kwb">$queue</span><span class="hl str">&quot; : &quot;</span>lpr<span class="hl str">&quot;)) .</span>
<span class="hl str">N(&quot;</span>These commands you can also <span class="hl kwa">use in</span> the <span class="hl esc">\&quot;</span>Printing command<span class="hl esc">\&quot;</span> field of the printing dialogs of many applications<span class="hl opt">,</span> but here <span class="hl kwa">do</span> <span class="hl kwc">not</span> supply the file name because the file to <span class="hl kwc">print</span> <span class="hl kwa">is</span> provided by the application<span class="hl opt">.</span>
<span class="hl str">&quot;) .</span>
<span class="hl str">(!</span><span class="hl ipl">$raw</span> <span class="hl str">?</span>
<span class="hl str">N(&quot;</span>
The <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot; command also allows to modify the option settings for a particular printing job. Simply add the desired settings to the command line, e. g.</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s</span> <span class="hl str">&lt;file&gt;</span><span class="hl esc">\&quot;</span><span class="hl str">. &quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;lpr&quot;</span><span class="hl opt">, (</span><span class="hl kwb">$queue</span> <span class="hl kwc">ne</span> <span class="hl kwb">$default</span> ? <span class="hl str">&quot;lpr -P</span> <span class="hl ipl">$queue</span> <span class="hl str">-o option=setting -o switch&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;lpr -o option=setting -o switch&quot;</span><span class="hl opt">)) .</span>
<span class="hl opt">(!</span><span class="hl kwb">$cupsremote</span> ?
 N<span class="hl opt">(</span><span class="hl str">&quot;To know about the options available for the current printer read either the list shown below or click on the</span> <span class="hl esc">\&quot;</span><span class="hl str">Print option list</span><span class="hl esc">\&quot;</span> <span class="hl str">button.</span><span class="hl ipl">%s%s%s</span>
<span class="hl str"></span>
<span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$scanning, $photocard, $hp11000fw</span><span class="hl opt">) .</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>help_output<span class="hl opt">(</span><span class="hl kwb">$printer,</span> <span class="hl str">&apos;cups&apos;</span><span class="hl opt">) :</span> 
 <span class="hl kwb">$scanning</span> <span class="hl opt">.</span> <span class="hl kwb">$photocard</span> <span class="hl opt">.</span> <span class="hl kwb">$hp11000fw</span> <span class="hl opt">.</span>
 N<span class="hl opt">(</span><span class="hl str">&quot;Here is a list of the available printing options for the current printer:</span>
<span class="hl str"></span>
<span class="hl str">&quot;</span><span class="hl opt">) .</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>help_output<span class="hl opt">(</span><span class="hl kwb">$printer,</span> <span class="hl str">&apos;cups&apos;</span><span class="hl opt">)) :</span> <span class="hl kwb">$scanning</span> <span class="hl opt">.</span> <span class="hl kwb">$photocard</span> <span class="hl opt">.</span> <span class="hl kwb">$hp11000fw</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$spooler</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;lprng&quot;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$dialogtext</span> <span class="hl opt">=</span>
N<span class="hl opt">(</span><span class="hl str">&quot;To print a file from the command line (terminal window) use the command</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s</span> <span class="hl str">&lt;file&gt;</span><span class="hl esc">\&quot;</span><span class="hl str">.</span>
<span class="hl str">&quot;</span><span class="hl opt">, (</span><span class="hl kwb">$queue</span> <span class="hl kwc">ne</span> <span class="hl kwb">$default</span> ? <span class="hl str">&quot;lpr -P</span> <span class="hl ipl">$queue</span><span class="hl str">&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;lpr&quot;</span><span class="hl opt">)) .</span> 
N<span class="hl opt">(</span><span class="hl str">&quot;This command you can also use in the</span> <span class="hl esc">\&quot;</span><span class="hl str">Printing command</span><span class="hl esc">\&quot;</span> <span class="hl str">field of the printing dialogs of many applications. But here do not supply the file name because the file to print is provided by the application.</span>
<span class="hl str">&quot;</span><span class="hl opt">) .</span>
<span class="hl opt">(!</span><span class="hl kwb">$raw</span> ?
N<span class="hl opt">(</span><span class="hl str">&quot;</span>
<span class="hl str">The</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span> command also allows to modify the option settings <span class="hl kwa">for</span> a particular printing job<span class="hl opt">.</span> Simply add the desired settings to the command line<span class="hl opt">,</span> e<span class="hl opt">.</span> g<span class="hl opt">.</span> <span class="hl esc">\&quot;</span><span class="hl kwb">%s</span> <span class="hl opt">&lt;</span>file<span class="hl opt">&gt;</span><span class="hl esc">\&quot;</span><span class="hl opt">.</span> <span class="hl str">&quot;, &quot;</span>lpr<span class="hl str">&quot;, (</span><span class="hl ipl">$queue</span> <span class="hl str">ne</span> <span class="hl ipl">$default</span> <span class="hl str">? &quot;</span>lpr <span class="hl opt">-</span>P <span class="hl kwb">$queue</span> <span class="hl opt">-</span>Z option<span class="hl opt">=</span>setting <span class="hl opt">-</span>Z switch<span class="hl str">&quot; : &quot;</span>lpr <span class="hl opt">-</span>Z option<span class="hl opt">=</span>setting <span class="hl opt">-</span>Z switch<span class="hl str">&quot;)) .</span>
<span class="hl str">N(&quot;</span>To get a list of the options available <span class="hl kwa">for</span> the current printer click on the <span class="hl esc">\&quot;</span>Print option list<span class="hl esc">\&quot;</span> button<span class="hl opt">.</span><span class="hl str">&quot;) .</span> <span class="hl ipl">$scanning</span> <span class="hl str">.</span> <span class="hl ipl">$photocard</span> <span class="hl str">.</span> <span class="hl ipl">$hp11000fw</span> <span class="hl str">:</span> <span class="hl ipl">$scanning</span> <span class="hl str">.</span> <span class="hl ipl">$photocard</span> <span class="hl str">.</span> <span class="hl ipl">$hp11000fw</span><span class="hl str">);</span>
<span class="hl str">    } elsif (</span><span class="hl ipl">$spooler</span> <span class="hl str">eq &quot;</span>lpd<span class="hl str">&quot;) {</span>
<span class="hl str"></span>	<span class="hl ipl">$dialogtext</span> <span class="hl str">=</span>
<span class="hl str">N(&quot;</span>To <span class="hl kwc">print</span> a file from the command line <span class="hl opt">(</span>terminal window<span class="hl opt">)</span> <span class="hl kwa">use</span> the command <span class="hl esc">\&quot;</span><span class="hl kwb">%s</span> <span class="hl opt">&lt;</span>file<span class="hl opt">&gt;</span><span class="hl esc">\&quot;</span><span class="hl opt">.</span>
<span class="hl str">&quot;, (</span><span class="hl ipl">$queue</span> <span class="hl str">ne</span> <span class="hl ipl">$default</span> <span class="hl str">? &quot;</span>lpr <span class="hl opt">-</span>P <span class="hl kwb">$queue</span><span class="hl str">&quot; : &quot;</span>lpr<span class="hl str">&quot;)) .</span>
<span class="hl str">N(&quot;</span>This command you can also <span class="hl kwa">use in</span> the <span class="hl esc">\&quot;</span>Printing command<span class="hl esc">\&quot;</span> field of the printing dialogs of many applications<span class="hl opt">.</span> But here <span class="hl kwa">do</span> <span class="hl kwc">not</span> supply the file name because the file to <span class="hl kwc">print</span> <span class="hl kwa">is</span> provided by the application<span class="hl opt">.</span>
<span class="hl str">&quot;) .</span>
<span class="hl str">(!</span><span class="hl ipl">$raw</span> <span class="hl str">?</span>
<span class="hl str">N(&quot;</span>
The <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot; command also allows to modify the option settings for a particular printing job. Simply add the desired settings to the command line, e. g.</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s</span> <span class="hl str">&lt;file&gt;</span><span class="hl esc">\&quot;</span><span class="hl str">. &quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;lpr&quot;</span><span class="hl opt">, (</span><span class="hl kwb">$queue</span> <span class="hl kwc">ne</span> <span class="hl kwb">$default</span> ? <span class="hl str">&quot;lpr -P</span> <span class="hl ipl">$queue</span> <span class="hl str">-o option=setting -o switch&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;lpr -o option=setting -o switch&quot;</span><span class="hl opt">)) .</span>
N<span class="hl opt">(</span><span class="hl str">&quot;To get a list of the options available for the current printer click on the</span> <span class="hl esc">\&quot;</span><span class="hl str">Print option list</span><span class="hl esc">\&quot;</span> <span class="hl str">button.&quot;</span><span class="hl opt">) .</span> <span class="hl kwb">$scanning</span> <span class="hl opt">.</span> <span class="hl kwb">$photocard</span> <span class="hl opt">.</span> <span class="hl kwb">$hp11000fw</span> <span class="hl opt">:</span> <span class="hl kwb">$scanning</span> <span class="hl opt">.</span> <span class="hl kwb">$photocard</span> <span class="hl opt">.</span> <span class="hl kwb">$hp11000fw</span><span class="hl opt">);</span>
    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$spooler</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;pdq&quot;</span><span class="hl opt">) {</span>
	<span class="hl kwb">$dialogtext</span> <span class="hl opt">=</span>
N<span class="hl opt">(</span><span class="hl str">&quot;To print a file from the command line (terminal window) use the command</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s</span> <span class="hl str">&lt;file&gt;</span><span class="hl esc">\&quot;</span> <span class="hl str">or</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s</span> <span class="hl str">&lt;file&gt;</span><span class="hl esc">\&quot;</span><span class="hl str">.</span>
<span class="hl str">&quot;</span><span class="hl opt">, (</span><span class="hl kwb">$queue</span> <span class="hl kwc">ne</span> <span class="hl kwb">$default</span> ? <span class="hl str">&quot;pdq -P</span> <span class="hl ipl">$queue</span><span class="hl str">&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;pdq&quot;</span><span class="hl opt">), (</span><span class="hl kwb">$queue</span> <span class="hl kwc">ne</span> <span class="hl kwb">$default</span> ? <span class="hl str">&quot;lpr -P</span> <span class="hl ipl">$queue</span><span class="hl str">&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;lpr&quot;</span><span class="hl opt">)) .</span>
N<span class="hl opt">(</span><span class="hl str">&quot;This command you can also use in the</span> <span class="hl esc">\&quot;</span><span class="hl str">Printing command</span><span class="hl esc">\&quot;</span> <span class="hl str">field of the printing dialogs of many applications. But here do not supply the file name because the file to print is provided by the application.</span>
<span class="hl str">&quot;</span><span class="hl opt">) .</span>
N<span class="hl opt">(</span><span class="hl str">&quot;You can also use the graphical interface</span> <span class="hl esc">\&quot;</span><span class="hl str">xpdq</span><span class="hl esc">\&quot;</span> <span class="hl str">for setting options and handling printing jobs.</span>
<span class="hl str">If you are using KDE as desktop environment you have a</span> <span class="hl esc">\&quot;</span><span class="hl str">panic button</span><span class="hl esc">\&quot;</span><span class="hl str">, an icon on the desktop, labeled with</span> <span class="hl esc">\&quot;</span><span class="hl str">STOP Printer!</span><span class="hl esc">\&quot;</span><span class="hl str">, which stops all print jobs immediately when you click it. This is for example useful for paper jams.</span>
<span class="hl str">&quot;</span><span class="hl opt">) .</span>
<span class="hl opt">(!</span><span class="hl kwb">$raw</span> ?
N<span class="hl opt">(</span><span class="hl str">&quot;</span>
<span class="hl str">The</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span> <span class="hl kwc">and</span> <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot; commands also allow to modify the option settings for a particular printing job. Simply add the desired settings to the command line, e. g.</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s</span> <span class="hl str">&lt;file&gt;</span><span class="hl esc">\&quot;</span><span class="hl str">.</span>
<span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;pdq&quot;</span><span class="hl opt">,</span> <span class="hl str">&quot;lpr&quot;</span><span class="hl opt">, (</span><span class="hl kwb">$queue</span> <span class="hl kwc">ne</span> <span class="hl kwb">$default</span> ? <span class="hl str">&quot;pdq -P</span> <span class="hl ipl">$queue</span> <span class="hl str">-aoption=setting -oswitch&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;pdq -aoption=setting -oswitch&quot;</span><span class="hl opt">)) .</span>
N<span class="hl opt">(</span><span class="hl str">&quot;To know about the options available for the current printer read either the list shown below or click on the</span> <span class="hl esc">\&quot;</span><span class="hl str">Print option list</span><span class="hl esc">\&quot;</span> <span class="hl str">button.</span><span class="hl ipl">%s%s%s</span>
<span class="hl str"></span>
<span class="hl str">&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$scanning, $photocard, $hp11000fw</span><span class="hl opt">) .</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>help_output<span class="hl opt">(</span><span class="hl kwb">$printer,</span> <span class="hl str">&apos;pdq&apos;</span><span class="hl opt">) :</span>
 <span class="hl kwb">$scanning</span> <span class="hl opt">.</span> <span class="hl kwb">$photocard</span> <span class="hl opt">.</span> <span class="hl kwb">$hp11000fw</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$windowtitle</span> <span class="hl opt">= (</span><span class="hl kwb">$scanning</span> ?
                       <span class="hl opt">(</span><span class="hl kwb">$photocard</span> ?
			N<span class="hl opt">(</span><span class="hl str">&quot;Printing/Scanning/Photo Cards on</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span><span class="hl str">&quot;,</span> <span class="hl ipl">$queue</span><span class="hl str">) :</span>
<span class="hl str">			N(&quot;</span>Printing<span class="hl opt">/</span>Scanning on <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot;&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$queue</span><span class="hl opt">)) :</span>
                       <span class="hl opt">(</span><span class="hl kwb">$photocard</span> ?
			N<span class="hl opt">(</span><span class="hl str">&quot;Printing/Photo Card Access on</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span><span class="hl str">&quot;,</span> <span class="hl ipl">$queue</span><span class="hl str">) :</span>
<span class="hl str">			N(&quot;</span>Printing on the printer <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot;&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$queue</span><span class="hl opt">)));</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$raw</span> <span class="hl opt">&amp;&amp; !</span><span class="hl kwb">$cupsremote</span><span class="hl opt">) {</span>
        <span class="hl kwc">my</span> <span class="hl kwb">$choice</span><span class="hl opt">;</span>
        <span class="hl kwa">while</span> <span class="hl opt">(</span><span class="hl kwb">$choice</span> <span class="hl kwc">ne</span> N<span class="hl opt">(</span><span class="hl str">&quot;Close&quot;</span><span class="hl opt">)) {</span>
	    <span class="hl kwb">$choice</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_list_</span><span class="hl opt">(</span>
	         <span class="hl kwb">$windowtitle, $dialogtext,</span>
		 <span class="hl opt">[</span> N<span class="hl opt">(</span><span class="hl str">&quot;Print option list&quot;</span><span class="hl opt">),</span> N<span class="hl opt">(</span><span class="hl str">&quot;Close&quot;</span><span class="hl opt">) ],</span>
		 N<span class="hl opt">(</span><span class="hl str">&quot;Close&quot;</span><span class="hl opt">));</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$choice</span> <span class="hl kwc">ne</span> N<span class="hl opt">(</span><span class="hl str">&quot;Close&quot;</span><span class="hl opt">)) {</span>
		<span class="hl kwc">my</span> <span class="hl kwb">$_w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
					  N<span class="hl opt">(</span><span class="hl str">&quot;Printing test page(s)...&quot;</span><span class="hl opt">));</span>
	        printer<span class="hl opt">::</span>main<span class="hl opt">::</span>print_optionlist<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_warn</span><span class="hl opt">(</span><span class="hl kwb">$windowtitle, $dialogtext</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> scanner_help <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$makemodel, $deviceuri</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$deviceuri</span> <span class="hl opt">=~</span> <span class="hl kwd">m!^ptal://?(.*?)$!</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$ptaldevice</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$makemodel</span> <span class="hl opt">!~</span> <span class="hl kwd">/HP\s+PhotoSmart/i</span> <span class="hl opt">&amp;&amp;</span>
	    <span class="hl kwb">$makemodel</span> <span class="hl opt">!~</span> <span class="hl kwd">/HP\s+LaserJet\s+2200/i</span> <span class="hl opt">&amp;&amp;</span>
	    <span class="hl kwb">$makemodel</span> <span class="hl opt">!~</span> <span class="hl kwd">/HP\s+(DeskJet|dj)\s*450/i</span><span class="hl opt">) {</span>
	    <span class="hl slc"># Models with built-in scanner</span>
	    <span class="hl kwa">return</span> N<span class="hl opt">(</span><span class="hl str">&quot;Your multi-function device was configured automatically to be able to scan. Now you can scan with</span> <span class="hl esc">\&quot;</span><span class="hl str">scanimage</span><span class="hl esc">\&quot;</span> <span class="hl str">(</span><span class="hl esc">\&quot;</span><span class="hl str">scanimage -d hp:</span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span> to specify the scanner <span class="hl kwa">when</span> you have more than one<span class="hl opt">)</span> from the command line <span class="hl kwc">or</span> with the graphical interfaces <span class="hl esc">\&quot;</span>xscanimage<span class="hl esc">\&quot;</span> <span class="hl kwc">or</span> <span class="hl esc">\&quot;</span>xsane<span class="hl esc">\&quot;</span><span class="hl opt">.</span> If you are using the GIMP<span class="hl opt">,</span> you can also scan by choosing the appropriate point <span class="hl kwa">in</span> the <span class="hl esc">\&quot;</span>File<span class="hl esc">\&quot;</span><span class="hl opt">/</span><span class="hl esc">\&quot;</span>Acquire<span class="hl esc">\&quot;</span> menu<span class="hl opt">.</span> Call also <span class="hl esc">\&quot;</span>man scanimage<span class="hl esc">\&quot;</span> on the command line to get more information<span class="hl opt">.</span>

Do <span class="hl kwc">not</span> <span class="hl kwa">use</span> <span class="hl esc">\&quot;</span>scannerdrake<span class="hl esc">\&quot;</span> <span class="hl kwa">for</span> this device<span class="hl opt">!</span><span class="hl str">&quot;,</span>
<span class="hl str"></span>		     <span class="hl ipl">$ptaldevice</span><span class="hl str">);</span>
<span class="hl str">	} else {</span>
<span class="hl str">	    # Scanner-less models</span>
<span class="hl str">	    return &quot;</span><span class="hl str">&quot;;</span>
<span class="hl str">	}</span>
<span class="hl str">    }</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub photocard_help {</span>
<span class="hl str">    my (</span><span class="hl ipl">$makemodel,</span> <span class="hl str"></span><span class="hl ipl">$deviceuri</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    if (</span><span class="hl ipl">$deviceuri</span> <span class="hl str">=~ m!^ptal://?(.*?)$!) {</span>
<span class="hl str">	my</span> <span class="hl ipl">$ptaldevice</span> <span class="hl str">=</span> <span class="hl ipl">$1</span><span class="hl str">;</span>
<span class="hl str">	if ((</span><span class="hl ipl">$makemodel</span> <span class="hl str">=~ /HP\s+PhotoSmart/i ||</span>
<span class="hl str"></span>	     <span class="hl ipl">$makemodel</span> <span class="hl str">=~ /HP\s+PSC\s*9[05]0/i ||</span>
<span class="hl str"></span>	     <span class="hl ipl">$makemodel</span> <span class="hl str">=~ /HP\s+PSC\s*22\d\d/i ||</span>
<span class="hl str"></span>	     <span class="hl ipl">$makemodel</span> <span class="hl str">=~ /HP\s+OfficeJet\s+D\s*1[45]5/i ||</span>
<span class="hl str"></span>	     <span class="hl ipl">$makemodel</span> <span class="hl str">=~ /HP\s+OfficeJet\s+71[34]0/i ||</span>
<span class="hl str"></span>	     <span class="hl ipl">$makemodel</span> <span class="hl str">=~ /HP\s+(DeskJet|dj)\s*450/i) &amp;&amp;</span>
<span class="hl str"></span>	    <span class="hl ipl">$makemodel</span> <span class="hl str">!~ /HP\s+PhotoSmart\s+7150/i) {</span>
<span class="hl str">	    # Models with built-in photo card drives</span>
<span class="hl str">	    return N(&quot;</span>Your printer was configured automatically to give you access to the photo card drives from your PC<span class="hl opt">.</span> Now you can access your photo cards using the graphical program <span class="hl esc">\&quot;</span>MtoolsFM<span class="hl esc">\&quot;</span> <span class="hl opt">(</span>Menu<span class="hl opt">:</span> <span class="hl esc">\&quot;</span>Applications<span class="hl esc">\&quot;</span> <span class="hl opt">-&gt;</span> <span class="hl esc">\&quot;</span>File tools<span class="hl esc">\&quot;</span> <span class="hl opt">-&gt;</span> <span class="hl esc">\&quot;</span>MTools File Manager<span class="hl esc">\&quot;</span><span class="hl opt">)</span> <span class="hl kwc">or</span> the command line utilities <span class="hl esc">\&quot;</span>mtools<span class="hl esc">\&quot;</span> <span class="hl opt">(</span>enter <span class="hl esc">\&quot;</span>man mtools<span class="hl esc">\&quot;</span> on the command line <span class="hl kwa">for</span> more info<span class="hl opt">).</span> You find the card<span class="hl str">&apos;s file system under the drive letter</span> <span class="hl esc">\&quot;</span><span class="hl str">p:</span><span class="hl esc">\&quot;</span><span class="hl str">, or subsequent drive letters when you have more than one HP printer with photo card drives. In</span> <span class="hl esc">\&quot;</span><span class="hl str">MtoolsFM</span><span class="hl esc">\&quot;</span> <span class="hl str">you can switch between drive letters with the field at the upper-right corners of the file lists.&quot;,</span>
<span class="hl str"></span>		     <span class="hl ipl">$ptaldevice</span><span class="hl str">);</span>
<span class="hl str">	} else {</span>
<span class="hl str">	    # Photo-card-drive-less models</span>
<span class="hl str">	    return &quot;&quot;;</span>
<span class="hl str">	}</span>
<span class="hl str">    }</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub copy_queues_from {</span>
<span class="hl str">    my (</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$oldspooler</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str"></span>
<span class="hl str">#</span>    <span class="hl ipl">$in</span><span class="hl str">-&gt;set_help(&apos;</span>copyQueues<span class="hl str">&apos;) if $::isInstall;</span>
<span class="hl str">    my</span> <span class="hl ipl">$newspooler</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{SPOOLER};</span>
<span class="hl str">    my</span> <span class="hl ipl">&#64;oldqueues</span><span class="hl str">;</span>
<span class="hl str">    my</span> <span class="hl ipl">&#64;queueentries</span><span class="hl str">;</span>
<span class="hl str">    my</span> <span class="hl ipl">&#64;queuesselected</span><span class="hl str">;</span>
<span class="hl str">    my</span> <span class="hl ipl">$newspoolerstr</span><span class="hl str">;</span>
<span class="hl str">    my</span> <span class="hl ipl">$oldspoolerstr</span><span class="hl str">;</span>
<span class="hl str">    my</span> <span class="hl ipl">$noninteractive</span> <span class="hl str">= 0;</span>
<span class="hl str">    {</span>
<span class="hl str">	my</span> <span class="hl ipl">$_w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(N(&quot;Printerdrake&quot;),</span>
<span class="hl str">				  N(&quot;Reading printer data...&quot;));</span>
<span class="hl str"></span>	<span class="hl ipl">&#64;oldqueues</span> <span class="hl str">= printer::main::get_copiable_queues(</span><span class="hl ipl">$oldspooler,</span> <span class="hl str"></span><span class="hl ipl">$newspooler</span><span class="hl str">);</span>
<span class="hl str"></span>	<span class="hl ipl">&#64;oldqueues</span> <span class="hl str">= sort(</span><span class="hl ipl">&#64;oldqueues</span><span class="hl str">);</span>
<span class="hl str"></span>	<span class="hl ipl">$newspoolerstr</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">::data::spoolers{</span><span class="hl ipl">$newspooler</span><span class="hl str">}{short_name};</span>
<span class="hl str"></span>	<span class="hl ipl">$oldspoolerstr</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">::data::spoolers{</span><span class="hl ipl">$oldspooler</span><span class="hl str">}{short_name};</span>
<span class="hl str">	foreach (</span><span class="hl ipl">&#64;oldqueues</span><span class="hl str">) {</span>
<span class="hl str">	    push</span> <span class="hl ipl">&#64;queuesselected,</span> <span class="hl str">1;</span>
<span class="hl str">	    push</span> <span class="hl ipl">&#64;queueentries,</span> <span class="hl str">{ text =&gt;</span> <span class="hl ipl">$_,</span> <span class="hl str">type =&gt; &apos;</span>bool<span class="hl str">&apos;, </span>
<span class="hl str">				   val =&gt; \</span><span class="hl ipl">$queuesselected</span><span class="hl str">[-1] };</span>
<span class="hl str">	}</span>
<span class="hl str">	# LPRng and LPD use the same config files, therefore one sees the </span>
<span class="hl str">	# queues of LPD when one uses LPRng and vice versa, but these queues</span>
<span class="hl str">	# do not work. So automatically transfer all queues when switching</span>
<span class="hl str">	# between LPD and LPRng.</span>
<span class="hl str">	if (</span><span class="hl ipl">$oldspooler</span> <span class="hl str">=~ /^lp/ &amp;&amp;</span> <span class="hl ipl">$newspooler</span> <span class="hl str">=~ /^lp/) {</span>
<span class="hl str"></span>	    <span class="hl ipl">$noninteractive</span> <span class="hl str">= 1;</span>
<span class="hl str">	}</span>
<span class="hl str">    }</span>
<span class="hl str">    if (</span><span class="hl ipl">$noninteractive</span> <span class="hl str">||</span>
<span class="hl str"></span>	<span class="hl ipl">$in</span><span class="hl str">-&gt;ask_from_(</span>
<span class="hl str">	 { title =&gt; N(&quot;Transfer printer configuration&quot;),</span>
<span class="hl str">	   messages =&gt; N(&quot;You can copy the printer configuration which you have done for the spooler</span> <span class="hl ipl">%s</span> <span class="hl str">to</span> <span class="hl ipl">%s,</span> <span class="hl str">your current spooler. All the configuration data (printer name, description, location, connection type, and default option settings) is overtaken, but jobs will not be transferred.</span>
<span class="hl str">Not all queues can be transferred due to the following reasons:</span>
<span class="hl str">&quot;,</span> <span class="hl ipl">$oldspoolerstr,</span> <span class="hl str"></span><span class="hl ipl">$newspoolerstr</span><span class="hl str">) .</span>
<span class="hl str">(</span><span class="hl ipl">$newspooler</span> <span class="hl str">eq &quot;cups&quot; ? N(&quot;CUPS does not support printers on Novell servers or printers sending the data into a free-formed command.</span>
<span class="hl str">&quot;) :</span>
<span class="hl str"> (</span><span class="hl ipl">$newspooler</span> <span class="hl str">eq &quot;pdq&quot; ? N(&quot;PDQ only supports local printers, remote LPD printers, and Socket/TCP printers.</span>
<span class="hl str">&quot;) :</span>
<span class="hl str">  N(&quot;LPD and LPRng do not support IPP printers.</span>
<span class="hl str">&quot;))) .</span>
<span class="hl str">N(&quot;In addition, queues not created with this program or</span> <span class="hl esc">\&quot;</span><span class="hl str">foomatic-configure</span><span class="hl esc">\&quot;</span> <span class="hl str">cannot be transferred.&quot;) .</span>
<span class="hl str">if_(</span><span class="hl ipl">$oldspooler</span> <span class="hl str">eq &quot;cups&quot;, N(&quot;</span>
<span class="hl str">Also printers configured with the PPD files provided by their manufacturers or with native CUPS drivers cannot be transferred.&quot;)) . N(&quot;</span>
<span class="hl str">Mark the printers which you want to transfer and click </span>
<span class="hl str"></span><span class="hl esc">\&quot;</span><span class="hl str">Transfer</span><span class="hl esc">\&quot;</span><span class="hl str">.&quot;),</span>
<span class="hl str">	   cancel =&gt; N(&quot;Do not transfer printers&quot;),</span>
<span class="hl str">           ok =&gt; N(&quot;Transfer&quot;)</span>
<span class="hl str">	 },</span>
<span class="hl str">         \</span><span class="hl ipl">&#64;queueentries</span>
<span class="hl str">      )) {</span>
<span class="hl str">	my</span> <span class="hl ipl">$queuecopied</span> <span class="hl str">= 0;</span>
<span class="hl str">	foreach (</span><span class="hl ipl">&#64;oldqueues</span><span class="hl str">) {</span>
<span class="hl str">	    if (shift(</span><span class="hl ipl">&#64;queuesselected</span><span class="hl str">)) {</span>
<span class="hl str">                my</span> <span class="hl ipl">$oldqueue</span> <span class="hl str">=</span> <span class="hl ipl">$_</span><span class="hl str">;</span>
<span class="hl str">                my</span> <span class="hl ipl">$newqueue</span> <span class="hl str">=</span> <span class="hl ipl">$_</span><span class="hl str">;</span>
<span class="hl str">                if (!</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$newqueue</span><span class="hl str">} ||</span> <span class="hl ipl">$noninteractive</span> <span class="hl str">||</span>
<span class="hl str"></span>		    <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_from_(</span>
<span class="hl str">	              { title =&gt; N(&quot;Transfer printer configuration&quot;),</span>
<span class="hl str">	                messages =&gt; N(&quot;A printer named</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot; already exists under</span> <span class="hl ipl">%s</span><span class="hl str">. </span>
<span class="hl str">Click</span> <span class="hl esc">\&quot;</span><span class="hl str">Transfer</span><span class="hl esc">\&quot;</span> <span class="hl str">to overwrite it.</span>
<span class="hl str">You can also type a new name or skip this printer.&quot;, </span>
<span class="hl str"></span>				      <span class="hl ipl">$newqueue,</span> <span class="hl str"></span><span class="hl ipl">$newspoolerstr</span><span class="hl str">),</span>
<span class="hl str">                        ok =&gt; N(&quot;Transfer&quot;),</span>
<span class="hl str">                        cancel =&gt; N(&quot;Skip&quot;),</span>
<span class="hl str">		        callbacks =&gt; { complete =&gt; sub {</span>
<span class="hl str">	                    unless (</span><span class="hl ipl">$newqueue</span> <span class="hl str">=~ /^\w+</span><span class="hl ipl">$/</span><span class="hl str">) {</span>
<span class="hl str"></span>				<span class="hl ipl">$in</span><span class="hl str">-&gt;ask_warn(&apos;</span><span class="hl str">&apos;, N(&quot;Name of printer should contain only letters, numbers and the underscore&quot;));</span>
<span class="hl str">				return (1,0);</span>
<span class="hl str">			    }</span>
<span class="hl str">			    if (</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$newqueue</span><span class="hl str">}</span>
<span class="hl str">				&amp;&amp;</span> <span class="hl ipl">$newqueue</span> <span class="hl str">ne</span> <span class="hl ipl">$oldqueue</span> <span class="hl str">&amp;&amp; </span>
<span class="hl str">				!</span><span class="hl ipl">$in</span><span class="hl str">-&gt;ask_yesorno(&apos;</span><span class="hl str">&apos;, N(&quot;The printer</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot; already exists,</span><span class="hl esc">\n</span><span class="hl str">do you really want to overwrite its configuration?&quot;,</span>
<span class="hl str"></span>							 <span class="hl ipl">$newqueue</span><span class="hl str">),</span>
<span class="hl str">						   0)) {</span>
<span class="hl str">				return (1,0); # Let the user correct the name</span>
<span class="hl str">			    }</span>
<span class="hl str">			    return 0;</span>
<span class="hl str">			} }</span>
<span class="hl str">		    },</span>
<span class="hl str">		      [{label =&gt; N(&quot;New printer name&quot;),val =&gt; \</span><span class="hl ipl">$newqueue</span> <span class="hl str">}])) {</span>
<span class="hl str">		    {</span>
<span class="hl str">			my</span> <span class="hl ipl">$_w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(N(&quot;Printerdrake&quot;), </span>
<span class="hl str">			   N(&quot;Transferring</span> <span class="hl ipl">%s</span><span class="hl str">...&quot;,</span> <span class="hl ipl">$oldqueue</span><span class="hl str">));</span>
<span class="hl str">		        printer::main::copy_foomatic_queue(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$oldqueue,</span>
<span class="hl str"></span>						   <span class="hl ipl">$oldspooler,</span> <span class="hl str"></span><span class="hl ipl">$newqueue</span><span class="hl str">) and</span>
<span class="hl str"></span>							 <span class="hl ipl">$queuecopied</span> <span class="hl str">= 1;</span>
<span class="hl str">		    }</span>
<span class="hl str">		    if (</span><span class="hl ipl">$oldqueue</span> <span class="hl str">eq</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DEFAULT}) {</span>
<span class="hl str">			# Make the former default printer the new default</span>
<span class="hl str">			# printer if the user does not reject</span>
<span class="hl str">			if (</span><span class="hl ipl">$noninteractive</span> <span class="hl str">||</span>
<span class="hl str"></span>			    <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_yesorno(</span>
<span class="hl str">			      N(&quot;Transfer printer configuration&quot;),</span>
<span class="hl str">			      N(&quot;You have transferred your former default printer (</span><span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;), Should it be also the default printer under the new printing system</span> <span class="hl ipl">%s?</span><span class="hl str">&quot;,</span> <span class="hl ipl">$oldqueue,</span> <span class="hl str"></span><span class="hl ipl">$newspoolerstr</span><span class="hl str">), 1)) {</span>
<span class="hl str"></span>			    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DEFAULT} =</span> <span class="hl ipl">$newqueue</span><span class="hl str">;</span>
<span class="hl str">			    printer::default::set_printer(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str">			}</span>
<span class="hl str">		    }</span>
<span class="hl str">		}</span>
<span class="hl str">            }</span>
<span class="hl str">	}</span>
<span class="hl str">        if (</span><span class="hl ipl">$queuecopied</span><span class="hl str">) {</span>
<span class="hl str">	    my</span> <span class="hl ipl">$_w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(N(&quot;Printerdrake&quot;),</span>
<span class="hl str">                                      N(&quot;Refreshing printer data...&quot;));</span>
<span class="hl str">	    printer::main::read_configured_queues(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str">        }</span>
<span class="hl str">    }</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub start_network {</span>
<span class="hl str">    my (</span><span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$upNetwork</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    my</span> <span class="hl ipl">$_w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(N(&quot;Configuration of a remote printer&quot;), </span>
<span class="hl str">			      N(&quot;Starting network...&quot;));</span>
<span class="hl str">    if ($::isInstall) {</span>
<span class="hl str">	return (</span><span class="hl ipl">$upNetwork</span> <span class="hl str">and </span>
<span class="hl str">		do { my</span> <span class="hl ipl">$ret</span> <span class="hl str">= &amp;</span><span class="hl ipl">$upNetwork</span><span class="hl str">(); </span>
<span class="hl str">		     undef</span> <span class="hl ipl">$upNetwork</span><span class="hl str">; </span>
<span class="hl str">		     sleep(1);</span>
<span class="hl str"></span>		     <span class="hl ipl">$ret</span> <span class="hl str">});</span>
<span class="hl str">    } else { return printer::services::start(&quot;network&quot;) }</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub network_configured() {</span>
<span class="hl str">    # Do configured networks (/etc/sysconfig/network-scripts/ifcfg*) exist?</span>
<span class="hl str">    my</span> <span class="hl ipl">&#64;netscripts</span> <span class="hl str">=</span>
<span class="hl str">	cat_(&quot;ls -1 $::prefix/etc/sysconfig/network-scripts/ |&quot;);</span>
<span class="hl str">    my</span> <span class="hl ipl">$netconfigured</span> <span class="hl str">= 0;</span>
<span class="hl str">    (/ifcfg-/ and !/(ifcfg-lo|:|rpmsave|rpmorig|rpmnew)/ and</span>
<span class="hl str">      !/(~|\.bak)</span><span class="hl ipl">$/</span> <span class="hl str">and</span> <span class="hl ipl">$netconfigured</span> <span class="hl str">= 1) foreach</span> <span class="hl ipl">&#64;netscripts</span><span class="hl str">;</span>
<span class="hl str">    return</span> <span class="hl ipl">$netconfigured</span><span class="hl str">;</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub check_network {</span>
<span class="hl str"></span>
<span class="hl str">    # This routine is called whenever the user tries to configure a remote</span>
<span class="hl str">    # printer. It checks the state of the network functionality to assure</span>
<span class="hl str">    # that the network is up and running so that the remote printer is</span>
<span class="hl str">    # reachable.</span>
<span class="hl str"></span>
<span class="hl str">    my (</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$upNetwork,</span> <span class="hl str"></span><span class="hl ipl">$dontconfigure</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str"></span>
<span class="hl str">    # Any additional dialogs caused by this subroutine should appear as</span>
<span class="hl str">    # extra windows and not embedded in the &quot;Add printer&quot; wizard.</span>
<span class="hl str">    local $::isWizard = 0;</span>
<span class="hl str"></span>
<span class="hl str">#</span>    <span class="hl ipl">$in</span><span class="hl str">-&gt;set_help(&apos;</span>checkNetwork<span class="hl str">&apos;) if $::isInstall;</span>
<span class="hl str"></span>
<span class="hl str">    # First check: Do configured networks</span>
<span class="hl str">    # (/etc/sysconfig/network-scripts/ifcfg*) exist?</span>
<span class="hl str"></span>
<span class="hl str">    if (!</span><span class="hl ipl">$dontconfigure</span> <span class="hl str">&amp;&amp; !network_configured()) {</span>
<span class="hl str">	my</span> <span class="hl ipl">$go_on</span> <span class="hl str">= 0;</span>
<span class="hl str">	while (!</span><span class="hl ipl">$go_on</span><span class="hl str">) {</span>
<span class="hl str">	    my</span> <span class="hl ipl">$choice</span> <span class="hl str">= N(&quot;Configure the network now&quot;);</span>
<span class="hl str">	    if (</span><span class="hl ipl">$in</span><span class="hl str">-&gt;ask_from(N(&quot;Network functionality not configured&quot;),</span>
<span class="hl str">			      N(&quot;You are going to configure a remote printer. This needs working network access, but your network is not configured yet. If you go on without network configuration, you will not be able to use the printer which you are configuring now. How do you want to proceed?&quot;),</span>
<span class="hl str">			      [ { val =&gt; \</span><span class="hl ipl">$choice,</span> <span class="hl str">type =&gt; &apos;</span>list<span class="hl str">&apos;,</span>
<span class="hl str">				  list =&gt; [ N(&quot;Configure the network now&quot;),</span>
<span class="hl str">					    N(&quot;Go on without configuring the network&quot;) ] } ])) {</span>
<span class="hl str">		if (</span><span class="hl ipl">$choice</span> <span class="hl str">eq N(&quot;Configure the network now&quot;)) {</span>
<span class="hl str">		    if ($::isInstall) {</span>
<span class="hl str">			require network::netconnect;</span>
<span class="hl str">		        network::netconnect::main(</span>
<span class="hl str"></span>			     <span class="hl ipl">$in</span><span class="hl str">-&gt;{prefix},</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;{netcnx} ||= {}, </span>
<span class="hl str"></span>			     <span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">-&gt;{netc},</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;{mouse}, </span>
<span class="hl str"></span>			     <span class="hl ipl">$in</span><span class="hl str">-&gt;{intf});</span>
<span class="hl str">#    my (</span><span class="hl ipl">$prefix,</span> <span class="hl str"></span><span class="hl ipl">$netcnx,</span> <span class="hl str"></span><span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$o_netc,</span> <span class="hl str"></span><span class="hl ipl">$o_mouse,</span> <span class="hl str"></span><span class="hl ipl">$o_intf,</span> <span class="hl str"></span><span class="hl ipl">$o_first_time,</span> <span class="hl str"></span><span class="hl ipl">$o_noauto</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">		    } else {</span>
<span class="hl str">			system(&quot;/usr/sbin/drakconnect&quot;);</span>
<span class="hl str">		    }</span>
<span class="hl str"></span>		    <span class="hl ipl">$go_on</span> <span class="hl str">= network_configured();</span>
<span class="hl str">		} else {</span>
<span class="hl str">		    return 1;</span>
<span class="hl str">		}</span>
<span class="hl str">	    } else {</span>
<span class="hl str">		return 0;</span>
<span class="hl str">	    }</span>
<span class="hl str">	}</span>
<span class="hl str">    }</span>
<span class="hl str"></span>
<span class="hl str">    # Do not try to start the network if it is not configured</span>
<span class="hl str">    if (!network_configured()) { return 0 }</span>
<span class="hl str"></span>
<span class="hl str">    # Second check: Is the network running?</span>
<span class="hl str"></span>
<span class="hl str">    if (printer::detect::network_running()) { return 1 }</span>
<span class="hl str"></span>
<span class="hl str">    # The network is configured now, start it.</span>
<span class="hl str">    if (!start_network(</span><span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$upNetwork</span><span class="hl str">) &amp;&amp; !</span><span class="hl ipl">$dontconfigure</span><span class="hl str">) {</span>
<span class="hl str"></span>	<span class="hl ipl">$in</span><span class="hl str">-&gt;ask_warn(N(&quot;Configuration of a remote printer&quot;), </span>
<span class="hl str">($::isInstall ?</span>
<span class="hl str">N(&quot;The network configuration done during the installation cannot be started now. Please check whether the network is accessable after booting your system and correct the configuration using the Mandrake Control Center, section</span> <span class="hl esc">\&quot;</span><span class="hl str">Network &amp; Internet</span><span class="hl esc">\&quot;</span><span class="hl str">/</span><span class="hl esc">\&quot;</span><span class="hl str">Connection</span><span class="hl esc">\&quot;</span><span class="hl str">, and afterwards set up the printer, also using the Mandrake Control Center, section</span> <span class="hl esc">\&quot;</span><span class="hl str">Hardware</span><span class="hl esc">\&quot;</span><span class="hl str">/</span><span class="hl esc">\&quot;</span><span class="hl str">Printer</span><span class="hl esc">\&quot;</span><span class="hl str">&quot;) :</span>
<span class="hl str">N(&quot;The network access was not running and could not be started. Please check your configuration and your hardware. Then try to configure your remote printer again.&quot;)));</span>
<span class="hl str">	return 0;</span>
<span class="hl str">    }</span>
<span class="hl str"></span>
<span class="hl str">    # Give a SIGHUP to the daemon and in case of CUPS do also the</span>
<span class="hl str">    # automatic configuration of broadcasting/access permissions</span>
<span class="hl str">    # The daemon is not really restarted but only SIGHUPped to not</span>
<span class="hl str">    # interrupt print jobs.</span>
<span class="hl str"></span>
<span class="hl str">    my</span> <span class="hl ipl">$_w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(N(&quot;Configuration of a remote printer&quot;), </span>
<span class="hl str">			      N(&quot;Restarting printing system...&quot;));</span>
<span class="hl str"></span>
<span class="hl str">    return printer::main::SIGHUP_daemon(</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{SPOOLER});</span>
<span class="hl str"></span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub security_check {</span>
<span class="hl str">    # Check the security mode and when in &quot;high&quot; or &quot;paranoid&quot; mode ask the</span>
<span class="hl str">    # user whether he really wants to configure printing.</span>
<span class="hl str">    my (</span><span class="hl ipl">$_printer,</span> <span class="hl str"></span><span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$spooler</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str"></span>
<span class="hl str">    # Any additional dialogs caused by this subroutine should appear as</span>
<span class="hl str">    # extra windows and not embedded in the &quot;Add printer&quot; wizard.</span>
<span class="hl str">    local $::isWizard = 0;</span>
<span class="hl str"></span>
<span class="hl str">#</span>    <span class="hl ipl">$in</span><span class="hl str">-&gt;set_help(&apos;</span>securityCheck<span class="hl str">&apos;) if $::isInstall;</span>
<span class="hl str"></span>
<span class="hl str">    # Get security level</span>
<span class="hl str">    my</span> <span class="hl ipl">$security</span><span class="hl str">;</span>
<span class="hl str">    if ($::isInstall) {</span>
<span class="hl str"></span>	<span class="hl ipl">$security</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;{security};</span>
<span class="hl str">    } else {</span>
<span class="hl str">     require security::level;</span>
<span class="hl str"></span>	<span class="hl ipl">$security</span> <span class="hl str">= security::level::get();</span>
<span class="hl str">    }</span>
<span class="hl str"></span>
<span class="hl str">    # Exit silently if the spooler is PDQ</span>
<span class="hl str">    if (</span><span class="hl ipl">$spooler</span> <span class="hl str">eq &quot;pdq&quot;) { return 1 }</span>
<span class="hl str"></span>
<span class="hl str">    # Exit silently in medium or lower security levels</span>
<span class="hl str">    if (!</span><span class="hl ipl">$security</span> <span class="hl str">||</span> <span class="hl ipl">$security</span> <span class="hl str">&lt; 4) { return 1 }</span>
<span class="hl str">    </span>
<span class="hl str">    # Exit silently if the current spooler is already activated for the current</span>
<span class="hl str">    # security level</span>
<span class="hl str">    if (printer::main::spooler_in_security_level(</span><span class="hl ipl">$spooler,</span> <span class="hl str"></span><span class="hl ipl">$security</span><span class="hl str">)) { return 1 }</span>
<span class="hl str"></span>
<span class="hl str">    # Tell user in which security mode he is and ask him whether he really</span>
<span class="hl str">    # wants to activate the spooler in the given security mode. Stop the</span>
<span class="hl str">    # operation of installing the spooler if he disagrees.</span>
<span class="hl str">    my</span> <span class="hl ipl">$securitystr</span> <span class="hl str">= (</span><span class="hl ipl">$security</span> <span class="hl str">== 4 ? N(&quot;high&quot;) : N(&quot;paranoid&quot;));</span>
<span class="hl str">    if (</span><span class="hl ipl">$in</span><span class="hl str">-&gt;ask_yesorno(N(&quot;Installing a printing system in the</span> <span class="hl ipl">%s</span> <span class="hl str">security level&quot;,</span> <span class="hl ipl">$securitystr</span><span class="hl str">),</span>
<span class="hl str">			 N(&quot;You are about to install the printing system</span> <span class="hl ipl">%s</span> <span class="hl str">on a system running in the</span> <span class="hl ipl">%s</span> <span class="hl str">security level.</span>
<span class="hl str"></span>
<span class="hl str">This printing system runs a daemon (background process) which waits for print jobs and handles them. This daemon is also accessable by remote machines through the network and so it is a possible point for attacks. Therefore only a few selected daemons are started by default in this security level.</span>
<span class="hl str"></span>
<span class="hl str">Do you really want to configure printing on this machine?&quot;,</span>
<span class="hl str"></span>			   <span class="hl ipl">$printer</span><span class="hl str">::data::spoolers{</span><span class="hl ipl">$spooler</span><span class="hl str">}{short_name},</span>
<span class="hl str"></span>			   <span class="hl ipl">$securitystr</span><span class="hl str">))) {</span>
<span class="hl str">        printer::main::add_spooler_to_security_level(</span><span class="hl ipl">$spooler,</span> <span class="hl str"></span><span class="hl ipl">$security</span><span class="hl str">);</span>
<span class="hl str">	my</span> <span class="hl ipl">$service</span><span class="hl str">;</span>
<span class="hl str">	if (</span><span class="hl ipl">$spooler</span> <span class="hl str">eq &quot;lpr&quot; ||</span> <span class="hl ipl">$spooler</span> <span class="hl str">eq &quot;lprng&quot;) {</span>
<span class="hl str"></span>	    <span class="hl ipl">$service</span> <span class="hl str">= &quot;lpd&quot;;</span>
<span class="hl str">	} else {</span>
<span class="hl str"></span>	    <span class="hl ipl">$service</span> <span class="hl str">=</span> <span class="hl ipl">$spooler</span><span class="hl str">;</span>
<span class="hl str">	}</span>
<span class="hl str">        services::start_service_on_boot(</span><span class="hl ipl">$service</span><span class="hl str">); #TV</span>
<span class="hl str">	return 1;</span>
<span class="hl str">    } else {</span>
<span class="hl str">	return 0;</span>
<span class="hl str">    }</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub start_spooler_on_boot {</span>
<span class="hl str">    # Checks whether the spooler will be started at boot time and if not,</span>
<span class="hl str">    # ask the user whether he wants to start the spooler at boot time.</span>
<span class="hl str">    my (</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$service</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    # PDQ has no daemon, so nothing needs to be started :</span>
<span class="hl str">    return unless</span> <span class="hl ipl">$service</span><span class="hl str">;</span>
<span class="hl str"></span>
<span class="hl str">    # Any additional dialogs caused by this subroutine should appear as</span>
<span class="hl str">    # extra windows and not embedded in the &quot;Add printer&quot; wizard.</span>
<span class="hl str">    local $::isWizard = 0;</span>
<span class="hl str"></span>
<span class="hl str">#</span>    <span class="hl ipl">$in</span><span class="hl str">-&gt;set_help(&apos;</span>startSpoolerOnBoot<span class="hl str">&apos;) if $::isInstall;</span>
<span class="hl str">    if (!services::starts_on_boot(</span><span class="hl ipl">$service</span><span class="hl str">)) {</span>
<span class="hl str">	if (</span><span class="hl ipl">$in</span><span class="hl str">-&gt;ask_yesorno(N(&quot;Starting the printing system at boot time&quot;),</span>
<span class="hl str">			     N(&quot;The printing system (</span><span class="hl ipl">%s</span><span class="hl str">) will not be started automatically when the machine is booted.</span>
<span class="hl str"></span>
<span class="hl str">It is possible that the automatic starting was turned off by changing to a higher security level, because the printing system is a potential point for attacks.</span>
<span class="hl str"></span>
<span class="hl str">Do you want to have the automatic starting of the printing system turned on again?&quot;,</span>
<span class="hl str"></span>		       <span class="hl ipl">$printer</span><span class="hl str">::data::spoolers{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{SPOOLER}}{short_name}))) {</span>
<span class="hl str">	    services::start_service_on_boot(</span><span class="hl ipl">$service</span><span class="hl str">);</span>
<span class="hl str">	}</span>
<span class="hl str">    }</span>
<span class="hl str">    1;</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub install_spooler {</span>
<span class="hl str">    # installs the default spooler and start its daemon</span>
<span class="hl str">    my (</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$upNetwork</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str">    return 1 if $::testing;</span>
<span class="hl str">    my</span> <span class="hl ipl">$spooler</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{SPOOLER};</span>
<span class="hl str">    # If the user refuses to install the spooler in high or paranoid</span>
<span class="hl str">    # security level, exit.</span>
<span class="hl str">    return 0 unless security_check(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$spooler</span><span class="hl str">);</span>
<span class="hl str">    return 1 if</span> <span class="hl ipl">$spooler</span> <span class="hl str">!~ /^(cups|lpd|lprng|pqd)</span><span class="hl ipl">$/</span><span class="hl str">; # should not happen</span>
<span class="hl str">    my</span> <span class="hl ipl">$w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(N(&quot;Printerdrake&quot;), N(&quot;Checking installed software...&quot;));</span>
<span class="hl str"></span>
<span class="hl str">    # &quot;lpr&quot; conflicts with &quot;LPRng&quot;, remove either &quot;LPRng&quot; or remove &quot;lpr&quot;</span>
<span class="hl str">    my</span> <span class="hl ipl">$packages</span> <span class="hl str">=</span> <span class="hl ipl">$spoolers</span><span class="hl str">{</span><span class="hl ipl">$spooler</span><span class="hl str">}{packages2rm};</span>
<span class="hl str">    if (</span><span class="hl ipl">$packages</span> <span class="hl str">&amp;&amp; files_exist(</span><span class="hl ipl">$packages</span><span class="hl str">-&gt;[1])) {</span>
<span class="hl str">	undef</span> <span class="hl ipl">$w</span><span class="hl str">;</span>
<span class="hl str"></span>        <span class="hl ipl">$w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(N(&quot;Printerdrake&quot;), N(&quot;Removing</span> <span class="hl ipl">%s</span> <span class="hl str">...&quot;),</span> <span class="hl ipl">$spoolers</span><span class="hl str">{</span><span class="hl ipl">$packages</span><span class="hl str">-&gt;[0]}{short_name});</span>
<span class="hl str"></span>        <span class="hl ipl">$in</span><span class="hl str">-&gt;do_pkgs-&gt;remove_nodeps(</span><span class="hl ipl">$packages</span><span class="hl str">-&gt;[0]);</span>
<span class="hl str">    }</span>
<span class="hl str"></span>
<span class="hl str"></span>    <span class="hl ipl">$packages</span> <span class="hl str">=</span> <span class="hl ipl">$spoolers</span><span class="hl str">{</span><span class="hl ipl">$spooler</span><span class="hl str">}{packages2add};</span>
<span class="hl str">    if (</span><span class="hl ipl">$packages</span> <span class="hl str">&amp;&amp; !files_exist(&#64;{</span><span class="hl ipl">$packages</span><span class="hl str">-&gt;[1]})) {</span>
<span class="hl str">	undef</span> <span class="hl ipl">$w</span><span class="hl str">;</span>
<span class="hl str"></span>        <span class="hl ipl">$w</span> <span class="hl str">=</span> <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(N(&quot;Printerdrake&quot;), N(&quot;Installing</span> <span class="hl ipl">%s</span> <span class="hl str">...&quot;),</span> <span class="hl ipl">$spoolers</span><span class="hl str">{</span><span class="hl ipl">$spooler</span><span class="hl str">}{short_name});</span>
<span class="hl str"></span>        <span class="hl ipl">$in</span><span class="hl str">-&gt;do_pkgs-&gt;install(&#64;{</span><span class="hl ipl">$packages</span><span class="hl str">-&gt;[0]});</span>
<span class="hl str">    }</span>
<span class="hl str"></span>
<span class="hl str">    undef</span> <span class="hl ipl">$w</span><span class="hl str">;</span>
<span class="hl str">    </span>
<span class="hl str">    # Start the network (especially during installation), so the</span>
<span class="hl str">    # user can set up queues to remote printers.</span>
<span class="hl str"></span>
<span class="hl str"></span>    <span class="hl ipl">$upNetwork</span> <span class="hl str">and do {</span>
<span class="hl str">        &amp;</span><span class="hl ipl">$upNetwork</span><span class="hl str">(); </span>
<span class="hl str">        undef</span> <span class="hl ipl">$upNetwork</span><span class="hl str">; </span>
<span class="hl str">        sleep(1);</span>
<span class="hl str">    };</span>
<span class="hl str"></span>
<span class="hl str">    # Start daemon</span>
<span class="hl str">    if (</span><span class="hl ipl">$spooler</span> <span class="hl str">eq &quot;cups&quot;) {</span>
<span class="hl str">        # Start daemon</span>
<span class="hl str">        # Avoid unnecessary restarting of CUPS, this blocks the</span>
<span class="hl str">        # startup of printerdrake for several seconds.</span>
<span class="hl str">        printer::services::start_not_running_service(&quot;cups&quot;);</span>
<span class="hl str">    } elsif (</span><span class="hl ipl">$spoolers</span><span class="hl str">{</span><span class="hl ipl">$spooler</span><span class="hl str">}{service}) {</span>
<span class="hl str">        printer::services::restart(</span><span class="hl ipl">$spoolers</span><span class="hl str">{</span><span class="hl ipl">$spooler</span><span class="hl str">}{service});</span>
<span class="hl str">    }</span>
<span class="hl str">    </span>
<span class="hl str">    # Set the choosen spooler tools as defaults for &quot;lpr&quot;, &quot;lpq&quot;, &quot;lprm&quot;, ...</span>
<span class="hl str">    foreach (&#64;{</span><span class="hl ipl">$spoolers</span><span class="hl str">{</span><span class="hl ipl">$spooler</span><span class="hl str">}{alternatives}}) {</span>
<span class="hl str">        set_alternative(</span><span class="hl ipl">$_</span><span class="hl str">-&gt;[0],</span> <span class="hl ipl">$_</span><span class="hl str">-&gt;[1]);</span>
<span class="hl str">    }</span>
<span class="hl str"></span>
<span class="hl str">    # Remove/add PDQ panic buttons from the user&apos;</span>s KDE Desktops
    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>pdq_panic_button<span class="hl opt">(</span><span class="hl kwb">$spooler</span> <span class="hl kwc">eq</span> <span class="hl str">&apos;pdq&apos;</span> ? <span class="hl str">&quot;add&quot;</span> <span class="hl opt">:</span> <span class="hl str">&quot;remove&quot;</span><span class="hl opt">);</span>

    <span class="hl slc"># Should it be started at boot time?</span>
    start_spooler_on_boot<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $spoolers</span><span class="hl opt">{</span><span class="hl kwb">$spooler</span><span class="hl opt">}{</span>boot_spooler<span class="hl opt">});</span>

    <span class="hl slc"># Give a SIGHUP to the devfsd daemon to correct the permissions</span>
    <span class="hl slc"># for the /dev/... files according to the spooler</span>
    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>SIGHUP_daemon<span class="hl opt">(</span><span class="hl str">&quot;devfs&quot;</span><span class="hl opt">);</span>
    <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> assure_default_printer_is_set <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">defined</span><span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}) &amp;&amp;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">} &amp;&amp;</span>
	<span class="hl opt">(!</span><span class="hl kwc">defined</span><span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">}) || !</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">})) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$_w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
				   N<span class="hl opt">(</span><span class="hl str">&quot;Setting Default Printer...&quot;</span><span class="hl opt">));</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">} =</span> printer<span class="hl opt">::</span><span class="hl kwa">default</span><span class="hl opt">::</span>get_printer<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">}) {</span>
	    <span class="hl slc"># If a CUPS system has only remote printers and no default</span>
	    <span class="hl slc"># printer defined, it defines the first printer whose</span>
	    <span class="hl slc"># broadcast signal appeared after the start of the CUPS</span>
	    <span class="hl slc"># daemon, so on every start another printer gets the default</span>
	    <span class="hl slc"># printer. To avoid this, make sure that the default printer</span>
	    <span class="hl slc"># is defined.</span>
	    printer<span class="hl opt">::</span><span class="hl kwa">default</span><span class="hl opt">::</span>set_printer<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">} =</span> <span class="hl str">&apos;&apos;</span> <span class="hl opt">}</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> setup_default_spooler <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">} ||=</span> <span class="hl str">&apos;cups&apos;</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$oldspooler</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">};</span>

    <span class="hl kwc">my</span> <span class="hl kwb">$str_spooler</span> <span class="hl opt">=</span> 
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_listf_raw</span><span class="hl opt">({</span> title <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Select Printer Spooler&quot;</span><span class="hl opt">),</span>
				  messages <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Which printing system (spooler) do you want to use?&quot;</span><span class="hl opt">),</span>
				  interactive_help_id <span class="hl opt">=&gt;</span> <span class="hl str">&apos;setupDefaultSpooler&apos;</span><span class="hl opt">,</span>
				<span class="hl opt">},</span>
				<span class="hl kwa">sub</span> <span class="hl opt">{</span> translate<span class="hl opt">(</span><span class="hl kwb">$_</span><span class="hl opt">[</span><span class="hl num">0</span><span class="hl opt">]) },</span>
			    <span class="hl opt">[</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>spooler<span class="hl opt">() ],</span>
			    <span class="hl kwb">$spoolers</span><span class="hl opt">{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}}{</span>long_name<span class="hl opt">},</span>
			    <span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">} =</span> <span class="hl kwb">$spooler_inv</span><span class="hl opt">{</span><span class="hl kwb">$str_spooler</span><span class="hl opt">};</span>
    <span class="hl slc"># Install the spooler if not done yet</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!</span>install_spooler<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">)) {</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">} =</span> <span class="hl kwb">$oldspooler</span><span class="hl opt">;</span>
	<span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl kwb">$oldspooler</span><span class="hl opt">) {</span>
	<span class="hl slc"># Remove the local printers from Star Office/OpenOffice.org/GIMP</span>
	printer<span class="hl opt">::</span>main<span class="hl opt">::</span>removelocalprintersfromapplications<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	<span class="hl slc"># Get the queues of this spooler</span>
	<span class="hl opt">{</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$_w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
				      N<span class="hl opt">(</span><span class="hl str">&quot;Reading printer data...&quot;</span><span class="hl opt">));</span>
	    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>read_configured_queues<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Copy queues from former spooler</span>
	copy_queues_from<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $oldspooler</span><span class="hl opt">);</span>
	<span class="hl slc"># Re-read the printer database (CUPS has additional drivers, PDQ</span>
	<span class="hl slc"># has no raw queue)</span>
	<span class="hl kwb">%printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb <span class="hl opt">= ();</span>
	assure_default_printer_is_set<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">);</span>
	<span class="hl slc"># Configure the current printer queues in applications</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$_w</span> <span class="hl opt">=</span>
	    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
			      N<span class="hl opt">(</span><span class="hl str">&quot;Configuring applications...&quot;</span><span class="hl opt">));</span>
	printer<span class="hl opt">::</span>main<span class="hl opt">::</span>configureapplications<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl slc"># Save spooler choice</span>
    printer<span class="hl opt">::</span><span class="hl kwa">default</span><span class="hl opt">::</span>set_spooler<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
    <span class="hl kwa">return</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">};</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> configure_queue <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$_w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
			       N<span class="hl opt">(</span><span class="hl str">&quot;Configuring printer</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span><span class="hl opt">...</span><span class="hl str">&quot;,</span>
<span class="hl str"></span>				 <span class="hl ipl">$printer</span><span class="hl str">-&gt;{currentqueue}{queue}))</span>
<span class="hl str">	if !</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{noninteractive};</span>
<span class="hl str"></span>    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{complete} = 1;</span>
<span class="hl str">    my</span> <span class="hl ipl">$retval</span> <span class="hl str">= printer::main::configure_queue(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str"></span>    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{complete} = 0;</span>
<span class="hl str">    if (!</span><span class="hl ipl">$retval</span><span class="hl str">) {</span>
<span class="hl str">	local $::isWizard = 0;</span>
<span class="hl str"></span>	<span class="hl ipl">$in</span><span class="hl str">-&gt;ask_warn(N(&quot;</span>Printerdrake<span class="hl str">&quot;),</span>
<span class="hl str">		      N(&quot;</span>Failed to configure printer <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot;!&quot;</span><span class="hl opt">,</span>
			<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>queue<span class="hl opt">}));</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">return</span> <span class="hl kwb">$retval</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> install_foomatic <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!$::</span>testing <span class="hl opt">&amp;&amp;</span>
	<span class="hl opt">!</span>files_exist<span class="hl opt">(</span><span class="hl str">qw(/usr/bin/foomatic-configure </span>
<span class="hl str">			/usr/lib/perl5/vendor_perl/5.8.0/Foomatic/DB.pm</span>
<span class="hl str">			/usr/bin/foomatic-rip</span>
<span class="hl str">			/usr/share/foomatic/db/source/driver/ljet4.xml)</span><span class="hl opt">)) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$_w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
				   N<span class="hl opt">(</span><span class="hl str">&quot;Installing Foomatic...&quot;</span><span class="hl opt">));</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;foomatic-db-engine&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;foomatic-filters&apos;</span><span class="hl opt">,</span>
			      <span class="hl str">&apos;foomatic-db&apos;</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> wizard_close <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$in, $mode</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl slc"># Leave wizard mode with congratulations screen if $mode = 1</span>
    <span class="hl opt">$::</span>Wizard_no_previous <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl opt">$::</span>Wizard_no_cancel <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl opt">$::</span>Wizard_finished <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    wizard_congratulations<span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">$mode</span> <span class="hl opt">==</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwc">undef</span> <span class="hl opt">$::</span>isWizard<span class="hl opt">;</span>
    <span class="hl opt">$::</span>WizardWindow-<span class="hl opt">&gt;</span><span class="hl kwd">destroy</span> <span class="hl kwa">if</span> <span class="hl kwc">defined</span> <span class="hl opt">$::</span>WizardWindow<span class="hl opt">;</span>
    <span class="hl kwc">undef</span> <span class="hl opt">$::</span>WizardWindow<span class="hl opt">;</span>
<span class="hl opt">};</span>

<span class="hl slc">#- Program entry point for configuration of the printing system.</span>
<span class="hl kwa">sub</span> main <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $install_step, $upNetwork</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl slc"># $install_step is only made use of during the installation. It is</span>
    <span class="hl slc"># 0 when this function is called during the preparation of the &quot;Summary&quot;</span>
    <span class="hl slc"># screen and 1 when the user clicks on &quot;Configure&quot; on the &quot;Summary&quot; </span>
    <span class="hl slc"># screen</span>

    <span class="hl slc"># Initialization of Printerdrake and queue auto-installation:</span>
    <span class="hl slc"># During installation we do this step only once, when we prepare</span>
    <span class="hl slc"># the &quot;Summary&quot; screen in case of detected local printers or when</span>
    <span class="hl slc"># the &quot;Configure&quot; button in the &quot;Printer&quot; entry of the &quot;Summary&quot;</span>
    <span class="hl slc"># screen is clicked. If the button is clicked after an automatic</span>
    <span class="hl slc"># installation of local printers or if it is clicked for the</span>
    <span class="hl slc"># second time, these steps are not repeated.</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!$::</span>isInstall <span class="hl opt">|| !$::</span>printerdrake_initialized<span class="hl opt">) {</span>
	init<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl slc"># Main loop: During installation we only enter it when the user has</span>
    <span class="hl slc"># clicked on the &quot;Configure&quot; button in the &quot;Summary&quot; step. We do not</span>
    <span class="hl slc"># call it during the preparation of the &quot;Summary&quot; screen.</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!$::</span>isInstall <span class="hl opt">||</span> <span class="hl kwb">$install_step</span> <span class="hl opt">==</span> <span class="hl num">1</span><span class="hl opt">) {</span>
	<span class="hl slc"># Ask for a spooler when none is defined yet</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">} ||=</span> 
	    setup_default_spooler<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) ||</span> <span class="hl kwa">return</span><span class="hl opt">;</span>
    
	<span class="hl slc"># Save the default spooler</span>
	printer<span class="hl opt">::</span><span class="hl kwa">default</span><span class="hl opt">::</span>set_spooler<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>

	mainwindow_interactive<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    <span class="hl slc"># In the installation we call the clean-up manually when we leave </span>
    <span class="hl slc"># the &quot;Summary&quot; step</span>
    <span class="hl kwa">if</span> <span class="hl opt">(!$::</span>isInstall<span class="hl opt">) {</span>
	final_cleanup<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> init <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc"># Initialization of Printerdrake and queue auto-installation</span>

    <span class="hl slc"># Save the user mode, so that the same one is used on the next start</span>
    <span class="hl slc"># of Printerdrake</span>
    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>set_usermode<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">});</span>
    
    <span class="hl slc"># printerdrake does not work without foomatic, and for more</span>
    <span class="hl slc"># convenience we install some more stuff</span>
    <span class="hl opt">{</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$_w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
				   N<span class="hl opt">(</span><span class="hl str">&quot;Checking installed software...&quot;</span><span class="hl opt">));</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!$::</span>testing <span class="hl opt">&amp;&amp;</span>
	    <span class="hl opt">!</span>files_exist<span class="hl opt">(</span><span class="hl str">qw(/usr/bin/foomatic-configure</span>
<span class="hl str">			    /usr/lib/perl5/vendor_perl/5.8.0/Foomatic/DB.pm</span>
<span class="hl str">			    /usr/bin/foomatic-rip</span>
<span class="hl str">			    /usr/share/foomatic/db/source/driver/ljet4.xml</span>
<span class="hl str">			    /usr/bin/escputil</span>
<span class="hl str">			    /usr/share/printer-testpages/testprint.ps</span>
<span class="hl str">			    /usr/bin/nmap</span>
<span class="hl str">			    /usr/bin/scli</span>
<span class="hl str">			    )</span><span class="hl opt">,</span>
			 if_<span class="hl opt">(</span>files_exist<span class="hl opt">(</span><span class="hl str">&quot;/usr/bin/gimp&quot;</span><span class="hl opt">),</span>
			     <span class="hl str">&quot;/usr/lib/gimp/1.2/plug-ins/print&quot;</span><span class="hl opt">)</span>
			 <span class="hl opt">)) {</span>
	    <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">install</span><span class="hl opt">(</span><span class="hl str">&apos;foomatic-db-engine&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;foomatic-filters&apos;</span><span class="hl opt">,</span>
				  <span class="hl str">&apos;foomatic-db&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;printer-utils&apos;</span><span class="hl opt">,</span>
				  <span class="hl str">&apos;printer-testpages&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;nmap&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;scli&apos;</span><span class="hl opt">,</span>
				  if_<span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">do_pkgs</span><span class="hl opt">-&gt;</span><span class="hl kwd">is_installed</span><span class="hl opt">(</span><span class="hl str">&apos;gimp&apos;</span><span class="hl opt">),</span>
				      <span class="hl str">&apos;gimpprint&apos;</span><span class="hl opt">));</span>
	<span class="hl opt">}</span>
	
	<span class="hl slc"># only experts should be asked for the spooler</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">} ||=</span> <span class="hl str">&apos;cups&apos;</span> <span class="hl kwa">if</span> <span class="hl opt">!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">};</span>
	
    <span class="hl opt">}</span>
    
    <span class="hl slc"># If we have chosen a spooler, install it and mark it as default </span>
    <span class="hl slc"># spooler</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}) {</span>
	<span class="hl kwa">return</span> <span class="hl num">0</span> <span class="hl kwa">unless</span> install_spooler<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">);</span>
	printer<span class="hl opt">::</span><span class="hl kwa">default</span><span class="hl opt">::</span>set_spooler<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>
    
    <span class="hl slc"># Get the default printer (Done before non-interactive queue setup,</span>
    <span class="hl slc"># so that former default is not lost)</span>
    assure_default_printer_is_set<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">);</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$nodefault</span> <span class="hl opt">= !</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">};</span>
    
    <span class="hl slc"># Non-interactive setup of newly detected printers (This is done</span>
    <span class="hl slc"># only when not in expert mode, so we always have a spooler defined</span>
    <span class="hl slc"># here)</span>
    configure_new_printers<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">);</span>
    
    <span class="hl slc"># Make sure that default printer is registered</span>
    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$nodefault</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">}) {</span>
	printer<span class="hl opt">::</span><span class="hl kwa">default</span><span class="hl opt">::</span>set_printer<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
    <span class="hl opt">}</span>

    <span class="hl slc"># Configure the current printer queues in applications</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$w</span> <span class="hl opt">=</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
			  N<span class="hl opt">(</span><span class="hl str">&quot;Configuring applications...&quot;</span><span class="hl opt">));</span>
    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>configureapplications<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
    <span class="hl kwc">undef</span> <span class="hl kwb">$w</span><span class="hl opt">;</span>
    
    <span class="hl slc"># Turn on printer autodetection by default</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECT<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTLOCAL<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTNETWORK<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>AUTODETECTSMB<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>
    
    <span class="hl slc"># Mark this part as done, it should not be done a second time.</span>
    <span class="hl kwa">if</span> <span class="hl opt">($::</span>isInstall<span class="hl opt">) {</span>
	<span class="hl opt">$::</span>printerdrake_initialized <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
    <span class="hl opt">}</span>

    <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> mainwindow_interactive <span class="hl opt">{</span>

    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc"># Control variables for the main loop</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$menuchoice, $cursorpos</span><span class="hl opt">) = (</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl str">&apos;::&apos;</span><span class="hl opt">);</span>

    <span class="hl kwa">while</span> <span class="hl opt">(</span><span class="hl num">1</span><span class="hl opt">) {</span>
	<span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$queue, $newcursorpos</span><span class="hl opt">) = (</span><span class="hl str">&apos;&apos;</span><span class="hl opt">,</span> <span class="hl num">0</span><span class="hl opt">);</span>
	<span class="hl slc"># If networking is configured, start it, but don&apos;t ask the</span>
	<span class="hl slc"># user to configure networking. We want to know whether we</span>
	<span class="hl slc"># have a local network, to suppress some buttons in the</span>
	<span class="hl slc"># recommended mode</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$havelocalnetworks_or_expert</span> <span class="hl opt">=</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">} ||</span>
	    check_network<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork,</span> <span class="hl num">1</span><span class="hl opt">) &amp;&amp;</span> 
	    printer<span class="hl opt">::</span>detect<span class="hl opt">::</span>getIPsInLocalNetworks<span class="hl opt">() != ();</span>
<span class="hl slc">#	$in-&gt;set_help(&apos;mainMenu&apos;) if $::isInstall;</span>
	<span class="hl slc"># Initialize the cursor position</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$cursorpos</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;::&quot;</span> <span class="hl opt">&amp;&amp;</span> 
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">} &amp;&amp;</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) {</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">defined</span><span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">}})) {</span>
		<span class="hl kwb">$cursorpos</span> <span class="hl opt">=</span> 
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">}}{</span>queuedata<span class="hl opt">}{</span>menuentry<span class="hl opt">} .</span> N<span class="hl opt">(</span><span class="hl str">&quot; (Default)&quot;</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;cups&quot;</span><span class="hl opt">) {</span>
		<span class="hl kwb">$cursorpos</span> <span class="hl opt">=</span> find <span class="hl opt">{</span> <span class="hl kwd">/!$printer-&gt;{DEFAULT}:[^!]*$/</span> <span class="hl opt">}</span> printer<span class="hl opt">::</span>cups<span class="hl opt">::</span>get_formatted_remote_queues<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Generate the list of available printers</span>
	<span class="hl kwc">my</span> <span class="hl kwb">&#64;printerlist</span> <span class="hl opt">=</span> 
	    <span class="hl opt">(</span><span class="hl kwc">sort</span><span class="hl opt">(</span><span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">}{</span>queuedata<span class="hl opt">}{</span>menuentry<span class="hl opt">}</span> 
			<span class="hl opt">. (</span><span class="hl kwb">$_</span> <span class="hl kwc">eq</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">}</span> ?
			   N<span class="hl opt">(</span><span class="hl str">&quot; (Default)&quot;</span><span class="hl opt">) :</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">) }</span>
		  <span class="hl kwc">keys</span><span class="hl opt">(%{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}</span>
			 <span class="hl opt">|| {}})),</span>
	     <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;cups&quot;</span> ?
	      <span class="hl kwc">sort</span><span class="hl opt">(</span>printer<span class="hl opt">::</span>cups<span class="hl opt">::</span>get_formatted_remote_queues<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">)) :</span>
	      <span class="hl opt">()));</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$noprinters</span> <span class="hl opt">=</span> <span class="hl kwb">$#printerlist</span> <span class="hl opt">&lt;</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl slc"># Position the cursor where it was before (in case</span>
	<span class="hl slc"># a button was pressed).</span>
	<span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl kwb">$cursorpos</span><span class="hl opt">;</span>
	<span class="hl slc"># Show the main dialog</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span><span class="hl opt">({</span> 
	    title <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
	    messages <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;The following printers are configured. Double-click on a printer to change its settings; to make it the default printer; or to view information about it.&quot;</span><span class="hl opt">),</span>
	    cancel <span class="hl opt">=&gt; (</span><span class="hl str">&quot;&quot;</span><span class="hl opt">),</span>
	    ok <span class="hl opt">=&gt; (</span><span class="hl str">&quot;&quot;</span><span class="hl opt">) },</span>
	    <span class="hl slc"># List the queues</span>
	    <span class="hl opt">[</span> if_<span class="hl opt">(!</span><span class="hl kwb">$noprinters,</span>
		  <span class="hl opt">{</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$menuchoice,</span> format <span class="hl opt">=&gt;</span> \<span class="hl opt">&amp;</span>translate<span class="hl opt">,</span>
		    <span class="hl kwc">sort</span> <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span> separator <span class="hl opt">=&gt;</span> <span class="hl str">&quot;!&quot;</span><span class="hl opt">,</span> tree_expanded <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span>
		    quit_if_double_click <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span> allow_empty_list <span class="hl opt">=&gt;</span> <span class="hl num">1</span><span class="hl opt">,</span>
		    list <span class="hl opt">=&gt;</span> \<span class="hl kwb">&#64;printerlist</span> <span class="hl opt">}),</span>
	      <span class="hl opt">{</span> clicked_may_quit <span class="hl opt">=&gt;</span>
		    <span class="hl kwa">sub</span> <span class="hl opt">{</span> 
			<span class="hl slc"># Save the cursor position</span>
			<span class="hl kwb">$cursorpos</span> <span class="hl opt">=</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">;</span>
			<span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;\</span><span class="hl ipl">&#64;addprinter</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
			<span class="hl num">1</span><span class="hl opt">;</span> 
		    <span class="hl opt">},</span>
		val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Add a new printer&quot;</span><span class="hl opt">) },</span>
	      <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;cups&quot;</span> <span class="hl opt">&amp;&amp;</span>
	       <span class="hl kwb">$havelocalnetworks_or_expert</span> ?
	       <span class="hl opt">({</span> clicked_may_quit <span class="hl opt">=&gt;</span>
		      <span class="hl kwa">sub</span> <span class="hl opt">{</span> 
			  <span class="hl slc"># Save the cursor position</span>
			  <span class="hl kwb">$cursorpos</span> <span class="hl opt">=</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">;</span>
			  <span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;\</span><span class="hl ipl">&#64;refresh</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
			  <span class="hl num">1</span><span class="hl opt">;</span>
		      <span class="hl opt">},</span>
		  val <span class="hl opt">=&gt; (</span><span class="hl kwb">$#printerlist</span> <span class="hl opt">&lt;</span> <span class="hl num">0</span> ?
			  N<span class="hl opt">(</span><span class="hl str">&quot;Display all available remote CUPS printers&quot;</span><span class="hl opt">) :</span>
			  N<span class="hl opt">(</span><span class="hl str">&quot;Refresh printer list (to display all available remote CUPS printers)&quot;</span><span class="hl opt">)) },</span>
		<span class="hl opt">{</span> clicked_may_quit <span class="hl opt">=&gt;</span>
		      <span class="hl kwa">sub</span> <span class="hl opt">{</span> 
			  <span class="hl slc"># Save the cursor position</span>
			  <span class="hl kwb">$cursorpos</span> <span class="hl opt">=</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">;</span>
			  <span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;\</span><span class="hl ipl">&#64;cupsconfig</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
			  <span class="hl num">1</span><span class="hl opt">;</span>
		      <span class="hl opt">},</span>
		  val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;CUPS configuration&quot;</span><span class="hl opt">) }) : ()),</span>
	      <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">} &amp;&amp;</span> 
	       <span class="hl opt">(</span>files_exist<span class="hl opt">(</span><span class="hl str">qw(/usr/bin/pdq)</span><span class="hl opt">) ||</span>
		files_exist<span class="hl opt">(</span><span class="hl str">qw(/usr/lib/filters/lpf </span>
<span class="hl str">			       /usr/sbin/lpd)</span><span class="hl opt">))</span> ?
	       <span class="hl opt">{</span> clicked_may_quit <span class="hl opt">=&gt;</span>
		     <span class="hl kwa">sub</span> <span class="hl opt">{</span>
			 <span class="hl slc"># Save the cursor position</span>
			 <span class="hl kwb">$cursorpos</span> <span class="hl opt">=</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">;</span>
			 <span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;\</span><span class="hl ipl">&#64;spooler</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
			 <span class="hl num">1</span><span class="hl opt">;</span>
		     <span class="hl opt">},</span>
		 val <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Change the printing system&quot;</span><span class="hl opt">) } :</span>
	       <span class="hl opt">()),</span>
	      <span class="hl opt">{</span> clicked_may_quit <span class="hl opt">=&gt;</span>
		    <span class="hl kwa">sub</span> <span class="hl opt">{</span>
			<span class="hl slc"># Save the cursor position</span>
			<span class="hl kwb">$cursorpos</span> <span class="hl opt">=</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">;</span>
			<span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;\</span><span class="hl ipl">&#64;usermode</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
			<span class="hl num">1</span> 
			<span class="hl opt">},</span>
			    val <span class="hl opt">=&gt; (</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">}</span> ? N<span class="hl opt">(</span><span class="hl str">&quot;Normal Mode&quot;</span><span class="hl opt">) :</span>
				    N<span class="hl opt">(</span><span class="hl str">&quot;Expert Mode&quot;</span><span class="hl opt">)) },</span>
	      <span class="hl opt">{</span> clicked_may_quit <span class="hl opt">=&gt;</span>
		    <span class="hl kwa">sub</span> <span class="hl opt">{</span> <span class="hl kwb">$menuchoice</span> <span class="hl opt">=</span> <span class="hl str">&quot;\</span><span class="hl ipl">&#64;quit</span><span class="hl str">&quot;</span><span class="hl opt">;</span> <span class="hl num">1</span> <span class="hl opt">},</span>
		    val <span class="hl opt">=&gt; ($::</span>isEmbedded <span class="hl opt">|| $::</span>isInstall ?
			    N<span class="hl opt">(</span><span class="hl str">&quot;Done&quot;</span><span class="hl opt">) :</span> N<span class="hl opt">(</span><span class="hl str">&quot;Quit&quot;</span><span class="hl opt">)) },</span>
	      <span class="hl opt">]);</span>
	<span class="hl slc"># Toggle expert mode and standard mode</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$menuchoice</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;\</span><span class="hl ipl">&#64;usermode</span><span class="hl str">&quot;</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">} =</span> printer<span class="hl opt">::</span>main<span class="hl opt">::</span>set_usermode<span class="hl opt">(!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">});</span>
	    <span class="hl slc"># Read printer database for the new user mode</span>
	    <span class="hl kwb">%printer</span><span class="hl opt">::</span>main<span class="hl opt">::</span>thedb <span class="hl opt">= ();</span>
	    <span class="hl slc"># Modify menu entries to switch the tree</span>
	    <span class="hl slc"># structure between expert/normal mode.</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$spooler</span> <span class="hl opt">=</span>
		<span class="hl kwb">$spoolers</span><span class="hl opt">{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">}}{</span>short_name<span class="hl opt">};</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">}) {</span>
		<span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwc">keys</span><span class="hl opt">(%{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}})) {</span> 
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">}{</span>queuedata<span class="hl opt">}{</span>menuentry<span class="hl opt">} =~</span> 
			<span class="hl kwd">s/^/$spooler!/</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
		<span class="hl kwb">$cursorpos</span> <span class="hl opt">=~</span> <span class="hl kwd">s/^/$spooler!/</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl kwc">keys</span><span class="hl opt">(%{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}})) {</span> 
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$_</span><span class="hl opt">}{</span>queuedata<span class="hl opt">}{</span>menuentry<span class="hl opt">} =~</span> 
			<span class="hl kwd">s/^$spooler!//</span><span class="hl opt">;</span>
		<span class="hl opt">}</span>
		<span class="hl kwb">$cursorpos</span> <span class="hl opt">=~</span> <span class="hl kwd">s/^$spooler!//</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    <span class="hl kwa">next</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Refresh printer list</span>
	<span class="hl kwa">next if</span> <span class="hl kwb">$menuchoice</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;\</span><span class="hl ipl">&#64;refresh</span><span class="hl str">&quot;</span><span class="hl opt">;</span>
	<span class="hl slc"># Configure CUPS</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$menuchoice</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;\</span><span class="hl ipl">&#64;cupsconfig</span><span class="hl str">&quot;</span><span class="hl opt">) {</span>
	    config_cups<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">);</span>
	    <span class="hl kwa">next</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Call function to switch to another spooler</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$menuchoice</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;\</span><span class="hl ipl">&#64;spooler</span><span class="hl str">&quot;</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">} =</span> setup_default_spooler<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) ||</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">};</span>
	    <span class="hl kwa">next</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Add a new print queue</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$menuchoice</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;\</span><span class="hl ipl">&#64;addprinter</span><span class="hl str">&quot;</span><span class="hl opt">) {</span>
	    <span class="hl kwb">$newcursorpos</span> <span class="hl opt">=</span> add_printer<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">);</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Edit an existing print queue</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$menuchoice</span> <span class="hl opt">=~</span> <span class="hl kwd">/!([^\s!:]+):[^!]*$/</span><span class="hl opt">) {</span>
	    <span class="hl slc"># Rip the queue name out of the chosen menu entry</span>
	    <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span><span class="hl opt">;</span>
	    <span class="hl slc"># Save the cursor position</span>
	    <span class="hl kwb">$cursorpos</span> <span class="hl opt">=</span> <span class="hl kwb">$menuchoice</span><span class="hl opt">;</span>
	    <span class="hl slc"># Edit the queue</span>
	    edit_printer<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork, $queue</span><span class="hl opt">);</span>
	    <span class="hl kwb">$newcursorpos</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl slc">#- Close printerdrake</span>
	<span class="hl kwb">$menuchoice</span> <span class="hl kwc">eq</span> <span class="hl str">&quot;\</span><span class="hl ipl">&#64;quit</span><span class="hl str">&quot;</span> <span class="hl kwc">and</span> <span class="hl kwa">last</span><span class="hl opt">;</span>

	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$newcursorpos</span><span class="hl opt">) {</span>
	    <span class="hl slc"># Set the cursor onto the current menu entry</span>
	    <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>QUEUE<span class="hl opt">};</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$queue</span><span class="hl opt">) {</span>
		<span class="hl slc"># Make sure that the cursor is still at the same position</span>
		<span class="hl slc"># in the main menu when one has modified something on the</span>
		<span class="hl slc"># current printer</span>
		<span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>QUEUE<span class="hl opt">}}) {</span>
		    <span class="hl kwc">my</span> <span class="hl kwb">$s1</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot; (Default)&quot;</span><span class="hl opt">);</span>
		    <span class="hl kwc">my</span> <span class="hl kwb">$s2</span> <span class="hl opt">=</span> <span class="hl kwb">$s1</span><span class="hl opt">;</span>
		    <span class="hl kwb">$s2</span> <span class="hl opt">=~</span> <span class="hl kwd">s/\(/\\(/</span><span class="hl opt">;</span>
		    <span class="hl kwb">$s2</span> <span class="hl opt">=~</span> <span class="hl kwd">s/\)/\\)/</span><span class="hl opt">;</span>
		    <span class="hl kwb">$cursorpos</span> <span class="hl opt">.=</span> <span class="hl kwb">$s1</span>
			<span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>QUEUE<span class="hl opt">}</span> <span class="hl kwc">eq</span>
			<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">} &amp;&amp;</span> <span class="hl kwb">$cursorpos</span> <span class="hl opt">!~</span> <span class="hl kwd">/$s2/</span><span class="hl opt">;</span>
		<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		    <span class="hl kwb">$cursorpos</span> <span class="hl opt">=</span>
			<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span>queuedata<span class="hl opt">}{</span>menuentry<span class="hl opt">} .</span>
			<span class="hl opt">(</span><span class="hl kwb">$queue</span> <span class="hl kwc">eq</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">}</span> ?
			 N<span class="hl opt">(</span><span class="hl str">&quot; (Default)&quot;</span><span class="hl opt">) :</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">);</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		<span class="hl kwb">$cursorpos</span> <span class="hl opt">=</span> <span class="hl str">&quot;::&quot;</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl kwc">delete</span><span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>QUEUE<span class="hl opt">});</span>
	<span class="hl opt">}</span>
    <span class="hl opt">}</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> add_printer <span class="hl opt">{</span>

    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc"># The add-printer wizard of printerdrake, adds a queue for a local</span>
    <span class="hl slc"># or remote printer interactively</span>

    <span class="hl slc"># Tell subroutines that we add a new printer</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NEW<span class="hl opt">} =</span> <span class="hl num">1</span><span class="hl opt">;</span>

    <span class="hl slc"># Default printer name, we do not use &quot;lp&quot; so that one can</span>
    <span class="hl slc"># switch the default printer under LPD without needing to</span>
    <span class="hl slc"># rename another printer.  Under LPD the alias &quot;lp&quot; will be</span>
    <span class="hl slc"># given to the default printer.</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$defaultprname</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer&quot;</span><span class="hl opt">);</span>
    
    <span class="hl slc"># Determine a default name for a new printer queue</span>
    <span class="hl kwc">my</span> <span class="hl kwb">%queues</span><span class="hl opt">;</span> 
    <span class="hl kwb">&#64;queues</span><span class="hl opt">{</span><span class="hl kwc">map</span> <span class="hl opt">{</span> <span class="hl kwc">split</span> <span class="hl str">&apos;\|&apos;</span><span class="hl opt">,</span> <span class="hl kwb">$_</span> <span class="hl opt">}</span> <span class="hl kwc">keys</span> <span class="hl opt">%{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}}} = ();</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$i</span> <span class="hl opt">=</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">;</span>
    <span class="hl kwa">while</span> <span class="hl opt">(</span><span class="hl kwb">$i</span> <span class="hl opt">&lt;</span> <span class="hl num">99999</span><span class="hl opt">) {</span> 
	<span class="hl kwa">last unless</span> <span class="hl kwc">exists</span> <span class="hl kwb">$queues</span><span class="hl opt">{</span><span class="hl str">&quot;</span><span class="hl ipl">$defaultprname$i</span><span class="hl str">&quot;</span><span class="hl opt">};</span>
	<span class="hl kwb">$i</span> <span class="hl opt">++;</span>
    <span class="hl opt">}</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl str">&quot;</span><span class="hl ipl">$defaultprname$i</span><span class="hl str">&quot;</span><span class="hl opt">;</span>

    <span class="hl slc">#- Set default values for a new queue</span>
    <span class="hl kwb">$printer_type_inv</span><span class="hl opt">{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>TYPE<span class="hl opt">}}</span> <span class="hl kwc">or</span> 
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>TYPE<span class="hl opt">} =</span> printer<span class="hl opt">::</span><span class="hl kwa">default</span><span class="hl opt">::</span>printer_type<span class="hl opt">();</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">} = {</span> queue    <span class="hl opt">=&gt;</span> <span class="hl kwb">$queue,</span>
				 foomatic <span class="hl opt">=&gt;</span> <span class="hl num">0</span><span class="hl opt">,</span>
				 desc     <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
				 loc      <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
				 make     <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
				 model    <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
				 printer  <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
				 driver   <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
				 <span class="hl kwc">connect</span>  <span class="hl opt">=&gt;</span> <span class="hl str">&quot;&quot;</span><span class="hl opt">,</span>
				 spooler  <span class="hl opt">=&gt;</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>SPOOLER<span class="hl opt">},</span>
			     <span class="hl opt">};</span>
    <span class="hl slc">#- Set OLD_QUEUE field so that the subroutines for the</span>
    <span class="hl slc">#- configuration work correctly.</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>OLD_QUEUE<span class="hl opt">} =</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>QUEUE<span class="hl opt">} =</span> <span class="hl kwb">$queue</span><span class="hl opt">;</span>
    <span class="hl slc">#- Do all the configuration steps for a new queue</span>
  step_0<span class="hl opt">:</span>
    <span class="hl slc">#if (!$::isEmbedded &amp;&amp; !$::isInstall &amp;&amp;</span>
    <span class="hl kwa">if</span> <span class="hl opt">((!$::</span>isInstall<span class="hl opt">) &amp;&amp;</span>
	<span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">isa</span><span class="hl opt">(</span><span class="hl str">&apos;interactive::gtk&apos;</span><span class="hl opt">)) {</span>
	<span class="hl slc"># Enter wizard mode</span>
	<span class="hl opt">$::</span>Wizard_pix_up <span class="hl opt">=</span> <span class="hl str">&quot;wiz_printerdrake.png&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">$::</span>Wizard_title <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Add a new printer&quot;</span><span class="hl opt">);</span>
	<span class="hl opt">$::</span>isWizard <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl slc"># Wizard welcome screen</span>
	<span class="hl opt">$::</span>Wizard_no_previous <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl kwc">undef</span> <span class="hl opt">$::</span>Wizard_no_cancel<span class="hl opt">;</span> <span class="hl kwc">undef</span> <span class="hl opt">$::</span>Wizard_finished<span class="hl opt">;</span>
	wizard_welcome<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">do</span> <span class="hl opt">{</span>
	    wizard_close<span class="hl opt">(</span><span class="hl kwb">$in,</span> <span class="hl num">0</span><span class="hl opt">);</span>
	    <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl opt">};</span>
	<span class="hl kwc">undef</span> <span class="hl opt">$::</span>Wizard_no_previous<span class="hl opt">;</span>
	<span class="hl kwc">eval</span> <span class="hl opt">{</span>
	    <span class="hl slc">#do {</span>
	    <span class="hl slc"># eval to catch wizard cancel. The wizard stuff </span>
	    <span class="hl slc"># should be in a separate function with steps. see </span>
	    <span class="hl slc"># drakgw.</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">}</span> <span class="hl kwc">or</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>TYPE<span class="hl opt">} =</span> <span class="hl str">&quot;LOCAL&quot;</span><span class="hl opt">;</span>
	  step_1<span class="hl opt">:</span>
	    <span class="hl opt">!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">}</span> <span class="hl kwc">or</span> choose_printer_type<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span>
		<span class="hl kwa">goto</span> step_0<span class="hl opt">;</span>
	  step_2<span class="hl opt">:</span>
	    setup_printer_connection<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">)</span> <span class="hl kwc">or</span> 
		<span class="hl kwa">do</span> <span class="hl opt">{</span>
		    <span class="hl kwa">goto</span> step_1 <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">};</span>
		    <span class="hl kwa">goto</span> step_0<span class="hl opt">;</span>
		<span class="hl opt">};</span>
	  step_3<span class="hl opt">:</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">} ||</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">} ||</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MORETHANONE<span class="hl opt">}) {</span>
		choose_printer_name<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span>
		    <span class="hl kwa">goto</span> step_2<span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	    get_db_entry<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">);</span>
	  step_3_9<span class="hl opt">:</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">} &amp;&amp; !</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">}) {</span>
		is_model_correct<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">do</span> <span class="hl opt">{</span>
		    <span class="hl kwa">goto</span> step_3 <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MORETHANONE<span class="hl opt">};</span>
		    <span class="hl kwa">goto</span> step_2<span class="hl opt">;</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span>
	  step_4<span class="hl opt">:</span>
	    <span class="hl slc"># Remember DB entry for &quot;Previous&quot; button in wizard</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$dbentry</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">};</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">} ||</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">} ||</span>
		<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUALMODEL<span class="hl opt">}) {</span> 
		choose_model<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">do</span> <span class="hl opt">{</span>
		    <span class="hl slc"># Restore DB entry</span>
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">} =</span> <span class="hl kwb">$dbentry</span><span class="hl opt">;</span>
		    <span class="hl kwa">goto</span> step_3_9 <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUALMODEL<span class="hl opt">};</span>
		    <span class="hl kwa">goto</span> step_3<span class="hl opt">;</span>
		<span class="hl opt">};</span>
	    <span class="hl opt">}</span>
	    get_printer_info<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
	  step_5<span class="hl opt">:</span>
	    setup_options<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span>
		<span class="hl kwa">goto</span> step_4<span class="hl opt">;</span>
	    configure_queue<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or die</span> <span class="hl str">&apos;wizcancel&apos;</span><span class="hl opt">;</span>
	    <span class="hl kwc">undef</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">}</span> <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">};</span>
	    <span class="hl opt">$::</span>Wizard_no_previous <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">;</span>
	    setasdefault<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">);</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$_w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
				       N<span class="hl opt">(</span><span class="hl str">&quot;Configuring applications...&quot;</span><span class="hl opt">));</span>
	    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>configureapplications<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	    <span class="hl kwc">undef</span> <span class="hl kwb">$_w</span><span class="hl opt">;</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$testpages</span> <span class="hl opt">=</span> print_testpages<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $printer</span><span class="hl opt">-&gt;{</span>TYPE<span class="hl opt">} !~</span> <span class="hl kwd">/LOCAL/</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$upNetwork</span><span class="hl opt">);</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$testpages</span> <span class="hl opt">==</span> <span class="hl num">1</span><span class="hl opt">) {</span>
		<span class="hl slc"># User was content with test pages</span>
		<span class="hl slc"># Leave wizard mode with congratulations screen</span>
		wizard_close<span class="hl opt">(</span><span class="hl kwb">$in,</span> <span class="hl num">1</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$testpages</span> <span class="hl opt">==</span> <span class="hl num">2</span><span class="hl opt">) {</span>
		<span class="hl slc"># User was not content with test pages</span>
		<span class="hl slc"># Leave wizard mode without congratulations</span>
		<span class="hl slc"># screen</span>
		wizard_close<span class="hl opt">(</span><span class="hl kwb">$in,</span> <span class="hl num">0</span><span class="hl opt">);</span>
		<span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>QUEUE<span class="hl opt">};</span>
		edit_printer<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork, $queue</span><span class="hl opt">);</span>
		<span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">};</span>
	wizard_close<span class="hl opt">(</span><span class="hl kwb">$in,</span> <span class="hl num">0</span><span class="hl opt">)</span> <span class="hl kwa">if</span> <span class="hl kwb">$&#64;</span> <span class="hl opt">=~</span> <span class="hl kwd">/wizcancel/</span><span class="hl opt">;</span>
    <span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">}</span> <span class="hl kwc">or</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>TYPE<span class="hl opt">} =</span> <span class="hl str">&quot;LOCAL&quot;</span><span class="hl opt">;</span>
	wizard_welcome<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl opt">!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">}</span> <span class="hl kwc">or</span> choose_printer_type<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
	setup_printer_connection<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">} ||</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">} ||</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MORETHANONE<span class="hl opt">}) {</span>
	    choose_printer_name<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	get_db_entry<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">} &amp;&amp; !</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">}) {</span>
	    is_model_correct<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">} ||</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">} ||</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUALMODEL<span class="hl opt">}) {</span> 
	    choose_model<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	get_printer_info<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
	setup_options<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
	configure_queue<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">)</span> <span class="hl kwc">or</span> <span class="hl kwa">return</span> <span class="hl num">0</span><span class="hl opt">;</span>
	<span class="hl kwc">undef</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">}</span> <span class="hl kwa">if</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>MANUAL<span class="hl opt">};</span>
	setasdefault<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">);</span>
	<span class="hl slc"># Configure the current printer queue in applications</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$_w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span><span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
				   N<span class="hl opt">(</span><span class="hl str">&quot;Configuring applications...&quot;</span><span class="hl opt">));</span>
	printer<span class="hl opt">::</span>main<span class="hl opt">::</span>configureapplications<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	<span class="hl kwc">undef</span> <span class="hl kwb">$_w</span><span class="hl opt">;</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$testpages</span> <span class="hl opt">=</span> print_testpages<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $printer</span><span class="hl opt">-&gt;{</span>TYPE<span class="hl opt">} !~</span> <span class="hl kwd">/LOCAL/</span> <span class="hl opt">&amp;&amp;</span> <span class="hl kwb">$upNetwork</span><span class="hl opt">);</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$testpages</span> <span class="hl opt">==</span> <span class="hl num">2</span><span class="hl opt">) {</span>
	    <span class="hl slc"># User was not content with test pages</span>
	    <span class="hl kwb">$queue</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>QUEUE<span class="hl opt">};</span>
	    edit_printer<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork, $queue</span><span class="hl opt">);</span>
	    <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
    <span class="hl opt">};</span>

    <span class="hl slc"># Delete some variables</span>
    cleanup<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>

    <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> edit_printer <span class="hl opt">{</span>

    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork, $queue</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>

    <span class="hl slc"># The menu for doing modifications on an existing print queue</span>

    <span class="hl slc"># If one, we have to update the application configuration (GIMP,</span>
    <span class="hl slc"># StarOffice, ...)</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$configapps</span> <span class="hl opt">=</span> <span class="hl num">0</span><span class="hl opt">;</span>

    <span class="hl slc"># Cursor position in queue modification window</span>
    <span class="hl kwc">my</span> <span class="hl kwb">$modify</span> <span class="hl opt">=</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer options&quot;</span><span class="hl opt">);</span>

    <span class="hl slc"># Tell subroutines that we modify the printer</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>NEW<span class="hl opt">} =</span> <span class="hl num">0</span><span class="hl opt">;</span>

    <span class="hl kwa">while</span> <span class="hl opt">(</span><span class="hl kwc">defined</span><span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>QUEUE<span class="hl opt">}) ||</span> 
	   <span class="hl kwc">defined</span><span class="hl opt">(</span><span class="hl kwb">$queue</span><span class="hl opt">)) {</span>  <span class="hl slc"># Do not when current queue</span>
	                       <span class="hl slc"># is deleted</span>
	<span class="hl slc"># Modify a queue, ask which part should be modified</span>
<span class="hl slc">#	$in-&gt;set_help(&apos;modifyPrinterMenu&apos;) if $::isInstall;</span>
	<span class="hl slc"># Get some info to display</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$infoline</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}) {</span>
	    <span class="hl slc"># Here we must regenerate the menu entry, because the</span>
	    <span class="hl slc"># parameters can be changed.</span>
	    printer<span class="hl opt">::</span>main<span class="hl opt">::</span>make_menuentry<span class="hl opt">(</span><span class="hl kwb">$printer,$queue</span><span class="hl opt">);</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span>queuedata<span class="hl opt">}{</span>menuentry<span class="hl opt">} =~</span>
		<span class="hl kwd">/!([^!]+)$/</span><span class="hl opt">) {</span>
		<span class="hl kwb">$infoline</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span> <span class="hl opt">.</span>
		    <span class="hl opt">(</span><span class="hl kwb">$queue</span> <span class="hl kwc">eq</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">}</span> ? N<span class="hl opt">(</span><span class="hl str">&quot; (Default)&quot;</span><span class="hl opt">) :</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">) .</span>
		    <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span>queuedata<span class="hl opt">}{</span>desc<span class="hl opt">}</span> ?
		     <span class="hl str">&quot;, Descr.:</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{desc}&quot;</span> <span class="hl opt">:</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">) .</span>
		     <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span>queuedata<span class="hl opt">}{</span>loc<span class="hl opt">}</span> ?
		      <span class="hl str">&quot;, Loc.:</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{loc}&quot;</span> <span class="hl opt">:</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">) .</span>
		      <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">}</span> ?
		       <span class="hl str">&quot;, Driver:</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}{</span><span class="hl ipl">$queue</span><span class="hl str">}{queuedata}{driver}&quot;</span> <span class="hl opt">:</span> <span class="hl str">&apos;&apos;</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span>
	<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
	    <span class="hl slc"># Extract the entry for a remote CUPS queue from the menu entry</span>
	    <span class="hl slc"># for it.</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$menuentry</span> <span class="hl opt">=</span> find <span class="hl opt">{</span> <span class="hl kwd">/!$queue:[^!]*$/</span> <span class="hl opt">}</span> printer<span class="hl opt">::</span>cups<span class="hl opt">::</span>get_formatted_remote_queues<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">);</span>
	    <span class="hl kwb">$infoline</span> <span class="hl opt">=</span> <span class="hl kwb">$1</span> <span class="hl kwa">if</span> <span class="hl kwb">$menuentry</span> <span class="hl opt">=~</span> <span class="hl kwd">/!([^!]+)$/</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl slc"># Mark the printer queue which we edit</span>
	<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>QUEUE<span class="hl opt">} =</span> <span class="hl kwb">$queue</span><span class="hl opt">;</span>
	<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">ask_from_</span><span class="hl opt">(</span>
	    <span class="hl opt">{</span> title <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Modify printer configuration&quot;</span><span class="hl opt">),</span>
	      messages <span class="hl opt">=&gt;</span> 
		  N<span class="hl opt">(</span><span class="hl str">&quot;Printer</span> <span class="hl ipl">%s</span>
<span class="hl str">What do you want to modify on this printer?&quot;</span><span class="hl opt">,</span>
		    <span class="hl kwb">$infoline</span><span class="hl opt">),</span>
		  cancel <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Close&quot;</span><span class="hl opt">),</span>
		  ok <span class="hl opt">=&gt;</span> N<span class="hl opt">(</span><span class="hl str">&quot;Do it!&quot;</span><span class="hl opt">)</span>
	      <span class="hl opt">},</span>
	    <span class="hl opt">[ {</span> val <span class="hl opt">=&gt;</span> \<span class="hl kwb">$modify,</span> format <span class="hl opt">=&gt;</span> \<span class="hl opt">&amp;</span>translate<span class="hl opt">,</span> 
		type <span class="hl opt">=&gt;</span> <span class="hl str">&apos;list&apos;</span><span class="hl opt">,</span>
		list <span class="hl opt">=&gt; [ (</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}</span> ?
			   <span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printer connection type&quot;</span><span class="hl opt">),</span>
			    N<span class="hl opt">(</span><span class="hl str">&quot;Printer name, description, location&quot;</span><span class="hl opt">),</span>
			    <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>expert<span class="hl opt">}</span> ?
			     N<span class="hl opt">(</span><span class="hl str">&quot;Printer manufacturer, model, driver&quot;</span><span class="hl opt">) :</span>
			     N<span class="hl opt">(</span><span class="hl str">&quot;Printer manufacturer, model&quot;</span><span class="hl opt">)),</span>
			    if_<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span>queuedata<span class="hl opt">}{</span>make<span class="hl opt">}</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;&quot;</span> <span class="hl opt">&amp;&amp;</span>
				<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span>queuedata<span class="hl opt">}{</span>model<span class="hl opt">}</span> <span class="hl kwc">ne</span> N<span class="hl opt">(</span><span class="hl str">&quot;Unknown model&quot;</span><span class="hl opt">) &amp;&amp;</span>
				<span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span>queuedata<span class="hl opt">}{</span>model<span class="hl opt">}</span> <span class="hl kwc">ne</span> N<span class="hl opt">(</span><span class="hl str">&quot;Raw printer&quot;</span><span class="hl opt">),</span>
				N<span class="hl opt">(</span><span class="hl str">&quot;Printer options&quot;</span><span class="hl opt">))) : ()),</span>
			  if_<span class="hl opt">(</span><span class="hl kwb">$queue</span> <span class="hl kwc">ne</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DEFAULT<span class="hl opt">},</span>
			      N<span class="hl opt">(</span><span class="hl str">&quot;Set this printer as the default&quot;</span><span class="hl opt">)),</span>
			  if_<span class="hl opt">(!</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">},</span>
			      N<span class="hl opt">(</span><span class="hl str">&quot;Add this printer to Star Office/OpenOffice.org/GIMP&quot;</span><span class="hl opt">),</span>
			      N<span class="hl opt">(</span><span class="hl str">&quot;Remove this printer from Star Office/OpenOffice.org/GIMP&quot;</span><span class="hl opt">)),</span>
			  N<span class="hl opt">(</span><span class="hl str">&quot;Print test pages&quot;</span><span class="hl opt">),</span>
			  N<span class="hl opt">(</span><span class="hl str">&quot;Learn how to use this printer&quot;</span><span class="hl opt">),</span>
			  if_<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">},</span> N<span class="hl opt">(</span><span class="hl str">&quot;Remove printer&quot;</span><span class="hl opt">)) ] } ])) {</span>

	    <span class="hl slc">#- Copy the queue data and work on the copy</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">} = {};</span>
	    <span class="hl kwc">my</span> <span class="hl kwb">$driver</span><span class="hl opt">;</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}) {</span>
		printer<span class="hl opt">::</span>main<span class="hl opt">::</span>copy_printer_params<span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span>queuedata<span class="hl opt">},</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">});</span>
		<span class="hl slc">#- Keep in mind the printer driver which was</span>
		<span class="hl slc">#- used, so it can be determined whether the</span>
		<span class="hl slc">#- driver is only available in expert and so</span>
		<span class="hl slc">#- for setting the options for the driver in</span>
		<span class="hl slc">#- recommended mode a special treatment has</span>
		<span class="hl slc">#- to be applied.</span>
		<span class="hl kwb">$driver</span> <span class="hl opt">=</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span>driver<span class="hl opt">};</span>
	    <span class="hl opt">}</span>
	    <span class="hl slc">#- keep in mind old name of queue (in case of changing)</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>OLD_QUEUE<span class="hl opt">} =</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>QUEUE<span class="hl opt">} =</span> <span class="hl kwb">$queue</span><span class="hl opt">;</span>
	    <span class="hl slc">#- Reset some variables</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>OLD_CHOICE<span class="hl opt">} =</span> <span class="hl kwc">undef</span><span class="hl opt">;</span>
	    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>DBENTRY<span class="hl opt">} =</span> <span class="hl kwc">undef</span><span class="hl opt">;</span>
	    <span class="hl slc">#- Which printer type did we have before (check </span>
	    <span class="hl slc">#- beginning of URI)</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}) {</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span> <span class="hl kwd">m!^ptal://?hpjd!</span><span class="hl opt">) {</span>
		    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>TYPE<span class="hl opt">} =</span> <span class="hl str">&quot;socket&quot;</span><span class="hl opt">;</span>
		<span class="hl opt">}</span> <span class="hl kwa">else</span> <span class="hl opt">{</span>
		    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$type</span> <span class="hl opt">(</span><span class="hl str">qw(file parallel serial usb ptal</span>
<span class="hl str">					 mtink lpd socket smb ncp</span>
<span class="hl str">					 postpipe)</span><span class="hl opt">) {</span>
			<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">}{</span><span class="hl kwc">connect</span><span class="hl opt">} =~</span>
			    <span class="hl kwd">/^$type:/</span><span class="hl opt">) {</span>
			    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>TYPE<span class="hl opt">} =</span> 
				<span class="hl opt">(</span><span class="hl kwb">$type</span> <span class="hl opt">=~</span> 
				 <span class="hl kwd">/(file|parallel|serial|usb|ptal|mtink)/</span> ? 
				 <span class="hl str">&apos;LOCAL&apos;</span> <span class="hl opt">:</span> <span class="hl kwc">uc</span><span class="hl opt">(</span><span class="hl kwb">$type</span><span class="hl opt">));</span>
			    <span class="hl kwa">last</span><span class="hl opt">;</span>
			<span class="hl opt">}</span>
		    <span class="hl opt">}</span>
		<span class="hl opt">}</span>
	    <span class="hl opt">}</span>

	    <span class="hl slc"># Do the chosen task</span>
	    <span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwb">$modify</span> <span class="hl kwc">eq</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer connection type&quot;</span><span class="hl opt">)) {</span>
		choose_printer_type<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) &amp;&amp;</span>
		    setup_printer_connection<span class="hl opt">(</span><span class="hl kwb">$printer, $in, $upNetwork</span><span class="hl opt">) &amp;&amp;</span>
		    configure_queue<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">);</span>
	    <span class="hl opt">}</span> <span class="hl kwa">elsif</span> <span class="hl opt">(</span><span class="hl kwb">$modify</span> <span class="hl kwc">eq</span> N<span class="hl opt">(</span><span class="hl str">&quot;Printer name, description, location&quot;</span><span class="hl opt">)) {</span>
		choose_printer_name<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) &amp;&amp;</span>
		    configure_queue<span class="hl opt">(</span><span class="hl kwb">$printer, $in</span><span class="hl opt">) &amp;&amp;</span>
		    <span class="hl opt">(</span><span class="hl kwb">$configapps</span> <span class="hl opt">=</span> <span class="hl num">1</span><span class="hl opt">);</span>
		<span class="hl slc"># Delete old queue when it was renamed</span>
		<span class="hl kwa">if</span> <span class="hl opt">(</span><span class="hl kwc">lc</span><span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>QUEUE<span class="hl opt">})</span> <span class="hl kwc">ne lc</span><span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>OLD_QUEUE<span class="hl opt">})) {</span>
		    <span class="hl kwc">my</span> <span class="hl kwb">$_w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span>
			<span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
			 N<span class="hl opt">(</span><span class="hl str">&quot;Removing old printer</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span><span class="hl opt">...</span><span class="hl str">&quot;,</span>
<span class="hl str"></span>			   <span class="hl ipl">$printer</span><span class="hl str">-&gt;{OLD_QUEUE}));</span>
<span class="hl str">		    printer::main::remove_queue(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{OLD_QUEUE});</span>
<span class="hl str">		    # If the default printer was renamed, correct the</span>
<span class="hl str">		    # the default printer setting of the spooler</span>
<span class="hl str">		    if (</span><span class="hl ipl">$queue</span> <span class="hl str">eq</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DEFAULT}) {</span>
<span class="hl str"></span>			<span class="hl ipl">$printer</span><span class="hl str">-&gt;{DEFAULT} =</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{QUEUE};</span>
<span class="hl str">			printer::default::set_printer(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str">		    }</span>
<span class="hl str"></span>		    <span class="hl ipl">$queue</span> <span class="hl str">=</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{QUEUE};</span>
<span class="hl str">		}</span>
<span class="hl str">	    } elsif (</span><span class="hl ipl">$modify</span> <span class="hl str">eq N(&quot;</span>Printer manufacturer<span class="hl opt">,</span> model<span class="hl opt">,</span> driver<span class="hl str">&quot;) ||</span>
<span class="hl str"></span>		     <span class="hl ipl">$modify</span> <span class="hl str">eq N(&quot;</span>Printer manufacturer<span class="hl opt">,</span> model<span class="hl str">&quot;)) {</span>
<span class="hl str">		get_db_entry(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">);</span>
<span class="hl str">		choose_model(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) &amp;&amp;</span>
<span class="hl str">		    get_printer_info(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) &amp;&amp;</span>
<span class="hl str">		    setup_options(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) &amp;&amp;</span>
<span class="hl str">		    configure_queue(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) &amp;&amp;</span>
<span class="hl str">		    (</span><span class="hl ipl">$configapps</span> <span class="hl str">= 1);</span>
<span class="hl str">	    } elsif (</span><span class="hl ipl">$modify</span> <span class="hl str">eq N(&quot;</span>Printer options<span class="hl str">&quot;)) {</span>
<span class="hl str">		get_printer_info(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) &amp;&amp;</span>
<span class="hl str">		    setup_options(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">) &amp;&amp;</span>
<span class="hl str">		    configure_queue(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">);</span>
<span class="hl str">	    } elsif (</span><span class="hl ipl">$modify</span> <span class="hl str">eq N(&quot;</span>Set this printer as the <span class="hl kwa">default</span><span class="hl str">&quot;)) {</span>
<span class="hl str">		default_printer(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$queue</span><span class="hl str">);</span>
<span class="hl str"></span>		<span class="hl ipl">$configapps</span> <span class="hl str">= 1;</span>
<span class="hl str">		# The &quot;</span>Set this printer as the <span class="hl kwa">default</span><span class="hl str">&quot; menu entry will</span>
<span class="hl str">		# disappear if the printer is the default, so go back to the</span>
<span class="hl str">		# default entry</span>
<span class="hl str"></span>		<span class="hl ipl">$modify</span> <span class="hl str">= N(&quot;</span>Printer options<span class="hl str">&quot;);</span>
<span class="hl str">	    } elsif (</span><span class="hl ipl">$modify</span> <span class="hl str">eq N(&quot;</span>Add this printer to Star Office<span class="hl kwd">/OpenOffice.org/</span>GIMP<span class="hl str">&quot;)) {</span>
<span class="hl str"></span>		<span class="hl ipl">$in</span><span class="hl str">-&gt;ask_warn(N(&quot;</span>Adding printer to Star Office<span class="hl kwd">/OpenOffice.org/</span>GIMP<span class="hl str">&quot;),</span>
<span class="hl str">			      printer::main::addcupsremotetoapplications(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$queue</span><span class="hl str">) ?</span>
<span class="hl str">			      N(&quot;</span>The printer <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot; was successfully added to Star Office/OpenOffice.org/GIMP.&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$queue</span><span class="hl opt">) :</span>
			      N<span class="hl opt">(</span><span class="hl str">&quot;Failed to add the printer</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span> to Star Office<span class="hl kwd">/OpenOffice.org/</span>GIMP<span class="hl opt">.</span><span class="hl str">&quot;,</span> <span class="hl ipl">$queue</span><span class="hl str">));</span>
<span class="hl str">	    } elsif (</span><span class="hl ipl">$modify</span> <span class="hl str">eq N(&quot;</span>Remove this printer from Star Office<span class="hl kwd">/OpenOffice.org/</span>GIMP<span class="hl str">&quot;)) {</span>
<span class="hl str"></span>		<span class="hl ipl">$in</span><span class="hl str">-&gt;ask_warn(N(&quot;</span>Removing printer from Star Office<span class="hl kwd">/OpenOffice.org/</span>GIMP<span class="hl str">&quot;),</span>
<span class="hl str">			      printer::main::removeprinterfromapplications(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$queue</span><span class="hl str">) ?</span>
<span class="hl str">			      N(&quot;</span>The printer <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot; was successfully removed from Star Office/OpenOffice.org/GIMP.&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$queue</span><span class="hl opt">) :</span>
			      N<span class="hl opt">(</span><span class="hl str">&quot;Failed to remove the printer</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span> from Star Office<span class="hl kwd">/OpenOffice.org/</span>GIMP<span class="hl opt">.</span><span class="hl str">&quot;,</span> <span class="hl ipl">$queue</span><span class="hl str">));</span>
<span class="hl str">	    } elsif (</span><span class="hl ipl">$modify</span> <span class="hl str">eq N(&quot;</span>Print test pages<span class="hl str">&quot;)) {</span>
<span class="hl str">		print_testpages(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$upNetwork</span><span class="hl str">);</span>
<span class="hl str">	    } elsif (</span><span class="hl ipl">$modify</span> <span class="hl str">eq N(&quot;</span>Learn how to <span class="hl kwa">use</span> this printer<span class="hl str">&quot;)) {</span>
<span class="hl str">		printer_help(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in</span><span class="hl str">);</span>
<span class="hl str">	    } elsif (</span><span class="hl ipl">$modify</span> <span class="hl str">eq N(&quot;</span>Remove printer<span class="hl str">&quot;)) {</span>
<span class="hl str">		if (remove_printer(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$queue</span><span class="hl str">)) {</span>
<span class="hl str"></span>		    <span class="hl ipl">$configapps</span> <span class="hl str">= 1;</span>
<span class="hl str">		    # Let the main menu cursor go to the default</span>
<span class="hl str">		    # position</span>
<span class="hl str">		    delete</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{QUEUE};</span>
<span class="hl str">		    undef</span> <span class="hl ipl">$queue</span><span class="hl str">;</span>
<span class="hl str">		}</span>
<span class="hl str">	    }</span>
<span class="hl str"></span>
<span class="hl str">	    # Configure the current printer queue in applications</span>
<span class="hl str">	    if (</span><span class="hl ipl">$configapps</span><span class="hl str">) {</span>
<span class="hl str">		my</span> <span class="hl ipl">$_w</span> <span class="hl str">= </span>
<span class="hl str"></span>		    <span class="hl ipl">$in</span><span class="hl str">-&gt;wait_message(N(&quot;</span>Printerdrake<span class="hl str">&quot;),</span>
<span class="hl str">				      N(&quot;</span>Configuring applications<span class="hl opt">...</span><span class="hl str">&quot;));</span>
<span class="hl str">		printer::main::configureapplications(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str">	    }</span>
<span class="hl str">	    # Delete some variables</span>
<span class="hl str">	    cleanup(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str">	} else {</span>
<span class="hl str">	    # User closed the dialog</span>
<span class="hl str"></span>
<span class="hl str">	    # Delete some variables</span>
<span class="hl str">	    cleanup(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str"></span>
<span class="hl str">	    last;</span>
<span class="hl str">	}</span>
<span class="hl str">    }</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub remove_printer {</span>
<span class="hl str"></span>
<span class="hl str">    my (</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$queue</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str"></span>
<span class="hl str">    # Asks the user whether he really wants to remove the selected printer</span>
<span class="hl str">    # and, if yes, removes it. The default printer will be reassigned if</span>
<span class="hl str">    # needed.</span>
<span class="hl str"></span>
<span class="hl str">    if (</span><span class="hl ipl">$in</span><span class="hl str">-&gt;ask_yesorno</span>
<span class="hl str">	(&apos;&apos;, N(&quot;</span>Do you really want to remove the printer <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot;?&quot;</span><span class="hl opt">,</span> <span class="hl kwb">$queue</span><span class="hl opt">),</span>
	 <span class="hl num">1</span><span class="hl opt">)) {</span>
	<span class="hl kwc">my</span> <span class="hl kwb">$_w</span> <span class="hl opt">=</span> <span class="hl kwb">$in</span><span class="hl opt">-&gt;</span><span class="hl kwd">wait_message</span>
	    <span class="hl opt">(</span>N<span class="hl opt">(</span><span class="hl str">&quot;Printerdrake&quot;</span><span class="hl opt">),</span>
	     N<span class="hl opt">(</span><span class="hl str">&quot;Removing printer</span> <span class="hl esc">\&quot;</span><span class="hl str"></span><span class="hl ipl">%s\</span><span class="hl str">&quot;</span><span class="hl opt">...</span><span class="hl str">&quot;,</span> <span class="hl ipl">$queue</span><span class="hl str">));</span>
<span class="hl str">	if (printer::main::remove_queue(</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$queue</span><span class="hl str">)) { </span>
<span class="hl str">	    # Define a new default printer if we have</span>
<span class="hl str">	    # removed the default one</span>
<span class="hl str">	    if (</span><span class="hl ipl">$queue</span> <span class="hl str">eq</span> <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DEFAULT}) {</span>
<span class="hl str">		my</span> <span class="hl ipl">&#64;k</span> <span class="hl str">= sort(keys %{</span><span class="hl ipl">$printer</span><span class="hl str">-&gt;{configured}});</span>
<span class="hl str"></span>		<span class="hl ipl">$printer</span><span class="hl str">-&gt;{DEFAULT} =</span> <span class="hl ipl">$k</span><span class="hl str">[0];</span>
<span class="hl str">		printer::default::set_printer(</span><span class="hl ipl">$printer</span><span class="hl str">) if</span> <span class="hl ipl">&#64;k</span><span class="hl str">;</span>
<span class="hl str">	    }</span>
<span class="hl str">	    return 1;</span>
<span class="hl str">	}</span>
<span class="hl str">    }</span>
<span class="hl str">    return 0;</span>
<span class="hl str">}</span>
<span class="hl str"></span>
<span class="hl str">sub default_printer {</span>
<span class="hl str"></span>
<span class="hl str">    my (</span><span class="hl ipl">$printer,</span> <span class="hl str"></span><span class="hl ipl">$in,</span> <span class="hl str"></span><span class="hl ipl">$queue</span><span class="hl str">) =</span> <span class="hl ipl">&#64;_</span><span class="hl str">;</span>
<span class="hl str"></span>
<span class="hl str">    # Makes the given queue the default queue and gives an information</span>
<span class="hl str">    # message</span>
<span class="hl str"></span>
<span class="hl str"></span>    <span class="hl ipl">$printer</span><span class="hl str">-&gt;{DEFAULT} =</span> <span class="hl ipl">$queue</span><span class="hl str">;</span>
<span class="hl str">    printer::default::set_printer(</span><span class="hl ipl">$printer</span><span class="hl str">);</span>
<span class="hl str"></span>    <span class="hl ipl">$in</span><span class="hl str">-&gt;ask_warn(N(&quot;</span>Default printer<span class="hl str">&quot;),</span>
<span class="hl str">		  N(&quot;</span>The printer <span class="hl esc">\&quot;</span><span class="hl kwb">%s\</span><span class="hl str">&quot; is set as the default printer now.&quot;</span><span class="hl opt">,</span>
		    <span class="hl kwb">$queue</span><span class="hl opt">));</span>
    <span class="hl kwa">return</span> <span class="hl num">1</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> cleanup <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl slc"># Clean up the $printer data structure after printer manipulations</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl str">qw(OLD_QUEUE TYPE str_type DBENTRY ARGS </span>
<span class="hl str">		OLD_CHOICE MANUAL)</span><span class="hl opt">) {</span>
	<span class="hl kwc">delete</span><span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">});</span>
    <span class="hl opt">}</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>currentqueue<span class="hl opt">} = {};</span>
    <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>complete<span class="hl opt">} =</span> <span class="hl num">0</span><span class="hl opt">;</span>
<span class="hl opt">}</span>

<span class="hl kwa">sub</span> final_cleanup <span class="hl opt">{</span>
    <span class="hl kwc">my</span> <span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">) =</span> <span class="hl kwb">&#64;_</span><span class="hl opt">;</span>
    <span class="hl slc"># Clean up the $printer data structure for auto-install log</span>
    <span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$queue</span> <span class="hl opt">(</span><span class="hl kwc">keys</span> <span class="hl opt">%{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}}) {</span>
	<span class="hl kwa">foreach</span> <span class="hl kwc">my</span> <span class="hl kwb">$item</span> <span class="hl opt">(</span><span class="hl kwc">keys</span> <span class="hl opt">%{</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}}) {</span>
	    <span class="hl kwc">delete</span><span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span><span class="hl kwb">$item</span><span class="hl opt">})</span> <span class="hl kwa">if</span> <span class="hl kwb">$item</span> <span class="hl kwc">ne</span> <span class="hl str">&quot;queuedata&quot;</span><span class="hl opt">;</span>
	<span class="hl opt">}</span>
	<span class="hl kwc">delete</span><span class="hl opt">(</span><span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span>configured<span class="hl opt">}{</span><span class="hl kwb">$queue</span><span class="hl opt">}{</span>queuedata<span class="hl opt">}{</span>menuentry<span class="hl opt">});</span>
    <span class="hl opt">}</span>
    <span class="hl kwa">foreach</span> <span class="hl opt">(</span><span class="hl str">qw(Old_queue OLD_QUEUE QUEUE TYPE str_type currentqueue DBENTRY ARGS complete OLD_CHOICE NEW MORETHANONE MANUALMODEL AUTODETECT AUTODETECTLOCAL AUTODETECTNETWORK AUTODETECTSMB noninteractive expert)</span><span class="hl opt">)</span>
    <span class="hl opt">{</span> <span class="hl kwc">delete</span> <span class="hl kwb">$printer</span><span class="hl opt">-&gt;{</span><span class="hl kwb">$_</span><span class="hl opt">} };</span>
<span class="hl opt">}</span>

</code></pre></td></tr></table>
</div> <!-- class=content -->
<div class='footer'>generated by <a href='https://git.zx2c4.com/cgit/about/'>cgit v1.2.1</a> (<a href='https://git-scm.com/'>git 2.21.0</a>) at 2025-01-08 15:56:46 +0000</div>
</div> <!-- id=cgit -->
</body>
</html>