X-Git-Url: https://git.treefish.org/fex.git/blobdiff_plain/e60096926213ce02293a261254ff065cae44c1c8..97b87610331f53e756d032ad21db786037f921a1:/cgi-bin/fur?ds=sidebyside

diff --git a/cgi-bin/fur b/cgi-bin/fur
index 94f6a1e..2a75445 100755
--- a/cgi-bin/fur
+++ b/cgi-bin/fur
@@ -39,13 +39,20 @@ my $user = my $id = my $verify = '';
 
 &check_maint;
 
-unless (@local_domains or @local_rdomains) {
+unless (@local_domains and @local_rdomains) {
   html_error($error,
     "No domains for registrations are defined.",
     "Contact $ENV{SERVER_ADMIN} for details."
   );
 }
 
+unless (@local_hosts and ipin($ENV{REMOTE_ADDR}||0,@local_hosts)) {
+  html_error($error,
+    "Registrations from your host ($ENV{REMOTE_ADDR}) are not allowed.",
+    "Contact $ENV{SERVER_ADMIN} for details."
+  );
+}
+
 # look for CGI parameters
 our %PARAM;
 &parse_parameters;