summaryrefslogtreecommitdiffstats
path: root/perl-install/printer/main.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-27 20:41:36 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-27 20:41:36 +0000
commitc2b148e1e94892d8d72000ed087b607ae28b5808 (patch)
tree39a9842839d057483b1715541e80450b00f97955 /perl-install/printer/main.pm
parentae92d3b02639683e1d53b701ab3d1c876a21687a (diff)
downloaddrakx-backup-do-not-use-c2b148e1e94892d8d72000ed087b607ae28b5808.tar
drakx-backup-do-not-use-c2b148e1e94892d8d72000ed087b607ae28b5808.tar.gz
drakx-backup-do-not-use-c2b148e1e94892d8d72000ed087b607ae28b5808.tar.bz2
drakx-backup-do-not-use-c2b148e1e94892d8d72000ed087b607ae28b5808.tar.xz
drakx-backup-do-not-use-c2b148e1e94892d8d72000ed087b607ae28b5808.zip
(configure_hpoj): functions dynamically loaded from /usr/sbin/ptal-init are
now loaded in printer::hpoj namespace (needs testing)
Diffstat (limited to 'perl-install/printer/main.pm')
-rw-r--r--perl-install/printer/main.pm19
1 files changed, 10 insertions, 9 deletions
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index ace8678aa..a93daf28f 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -1242,7 +1242,8 @@ sub configure_hpoj {
}
close PTALINIT;
- eval "@ptalinitfunctions
+ eval "package printer::hpoj;
+ @ptalinitfunctions
sub getDevnames {
return (%devnames)
}
@@ -1260,8 +1261,8 @@ sub configure_hpoj {
# Read the HPOJ config file and check whether this device is already
# configured
- setupVariables ();
- readDeviceInfo ();
+ printer::hpoj::setupVariables();
+ printer::hpoj::readDeviceInfo();
$device =~ m!^/dev/\S*lp(\d+)$! or
$device =~ m!^/dev/printers/(\d+)$! or
@@ -1346,7 +1347,7 @@ sub configure_hpoj {
close F;
chomp $serialnumber_long;
}
- $cardreader = 1 if cardReaderDetected($ptalprobedevice);
+ $cardreader = 1 if printer::hpoj::cardReaderDetected($ptalprobedevice);
}
}
if ($bus ne "hpjd") {
@@ -1370,7 +1371,7 @@ sub configure_hpoj {
# Determine the ptal device name from already existing config files
my $ptalprefix =
($bus eq "hpjd" ? "hpjd:" : "mlc:$bus:");
- my $ptaldevice = lookupDevname ($ptalprefix, $model_long,
+ my $ptaldevice = printer::hpoj::lookupDevname ($ptalprefix, $model_long,
$serialnumber_long, $base_address);
# It's all done for us, the device is already configured
@@ -1386,12 +1387,12 @@ sub configure_hpoj {
}
# Delete any old/conflicting devices
- deleteDevice($ptaldevice);
+ printer::hpoj::deleteDevice($ptaldevice);
if ($bus eq "par") {
while (1) {
- my $oldDevname = lookupDevname ("mlc:par:",undef,undef,$base_address);
+ my $oldDevname = printer::hpoj::lookupDevname ("mlc:par:",undef,undef,$base_address);
last unless defined($oldDevname);
- deleteDevice($oldDevname);
+ printer::hpoj::deleteDevice($oldDevname);
}
}
@@ -1517,7 +1518,7 @@ sub configure_hpoj {
"init.photod.append+=-maxaltports 26\n";
}
close(CONFIG);
- readOneDevice($ptaldevice);
+ printer::hpoj::readOneDevice($ptaldevice);
# Restart HPOJ
printer::services::restart("hpoj");