#! /usr/local/bin/perl

$Cgi_Main = "./jinro.cgi";
$Cookie_Id = "jinro";

$Mode_Name{'01'} = "村人";
$Mode_Name{'05'} = "霊界";
$Mode_Name{'11'} = "人狼";
$Mode_Name{'15'} = "魔界";
$Mode_Name{'40'} = "妖精";
$Mode_Name{'50'} = "天界";

#####################

require './jcode.pl';

$Login_Index = -1;

@Msg_Line = ();

@Char_Name = ();
@Char_Icon = ();
@Char_Vote = ();
@Char_Life = ();

@Exec_Attack = (-1, -1);
@Exec_Fortune = (-1, -1);
@Exec_Guard = (-1, -1);

@Result_Attack = ();
@Result_Fortune = ();
@Result_Guard = ();
@Result_Medium = ();

##################### Main

&SYSIN_TIME;
&STDIN_COOKIE;
&STDIN_QUERY_STRING;

if($Cookie_Tbl{ 'index' } ne "" ){
  $Login_Index = $Cookie_Tbl{ 'index' };
}

if( $Query_Tbl{'mode'} eq "login"){
  if( $Query_Tbl{ 'msg' } ne "" ){
    &SET_COOKIE( $Query_Tbl{ 'msg' } );
  }
  print "Location: $Cgi_Main\n\n";
}elsif( $Query_Tbl{'mode'} eq "logout"){
  &CLEAR_COOKIE;
  print "Location: $Cgi_Main\n\n";
}elsif( $Query_Tbl{'mode'} == 51){
  if( $Query_Tbl{ 'msg' } ne "" ){
    &FILEIN_MSG;
    &FILEOUT_VOTE;
  }
  print "Location: $Cgi_Main\n\n";
}elsif( $Query_Tbl{'mode'} == 52){
  if( $Query_Tbl{ 'msg0' } ne "" and  $Query_Tbl{ 'msg1' } ne ""){
    &FILEIN_MSG;
    &FILEOUT_ATTACK;
  }
  print "Location: $Cgi_Main\n\n";
}elsif( $Query_Tbl{'mode'} == 53){
  if( $Query_Tbl{ 'msg0' } ne "" and  $Query_Tbl{ 'msg1' } ne ""){
    &FILEIN_MSG;
    &FILEOUT_FORTUNE;
  }
  print "Location: $Cgi_Main\n\n";
}elsif( $Query_Tbl{'mode'} == 54){
  if( $Query_Tbl{ 'msg0' } ne "" and  $Query_Tbl{ 'msg1' } ne ""){
    &FILEIN_MSG;
    &FILEOUT_GUARD;
  }
  print "Location: $Cgi_Main\n\n";
}elsif( $Query_Tbl{'mode'} ){
  if( $Query_Tbl{ 'msg' } ne "" ){
    &FILEIN_MSG;
    &FILEOUT_MSG;
  }
  print "Location: $Cgi_Main\n\n";
}else{
  &FILEIN_MSG;
  &STDOUT_HTML;
}

exit(0);

