#!/usr/bin/perl
BEGIN{
  # GETでアクセスとか、大きすぎるデータが送りつけられた場合はここでさようなら
  $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
  if ( $ENV{'REQUEST_METHOD'} ne 'POST' || $ENV{'CONTENT_LENGTH'} > 16384 ) {
    print "Content-Type: text/plain; charset=Shift_JIS\n\n";
    print 'リクエストメソッドがGETだったり、送られてきたデータが大きすぎです・・・ (´･ω･`)';
    exit;
  }
}
sub SigExit { exit 0; }
sub TRAP {}
sub INITIALIZE {}
$ENV{'TZ'}='JST-9'; $SIG{'PIPE'}=$SIG{'INT'}=$SIG{'HUP'}=$SIG{'QUIT'}=$SIG{'TERM'}="SigExit";
use Bbs;
use strict;
my $debug = 1;
my $bbs = new Bbs;
my $result = $bbs->operation();

$bbs->print_headerfields();
print STDOUT ${$bbs->expand_template($bbs->path('template').$bbs->select_template($result))};

if ($debug) {local $\ = "\n";my @times = times;my $cpu_p = $times[0] + $times[1];my $cpu_c = $times[2] + $times[3];my $flag = $bbs->flag('error');$flag = $flag == 0 ? '0 (エラー無し)' : $flag == 1 ? '1 (注意)' : $flag == 2 ? '2 (致命的なエラー)' : $flag == 3 ? '3 (確認)' : "$flag (未定義)" ;my $mode = $bbs->flag('write_dat') ? 'レスカキコ' : $bbs->flag('make_dat') ? 'スレ立て' : '通常' ;my $user_level = $bbs->flag('cap')==255 ? 'キャップ(Administrator)' : $bbs->flag('cap')==1 ? 'キャップ(User)' : 'ゲスト(Guest)' ;print qq(<br /><strong style="font-size:0.75em;">debug : );print scalar localtime time;print "<br /> process : $times[0] usr + $times[1] sys = $cpu_p CPU";print "<br /> child   : $times[2] usr + $times[3] sys = $cpu_c CPU";print "<br /> flag &nbsp;&nbsp;= $flag";print '<br /> mode = '.$mode.' [write_dat = '.$bbs->flag('write_dat').'] [make_dat = '.$bbs->flag('make_dat').']';print '<br /> use cap = '.$bbs->flag('cap');print '<br /> use trip = '.$bbs->flag('trip');print '<br /> user level = '.$user_level;print "</strong>\n";}
exit;
1;
__END__