| 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 |
|
Parent Directory
| 
Revision Log
| 
Revision Graph
