e-smith-LPRng/sme10/e-smith-LPRng-2.6.0-bz12106-untainting.patch

diff -Nur --no-dereference e-smith-LPRng-2.6.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/printers.pm e-smith-LPRng-2.6.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/printers.pm
--- e-smith-LPRng-2.6.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/printers.pm        2004-01-06 21:03:18.000000000 -0500
+++ e-smith-LPRng-2.6.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/printers.pm    2022-07-17 00:25:46.542000000 -0400
@@ -238,7 +238,7 @@
     }
 
     my $location = $q->param ('location');
-    if ($location =~ /^(.*)$/)
+    if ($location =~ /^(lp[0-9]+|remote|usb\/lp0|usb\/lp[0-9]+)$/)
     {
         $location = $1;
     }
1	jpp	1.1	diff -Nur --no-dereference e-smith-LPRng-2.6.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/printers.pm e-smith-LPRng-2.6.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/printers.pm
2			--- e-smith-LPRng-2.6.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/printers.pm 2004-01-06 21:03:18.000000000 -0500
3			+++ e-smith-LPRng-2.6.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/printers.pm 2022-07-17 00:25:46.542000000 -0400
4			@@ -238,7 +238,7 @@
5			}
6
7			my $location = $q->param ('location');
8			- if ($location =~ /^(.*)$/)
9	jpp	1.2	+ if ($location =~ /^(lp[0-9]+\|remote\|usb\/lp0\|usb\/lp[0-9]+)$/)
10	jpp	1.1	{
11			$location = $1;
12			}