summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/main.pm8
-rw-r--r--perl-install/printer/printerdrake.pm18
2 files changed, 13 insertions, 13 deletions
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index d0c4639bf..9c36fa55a 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -322,7 +322,7 @@ sub make_menuentry {
my $connect = $printer->{configured}{$queue}{queuedata}{connect};
my $localremote;
if ($connect =~ m!^(file|parallel|usb|serial):! ||
- $connect =~ m!^ptal:/mlc:! ||
+ $connect =~ m!^ptal://?mlc:! ||
$connect =~ m!^mtink:!) {
$localremote = N("Local Printers");
} else {
@@ -339,7 +339,7 @@ sub make_menuentry {
$connection = N(", USB printer #%s", $number);
} elsif ($connect =~ m!^usb://!) {
$connection = N(", USB printer");
- } elsif ($connect =~ m!^ptal:/(.+)$!) {
+ } elsif ($connect =~ m!^ptal://?(.+?)$!) {
my $ptaldevice = $1;
if ($ptaldevice =~ /^mlc:par:(\d+)$/) {
my $number = $1;
@@ -1993,10 +1993,10 @@ sub autodetectionentry_for_uri {
return $p;
}
}
- } elsif ($uri =~ m!^ptal:/mlc:!) {
+ } elsif ($uri =~ m!^ptal://?mlc:!) {
# HP multi-function device (controlled by HPOJ)
my $ptaldevice = $uri;
- $ptaldevice =~ s!^ptal:/mlc:!!;
+ $ptaldevice =~ s!^ptal://?mlc:!!;
if ($ptaldevice =~ /^par:(\d+)$/) {
my $device = "/dev/lp$1";
foreach my $p (@autodetected) {
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index f0c73eaf1..4a68cfbac 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -1476,13 +1476,13 @@ sub setup_socket {
my ($uri, $remotehost, $remoteport);
my $queue = $printer->{OLD_QUEUE};
if ($printer->{configured}{$queue} &&
- $printer->{currentqueue}{connect} =~ m!^(socket:|ptal:/hpjd:)!) {
+ $printer->{currentqueue}{connect} =~ m!^(socket:|ptal://?hpjd:)!) {
$uri = $printer->{currentqueue}{connect};
if ($uri =~ m!^ptal:!) {
- if ($uri =~ m!^ptal:/hpjd:([^/:]+):([0-9]+)/?\s*$!) {
+ if ($uri =~ m!^ptal://?hpjd:([^/:]+):([0-9]+)/?\s*$!) {
my $ptalport = $2 - 9100;
($remotehost, $remoteport) = ($1, $ptalport);
- } elsif ($uri =~ m!^ptal:/hpjd:([^/:]+)\s*$!) {
+ } elsif ($uri =~ m!^ptal://?hpjd:([^/:]+)\s*$!) {
($remotehost, $remoteport) = ($1, 9100);
}
} else {
@@ -1528,7 +1528,7 @@ sub setup_socket {
$menuentries->{$a} cmp $menuentries->{$b};
} keys(%$menuentries);
if ($printer->{configured}{$queue} &&
- $printer->{currentqueue}{connect} =~ m!^(socket:|ptal:/hpjd:)! &&
+ $printer->{currentqueue}{connect} =~ m!^(socket:|ptal://?hpjd:)! &&
$menuchoice eq "") {
my $menustr;
if ($printer->{currentqueue}{make}) {
@@ -1852,7 +1852,7 @@ sub setup_common {
if (!$printer->{noninteractive}) {
my $text = "";
# Inform user about how to scan with his MF device
- $text = scanner_help($makemodel, "ptal:/$ptaldevice");
+ $text = scanner_help($makemodel, "ptal://$ptaldevice");
if ($text) {
undef $w;
$in->ask_warn
@@ -1861,7 +1861,7 @@ sub setup_common {
}
# Inform user about how to access photo cards with his
# MF device
- $text = photocard_help($makemodel, "ptal:/$ptaldevice");
+ $text = photocard_help($makemodel, "ptal://$ptaldevice");
if ($text) {
undef $w;
$in->ask_warn(N("Photo memory card access on your HP multi-function device"),
@@ -1869,7 +1869,7 @@ sub setup_common {
}
}
# make the DeviceURI from $ptaldevice.
- $printer->{currentqueue}{connect} = "ptal:/" . $ptaldevice;
+ $printer->{currentqueue}{connect} = "ptal://" . $ptaldevice;
} else {
# make the DeviceURI from $device.
$printer->{currentqueue}{connect} = $device;
@@ -3006,7 +3006,7 @@ N("To know about the options available for the current printer read either the l
sub scanner_help {
my ($makemodel, $deviceuri) = @_;
- if ($deviceuri =~ m!^ptal:/(.*)$!) {
+ if ($deviceuri =~ m!^ptal://?(.*?)$!) {
my $ptaldevice = $1;
if ($makemodel !~ /HP\s+PhotoSmart/i &&
$makemodel !~ /HP\s+LaserJet\s+2200/i) {
@@ -3024,7 +3024,7 @@ Do not use \"scannerdrake\" for this device!",
sub photocard_help {
my ($makemodel, $deviceuri) = @_;
- if ($deviceuri =~ m!^ptal:/(.*)$!) {
+ if ($deviceuri =~ m!^ptal://?(.*?)$!) {
my $ptaldevice = $1;
if (($makemodel =~ /HP\s+PhotoSmart/i ||
$makemodel =~ /HP\s+PSC\s*9[05]0/i ||