X-Git-Url: http://git.treefish.org/fex.git/blobdiff_plain/e5c93609849bda051fff54b5d5265af5608c6c69..3aae246cf7f4af7ae49da09e5ed0c180f31f0c12:/cgi-bin/fur?ds=inline

diff --git a/cgi-bin/fur b/cgi-bin/fur
index ffccca6..0ab7be9 100755
--- a/cgi-bin/fur
+++ b/cgi-bin/fur
@@ -7,6 +7,7 @@
 
 BEGIN { ($ENV{PERLINIT}||'') =~ /(.+)/s and eval $1 }
 
+use utf8;
 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
-        @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."
@@ -195,7 +197,7 @@ unless ($user or $exuser or $demouser) {
     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 {