#####################
sub FILEIN_MSG {
  if( open( LOGFILE, "<./msg.txt" ) ){
    flock( LOGFILE, 1 );
    $line = <LOGFILE>;
    $line =~ s/\r//g;
    ($Vil_Name, $Vil_Img, $Vil_Css) = split( /<>/, $line);
    $Day_Count = $Query_Tbl{'day'};
    $Day_Count_Max = -1;
    while($line = <LOGFILE>){
      $line =~ s/\r//g;
      ($Line_Day, $Line_Type, $Line_Char_Index, $Line_Time, @data) = split( /<>/, $line);
      if($Line_Type == 51){
        $Char_Vote[$Line_Char_Index] = $data[0];
      }elsif($Line_Type == 52){
        $Exec_Attack[0] = $data[0];
        $Exec_Attack[1] = $data[1];
      }elsif($Line_Type == 53){
        $Exec_Fortune[0] = $data[0];
        $Exec_Fortune[1] = $data[1];
      }elsif($Line_Type == 54){
        $Exec_Guard[0] = $data[0];
        $Exec_Guard[1] = $data[1];
      }elsif($Line_Type == 81){
        push(@Char_Name, $data[0]);
        push(@Char_Icon, $data[1]);
        push(@Char_Vote, -1);
        push(@Char_Life, 0);
      }elsif($Line_Type == 82){
        push(@Result_Medium, $Line_Char_Index);
        $Char_Life[$Line_Char_Index] = 1;
      }elsif($Line_Type == 83){
        push(@Result_Attack, $Line_Char_Index);
        $Char_Life[$Line_Char_Index] = 1;
      }elsif($Line_Type == 84){
        push(@Result_Fortune, $Line_Char_Index);
      }elsif($Line_Type == 85){
        push(@Result_Guard, $Line_Char_Index);
      }
      if($Day_Count_Max < $Line_Day){
        $Day_Count_Max = $Line_Day;
        foreach $vote (@Char_Vote) {
          $vote = -1;
        }
        @Exec_Attack = (-1, -1);
        @Exec_Fortune = (-1, -1);
        @Exec_Guard = (-1, -1);
      }
      push(@Msg_Line, $line);
    }
    if($Day_Count == -1){
      $Day_Count = $Day_Count_Max;
    }
    close( LOGFILE );
    if($Login_Index >= @Char_Name){
      $Login_Index = -1;
    }
  }
}

#####################
sub STDOUT_HTML {
  &STDOUT_HEADER;
  if($Login_Index > -1){
    &STDOUT_LOGOUT_FORM;
  }else{
    &STDOUT_LOGIN_FORM;
  }
  &STDOUT_DAY_LIST( "header" );
  foreach $line (@Msg_Line){
    ($Line_Day, $Line_Type) = split( /<>/, $line);
    if($Line_Day == $Day_Count){
      if($Line_Type == 80){
        &STDOUT_SYS( $line );
      }elsif($Line_Type == 81){
        &STDOUT_ENTRY( $line );
      }elsif($Line_Type == 82){
        &STDOUT_DEATH( $line );
      }elsif($Line_Type == 83){
        &STDOUT_KILL( $line );
      }elsif($Line_Type == 84){
        &STDOUT_FORTUNE_RESULT( $line );
      }elsif($Line_Type == 85){
        &STDOUT_GUARD_RESULT( $line );
      }elsif($Line_Type == 51){
        &STDOUT_VOTE( $line );
      }elsif($Line_Type == 52){
        &STDOUT_ATTACK( $line );
      }elsif($Line_Type == 53){
        &STDOUT_FORTUNE( $line );
      }elsif($Line_Type == 54){
        &STDOUT_GUARD( $line );
      }else{
        &STDOUT_MSG( $line );
      }
    }
  }
  if($Login_Index > -1){
    if($Day_Count == $Day_Count_Max){
      &STDOUT_VOTE_FORM;
      &STDOUT_ATTACK_FORM;
      &STDOUT_FORTUNE_FORM;
      &STDOUT_GUARD_FORM;
      &STDOUT_MSG_FORM( "01" );
      &STDOUT_MSG_FORM( "05" );
      &STDOUT_MSG_FORM( "11" );
      &STDOUT_MSG_FORM( "15" );
      &STDOUT_MSG_FORM( "40" );
      &STDOUT_MSG_FORM( "50" );
    }
  }
  &STDOUT_DAY_LIST( "footer" );
  &STDOUT_FOOTER;
}

#####################
sub STDOUT_HEADER {
  print "Content-type: text/html\n\n";
  print "<html><head><title>人狼ＢＢＳ - $Vil_Name</title>\n";
  print "<link rel=\"stylesheet\" type=\"text/css\" href=\"$Vil_Css\">\n";
  print "</head><body class=\"mode01\">\n";
  print "<center><div class=\"main\">\n";
  print "<img src=\"$Vil_Img\" width=\"600\" height=\"100\" alt=\"人狼ＢＢＳ\"><br class=\"clear\">\n";
}

