smeserver-wbl/contribs9/smeserver-wbl-0.3.0.bz10287-allowSpacesInRBL.patch

diff -Nur smeserver-wbl-0.3.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm smeserver-wbl-0.3.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm
--- smeserver-wbl-0.3.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm     2017-05-10 22:53:55.115000000 -0400
+++ smeserver-wbl-0.3.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm 2017-05-10 23:02:47.748000000 -0400
@@ -376,7 +376,7 @@
 
 
     my $sbllistcgi = $q->param('sbllist');
-    my @sbllistcgi = split /\s+/, $sbllistcgi;
+    my @sbllistcgi = split /\s{2,}/, $sbllistcgi;
     my $sbllistdb = '';
     foreach (@sbllistcgi) { $sbllistdb = $sbllistdb . ',' . $_; }
     $sbllistdb =~ s/^,//;
@@ -385,7 +385,7 @@
     
 
     my $rbllistcgi = $q->param('rbllist');
-    my @rbllistcgi = split /\s+/, $rbllistcgi;
+    my @rbllistcgi = split /\s{2,}/, $rbllistcgi;
     my $rbllistdb = '';
     foreach (@rbllistcgi) { $rbllistdb = $rbllistdb . ',' . $_; }
     $rbllistdb =~ s/^,//;
1	unnilennium	1.1	diff -Nur smeserver-wbl-0.3.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm smeserver-wbl-0.3.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm
2			--- smeserver-wbl-0.3.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm 2017-05-10 22:53:55.115000000 -0400
3			+++ smeserver-wbl-0.3.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm 2017-05-10 23:02:47.748000000 -0400
4			@@ -376,7 +376,7 @@
5
6
7			my $sbllistcgi = $q->param('sbllist');
8			- my @sbllistcgi = split /\s+/, $sbllistcgi;
9			+ my @sbllistcgi = split /\s{2,}/, $sbllistcgi;
10			my $sbllistdb = '';
11			foreach (@sbllistcgi) { $sbllistdb = $sbllistdb . ',' . $_; }
12			$sbllistdb =~ s/^,//;
13			@@ -385,7 +385,7 @@
14
15
16			my $rbllistcgi = $q->param('rbllist');
17			- my @rbllistcgi = split /\s+/, $rbllistcgi;
18			+ my @rbllistcgi = split /\s{2,}/, $rbllistcgi;
19			my $rbllistdb = '';
20			foreach (@rbllistcgi) { $rbllistdb = $rbllistdb . ',' . $_; }
21			$rbllistdb =~ s/^,//;