#!/usr/bin/perl5 -w
# 漢字コード EUC

use DB_File::Lock;
use SIC;
use SICX::Commander;
use SICX::Site;
use SICX::Edit::Unit_nf::login;

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

my $siteid = $comm->{cgi}->param('siteid');
unless($siteid){
    print $comm->{http}->header();
    print $comm->{html}->header();
    print "システムエラー";
    print $comm->{cgi}->end_html();
    exit;
}

my $dbm = join '/', '/home/SIC/sites',  $siteid, 'system/main.dbm';
my %maindbm = ();
if ( tie %maindbm, 'DB_File::Lock', $dbm, O_RDWR|O_CREAT, 0644, $DB_HASH, 'write' ){
    if ( ( $maindbm{'maintenance'} || 0) eq '1' ){
        print $comm->{http}->header();
        print $comm->{html}->header();
        print $maindbm{'maintenance_message'} || 'ただいま、システムのメンテナンス中です。';
        print $comm->{cgi}->end_html();
        exit;
    }
}

my $site = SICX::Site->new($comm, $siteid);
my $proc = $comm->new_proc_site(SICX::Edit::Unit_nf::login, $site);

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

$comm->finish();

exit(0);