#!/usr/bin/perl
use strict;
use Boofy::Main;
use Boofy::Config qw(SESS_NAME MEMBER_HOME);

#------------------------------------------------------------------------------
# FUNC
#------------------------------------------------------------------------------

#------------------------------------------------------------------------------
# MAIN
#------------------------------------------------------------------------------
my $mn = Boofy::Main::->new();
my $cgi = $mn->load_cgi();
my %v = $cgi->Vars();

$v{n} ||= "home.pl";

my $protocol = 'http';
my $server = $ENV{HTTP_X_FORWARDED_SERVER} || $cgi->server_name();
my $port = $cgi->server_port();
my $domain;
if ($server ne "mixi" &&
    $server !~ /^test\./) {
    $server = "mixi.jp";
}
if ($port >= 8001 && $port <= 8006) {
    $domain = $protocol . "://" . $server . ":" . $port;
}
else {
    $domain = $protocol . "://" . $server;
}


my $next_url;
my $left;
foreach my $name (keys(%v)) {
    if ($name eq "n") {
        if ($v{$name} =~ /set-cookie/i) {
	        $next_url = "home.pl";
        }
        else {
            $next_url = $v{$name};
        }
    }
}

if ($next_url !~ /^\//) {
    $next_url = "/" . $next_url;
}

if (!$cgi->cookie(SESS_NAME)) {
    my $tpl = $mn->load_tpl("check_error.tmpl");
    $mn->show_header();
    print $tpl->output();
}
else {
    print $cgi->redirect($domain . $next_url);
}