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

#
use SIC;
use SICX::Comm::Site;

#
my $comm = SICX::Comm::Site->new();
my $jb = $comm->{cgi}->param('jb') || '';
my $module = join '::', 'SICX::Proc::S', $jb;

my $actid = $comm->{cgi}->param('actid') || '';
if(length($actid)> 8){ print "Content-Type:text/html","\n\n"; die('e'); }

unless ($comm->start($module)) {
    $comm->error();
}

#
$comm->finish();

#
exit(0);