#####################
sub STDOUT_FOOTER {
  print "</div></center>\n";
  print "<body></html>\n";
}

#####################
sub STDOUT_MSG {
  ($Msg_Date, $Msg_Type, $Msg_Char_Index, $Msg_Time, $Msg_Text) = split( /<>/, @_[0] );
  print "<div class=\"cell\"><div class=\"char\">\n";
  print "<img class=\"char\" src=\"$Char_Icon[$Msg_Char_Index]\" width=\"50\" height=\"50\" alt=\"$Char_Name[$Msg_Char_Index]\"></div>\n";
  print "<div class=\"name\">$Char_Name[$Msg_Char_Index] $Mode_Name{$Msg_Type}メッセージ [$Msg_Time]</div>\n";
  print "<div class=\"msg$Msg_Type\">$Msg_Text</div><br class=\"clear\"></div>\n";
  print "<br>\n";
}

#####################
sub STDOUT_VOTE {
  ($Msg_Date, $Msg_Type, $Msg_Char_Index, $Msg_Time, $Exec_Target) = split( /<>/, @_[0] );
  print "<div class=\"cell\"><div class=\"char\">\n";
  print "<img class=\"char\" src=\"$Char_Icon[$Msg_Char_Index]\" width=\"50\" height=\"50\" alt=\"$Char_Name[$Msg_Char_Index]\"></div>\n";
  print "<div class=\"name\">$Char_Name[$Msg_Char_Index] $Mode_Name{'50'}メッセージ [$Msg_Time]</div>\n";
  print "<div class=\"msg50\">$Char_Name[$Exec_Target]に投票します。</div><br class=\"clear\"></div>\n";
  print "<br>\n";
}

#####################
sub STDOUT_ATTACK {
  ($Msg_Date, $Msg_Type, $Msg_Char_Index, $Msg_Time, $Exec_Target1, $Exec_Target2) = split( /<>/, @_[0] );
  print "<div class=\"cell\"><div class=\"char\">\n";
  print "<img class=\"char\" src=\"$Char_Icon[$Msg_Char_Index]\" width=\"50\" height=\"50\" alt=\"$Char_Name[$Msg_Char_Index]\"></div>\n";
  print "<div class=\"name\">$Char_Name[$Msg_Char_Index] $Mode_Name{'50'}メッセージ [$Msg_Time]</div>\n";
  print "<div class=\"msg50\">$Char_Name[$Exec_Target1]を襲撃の第１候補、$Char_Name[$Exec_Target2]を襲撃の第２候補にします。</div><br class=\"clear\"></div>\n";
  print "<br>\n";
}

#####################
sub STDOUT_FORTUNE {
  ($Msg_Date, $Msg_Type, $Msg_Char_Index, $Msg_Time, $Exec_Target1, $Exec_Target2) = split( /<>/, @_[0] );
  print "<div class=\"cell\"><div class=\"char\">\n";
  print "<img class=\"char\" src=\"$Char_Icon[$Msg_Char_Index]\" width=\"50\" height=\"50\" alt=\"$Char_Name[$Msg_Char_Index]\"></div>\n";
  print "<div class=\"name\">$Char_Name[$Msg_Char_Index] $Mode_Name{'50'}メッセージ [$Msg_Time]</div>\n";
  print "<div class=\"msg50\">$Char_Name[$Exec_Target1]を占いの第１候補、$Char_Name[$Exec_Target2]を占いの第２候補にします。</div><br class=\"clear\"></div>\n";
  print "<br>\n";
}

