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

use CGI::Carp qw(carpout fatalsToBrowser);
use SIC;
use SICX::Commander::Site;
use Cycom::Util::Server;

exit if &checkBusy();

#
my $comm = SICX::Commander::Site->new();


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

#
$comm->finish();

#
exit(0);