smeserver-wbl/contribs9/smeserver-wbl-0.3.0.bz10116.changingseparator.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-02-23 19:14:59.654000000 -0500
+++ smeserver-wbl-0.3.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm 2017-02-23 19:32:46.929000000 -0500
@@ -34,14 +34,14 @@
 sub get_sbllist
 {
 my $sbllistform = $db->get_prop('qpsmtpd', 'SBLList') || '';
-$sbllistform =~ s/:/\n/g;
+$sbllistform =~ s/,/\n/g;
 return $sbllistform;
 }
 
 sub get_rbllist
 {
 my $rbllistform = $db->get_prop('qpsmtpd', 'RBLList') || '';
-$rbllistform =~ s/:/\n/g;
+$rbllistform =~ s/,/\n/g;
 return $rbllistform;
 }
 
@@ -378,8 +378,8 @@
     my $sbllistcgi = $q->param('sbllist');
     my @sbllistcgi = split /\s+/, $sbllistcgi;
     my $sbllistdb = '';
-    foreach (@sbllistcgi) { $sbllistdb = $sbllistdb . ':' . $_; }
-    $sbllistdb =~ s/^://;
+    foreach (@sbllistcgi) { $sbllistdb = $sbllistdb . ',' . $_; }
+    $sbllistdb =~ s/^,//;
 
     $db->set_prop('qpsmtpd', 'SBLList', "$sbllistdb");
     
@@ -387,8 +387,8 @@
     my $rbllistcgi = $q->param('rbllist');
     my @rbllistcgi = split /\s+/, $rbllistcgi;
     my $rbllistdb = '';
-    foreach (@rbllistcgi) { $rbllistdb = $rbllistdb . ':' . $_; }
-    $rbllistdb =~ s/^://;
+    foreach (@rbllistcgi) { $rbllistdb = $rbllistdb . ',' . $_; }
+    $rbllistdb =~ s/^,//;
 
     $db->set_prop('qpsmtpd', 'RBLList', "$rbllistdb");
 
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-02-23 19:14:59.654000000 -0500
3			+++ smeserver-wbl-0.3.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm 2017-02-23 19:32:46.929000000 -0500
4			@@ -34,14 +34,14 @@
5			sub get_sbllist
6			{
7			my $sbllistform = $db->get_prop('qpsmtpd', 'SBLList') \|\| '';
8			-$sbllistform =~ s/:/\n/g;
9			+$sbllistform =~ s/,/\n/g;
10			return $sbllistform;
11			}
12
13			sub get_rbllist
14			{
15			my $rbllistform = $db->get_prop('qpsmtpd', 'RBLList') \|\| '';
16			-$rbllistform =~ s/:/\n/g;
17			+$rbllistform =~ s/,/\n/g;
18			return $rbllistform;
19			}
20
21			@@ -378,8 +378,8 @@
22			my $sbllistcgi = $q->param('sbllist');
23			my @sbllistcgi = split /\s+/, $sbllistcgi;
24			my $sbllistdb = '';
25			- foreach (@sbllistcgi) { $sbllistdb = $sbllistdb . ':' . $_; }
26			- $sbllistdb =~ s/^://;
27			+ foreach (@sbllistcgi) { $sbllistdb = $sbllistdb . ',' . $_; }
28			+ $sbllistdb =~ s/^,//;
29
30			$db->set_prop('qpsmtpd', 'SBLList', "$sbllistdb");
31
32			@@ -387,8 +387,8 @@
33			my $rbllistcgi = $q->param('rbllist');
34			my @rbllistcgi = split /\s+/, $rbllistcgi;
35			my $rbllistdb = '';
36			- foreach (@rbllistcgi) { $rbllistdb = $rbllistdb . ':' . $_; }
37			- $rbllistdb =~ s/^://;
38			+ foreach (@rbllistcgi) { $rbllistdb = $rbllistdb . ',' . $_; }
39			+ $rbllistdb =~ s/^,//;
40
41			$db->set_prop('qpsmtpd', 'RBLList', "$rbllistdb");
42