#####################
sub STDOUT_GUARD {
  ($Msg_Date, $Msg_Type, $Msg_Char_Index, $Msg_Time, $Exec_Target1, $Exec_Target2) = split( /<>/, @_[0] );
  print "<div class=\"cell\"><div class=\"char\">\n";
  print "<img class=\"char\" src=\"$Char_Icon[$Msg_Char_Index]\" width=\"50\" height=\"50\" alt=\"$Char_Name[$Msg_Char_Index]\"></div>\n";
  print "<div class=\"name\">$Char_Name[$Msg_Char_Index] $Mode_Name{'50'}メッセージ [$Msg_Time]</div>\n";
  print "<div class=\"msg50\">$Char_Name[$Exec_Target1]を護衛の第１候補、$Char_Name[$Exec_Target2]を護衛の第２候補にします。</div><br class=\"clear\"></div>\n";
  print "<br>\n";
}

#####################
sub STDOUT_SYS {
  ($Msg_Date, $Msg_Type, $Msg_Char_Index, $Msg_Time, $Msg_Text) = split( /<>/, @_[0] );
  print "<div class=\"cell\">\n";
  print "<div class=\"name\">システムメッセージ [$Msg_Time]</div>\n";
  print "<div class=\"msg$Msg_Type\">$Msg_Text</div><br class=\"clear\"></div>\n";
  print "<br>\n";
}

#####################
sub STDOUT_ENTRY {
  ($Msg_Date, $Msg_Type, $Msg_Char_Index, $Msg_Time) = split( /<>/, @_[0] );
  $Char_Number = $Msg_Char_Index + 1;
  print "<div class=\"cell\">\n";
  print "<div class=\"name\">システムメッセージ [$Msg_Time]</div>\n";
  print "<div class=\"msg80\">$Char_Number番目の村人 $Char_Name[$Msg_Char_Index]</div><br class=\"clear\"></div>\n";
  print "<br>\n";
}

#####################
sub STDOUT_DEATH {
  ($Msg_Date, $Msg_Type, $Msg_Char_Index, $Msg_Time) = split( /<>/, @_[0] );
  print "<div class=\"cell\">\n";
  print "<div class=\"name\">システムメッセージ [$Msg_Time]</div>\n";
  print "<div class=\"msg80\">$Char_Name[$Msg_Char_Index]は投票の結果、処刑されました。</div><br class=\"clear\"></div>\n";
  print "<br>\n";
}

#####################
sub STDOUT_KILL {
  ($Msg_Date, $Msg_Type, $Msg_Char_Index, $Msg_Time) = split( /<>/, @_[0] );
  print "<div class=\"cell\">\n";
  print "<div class=\"name\">システムメッセージ [$Msg_Time]</div>\n";
  print "<div class=\"msg80\">夜明け、$Char_Name[$Msg_Char_Index]は無残な姿で発見されました。</div><br class=\"clear\"></div>\n";
  print "<br>\n";
}

#####################
sub STDOUT_FORTUNE_RESULT {
  ($Msg_Date, $Msg_Type, $Msg_Char_Index, $Msg_Time) = split( /<>/, @_[0] );
  print "<div class=\"cell\">\n";
  print "<div class=\"name\">システムメッセージ [$Msg_Time]</div>\n";
  print "<div class=\"msg80\">占い師は$Char_Name[$Msg_Char_Index]を占った。</div><br class=\"clear\"></div>\n";
  print "<br>\n";
}

#####################
sub STDOUT_GUARD_RESULT {
  ($Msg_Date, $Msg_Type, $Msg_Char_Index, $Msg_Time) = split( /<>/, @_[0] );
  print "<div class=\"cell\">\n";
  print "<div class=\"name\">システムメッセージ [$Msg_Time]</div>\n";
  print "<div class=\"msg80\">狩人は$Char_Name[$Msg_Char_Index]を護衛した。</div><br class=\"clear\"></div>\n";
  print "<br>\n";
}

