From: short <>
Date: Sun, 19 Oct 2003 23:09:37 +0000 (+0000)
Subject: +Redirect foreign visitors to our root with that disgusting introduction ad.
X-Git-Url: https://git.jankratochvil.net/?a=commitdiff_plain;ds=sidebyside;h=8b7102f457714ff880702a3d9e253dfed57b1f3b;p=www.jankratochvil.net.git

+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
--- 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,