More improvements

[clearscm.git] / maps / bin / add2whitelist.cgi

diff --git a/maps/bin/add2whitelist.cgi b/maps/bin/add2whitelist.cgi
index c3bac8d..4aa7379 100755 (executable)
--- a/maps/bin/add2whitelist.cgi
+++ b/maps/bin/add2whitelist.cgi
@@ -20,6 +20,7 @@ use FindBin;
 local $0 = $FindBin::Script;
 
 use lib "$FindBin::Bin/../lib";
+use lib "$FindBin::Bin/../../lib";
 
 use Utils;
 
@@ -50,9 +51,9 @@ sub Add2List(%) {
 
     $rec{sender} = CheckEmail $rec{pattern}, $rec{domain};
 
-    my ($status, $rule) = OnWhitelist($rec{sender}, $rec{userid});
+    my ($status) = OnWhitelist($rec{sender}, $rec{userid});
 
-    if ($status != 0) {
+    if ($status) {
       print br {-class => 'error'},
         "The email address $rec{sender} is already on ${Userid}'s $rec{type} list";
     } else {