X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2Fcheckaddress.cgi;h=ddec3d5891a21a3a0308929224c77c56db7ce3f1;hb=252d1ff39d76bc3a23c2c330e4529f72550bcded;hp=916664804396bacbc330094b99ef2ee528b39e3e;hpb=16babf81ce331af378de565ba73e927ff5491f65;p=clearscm.git

diff --git a/maps/bin/checkaddress.cgi b/maps/bin/checkaddress.cgi
index 9166648..ddec3d5 100755
--- a/maps/bin/checkaddress.cgi
+++ b/maps/bin/checkaddress.cgi
@@ -16,9 +16,10 @@ use strict;
 use warnings;
 
 use FindBin;
-$0 = $FindBin::Script;
+local $0 = $FindBin::Script;
 
 use lib "$FindBin::Bin/../lib";
+use lib "$FindBin::Bin/../../lib";
 
 use MAPS;
 
@@ -28,11 +29,13 @@ use CGI qw(:standard);
 my $userid;
 
 if (param "user") {
-  $userid = param("user");
+  $userid = param 'user';
 } else {
-  $userid = cookie("MAPSUser");
+  $userid = cookie 'MAPSUser';
 } # if
 
+$userid //= $ENV{USER};
+
 my $sender = param("sender");
 
 sub Heading() {
@@ -43,6 +46,8 @@ sub Heading() {
     print h3 {-align => "center",
               -class => "header"},
     "MAPS: Checking address $sender";
+
+  return;
 } # Heading
 
 sub Body() {
@@ -75,21 +80,21 @@ sub Body() {
     ($onlist, $rule) = OnBlacklist($sender, 0);
 
     if ($onlist) {
-      print div {-align	=> "center"},
-           font {-color	=> "black"},
+      print div {-align => "center"},
+           font {-color => "black"},
             "Messages from", b ($sender), "will be", b ("blacklisted"), br, hr;
       print $rule;
     } else {
       ($onlist, $rule) = OnNulllist($sender, 0);
 
       if ($onlist) {
-        print div {-align	=> "center"},
-          font {-color	=> "grey"},
+        print div {-align => "center"},
+             font {-color => "grey"},
             "Messages from", b ($sender), "will be", b ("discarded"), br, hr;
         print $rule;
       } else {
-        print div {-align	=> "center"},
-          font {-color	=> "red"},
+        print div {-align => "center"},
+             font {-color => "red"},
             "Messages from", b ($sender), "will be", b ("returned");
       } # if
     } # if
@@ -99,10 +104,14 @@ sub Body() {
     submit(-name      => "submit",
            -value     => "Close",
            -onClick   => "window.close (self)");
+
+  return;
 } # Body
 
 sub Footing() {
   print end_html;
+
+  return;
 } # Footing
 
 # Main