#!/usr/bin/perl5 -w
# 漢字コード EUC
#2008/06/19 hojo putlog追加
#
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 $char = $comm->{cgi}->param('char') || '';
if( length($char) > 30 ) { die('error'); }

#2009/03/23 hojo delete
#&putlog($jb);

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

#
$comm->finish();

#
exit(0);


sub putlog {
    my $arg_jb = shift;

    my ($sec, $min, $hour, $mday, $mon, $year) = (localtime($^T))[0 .. 5];
    my $now = sprintf("%d/%02d/%02d %02d:%02d:%02d ", $year + 1900, $mon + 1, $mday, $hour, $min, $sec);
    my $LOG = sprintf qq{/home/SIC/debug/ss.cgi.konomise%d%02d%02d.log}, $year + 1900, $mon + 1, $mday;
    my $method = $ENV{REQUEST_METHOD};
    $method.= ' ' if ($method eq 'GET');
    open LOG, ">> $LOG";
    print LOG $now, $method, " ", $ENV{SERVER_NAME};
    if ($arg_jb eq 's_cat'){
        $arg_jb.= ':catid=' . $comm->{cgi}->param('catid') || '';
    }
    print LOG " \t", "SCRIPT_NAME=[", $ENV{SCRIPT_NAME}, "](", $arg_jb, ")";

    print LOG " \t", "LANGUAGE=[", $ENV{HTTP_ACCEPT_LANGUAGE}, "]";
    print LOG " \t", "HTTP_REFERER=[", $ENV{HTTP_REFERER}, "]";
    my $addr = $ENV{REMOTE_ADDR};
    #my $remote_host = gethostbyaddr(inet_aton($addr), AF_INET);
    my $remote_host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
    print LOG " \t", $ENV{REMOTE_ADDR}, "(", $remote_host, ")";
    print LOG " \t", "USER_AGENT=[", $ENV{HTTP_USER_AGENT}, "]";
    print LOG " \t", "QUERY=[", $ENV{QUERY_STRING}, "]";
    print LOG "\n";
    close(LOG);
    return 1;
}