From f5e2f6f5d2c88895dd5faedf4ce21b10920fd88d Mon Sep 17 00:00:00 2001
From: Till Kamppeter <tkamppeter@mandriva.com>
Date: Thu, 13 Mar 2003 22:55:05 +0000
Subject: Fixed bug #417: '$' character in printer URI not correctly handled.

---
 perl-install/printer/main.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install/printer')

diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index ec63b6567..51f9ad375 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -1740,6 +1740,8 @@ sub configure_queue($) {
 
     #- Create the queue with "foomatic-configure", in case of queue
     #- renaming copy the old queue
+    my $quotedconnect = $printer->{currentqueue}{connect};
+    $quotedconnect =~ s/\$/\\\$/g; # Quote '$' in URI
     run_program::rooted($::prefix, "foomatic-configure", "-q",
 			"-s", $printer->{currentqueue}{spooler},
 			"-n", $printer->{currentqueue}{queue},
@@ -1747,7 +1749,7 @@ sub configure_queue($) {
 			 $printer->{OLD_QUEUE} &&
 			 $printer->{configured}{$printer->{OLD_QUEUE}} ?
 			 ("-C", $printer->{OLD_QUEUE}) : ()),
-			"-c", $printer->{currentqueue}{connect},
+			"-c", $quotedconnect,
 			($printer->{currentqueue}{foomatic} ?
 			 ("-p", $printer->{currentqueue}{printer},
 			  "-d", $printer->{currentqueue}{driver}) :
-- 
cgit v1.2.1