summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2002-08-27 15:04:18 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2002-08-27 15:04:18 +0000
commit0cee2445f80d2d87ad3113826e2d6e6f25bdaba8 (patch)
treeb975a1c0e4794d96458e4a58ae401f349f3ca333 /perl-install
parent61a7dd269aefe8d237ae3540561d681455f4815d (diff)
downloaddrakx-backup-do-not-use-0cee2445f80d2d87ad3113826e2d6e6f25bdaba8.tar
drakx-backup-do-not-use-0cee2445f80d2d87ad3113826e2d6e6f25bdaba8.tar.gz
drakx-backup-do-not-use-0cee2445f80d2d87ad3113826e2d6e6f25bdaba8.tar.bz2
drakx-backup-do-not-use-0cee2445f80d2d87ad3113826e2d6e6f25bdaba8.tar.xz
drakx-backup-do-not-use-0cee2445f80d2d87ad3113826e2d6e6f25bdaba8.zip
- Bug fix: s/detect_devices::getSNMPModel/printer::getSNMPModel/
- Added support for the photo card reader in the HP PSC 2200 series.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printerdrake.pm11
1 files changed, 6 insertions, 5 deletions
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