summaryrefslogtreecommitdiffstats
path: root/perl-install/printerdrake.pm
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2002-07-31 17:33:36 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2002-07-31 17:33:36 +0000
commit0d547c9740b5bddcc9c72974e3cc890a8ec9f479 (patch)
tree576f48484988966613c8685ede69619fe9cd6ad9 /perl-install/printerdrake.pm
parentb2ca176c13e2826f66193c23a403c8a793ffed3c (diff)
downloaddrakx-0d547c9740b5bddcc9c72974e3cc890a8ec9f479.tar
drakx-0d547c9740b5bddcc9c72974e3cc890a8ec9f479.tar.gz
drakx-0d547c9740b5bddcc9c72974e3cc890a8ec9f479.tar.bz2
drakx-0d547c9740b5bddcc9c72974e3cc890a8ec9f479.tar.xz
drakx-0d547c9740b5bddcc9c72974e3cc890a8ec9f479.zip
Started working on network printer auto-detection.
Diffstat (limited to 'perl-install/printerdrake.pm')
-rw-r--r--perl-install/printerdrake.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index 8900e193a..feb29f61d 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -228,7 +228,7 @@ Do you really want to get your printers auto-detected?"),
my $menuentries = {};
$in->set_help('setupLocal') if $::isInstall;
if ($do_auto_detect) {
- my $w = $in->wait_message(_("Test ports"), _("Detecting devices..."));
+ my $w = $in->wait_message(_("Printer auto-detection"), _("Detecting devices..."));
# When HPOJ is running, it blocks the printer ports on which it is
# configured, so we stop it here. If it is not installed or not
# configured, this command has no effect.
@@ -244,6 +244,8 @@ Do you really want to get your printers auto-detected?"),
$menustr .= _(" on parallel port \#%s", $1);
} elsif ($p->{port} =~ m!^/dev/usb/lp(\d+)$!) {
$menustr .= _(", USB printer \#%s", $1);
+ } elsif ($p->{port} =~ m!^socket://([^:]+):(\d+)$!) {
+ $menustr .= _(", network printer \"%s\", port %s", $1, $2);
}
if ($::expert) {
$menustr .= " ($p->{port})";
@@ -256,6 +258,8 @@ Do you really want to get your printers auto-detected?"),
$menustr = _("Printer on parallel port \#%s", $1);
} elsif ($p->{port} =~ m!^/dev/usb/lp(\d+)$!) {
$menustr = _("USB printer \#%s", $1);
+ } elsif ($p->{port} =~ m!^socket://([^:]+):(\d+)$!) {
+ $menustr .= _("Network printer \"%s\", port %s", $1, $2);
}
if ($::expert) {
$menustr .= " ($p->{port})";