#####################
sub STDOUT_DAY_LIST {
  print "<div class=\"@_[0]\">\n";
  print "<div class=\"vilname\">$Vil_Name</div>\n";
  print "<ul class=\"daylink\">\n";
  if($Day_Count == 0){
    print "<li class=\"daydisp\">プロローグ</li>";
  }else{
    print "<li class=\"daylink\"><a href=\"$Cgi_Main?day=0\">プロローグ</a></li>";
  }
  for($index = 1; $index <= $Day_Count_Max; $index++){
    if($index == $Day_Count){
      print "<li class=\"daydisp\">$index日目</li>";
    }else{
      print "<li class=\"daylink\"><a href=\"$Cgi_Main?day=$index\">$index日目</a></li>";
    }
  }
  print "</ul><br class=\"clear\">\n";
  print "</div>\n";
}

#####################
sub STDOUT_MSG_FORM {
  print "<div class=\"cell\"><div class=\"char\">\n";
  print "<img class=\"char\" src=\"$Char_Icon[$Login_Index]\" width=\"50\" height=\"50\" alt=\"$Char_Name[$Login_Index]\"></div>\n";
  print "<div class=\"name\">$Char_Name[$Login_Index] $Mode_Name{@_[0]}メッセージ</div>\n";
  print "<form method=\"POST\" action=\"$Cgi_Main\" class=\"mode@_[0]\">\n";
  print "<input type=\"hidden\" name=\"mode\" value=\"@_[0]\">\n";
  print "<textarea cols=\"60\" rows=\"5\" name=\"msg\" wrap=\"off\"></textarea><br>\n";
  print "<input type=\"submit\" value=\"発言する\">\n";
  print "</form><br class=\"clear\"></div>\n";
  print "<br>\n";
}

#####################
sub STDOUT_VOTE_FORM {
  print "<div class=\"cell\"><div class=\"char\">\n";
  print "<img class=\"char\" src=\"$Char_Icon[$Login_Index]\" width=\"50\" height=\"50\" alt=\"$Char_Name[$Login_Index]\"></div>\n";
  print "<div class=\"name\">$Char_Name[$Login_Index] の投票</div>\n";
  print "<form method=\"POST\" action=\"$Cgi_Main\" class=\"mode01\">\n";
  print "<input type=\"hidden\" name=\"mode\" value=\"51\">\n";
  if($Char_Vote[$Login_Index] > -1){
    print "あなたは$Char_Name[$Char_Vote[$Login_Index]]に投票しようとしています。<br>\n";
    &STDOUT_VOTE_SELECT;
    print "<input type=\"submit\" value=\"投票先を変更する\">\n";
  }else{
    print "投票先を選んでください。選ばない場合、あなたの投票先はランダムに決定されます。<br>\n";
    &STDOUT_VOTE_SELECT;
    print "<input type=\"submit\" value=\"投票先を設定する\">\n";
  }
  print "</form><br class=\"clear\"></div>\n";
  print "<br>\n";
}

#####################
sub STDOUT_VOTE_SELECT {
  print "<select name=\"msg\">\n";
  for($index = 0; $index < @Char_Life; $index++){
    if($Char_Life[$index] == 0 and $index != $Login_Index){
      if($Char_Vote[$Login_Index] == $index){
        print "<option value=\"$index\" selected>$Char_Name[$index]</option>\n";
      }else{
        print "<option value=\"$index\">$Char_Name[$index]</option>\n";
      }
    }
  }
  print "</select>\n";
}

