From 0cee2445f80d2d87ad3113826e2d6e6f25bdaba8 Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Tue, 27 Aug 2002 15:04:18 +0000 Subject: - Bug fix: s/detect_devices::getSNMPModel/printer::getSNMPModel/ - Added support for the photo card reader in the HP PSC 2200 series. --- perl-install/printerdrake.pm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'perl-install') diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm index 2d99858af..64945a796 100644 --- a/perl-install/printerdrake.pm +++ b/perl-install/printerdrake.pm @@ -706,7 +706,7 @@ complete => sub { # Auto-detect printer model (works if host is an ethernet-connected # printer) - my $modelinfo = detect_devices::getSNMPModel ($remotehost); + my $modelinfo = printer::getSNMPModel ($remotehost); my $auto_hpoj; if ((defined($modelinfo)) && ($modelinfo->{MANUFACTURER} ne "")) { $in->ask_warn('', _("Detected model: %s %s", @@ -1131,11 +1131,10 @@ sub setup_socket { $in->do_pkgs->install('nc'); } - # Auto-detect printer model (works if host is an ethernet-connected - # printer) + # Auto-detect printer model my $modelinfo = undef; if ($printer->{AUTODETECT}) { - $modelinfo = detect_devices::getSNMPModel ($remotehost); + $modelinfo = printer::getSNMPModel ($remotehost); } my $auto_hpoj; if ((defined($modelinfo)) && ($modelinfo->{MANUFACTURER} ne "")) { @@ -1220,7 +1219,7 @@ complete => sub { # Auto-detect printer model (works if host is an ethernet-connected # printer) my $remotehost = $1; - my $modelinfo = detect_devices::getSNMPModel ($remotehost); + my $modelinfo = printer::getSNMPModel ($remotehost); my $auto_hpoj; if ((defined($modelinfo)) && ($modelinfo->{MANUFACTURER} ne "")) { $in->ask_warn('', _("Detected model: %s %s", @@ -1355,6 +1354,7 @@ sub setup_common { # 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+PSC\s*22\d\d/i) || ($makemodel =~ /HP\s+OfficeJet\s+D\s*1[45]5/i)) && ($makemodel !~ /HP\s+PhotoSmart\s+7150/i)) { # Install mtools and MToolsFM @@ -2376,6 +2376,7 @@ sub photocard_help { my $ptaldevice = $1; if ((($makemodel =~ /HP\s+PhotoSmart/i) || ($makemodel =~ /HP\s+PSC\s*9[05]0/i) || + ($makemodel =~ /HP\s+PSC\s*22\d\d/i) || ($makemodel =~ /HP\s+OfficeJet\s+D\s*1[45]5/i)) && ($makemodel !~ /HP\s+PhotoSmart\s+7150/i)) { # Models with built-in photo card drives -- cgit v1.2.1