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	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	+ if ($location =~ /^(lp[0-9]+\|remote\|usb\/lp0\|usb\/lp[0-9]+)$/)
10	{
11	$location = $1;
12	}