#####################
sub STDOUT_ATTACK_FORM {
  print "<div class=\"cell\"><div class=\"char\">\n";
  print "<img class=\"char\" src=\"$Char_Icon[$Login_Index]\" width=\"50\" height=\"50\" alt=\"$Char_Name[$Login_Index]\"></div>\n";
  print "<div class=\"name\">人狼の襲撃</div>\n";
  print "<form method=\"POST\" action=\"$Cgi_Main\" class=\"mode11\">\n";
  print "<input type=\"hidden\" name=\"mode\" value=\"52\">\n";
  if($Exec_Attack[0] > -1 and $Exec_Attack[1] > -1 ){
    print "人狼は$Char_Name[$Exec_Attack[0]]を襲撃の第１候補に、$Char_Name[$Exec_Attack[1]]を襲撃の第２候補に選んでいます。<br>\n";
    print "第１候補 ";
    &STDOUT_ATTACK_SELECT(0);
    print "　第２候補 ";
    &STDOUT_ATTACK_SELECT(1);
    print "<input type=\"submit\" value=\"襲撃先を変更する\">\n";
  }else{
    print "襲撃先を選んでください。選ばない場合、貴方の襲撃先はランダムに決定されます。<br>\n";
    print "第１候補 ";
    &STDOUT_ATTACK_SELECT(0);
    print "　第２候補 ";
    &STDOUT_ATTACK_SELECT(1);
    print "<input type=\"submit\" value=\"襲撃先を設定する\">\n";
  }
  print "<br><br>\n";
  for($index = 0; $index < @Result_Attack; $index++){
    print "$Char_Name[$Result_Attack[$index]]を殺害しました。<br>\n";
  }
  print "</form><br class=\"clear\"></div>\n";
  print "<br>\n";
}

#####################
sub STDOUT_ATTACK_SELECT {
  print "<select name=\"msg@_[0]\">\n";
  for($index = 0; $index < @Char_Life; $index++){
    if($Char_Life[$index] == 0 and $index != $Login_Index){
      if($Exec_Attack[@_[0]] == $index){
        print "<option value=\"$index\" selected>$Char_Name[$index]</option>\n";
      }else{
        print "<option value=\"$index\">$Char_Name[$index]</option>\n";
      }
    }
  }
  print "</select>\n";
}

#####################
sub STDOUT_FORTUNE_FORM {
  print "<div class=\"cell\"><div class=\"char\">\n";
  print "<img class=\"char\" src=\"$Char_Icon[$Login_Index]\" width=\"50\" height=\"50\" alt=\"$Char_Name[$Login_Index]\"></div>\n";
  print "<div class=\"name\">$Char_Name[$Login_Index] の占い</div>\n";
  print "<form method=\"POST\" action=\"$Cgi_Main\" class=\"mode01\">\n";
  print "<input type=\"hidden\" name=\"mode\" value=\"53\">\n";
  if($Exec_Fortune[0] > -1 and $Exec_Fortune[1] > -1 ){
    print "貴方は$Char_Name[$Exec_Fortune[0]]を占いの第１候補に、$Char_Name[$Exec_Fortune[1]]を占いの第２候補に選んでいます。<br>\n";
    print "第１候補 ";
    &STDOUT_FORTUNE_SELECT(0);
    print "　第２候補 ";
    &STDOUT_FORTUNE_SELECT(1);
    print "<input type=\"submit\" value=\"占い先を変更する\">\n";
  }else{
    print "占い先を選んでください。選ばない場合、貴方の占い先はランダムに決定されます。<br>\n";
    print "第１候補 ";
    &STDOUT_FORTUNE_SELECT(0);
    print "　第２候補 ";
    &STDOUT_FORTUNE_SELECT(1);
    print "<input type=\"submit\" value=\"占い先を設定する\">\n";
  }
  print "<br><br>\n";
  for($index = 0; $index < @Result_Attack; $index++){
    print "$Char_Name[$Result_Fortune[$index]]は人間のようだ。<br>\n";
  }
  print "</form><br class=\"clear\"></div>\n";
  print "<br>\n";
}

#####################
sub STDOUT_FORTUNE_SELECT {
  print "<select name=\"msg@_[0]\">\n";
  for($index = 0; $index < @Char_Life; $index++){
    $notFortune = &CHECK_NOT_FORTUNE($index);
    if($Char_Life[$index] == 0 and $index != $Login_Index and $notFortune){
      if($Exec_Fortune[@_[0]] == $index){
        print "<option value=\"$index\" selected>$Char_Name[$index]</option>\n";
      }else{
        print "<option value=\"$index\">$Char_Name[$index]</option>\n";
      }
    }
  }
  print "</select>\n";
}

