diff options
| author | Till Kamppeter <tkamppeter@mandriva.com> | 2002-07-31 17:33:36 +0000 |
|---|---|---|
| committer | Till Kamppeter <tkamppeter@mandriva.com> | 2002-07-31 17:33:36 +0000 |
| commit | 0d547c9740b5bddcc9c72974e3cc890a8ec9f479 (patch) | |
| tree | 576f48484988966613c8685ede69619fe9cd6ad9 /perl-install/printerdrake.pm | |
| parent | b2ca176c13e2826f66193c23a403c8a793ffed3c (diff) | |
| download | drakx-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.pm | 6 |
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})"; |