From 6cd0bd9dbc52754d731e8d5d007c597595e05389 Mon Sep 17 00:00:00 2001
From: short <>
Date: Tue, 21 Oct 2003 19:13:03 +0000
Subject: [PATCH] -Redirect foreign visitors to our root with that disgusting
 introduction ad.

---
 project/captive/Index.html.pl | 19 -------------------
 1 file changed, 19 deletions(-)

diff --git a/project/captive/Index.html.pl b/project/captive/Index.html.pl
index 488edc8..8855770 100755
--- a/project/captive/Index.html.pl
+++ b/project/captive/Index.html.pl
@@ -31,25 +31,6 @@ 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,
-- 
1.8.3.1