summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printerdrake.pm462
1 files changed, 285 insertions, 177 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index feb29f61d..808bb6024 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -224,7 +224,7 @@ Do you really want to get your printers auto-detected?"),
_("Do auto-detection"));
$do_auto_detect = ($res eq _("Do auto-detection"));
}
- my @parport;
+ my @autodetected;
my $menuentries = {};
$in->set_help('setupLocal') if $::isInstall;
if ($do_auto_detect) {
@@ -233,11 +233,11 @@ Do you really want to get your printers auto-detected?"),
# configured, so we stop it here. If it is not installed or not
# configured, this command has no effect.
printer::stop_service("hpoj");
- @parport = auto_detect($in);
+ @autodetected = auto_detect($in);
# We have more than one printer, so we must ask the user for a queue
# name in the fully automatic printer configuration.
- $printer->{MORETHANONE} = ($#parport > 0);
- for my $p (@parport) {
+ $printer->{MORETHANONE} = ($#autodetected > 0);
+ for my $p (@autodetected) {
if ($p->{val}{DESCRIPTION}) {
my $menustr = $p->{val}{DESCRIPTION};
if ($p->{port} =~ m!^/dev/lp(\d+)$!) {
@@ -272,7 +272,7 @@ Do you really want to get your printers auto-detected?"),
for my $q (@port) {
if (@str) {
my $alreadyfound = 0;
- for my $p (@parport) {
+ for my $p (@autodetected) {
if ($p->{port} eq $q) {
$alreadyfound = 1;
last;
@@ -300,7 +300,7 @@ Do you really want to get your printers auto-detected?"),
} else {
# Always ask for queue name in recommended mode when no auto-
# detection was done
- $printer->{MORETHANONE} = ($#parport > 0);
+ $printer->{MORETHANONE} = ($#autodetected > 0);
my $m;
for ($m = 0; $m <= 2; $m++) {
my $menustr = _("Printer on parallel port \#%s", $m);
@@ -357,6 +357,16 @@ Do you really want to get your printers auto-detected?"),
}
}
}
+ } elsif (($printer->{configured}{$queue}) &&
+ ($printer->{currentqueue}{connect} =~ m!^socket:/!)) {
+ # Ethernet-(TCP/Socket)-connected printer
+ $device = $printer->{currentqueue}{connect};
+ for my $p (keys %{$menuentries}) {
+ if ($device eq $menuentries->{$p}) {
+ $menuchoice = $p;
+ last;
+ }
+ }
} else {
$device = "";
}
@@ -435,7 +445,7 @@ _(" (Parallel Ports: /dev/lp0, /dev/lp1, ..., equivalent to LPT1:, LPT2:, ..., 1
($::expert ?
{ val => \$device } : ()),
{ val => \$menuchoice, list => \@menuentrieslist,
- not_edit => !$::expert, format => \&translate,
+ not_edit => !$::expert, format => \&translate, sort => 0,
allow_empty_list => 1, type => 'list' },
(((!$::expert) && ($do_auto_detect) && ($printer->{NEW})) ?
{ text => _("Manual configuration"), type => 'bool',
@@ -456,174 +466,10 @@ _(" (Parallel Ports: /dev/lp0, /dev/lp1, ..., equivalent to LPT1:, LPT2:, ..., 1
}
}
- #- Check whether the printer is an HP multi-function device and
- #- configure HPOJ if it is one
-
- my $ptaldevice = "";
- my $isHPOJ = 0;
- if (!$do_auto_detect) {
- local $::isWizard = 0;
- $isHPOJ = $in->ask_yesorno(_("Local Printer"),
- _("Is your printer a multi-function device from HP (OfficeJet, PSC, LaserJet 1100/1200/1220/3200/3300 with scanner), an HP PhotoSmart or an HP LaserJet 2200?"), 0);
- }
- if (($menuchoice =~ /HP\s+OfficeJet/i) ||
- ($menuchoice =~ /HP\s+PSC/i) ||
- ($menuchoice =~ /HP\s+PhotoSmart/i) ||
- ($menuchoice =~ /HP\s+LaserJet\s+1100/i) ||
- ($menuchoice =~ /HP\s+LaserJet\s+1200/i) ||
- ($menuchoice =~ /HP\s+LaserJet\s+1220/i) ||
- ($menuchoice =~ /HP\s+LaserJet\s+2200/i) ||
- ($menuchoice =~ /HP\s+LaserJet\s+3200/i) ||
- ($menuchoice =~ /HP\s+LaserJet\s+33.0/i) ||
- ($isHPOJ)) {
- # Install HPOJ package
- if ((!$::testing) &&
- (!printer::files_exist((qw(/usr/sbin/ptal-mlcd
- /usr/sbin/ptal-init
- /usr/bin/xojpanel))))) {
- my $w = $in->wait_message('', _("Installing HPOJ package..."));
- $in->do_pkgs->install('hpoj', 'xojpanel');
- }
- # Configure and start HPOJ
- my $w = $in->wait_message
- ('', _("Checking device and configuring HPOJ..."));
- $ptaldevice = printer::configure_hpoj($device, @parport);
-
- if ($ptaldevice) {
- # Configure scanning with SANE on the MF device
- if (($menuchoice !~ /HP\s+PhotoSmart/i) &&
- ($menuchoice !~ /HP\s+LaserJet\s+2200/i)) {
- # Install SANE
- if ((!$::testing) &&
- (!printer::files_exist((qw(/usr/bin/scanimage
- /usr/bin/xscanimage
- /usr/bin/xsane
- /etc/sane.d/dll.conf
- /usr/lib/libsane-hpoj.so.1),
- (printer::files_exist
- ('/usr/bin/gimp') ?
- '/usr/bin/xsane-gimp' :
- ()))))) {
- my $w = $in->wait_message
- ('', _("Installing SANE packages..."));
- $in->do_pkgs->install('sane-backends', 'sane-frontends',
- 'xsane', 'libsane-hpoj0',
- if_($in->do_pkgs->is_installed
- ('gimp'),'xsane-gimp'));
- }
- # Configure the HPOJ SANE backend
- printer::config_sane();
- }
- # Configure photo card access with mtools and MToolsFM
- if (($menuchoice =~ /HP\s+PhotoSmart/i) ||
- ($menuchoice =~ /HP\s+PSC\s*9[05]0/i) ||
- ($menuchoice =~ /HP\s+OfficeJet\s+D\s*1[45]5/i)) {
- # Install mtools and MToolsFM
- if ((!$::testing) &&
- (!printer::files_exist(qw(/usr/bin/mdir
- /usr/bin/mcopy
- /usr/bin/MToolsFM
- )))) {
- my $w = $in->wait_message
- ('', _("Installing mtools packages..."));
- $in->do_pkgs->install('mtools', 'MToolsFM');
- }
- # Configure mtools/MToolsFM for photo card access
- printer::config_photocard();
- }
-
- my $text = "";
- # Inform user about how to scan with his MF device
- $text = scanner_help($menuchoice, "ptal:/$ptaldevice");
- if ($text) {
- $in->ask_warn(_("Scanning on your HP multi-function device"),
- $text);
- }
- # Inform user about how to access photo cards with his MF device
- $text = photocard_help($menuchoice, "ptal:/$ptaldevice");
- if ($text) {
- $in->ask_warn(_("Photo memory card access on your HP multi-function device"),
- $text);
- }
- # make the DeviceURI from $ptaldevice.
- $printer->{currentqueue}{connect} = "ptal:/" . $ptaldevice;
- } else {
- # make the DeviceURI from $device.
- $printer->{currentqueue}{connect} = "file:" . $device;
- }
- } else {
- # make the DeviceURI from $device.
- $printer->{currentqueue}{connect} = "file:" . $device;
- }
-
- #- if CUPS is the spooler, make sure that CUPS knows the device
- if ($printer->{SPOOLER} eq "cups") {
- my $w = $in->wait_message
- ('', _("Making printer port available for CUPS..."));
- if ($ptaldevice eq "") {
- printer::assure_device_is_available_for_cups($device);
- } else {
- printer::assure_device_is_available_for_cups($ptaldevice);
- }
- }
-
- #- Read the printer driver database if necessary
- if ((keys %printer::thedb) == 0) {
- my $w = $in->wait_message('', _("Reading printer database..."));
- printer::read_printer_db($printer->{SPOOLER});
- }
-
- #- Search the database entry which matches the detected printer best
- my $descr = "";
- foreach (@parport) {
- $device eq $_->{port} or next;
- if (($_->{val}{MANUFACTURER}) && ($_->{val}{MODEL})) {
- $descr = "$_->{val}{MANUFACTURER} $_->{val}{MODEL}";
- } else {
- $descr = $_->{val}{DESCRIPTION};
- }
- # Clean up the description from noise which makes the best match
- # difficult
- $descr =~ s/\s+Inc\.//;
- $descr =~ s/\s+Corp\.//;
- $descr =~ s/\s+SA\.//;
- $descr =~ s/\s+S\.\s*A\.//;
- $descr =~ s/\s+Ltd\.//;
- $descr =~ s/\s+International//;
- $descr =~ s/\s+Int\.//;
- $descr =~ s/\s+[Ss]eries//;
- $descr =~ s/\s+\(?[Pp]rinter\)?$//;
- $printer->{DBENTRY} = "";
- for my $entry (keys(%printer::thedb)) {
- if ($entry =~ m!$descr!) {
- $printer->{DBENTRY} = $entry;
- last;
- }
- }
- if (!$printer->{DBENTRY}) {
- $printer->{DBENTRY} =
- bestMatchSentence ($descr, keys %printer::thedb);
- }
- # If the manufacturer was not guessed correctly, discard the
- # guess.
- $printer->{DBENTRY} =~ /^([^\|]+)\|/;
- my $guessedmake = lc($1);
- if (($descr !~ /$guessedmake/i) &&
- (($guessedmake ne "hp") ||
- ($descr !~ /Hewlett[\s-]+Packard/i)))
- { $printer->{DBENTRY} = "" };
- }
-
- #- Pre-fill the "Description" field with the printer's model name
- if ((!$printer->{currentqueue}{desc}) && ($descr)) {
- $printer->{currentqueue}{desc} = $descr;
- $printer->{currentqueue}{desc} =~ s/\|/ /g;
- }
-
- #- When we have chosen a printer here, the question whether the
- #- automatically chosen model from the database is correct, should
- #- have "This model is correct" as default answer
- delete($printer->{MANUALMODEL});
+ # Do configuration of multi-function devices and look up model name
+ # in the printer database
+ setup_common ($printer, $in, $menuchoice, $device, $do_auto_detect,
+ @autodetected);
1;
}
@@ -676,6 +522,26 @@ complete => sub {
$in->do_pkgs->install('rlpr');
}
+ # Auto-detect printer model (works if host is an ethernet-connected
+ # printer)
+ my $modelinfo = detect_devices::getSNMPModel ($remotehost);
+ my $auto_hpoj;
+ if ((defined($modelinfo)) && ($modelinfo->{MANUFACTURER} ne "")) {
+ $in->ask_warn('', _("Detected model: %s %s",
+ $modelinfo->{MANUFACTURER}, $modelinfo->{MODEL}));
+ $auto_hpoj = 1;
+ } else {
+ $auto_hpoj = 0;
+ }
+
+ # Do configuration of multi-function devices and look up model name
+ # in the printer database
+ setup_common ($printer, $in,
+ "$modelinfo->{MANUFACTURER} $modelinfo->{MODEL}",
+ $printer->{currentqueue}{connect}, $auto_hpoj,
+ ({port => $printer->{currentqueue}{connect},
+ val => $modelinfo}));
+
1;
}
@@ -905,6 +771,26 @@ complete => sub {
$in->do_pkgs->install('nc');
}
+ # Auto-detect printer model (works if host is an ethernet-connected
+ # printer)
+ my $modelinfo = detect_devices::getSNMPModel ($remotehost);
+ my $auto_hpoj;
+ if ((defined($modelinfo)) && ($modelinfo->{MANUFACTURER} ne "")) {
+ $in->ask_warn('', _("Detected model: %s %s",
+ $modelinfo->{MANUFACTURER}, $modelinfo->{MODEL}));
+ $auto_hpoj = 1;
+ } else {
+ $auto_hpoj = 0;
+ }
+
+ # Do configuration of multi-function devices and look up model name
+ # in the printer database
+ setup_common ($printer, $in,
+ "$modelinfo->{MANUFACTURER} $modelinfo->{MODEL}",
+ $printer->{currentqueue}{connect}, $auto_hpoj,
+ ({port => $printer->{currentqueue}{connect},
+ val => $modelinfo}));
+
1;
}
@@ -965,6 +851,35 @@ complete => sub {
(!printer::files_exist((qw(/usr/bin/nc))))) {
$in->do_pkgs->install('nc');
}
+
+ if (($printer->{currentqueue}{connect} =~ m!^socket://([^:/]+)!) ||
+ ($printer->{currentqueue}{connect} =~ m!^lpd://([^:/]+)!) ||
+ ($printer->{currentqueue}{connect} =~ m!^http://([^:/]+)!) ||
+ ($printer->{currentqueue}{connect} =~ m!^ipp://([^:/]+)!)) {
+
+ # Auto-detect printer model (works if host is an ethernet-connected
+ # printer)
+ my $remotehost = $1;
+ my $modelinfo = detect_devices::getSNMPModel ($remotehost);
+ my $auto_hpoj;
+ if ((defined($modelinfo)) && ($modelinfo->{MANUFACTURER} ne "")) {
+ $in->ask_warn('', _("Detected model: %s %s",
+ $modelinfo->{MANUFACTURER},
+ $modelinfo->{MODEL}));
+ $auto_hpoj = 1;
+ } else {
+ $auto_hpoj = 0;
+ }
+
+ # Do configuration of multi-function devices and look up model name
+ # in the printer database
+ setup_common ($printer, $in,
+ "$modelinfo->{MANUFACTURER} $modelinfo->{MODEL}",
+ $printer->{currentqueue}{connect}, $auto_hpoj,
+ ({port => $printer->{currentqueue}{connect},
+ val => $modelinfo}));
+ }
+
1;
}
@@ -1003,6 +918,193 @@ complete => sub {
1;
}
+sub setup_common {
+
+ my ($printer, $in, $makemodel, $device, $do_auto_detect,
+ @autodetected) = @_;
+
+ #- Check whether the printer is an HP multi-function device and
+ #- configure HPOJ if it is one
+
+ my $ptaldevice = "";
+ my $isHPOJ = 0;
+ if (!$do_auto_detect) {
+ local $::isWizard = 0;
+ $isHPOJ = $in->ask_yesorno(_("Local Printer"),
+ _("Is your printer a multi-function device from HP (OfficeJet, PSC, LaserJet 1100/1200/1220/3200/3300 with scanner), an HP PhotoSmart or an HP LaserJet 2200?"), 0);
+ }
+ if (($makemodel =~ /HP\s+OfficeJet/i) ||
+ ($makemodel =~ /HP\s+PSC/i) ||
+ ($makemodel =~ /HP\s+PhotoSmart/i) ||
+ ($makemodel =~ /HP\s+LaserJet\s+1100/i) ||
+ ($makemodel =~ /HP\s+LaserJet\s+1200/i) ||
+ ($makemodel =~ /HP\s+LaserJet\s+1220/i) ||
+ ($makemodel =~ /HP\s+LaserJet\s+2200/i) ||
+ ($makemodel =~ /HP\s+LaserJet\s+3200/i) ||
+ ($makemodel =~ /HP\s+LaserJet\s+33.0/i) ||
+ ($isHPOJ)) {
+ # Install HPOJ package
+ if ((!$::testing) &&
+ (!printer::files_exist((qw(/usr/sbin/ptal-mlcd
+ /usr/sbin/ptal-init
+ /usr/bin/xojpanel))))) {
+ my $w = $in->wait_message('', _("Installing HPOJ package..."));
+ $in->do_pkgs->install('hpoj', 'xojpanel');
+ }
+ # Configure and start HPOJ
+ my $w = $in->wait_message
+ ('', _("Checking device and configuring HPOJ..."));
+ $ptaldevice = printer::configure_hpoj($device, @autodetected);
+
+ if ($ptaldevice) {
+ # Configure scanning with SANE on the MF device
+ if (($makemodel !~ /HP\s+PhotoSmart/i) &&
+ ($makemodel !~ /HP\s+LaserJet\s+2200/i)) {
+ # Install SANE
+ if ((!$::testing) &&
+ (!printer::files_exist((qw(/usr/bin/scanimage
+ /usr/bin/xscanimage
+ /usr/bin/xsane
+ /etc/sane.d/dll.conf
+ /usr/lib/libsane-hpoj.so.1),
+ (printer::files_exist
+ ('/usr/bin/gimp') ?
+ '/usr/bin/xsane-gimp' :
+ ()))))) {
+ my $w = $in->wait_message
+ ('', _("Installing SANE packages..."));
+ $in->do_pkgs->install('sane-backends', 'sane-frontends',
+ 'xsane', 'libsane-hpoj0',
+ if_($in->do_pkgs->is_installed
+ ('gimp'),'xsane-gimp'));
+ }
+ # Configure the HPOJ SANE backend
+ printer::config_sane();
+ }
+ # Configure photo card access with mtools and MToolsFM
+ if (($makemodel =~ /HP\s+PhotoSmart/i) ||
+ ($makemodel =~ /HP\s+PSC\s*9[05]0/i) ||
+ ($makemodel =~ /HP\s+OfficeJet\s+D\s*1[45]5/i)) {
+ # Install mtools and MToolsFM
+ if ((!$::testing) &&
+ (!printer::files_exist(qw(/usr/bin/mdir
+ /usr/bin/mcopy
+ /usr/bin/MToolsFM
+ )))) {
+ my $w = $in->wait_message
+ ('', _("Installing mtools packages..."));
+ $in->do_pkgs->install('mtools', 'MToolsFM');
+ }
+ # Configure mtools/MToolsFM for photo card access
+ printer::config_photocard();
+ }
+
+ my $text = "";
+ # Inform user about how to scan with his MF device
+ $text = scanner_help($makemodel, "ptal:/$ptaldevice");
+ if ($text) {
+ $in->ask_warn(_("Scanning on your HP multi-function device"),
+ $text);
+ }
+ # Inform user about how to access photo cards with his MF device
+ $text = photocard_help($makemodel, "ptal:/$ptaldevice");
+ if ($text) {
+ $in->ask_warn(_("Photo memory card access on your HP multi-function device"),
+ $text);
+ }
+ # make the DeviceURI from $ptaldevice.
+ $printer->{currentqueue}{connect} = "ptal:/" . $ptaldevice;
+ } else {
+ # make the DeviceURI from $device.
+ $printer->{currentqueue}{connect} = $device;
+ }
+ } else {
+ # make the DeviceURI from $device.
+ $printer->{currentqueue}{connect} = $device;
+ }
+
+ if ($printer->{currentqueue}{connect} !~ /:/) {
+ $printer->{currentqueue}{connect} =
+ "file:" . $printer->{currentqueue}{connect};
+ }
+
+ #- if CUPS is the spooler, make sure that CUPS knows the device
+ if (($printer->{SPOOLER} eq "cups") &&
+ ($device !~ /^lpd:/) &&
+ ($device !~ /^smb:/) &&
+ ($device !~ /^socket:/) &&
+ ($device !~ /^http:/) &&
+ ($device !~ /^ipp:/)) {
+ my $w = $in->wait_message
+ ('', _("Making printer port available for CUPS..."));
+ if ($ptaldevice eq "") {
+ printer::assure_device_is_available_for_cups($device);
+ } else {
+ printer::assure_device_is_available_for_cups($ptaldevice);
+ }
+ }
+
+ #- Read the printer driver database if necessary
+ if ((keys %printer::thedb) == 0) {
+ my $w = $in->wait_message('', _("Reading printer database..."));
+ printer::read_printer_db($printer->{SPOOLER});
+ }
+
+ #- Search the database entry which matches the detected printer best
+ my $descr = "";
+ foreach (@autodetected) {
+ $device eq $_->{port} or next;
+ if (($_->{val}{MANUFACTURER}) && ($_->{val}{MODEL})) {
+ $descr = "$_->{val}{MANUFACTURER} $_->{val}{MODEL}";
+ } else {
+ $descr = $_->{val}{DESCRIPTION};
+ }
+ # Clean up the description from noise which makes the best match
+ # difficult
+ $descr =~ s/\s+Inc\.//;
+ $descr =~ s/\s+Corp\.//;
+ $descr =~ s/\s+SA\.//;
+ $descr =~ s/\s+S\.\s*A\.//;
+ $descr =~ s/\s+Ltd\.//;
+ $descr =~ s/\s+International//;
+ $descr =~ s/\s+Int\.//;
+ $descr =~ s/\s+[Ss]eries//;
+ $descr =~ s/\s+\(?[Pp]rinter\)?$//;
+ $printer->{DBENTRY} = "";
+ for my $entry (keys(%printer::thedb)) {
+ if ($entry =~ m!$descr!) {
+ $printer->{DBENTRY} = $entry;
+ last;
+ }
+ }
+ if (!$printer->{DBENTRY}) {
+ $printer->{DBENTRY} =
+ bestMatchSentence ($descr, keys %printer::thedb);
+ }
+ # If the manufacturer was not guessed correctly, discard the
+ # guess.
+ $printer->{DBENTRY} =~ /^([^\|]+)\|/;
+ my $guessedmake = lc($1);
+ if (($descr !~ /$guessedmake/i) &&
+ (($guessedmake ne "hp") ||
+ ($descr !~ /Hewlett[\s-]+Packard/i)))
+ { $printer->{DBENTRY} = "" };
+ }
+
+ #- Pre-fill the "Description" field with the printer's model name
+ if ((!$printer->{currentqueue}{desc}) && ($descr)) {
+ $printer->{currentqueue}{desc} = $descr;
+ $printer->{currentqueue}{desc} =~ s/\|/ /g;
+ }
+
+ #- When we have chosen a printer here, the question whether the
+ #- automatically chosen model from the database is correct, should
+ #- have "This model is correct" as default answer
+ delete($printer->{MANUALMODEL});
+
+ 1;
+}
+
sub choose_printer_name {
my ($printer, $in) = @_;
# Name, description, location
@@ -1135,6 +1237,12 @@ sub is_model_correct {
my ($printer, $in) = @_;
$in->set_help('chooseModel') if $::isInstall;
my $dbentry = $printer->{DBENTRY};
+ if (!$dbentry) {
+ # If printerdrake could not determine the model, omit this dialog and
+ # let the user choose manually.
+ $printer->{MANUALMODEL} = 1;
+ return 1;
+ }
$dbentry =~ s/\|/ /g;
my $res = $in->ask_from_list_
(_("Your printer model"),
@@ -1976,7 +2084,7 @@ sub check_network {
# (otherwise the network is not configured yet and drakconnet has to be
# started)
- if (!printer::files_exist("/etc/sysconfig/network-scripts/drakconnet_conf")) {
+ if (!printer::files_exist("/etc/sysconfig/network-scripts/drakconnect_conf")) {
my $go_on = 0;
while (!$go_on) {
my $choice = _("Configure the network now");
@@ -1997,7 +2105,7 @@ sub check_network {
} else {
system("/usr/sbin/drakconnet");
}
- if (printer::files_exist("/etc/sysconfig/network-scripts/drakconnet_conf")) {
+ if (printer::files_exist("/etc/sysconfig/network-scripts/drakconnect_conf")) {
$go_on = 1;
}
} else {