#!/usr/bin/perl5 -w
# ´Á»ú¥³¡¼¥É EUC

use SIC;
use SICX::Commander::Site;
use Cycom::Util::Server;

exit if &checkBusy();

my $comm = SICX::Commander::Site->new();
my $cgi = $comm->{cgi};

my $siteid = $cgi->param('siteid');
if ( $siteid =~ /^(nishitokyo)$/ ){
	print $cgi->redirect('http://nishitokyo.shop-info.com/renewal.html');
	exit(0);
}

unless ($comm->start('SICX::Proc::Site::list_theme_board')) {
    $comm->error();
}

$comm->finish();

exit(0);