+Redirect foreign visitors to our root with that disgusting introduction ad.

diff --git a/project/captive/Index.html.pl b/project/captive/Index.html.pl
index 13b660e..a137b4d 100755 (executable)
--- a/project/captive/Index.html.pl
+++ b/project/captive/Index.html.pl
@@ -31,6 +31,25 @@ Wuse 'My::Project';
 Wuse 'project::captive::ListItem';
 
 
+# Redirect foreign visitors to our root with that disgusting introduction ad.
+{
+       my $r=Apache->request();
+       if (my $referer=$r->header_in("Referer")) {
+               Wuse 'WebConfig';
+               require URI;
+               my $refuri=URI->new_abs($referer,$r->uri());
+               if (1
+                               && $refuri->host() ne "localhost"
+                               && $refuri->host() ne &{$WebConfig::WebConfig{"web_hostname_sub"}}) {
+                       use Apache::Constants qw(REDIRECT);
+                       $r->status(REDIRECT);
+                       $r->header_out("Location"=>"http://".&{$WebConfig::WebConfig{"web_hostname_sub"}}());
+                       exit 0;
+                       }
+               }
+       }
+
+
 my $W=My::Project->init_project(
                "__PACKAGE__"=>__PACKAGE__,
                "ListItem"=>\@project::captive::ListItem::ListItem,