Original release 20160919

[fex.git] / cgi-bin / fur

diff --git a/cgi-bin/fur b/cgi-bin/fur
index ffccca601e2fa09bfac8477905f75ce326ac4062..0ab7be9158057199d56d1e711e65491df656e65a 100755 (executable)
--- a/cgi-bin/fur
+++ b/cgi-bin/fur
@@ -7,6 +7,7 @@
 
 BEGIN { ($ENV{PERLINIT}||'') =~ /(.+)/s and eval $1 }
 
 
 BEGIN { ($ENV{PERLINIT}||'') =~ /(.+)/s and eval $1 }
 

+use utf8;

 use Fcntl      qw(:flock :seek :mode);
 
 # import from fex.ph
 use Fcntl      qw(:flock :seek :mode);
 
 # import from fex.ph


@@ -47,7 +48,8 @@ unless (@local_domains or @local_rdomains) {
 }
 
 unless (@local_hosts and ipin($ra,@local_hosts) or
 }
 
 unless (@local_hosts and ipin($ra,@local_hosts) or

-        @local_rhosts and ipin($ra,@local_rhosts)) {
+        @local_rdomains and @local_rhosts and
+        (not @registration_hosts or ipin($ra,@registration_hosts))) {

   html_error($error,
     "Registrations from your host ($ra) are not allowed.",
     "Contact $ENV{SERVER_ADMIN} for details."
   html_error($error,
     "Registrations from your host ($ra) are not allowed.",
     "Contact $ENV{SERVER_ADMIN} for details."


@@ -195,7 +197,7 @@ unless ($user or $exuser or $demouser) {
     pq(qq(
       '</pre>'
       '<p><hr><p>'
     pq(qq(
       '</pre>'
       '<p><hr><p>'

-      '<a href="http://fex.rus.uni-stuttgart.de/users.html">User types overview</a>'
+      '<a href="/users.html">User types overview</a>'

       '</body></html>'
     ));
   } else {
       '</body></html>'
     ));
   } else {