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");