#!/usr/local/bin/perl

# referrer消去リダイレクト
# Copyright (C) Takahsi Utsunomiya. All Rights Reserved.
# http://uttsu.com/
# 2002.08.06-

# ver 1.00	2002.08.06

use strict;

# 不許可のリンク元の場合の転送先ページ
my $home_url = 'http://uttsu.com/';
# 転送を許可するリンク元サイト
my @allow_site = (
	'http://uttsu.com/',
	'http://www.uttsu.com/',
	'http://birdcgi.zero.ad.jp/~zam06391/',
);

my $ref = $ENV{'HTTP_REFERER'};
my $url = $ENV{PATH_INFO} . (($_ = $ENV{QUERY_STRING}) ? '?'.$_ : '');
$url =~ s/^\///;
my $flag = 0;

foreach (@allow_site) {
	$flag |= $ref =~ /^$_/;
}

if (!$url) {
	print "Location: $home_url\n\n";
}
if (!$ref or $flag) {
	print "Content-type: text/html\n";
	print "Refresh: 0; URL=$url\n\n\n";
} elsif ($home_url) {
	print "Location: $home_url\n\n";
}