#####################
sub CHECK_NOT_FORTUNE {
  for($index2 = 0; $index2 < @Result_Fortune; $index2++){
    if(@_[0] == $Result_Fortune[$index2]){
      return(0);
    }
  }
  return(1);
}

#####################
sub STDOUT_GUARD_FORM {
  print "<div class=\"cell\"><div class=\"char\">\n";
  print "<img class=\"char\" src=\"$Char_Icon[$Login_Index]\" width=\"50\" height=\"50\" alt=\"$Char_Name[$Login_Index]\"></div>\n";
  print "<div class=\"name\">$Char_Name[$Login_Index] の護衛</div>\n";
  print "<form method=\"POST\" action=\"$Cgi_Main\" class=\"mode01\">\n";
  print "<input type=\"hidden\" name=\"mode\" value=\"54\">\n";
  if($Exec_Guard[0] > -1 and $Exec_Guard[1] > -1 ){
    print "貴方は$Char_Name[$Exec_Guard[0]]を護衛の第１候補に、$Char_Name[$Exec_Guard[1]]を護衛の第２候補に選んでいます。<br>\n";
    print "第１候補 ";
    &STDOUT_GUARD_SELECT(0);
    print "　第２候補 ";
    &STDOUT_GUARD_SELECT(1);
    print "<input type=\"submit\" value=\"護衛先を変更する\">\n";
  }else{
    print "護衛先を選んでください。選ばない場合、貴方の護衛先はランダムに決定されます。<br>\n";
    print "第１候補 ";
    &STDOUT_GUARD_SELECT(0);
    print "　第２候補 ";
    &STDOUT_GUARD_SELECT(1);
    print "<input type=\"submit\" value=\"護衛先を設定する\">\n";
  }
  print "<br><br>\n";
  for($index = 0; $index < @Result_Attack; $index++){
    print "$Char_Name[$Result_Guard[$index]]を護衛した。<br>\n";
  }
  print "</form><br class=\"clear\"></div>\n";
  print "<br>\n";
}

#####################
sub STDOUT_GUARD_SELECT {
  print "<select name=\"msg@_[0]\">\n";
  for($index = 0; $index < @Char_Life; $index++){
    if($Char_Life[$index] == 0 and $index != $Login_Index){
      if($Exec_Guard[@_[0]] == $index){
        print "<option value=\"$index\" selected>$Char_Name[$index]</option>\n";
      }else{
        print "<option value=\"$index\">$Char_Name[$index]</option>\n";
      }
    }
  }
  print "</select>\n";
}

#####################
sub STDOUT_LOGIN_FORM {
  print "<div class=\"login\">\n";
  print "<form method=\"POST\" action=\"$Cgi_Main\" class=\"login\">\n";
  print "<input type=\"hidden\" name=\"mode\" value=\"login\">\n";
  print "<input type=\"text\" size=\"5\" name=\"msg\" value=\"$Login_Index\">\n";
  print "<input type=\"submit\" value=\"ログイン\">\n";
  print "</form><br class=\"clear\"></div>\n";
  print "<br>\n";
}

#####################
sub STDOUT_LOGOUT_FORM {
  print "<div class=\"login\">\n";
  print "<form method=\"POST\" action=\"$Cgi_Main\" class=\"login\">\n";
  print "<input type=\"hidden\" name=\"mode\" value=\"logout\">\n";
  print "user_id: $Login_Index <input type=\"submit\" value=\"ログアウト\">\n";
  print "</form><br class=\"clear\"></div>\n";
  print "<br>\n";
}

#####################
sub FILEOUT_MSG {
  $temp = "$Day_Count_Max<>$Query_Tbl{'mode'}<>$Login_Index<>$Time_Stamp<>$Query_Tbl{'msg'}\n";
  open( LOGFILE, ">>./msg.txt");
  flock( LOGFILE, 2 );
  print LOGFILE $temp;
  close( LOGFILE );
}

