#!/usr/local/bin/perl
$DefaultDomain = "http://www.jamesskinner.com/";
##########　ここまで初期設定   ###########


$argv = $ENV{'QUERY_STRING'};
@indata = split (/&/,$argv);
foreach $tmp (@indata)
{
	($name,$value) = split (/=/,$tmp);
	$forminh{$name} = $value;
}
if ($forminh{'tid'} ne '') { print "Location: http://www.bshonin.com/index.asp?id=$forminh{'id'}&sid=$forminh{'sid'}&tid=$forminh{'tid'}\n\n"; }
if ($forminh{'id'} ne '') { print "Location: http://www.mshonin.com/regist/rhtcnt.asp?id=$forminh{'id'}\n\n"; }
if ($forminh{'cid'} ne '') { print "Location: http://www.mshonin.com/regist/rmlist.asp?sid=$forminh{'sid'}&scid=$forminh{'scid'}&cid=$forminh{'cid'}&mid=$forminh{'mid'}\n\n"; }
if ($forminh{'ac'} ne '') { print "Location: http://www.mshonin.com/c/?ac=$forminh{'ac'}\n\n"; }
if ($forminh{'afsid'} ne '') { print "Location: http://www.MShonin.com/Member/login.asp?afsid=$forminh{'afsid'}\n\n"; }
else { print "Location: $DefaultDomain\n\n"; }
exit;