#####################
sub FILEOUT_VOTE {
  $temp = "$Day_Count_Max<>$Query_Tbl{'mode'}<>$Login_Index<>$Time_Stamp<>$Query_Tbl{'msg'}\n";
  open( LOGFILE, ">>./msg.txt");
  flock( LOGFILE, 2 );
  print LOGFILE $temp;
  close( LOGFILE );
}

#####################
sub FILEOUT_ATTACK {
  $temp = "$Day_Count_Max<>$Query_Tbl{'mode'}<>$Login_Index<>$Time_Stamp<>$Query_Tbl{'msg0'}<>$Query_Tbl{'msg1'}\n";
  open( LOGFILE, ">>./msg.txt");
  flock( LOGFILE, 2 );
  print LOGFILE $temp;
  close( LOGFILE );
}

#####################
sub FILEOUT_FORTUNE {
  $temp = "$Day_Count_Max<>$Query_Tbl{'mode'}<>$Login_Index<>$Time_Stamp<>$Query_Tbl{'msg0'}<>$Query_Tbl{'msg1'}\n";
  open( LOGFILE, ">>./msg.txt");
  flock( LOGFILE, 2 );
  print LOGFILE $temp;
  close( LOGFILE );
}

#####################
sub FILEOUT_GUARD {
  $temp = "$Day_Count_Max<>$Query_Tbl{'mode'}<>$Login_Index<>$Time_Stamp<>$Query_Tbl{'msg0'}<>$Query_Tbl{'msg1'}\n";
  open( LOGFILE, ">>./msg.txt");
  flock( LOGFILE, 2 );
  print LOGFILE $temp;
  close( LOGFILE );
}

#####################
sub STDIN_QUERY_STRING {
  $Query_Tbl{'day'} = -1;
  $Query_Tbl{'mode'} = "";
  $Query_Tbl{'msg'} = "";
  $Query_Tbl{'msg0'} = "";
  $Query_Tbl{'msg1'} = "";

  if( $ENV{'REQUEST_METHOD'} eq "POST" ){
    read( STDIN, $query, $ENV{'CONTENT_LENGTH'} );
  }else{
    $query = $ENV{'QUERY_STRING'};
  }
  @pairs = split( /&/, $query );
  foreach $pair (@pairs) {
    local($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/ge;
    &jcode'convert(*value,'euc');
    $value =~ s/\r\n/\n/g;
    $value =~ s/\r|\n/\n/g;
    $value =~ s/</&lt;/g;
    $value =~ s/>/&gt;/g;
    $value =~ s/\"/&quot;/g;
    $value =~ s/\n/<br>/g;
    $Query_Tbl{ $name } = $value;
  }
}

###################
sub STDIN_COOKIE {
  $cookies = $ENV{'HTTP_COOKIE'};
  @pairs = split(/;/, $cookies);
  foreach $pair (@pairs) {
    local($name, $value) = split(/=/, $pair);
    $name =~ s/\s//g;
    $value =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C", hex($1))/eg;
    $tmp{ $name } = $value;
  }
  @pairs = split(/,/, $tmp{$Cookie_Id});
  foreach $pair (@pairs) {
    local($name, $value) = split(/:/, $pair);
    &jcode'convert(*value,'euc');
    $Cookie_Tbl{ $name } = $value;
  }
}

##################
sub SET_COOKIE {
  $cook = "index\:@_[0]";
  $cook =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
  print "Set-Cookie: $Cookie_Id=$cook\n";
}

##################
sub CLEAR_COOKIE {
  $cook = "index\:";
  print "Set-Cookie: $Cookie_Id=$cook\n";
}

##################
sub SYSIN_TIME{
  ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
  $Time_Stamp = sprintf("%02d:%02d", $hour, $min);
}