<?
// PHP掲示板
// Copyright 2000-2004 (c) motion.to Webmaster's
//
// for motion.to Server
//
// [Readme.txt]
// この掲示板は、motion.to Server内にて使用できるよう、
// ある程度のカスタマイズが入っておりますので、
// 他サイトでのご使用はご遠慮ください。
//
// データファイルは勝手に作成されますので、
// 事前の作成は必要ありません。
// 
// この掲示板は、現在、
// パソコン、NTT DoCoMo(i-mode)、J-PHONE(SkyWeb)、EZweb(au,TU-KA)に
// 対応済みです。
//
// [履歴]
// Ver 1.00  2000/ 7/20 初版
// Ver 1.05  2000/ 8/22 削除機能追加
// Ver 1.06  2000/ 9/17 設定ファイルを別ファイルへ
// Ver 1.07  2000/ 9/18 i-mode対応
// Ver 1.08  2000/ 9/19 EZweb対応
// Ver 1.09  2000/ 9/21 管理モード作成
// Ver 1.10  2000/ 9/22 デザイン変更
// Ver 1.11  2000/ 9/30 デザイン変更 & J-PHONE MML3.0対応
// Ver 1.12  2000/10/11 PalmOS対応
// Ver 1.13  2000/10/27 DreamCast表示 & Windows Me表示
// Ver 1.14  2000/11/ 7 J-PHONE全機種対応
// Ver 1.15  2000/11/22 返信機能追加
// Ver 1.16  2000/11/28 入力機能JavaScript対応
// Ver 1.17  2000/11/30 管理者メニューサブウインドウ化
// Ver 1.18  2000/12/ 3 管理者設定メニュー化
// Ver 1.18a 2000/12/ 4 管理者設定メニュー修正
// Ver 1.19  2001/ 3/ 6 新着メッセージ部分の変更
// Ver 1.30  2001/ 3/14 返信機能強化
// Ver 1.30a 2001/ 3/20 返信機能の修正
// Ver 1.31  2001/ 9/ 7 携帯の返信機能追加
// Ver 1.31a 2001/ 9/ 8 携帯の返信機能強化
// Ver 1.31b 2001/ 9/ 9 WindowsCE対応
// Ver 1.32  2001/ 9/18 time関数の繰り上がり対応
// Ver 1.33  2001/ 9/19 改行不具合の修正
// Ver 1.34  2002/ 3/24 WindowsXP対応
// Ver 1.35  2002/ 4/11 レス複数件不具合対応
// Ver 1.35a 2002/ 4/16 レス複数件不具合対応
// Ver 1.35b 2002/ 4/16 kabo's Customize
// Ver 1.36  2002/ 5/16 J-PHONE表示修正
// Ver 1.40  2002/ 6/16 表示形式変更(COC利用のため履歴表示可能な形へ)
// Ver 1.41  2002/10/15 書き込み通知メール機能追加
// Ver 1.41a 2002/10/17 書き込み通知メール機能res部分機能追加
// Ver 1.42β2002/12/15 書き込み通知メール、機能追加 (COC 2003.1 OFF Custom版)
// Ver 1.43  2003/ 3/ 5 書き込み通知メールON/OFF機能追加
// Ver 1.43a 2003/ 4/28 J-PHONE Skyweb4.0対応
// Ver 1.50  2003/ 9/ 3 PHP4 Zend Engine 対応
// Ver 1.51  2004/ 1/ 8 nl2br前バージョンとの整合性を保持するよう修正
// Ver 1.52  2004/ 1/ 8 読み込み専用用途への切り替え機能追加
// Ver 2.00  2004/ 1/14 画像Upload対応
// Ver 2.01  2004/ 1/19 メール文字コード修正

// 必須設定 ------------------------------------------------------------------
// データファイル名
$file = "phpbbs.dat";
// 管理者用パスワードファイル
$admin_file = "phpbbs.adm";  // Ver 1.09 Added

// 設定ファイル
$conf_file = "phpbbs.conf";  // Ver 1.18 Added

// ファイルUP設定
// Ver 2.00 Added Start
//アップロードされたファイルを保存するディレクトリ名
$updir = "./load";
//アップロードできるファイルの最大サイズ（byte）
$maxsize = 102400;

//アップロードできるファイルの種類を限定するか（1：する、0：しない）
$lflag = 1;
//アップロードできるファイルの種類（拡張子）
$aryext[0] = "png";
$aryext[1] = "gif";
$aryext[2] = "jpg";
// Ver 2.00 Added End

// include ('phpbbs.conf');

// 設定ファイル読み込み
if (file_exists ($conf_file)) {
  $conf_data = file($conf_file);

  while ( list( $num, $conf_line ) = each( $conf_data ) ) {
    $confdata = explode(" | ", $conf_line);

    $title = $confdata[0];
    $disp_max = $confdata[1];
    $top_url = $confdata[2];
    $bgcolor = $confdata[3];
    $subject_color = $confdata[4];
    $txtcolor = $confdata[5];
    $lnkcolor = $confdata[6];
    $mail_address = $confdata[7];  //Ver 1.41 Added
    $from_address = $confdata[8];  //Ver 1.41 Added
    $mail_tenso = $confdata[9];    //Ver 1.43 Added
    $mail_body = $confdata[10];    //Ver 1.43 Added
    $read_only = $confdata[11];    //Ver 1.52 Added
    $pic_upload = $confdata[12];   //Ver 2.00 Added
    
  }
// 設定ファイルがない場合
} else {
  $title = "PHP BBS";
  $disp_max = 100;
  $top_url = "http://www.motion.to/";
  $bgcolor = "#FFFFFF";
  $subject_color = "#AAAAAA";
  $txtcolor = "#000000";
  $lnkcolor = "#0000FF";
  $mail_address = "";  //Ver 1.41 Added
  $from_address = "";  //Ver 1.41 Added
}

// Ver 1.42 Added
// Ver 1.43 Changed
// 転送メールON/OFF設定 (0:OFF 1:ON)
if ($mail_tenso == "") {
  $mail_tenso= 1;
}
// 転送内容 (0:件名 & 投稿者, 1:件名 & 投稿者 & 内容)
if ($mail_body == "") {
  $mail_body = 1;
}

// Ver 1.52 Added
// 読み込み専用 (0:通常掲示板使用, 1:読み込み専用)
if ($read_only == "") {
  $read_only = 0;
}

// Ver 2.00 Added
// Upload OK? (0:Upload不可, 1:Upload可能)
if ($pic_upload == "") {
  $pic_upload = 0;
}

// 転送フッタ
$mail_footer = "このアドレスには返信できません。\n";
$mail_footer = $mail_footer . "下のURLより掲示板の方へ書き込みください\n";

// 管理者パスワード読み込み
if (file_exists ($admin_file)) {
  $admin_data = file($admin_file);

  while ( list( $num, $admin_line ) = each( $admin_data ) ) {
    $admdata = explode(" | ", $admin_line);

    $admin_passwd = $admdata[0];
  }
} else {
  $admin_passwd = crypt("","pb");
}

// 管理者モードパスワード設定
if ($admin_mode == 3) {
  if ($admin_passwd <> crypt($olpass,"pb")) {
    $admin_mode = 2;
  } else {
    $admin_mode = 3;
    if (($n1pass <> "" && $n2pass <> "") && ($n1pass == $n2pass)) {
      if (file_exists ($admin_file)) {
        $admin_data = file($admin_file);
      }

      $write_adm = crypt($n1pass,"pb") . " | \n";
    
      unset($admin_data[0]);
      $admin_data[0] = $write_adm;

      $adm_file_data = join($admin_data,"");
      $fp = fopen($admin_file ,"w");
      fwrite($fp,$adm_file_data);
      fclose($fp);

      $admin_mode = 9;
    } else if ($n1pass <> $n2pass) {
      $admin_mode = 4;
    }
  }
}

// 書き込み削除部分
if ($pwd <> "") {
  $crypt_pwd = crypt($pwd,"pb");
  if (file_exists ($file)) {
    $data = file($file);
  }

  while ( list( $num, $line ) = each( $data ) ) {
    $bbsdata = explode(" | ", $line);
    if (($bbsdata[0] == $target) && (($bbsdata[9] == $crypt_pwd) || ($admin_passwd <> crypt($olpass,"pb")))){
      unset($data[$num]);
      $file_data = join($data,"");
      $fp = fopen($file ,"w");
      fwrite($fp,$file_data);
      fclose($fp);
    }
  }
}

// レス対応        Added Ver1.30
if ($name <> "" && $subject <> "" && $passwd <> "" && $res <> "") {
  if (file_exists ($file)) {
    $data = file($file);
  }

  // ファイルUP処理
  // Ver 2.00 Added Start
  if ($pic_upload == 1) {
    if ($upfile != "") {
      if ($REQUEST_METHOD == "POST") {
        if (strstr($HTTP_REFERER,$PHP_SELF) == false) {
          echo "不正なアップロードです!!";
          $write_false = 1;
          exit;
        }
      } else {
        echo "不正なアップロードです!!";
        $write_false = 1;
        exit;
      }
      $errormsg = "";
      $img1file    = "";                             //サーバファイル名
      $img1        = $_FILES['upfile'];              //アップロードファイルオブジェクト 
      $img1tmp     = $_FILES['upfile']['tmp_name'];  //tmpファイル名 
      $img1name    = $_FILES['upfile']['name'];      //ローカルファイル名 
      $img1size    = $_FILES['upfile']['size'];      //サイズ 
      $img1type    = $_FILES['upfile']['type'];      //タイプ 
      if ($img1size > $maxsize) {
        $errormsg = "ファイルサイズは".ceil($maxsize/1024)."KB以下にしてください!!";
        $write_false = 1;
      } else {
        if ($lflag == 1) {
          //------------------------------------------------------ 
          // ■　アップロード画像チェック 
          //------------------------------------------------------ 
          $kaku = ""; 
          if (is_uploaded_file($img1tmp)) { 
            if ($img1type == "image/gif") {
              $eflag = 1;
              $kaku = ".gif";
            } 
            if ($img1type == "image_png" || $img1type == "image/x-png") {
              $eflag = 1;
              $kaku = ".png";
            } 
            if ($img1type == "image/jpeg" || $img1type == "image/pjpeg") { 
              $kaku = ".jpg";
              $eflag = 1;
            } else {
              $eflag = 0;
            }
          }
        } else {
          $eflag = 1;
        }
        if ($eflag != 1) {
          $errormsg = "この拡張子のファイルはアップロードできません!!";
          $write_false = 1;
        } else {
          $img1file = $updir . "/" . time() . $kaku;
          move_uploaded_file($img1tmp, $img1file);
          //アップロード完了を示すフラグ
          $flag = 1;
        }
      }
    } else {
      $flag = 1;
    }
  } else {
    $flag = 1;
  }
  // Ver 2.00 Added End

  if ($flag == 1) {
  // レス連番処理
    $repl_cnt = 0;
    $res_search = 0;
    while ( list( $num, $line ) = each( $data ) ) {
      $bbsdata = explode(" | ", $line);
      if ($bbsdata[0] == $res) {
        $repl = $num;
      }
      if ($bbsdata[0] == $res - $res_search) {
        $res_search = $res_search + 1;
        $repl_cnt = $repl_cnt + 1;
      }
    }

    $value2 = ereg_replace( "\r|\n", "", nl2br(htmlspecialchars($value)));
    $value3 = ereg_replace( "<br />", "<br>", $value2);    // Ver 1.51 Added

    if ($pic_upload == 1 && $upfile !="") {
      $write_bbs = $res - $repl_cnt. " | " . $name . " | " . $subject . " | " . $value3 . " | " . $url . " | " . date("Y年n月j日 G時i分") . " | " . $email . " | " . $REMOTE_HOST . " | " . $HTTP_USER_AGENT . " | " . crypt($passwd,"pb") . " | " . time() . " | " . $img1file . " | \n";
    } else {
      $write_bbs = $res - $repl_cnt. " | " . $name . " | " . $subject . " | " . $value3 . " | " . $url . " | " . date("Y年n月j日 G時i分") . " | " . $email . " | " . $REMOTE_HOST . " | " . $HTTP_USER_AGENT . " | " . crypt($passwd,"pb") . " | " . time() . " |  | \n";
    }

    $data[] = $write_bbs;

    $file_data = join($data,"");
    $fp = fopen($file ,"w");
    fwrite($fp,$file_data);
    fclose($fp);

    // Ver 1.41 Added
    // mail送付ルーチン
    if ($from_address <> "" && $mail_address <> "") {
      $to = ereg_replace("\n", ",", $mail_address);

//      $mail_subject = $title . "に書き込まれました";
  
      $mail_subject = $subject;

//      $from = $from_address;
      if ($email <> "") {
		$from = $name . "<" . $email . ">";
	  } else {
        $from = $name . "<" . $from_address . ">";
      }
      
      $mes = $mes . "$name さんより";
      $mes = $mes . "\n";
      $mes = $mes . "$subject について、書き込みされました。";
      $mes = $mes . "\n";
      // Ver 1.42 Added
      if ($mail_body == 1) {
        $mes = $mes . "-------------------------------------------------------\n";
        $mes = $mes . "$value";
      }

      $mes = $mes . "\n-------------------------------------------------------\n";
      // Ver 2.00 Added
      if ($pic_upload == 1 && $upfile !="") {
        $mes = $mes . "この書き込みには画像が添付されています。";
      }
      $mes = $mes . "\n";
      $mes = $mes . "$mail_footer";
      $mes = $mes . "$top_url";

      // Ver 1.43 Added
      if ($mail_tenso == 1) {
        // Ver 2.01 Added
        $mail_subject = "=?iso-2022-jp?B?".base64_encode(mb_convert_encoding($mail_subject, "SJIS","EUC-JP"))."?=";
        $mes_sjis = mb_convert_encoding($mes, "SJIS", "EUC-JP");
        mb_send_mail($to,$mail_subject,ereg_replace("\r", "", $mes),"From: $from\nX-Mailer: PHP/" .phpversion());
      }
    }
  }
}

// 入力書き込み部分
if ($name <> "" && $subject <> "" && $passwd <> "" && $res == "") {
  if (file_exists ($file)) {
    $data = file($file);
  }

  // ファイルUP処理
  // Ver 2.00 Added Start
  if ($pic_upload == 1) {
    if ($upfile != "") {
      if ($REQUEST_METHOD == "POST") {
        if (strstr($HTTP_REFERER,$PHP_SELF) == false) {
          echo "不正なアップロードです!!";
          $write_false = 1;
          exit;
        }
      } else {
        echo "不正なアップロードです!!";
        $write_false = 1;
        exit;
      }
      $errormsg = "";
      $img1file    = "";                             //サーバファイル名
      $img1        = $_FILES['upfile'];              //アップロードファイルオブジェクト 
      $img1tmp     = $_FILES['upfile']['tmp_name'];  //tmpファイル名 
      $img1name    = $_FILES['upfile']['name'];      //ローカルファイル名 
      $img1size    = $_FILES['upfile']['size'];      //サイズ 
      $img1type    = $_FILES['upfile']['type'];      //タイプ 
      if ($img1size > $maxsize) {
        $errormsg = "ファイルサイズは".ceil($maxsize/1024)."KB以下にしてください!!";
        $write_false = 1;
      } else {
        if ($lflag == 1) {
          //------------------------------------------------------ 
          // ■　アップロード画像チェック 
          //------------------------------------------------------ 
          $kaku = ""; 
          if (is_uploaded_file($img1tmp)) { 
            if ($img1type == "image/gif") {
              $eflag = 1;
              $kaku = ".gif";
            } 
            if ($img1type == "image_png" || $img1type == "image/x-png") {
              $eflag = 1;
              $kaku = ".png";
            } 
            if ($img1type == "image/jpeg" || $img1type == "image/pjpeg") { 
              $kaku = ".jpg";
              $eflag = 1;
            } else {
              $eflag = 0;
            }
          }
        } else {
          $eflag = 1;
        }
        if ($eflag != 1) {
          $errormsg = "この拡張子のファイルはアップロードできません!!";
          $write_false = 1;
        } else {
          $img1file = $updir . "/" . time() . $kaku;
          move_uploaded_file($img1tmp, $img1file);
          //アップロード完了を示すフラグ
          $flag = 1;
        }
      }
    } else {
      $flag = 1;
    }
  } else {
    $flag = 1;
  }
  // Ver 2.00 Added End

  if ($flag == 1) {
    $value2 = ereg_replace( "\r|\n", "", nl2br(htmlspecialchars($value)));
    $value3 = ereg_replace( "<br />", "<br>", $value2);    // Ver.1.51 Added
    if ($pic_upload == 1 && $upfile !="") {
      $write_bbs = time() . " | " . $name . " | " . $subject . " | " . $value3 . " | " . $url . " | " . date("Y年n月j日 G時i分") . " | " . $email . " | " . $REMOTE_HOST . " | " . $HTTP_USER_AGENT . " | " . crypt($passwd,"pb") . " |  | " . $img1file . " | \n";
    } else {
      $write_bbs = time() . " | " . $name . " | " . $subject . " | " . $value3 . " | " . $url . " | " . date("Y年n月j日 G時i分") . " | " . $email . " | " . $REMOTE_HOST . " | " . $HTTP_USER_AGENT . " | " . crypt($passwd,"pb") . " |  |  | \n";
    }
    $data[] = $write_bbs;

    $file_data = join($data,"");
    $fp = fopen($file ,"w");
    fwrite($fp,$file_data);
    fclose($fp);

    // Ver 1.41 Added
    // mail送付ルーチン
    if ($from_address <> "" && $mail_address <> "") {
      $to = ereg_replace("\n", ",", $mail_address);

//      $mail_subject = $title . "に書き込まれました";
  
      $mail_subject = $subject;

//      $from = $from_address;
      if ($email <> "") {
		$from = $name . "<" . $email . ">";
	  } else {
        $from = $name . "<" . $from_address . ">";
      }
      
      $mes = $mes . "$name さんより";
      $mes = $mes . "\n";
      $mes = $mes . "$subject について、書き込みされました。";
      $mes = $mes . "\n";
      // Ver 1.42 Added
      if ($mail_body == 1) {
        $mes = $mes . "-------------------------------------------------------\n";
        $mes = $mes . "$value";
      }

      $mes = $mes . "\n-------------------------------------------------------\n";
      // Ver 2.00 Added
      if ($pic_upload == 1 && $upfile !="") {
        $mes = $mes . "この書き込みには画像が添付されています。";
      }
      $mes = $mes . "\n";
      $mes = $mes . "$mail_footer";
      $mes = $mes . "$top_url";

       // Ver 1.43 Added
      if ($mail_tenso == 1) {
        // Ver 2.01 Added
        $mail_subject = "=?iso-2022-jp?B?".base64_encode(mb_convert_encoding($mail_subject, "SJIS","EUC-JP"))."?=";
        $mes_sjis = mb_convert_encoding($mes, "SJIS", "EUC-JP");
        mb_send_mail($to,$mail_subject,ereg_replace("\r", "", $mes),"From: $from\nX-Mailer: PHP/" .phpversion());
      }
    }
  } else {
    $write_false = 1;
  }
}

// 設定内容書き込み部分
if ($conf_title <> "") {
  if (file_exists ($conf_file)) {
    $data = file($conf_file);
  }

  $rep_mail_address = ereg_replace("\n", "," , $conf_mail_address);

  $write_conf = $conf_title . " | " . $conf_disp_max . " | " . $conf_top_url . " | " . $conf_bgcolor . " | " . $conf_subject_color . " | " . $conf_txtcolor . " | " . $conf_lnkcolor . " | " . $rep_mail_address . " | " . $conf_from_address . " | " . $conf_mail_tenso  . " | " . $conf_mail_body  . " | " . $conf_read_only  . " | " . $conf_pic_upload . " | \n";
  
  unset($conf_data[0]);
  $conf_data[0] = $write_conf;

  $conf_file_data = join($conf_data,"");
  $fp = fopen($conf_file ,"w");
  fwrite($fp,$conf_file_data);
  fclose($fp);

  $admin_mode = 9;
}

// BROWSERの判別
if (ereg("Palmscape",$HTTP_USER_AGENT)) {
  print ("<body bgcolor=\"$bgcolor\" text=\"$txtcolor\" link=\"$lnkcolor\"><font size=3>\n");
  // 書き込み表示部分
  if (file_exists ($file)) {
    $data = file($file);
    rsort($data);
    $bbs_cnt = count($data) + 1;

    while ( list( $num, $line ) = each( $data ) ) {
      $bbsdata = explode(" | ", $line);
      $bbs_cnt = $bbs_cnt - 1;
      //表示部分Main
      if ($log_cnt < $disp_max) {
        print ("<hr><p>\n");
        //題名
        print ("<table width=100% border=0><tr><td bgcolor=$subject_color><font size=+2><b>[$bbs_cnt]$bbsdata[2]</b></font></td></tr></table>\n");
        //投稿日
        print("<font size=-1><b>投稿日</b>\n");
        print ("$bbsdata[5]<br>\n");
        //投稿者
        print ("<b>投稿者</b>\n");
        print ("$bbsdata[1]</a>\n");
        //Remote Host
//            print ("[$bbsdata[7]]\n");
        if (ereg("DoCoMo",$bbsdata[8])) {
          print ("(i-mode)\n");
        } elseif (ereg("J-PHONE",$bbsdata[8])) {
          print ("(J-PHONE)\n");
        } elseif (ereg("UP\.Browser",$bbsdata[8])) {
          print ("(EZweb)\n");
        } elseif (ereg("Windows NT 5\.0",$bbsdata[8])) {
          print ("(Windows2000)\n");
        } elseif (ereg("Windows NT 5\.1",$bbsdata[8])) {  // Ver1.34 added
          print ("(WindowsXP)\n");
        } elseif (ereg("Windows NT",$bbsdata[8])) {
          print ("(WindowsNT)\n");
        } elseif ((ereg("Windows Me",$bbsdata[8])) || (ereg("Win 9x 4.90",$bbsdata[8]))) {
          print ("(WindowsMe)\n");
        } elseif (ereg("Windows 95",$bbsdata[8])) {
          print ("(Windows95)\n");
        } elseif (ereg("Windows 98",$bbsdata[8])) {
          print ("(Windows98)\n");
        } elseif ((ereg("Macintosh\; I\; PPC",$bbsdata[8])) || (ereg("Mac_PowerPC",$bbsdata[8]))) {
          print ("(Power Macintosh)\n");
        } elseif (ereg("Macintosh",$bbsdata[8])) {
          print ("(Macintosh)\n");
        } elseif (ereg("SunOS",$bbsdata[8])) {
          print ("(Solaris)\n");
        } elseif (ereg("DreamPassport",$bbsdata[8])) {
          print ("(DreamCast)\n");
        } else {
          print ("(etc.)\n");
        }
        print ("</font><blockquote>\n");
        //内容
        print ("$bbsdata[3]<br>\n");
        print ("</blockquote>\n");
        $log_cnt = $log_cnt + 1;
      }
    }
  }
  print ("<hr><p>\n");

} else if (ereg("UP\.Browser",$HTTP_USER_AGENT)) {
  header ("Content-type: text/x-hdml;charset=Shift_JIS");
  print ("<hdml version=3.0 markable=true>\n");
  if ($write_mode == "") {
    if (file_exists ($file)) {
      $data = file($file);
      rsort($data);

      if ($bno == "") {
        print ("<choice name=\"BBS\">\n");
        print ("<center>");
        print ("$title EZ<br>\n");

        while ( list( $num, $line ) = each( $data ) ) {
          $bbsdata = explode(" | ", $line);

          //表示部分Main
          if ($bno == "") {
            //題名
            if ($page == "") $page = 0;
            if ($num >= $page && $num <= $page + 7){
              print ("<ce type=\"accept\" task=\"go\" dest=\"phpbbs.php?bno=$num\" label=\"選択\">$bbsdata[2]\n");
            }
            if ($num == $page + 7) {
              $next_page = $page + 8;
              print ("<ce type=\"accept\" task=\"go\" dest=\"phpbbs.php?page=$next_page\" label=\"選択\">次のﾍﾟｰｼﾞへ\n");
            }
          }
        }
        if ($bno == "") {
          print ("<ce type=\"accept\" task=\"go\" dest=\"phpbbs.php?write_mode=1\" label=\"選択\">新規書き込み\n");
        }
        print("</choice>\n");
      } else {
        print ("<display name=\"BBS\">\n");
        while ( list( $num, $line ) = each( $data ) ) {
          $bbsdata = explode(" | ", $line);

          if ($bno == $num) {
            //題名
            print ("<center>$bbsdata[2]<br><br>\n");
            //内容
            print ("$bbsdata[3]<br><br>\n");
            //投稿日
            print ("$bbsdata[5]<br><br>\n");
            //投稿者
            print ("投稿者:\n");
            print ("$bbsdata[1]\n");
          }
        }
        print("</display>\n");
      }
    }
  } else {
    print ("<choice name=\"BBS_Write\">\n");
    print ("<ce type=\"accept\" task=\"gosub\" dest=\"#name\" label=\"入力\" receive=\"name\">投稿者： \$name");
    print ("<ce type=\"accept\" task=\"gosub\" dest=\"#subject\" label=\"入力\" receive=\"subject\">題名： \$subject");
    print ("<ce type=\"accept\" task=\"gosub\" dest=\"#value\" label=\"入力\" receive=\"value\">内容： \$value");
    print ("<ce type=\"accept\" task=\"gosub\" dest=\"#passwd\" label=\"入力\" receive=\"passwd\">削除ｷｰ： \$passwd");
    print ("<ce task=\"go\" METHOD=\"POST\" dest=\"phpbbs.php\" POSTDATA=\"name=\$name&subject=\$subject&value=\$value&passwd=\$passwd\" label=\"送信\">書き込み\n");
    print ("</choice>\n");

    print("<entry name=\"name\" key=\"name\" default=\"\">\n");
    print("<action type=\"accept\" task=\"return\" retvals=\"\$name\" label=\"入力\">\n");
    print("投稿者名を入力してください\n");
    print("</entry>\n");
    print("<entry name=\"subject\" key=\"subject\" default=\"\">\n");
    print("<action type=\"accept\" task=\"return\" retvals=\"\$subject\" label=\"入力\">\n");
    print("題名を入力してください\n");
    print("</entry>\n");
    print("<entry name=\"value\" key=\"value\" default=\"\">\n");
    print("<action type=\"accept\" task=\"return\" retvals=\"\$value\" label=\"入力\">\n");
    print("内容を入力してください\n");
    print("</entry>\n");
    print("<entry name=\"passwd\" key=\"passwd\" format=\"10m\" default=\"\">\n");
    print("<action type=\"accept\" task=\"return\" retvals=\"\$passwd\" label=\"入力\">\n");
    print("削除ｷｰを入力してください\n");
    print("</entry>\n");
  }
  print("</hdml>");
} else {
  // 入力フォーム表示部分
  print("<html>\n");
  print("<head>\n");
  print("<title>$title</title>\n");

  print ("<meta http-equiv=\"Content-Type\" content=\"text/html; charset=Shift_JIS\">\n");
  print ("</head>\n");

  if (ereg("DoCoMo",$HTTP_USER_AGENT)) {
    // i-mode用HTML
    if ($write_mode == "") {
      // 書き込み表示用
      if (file_exists ($file)) {
        $data = file($file);
        rsort($data);
    
        if ($bno == "") {
          print ("<center>$title &#63861;</center><p>\n");
        }

        while ( list( $num, $line ) = each( $data ) ) {
          $bbsdata = explode(" | ", $line);

          //表示部分Main
          if ($bno == "") {
            //題名
            if ($page == "") $page = 0;
            if ($num >= $page && $num <= $page + 7){
              $key = $num - $page + 1;
              $chr_key = $num - $page + 63879;
              if ($bbsdata[10] == "") {
                print ("<A HREF=\"phpbbs.php?bno=$num\" ACCESSKEY=$key>&#$chr_key;</A>$bbsdata[2]<br>\n");
              } else {
                print ("&nbsp;<A HREF=\"phpbbs.php?bno=$num\" ACCESSKEY=$key>&#$chr_key;</A>$bbsdata[2]<br>\n");
              }
            }
            if ($num == $page + 7) {
              $next_page = $page + 8;
              print ("<A HREF=\"phpbbs.php?page=$next_page\" ACCESSKEY=\"9\">&#63887;</A>次のﾍﾟｰｼﾞへ<br>\n");
            }
          } else {
            if ($bno == $num) {
              //題名
              print ("<center>$bbsdata[2]</center><p>\n");
              //内容
              print ("$bbsdata[3]<p>\n");
              //投稿日
              print ("$bbsdata[5]<p>\n");
              //投稿者
              print ("投稿者:\n");
              if ($bbsdata[6] <> "" && ereg("@",$bbsdata[6])) {
                print ("<a href=\"mailto:$bbsdata[6]\">\n");
              }
              print ("$bbsdata[1]</a>\n");
              print ("<form method=post action=\"phpbbs.php?write_mode=1\">\n");
              print ("<input type=hidden name=rno value=\"$bbs_cnt\">\n");
              print ("<input type=hidden name=rtime value=\"$bbsdata[0]\">\n");
              print ("<input type=submit value=\"返信\">\n");
              print ("</form>\n");
            }
          }
        }
        if ($bno == "") {
          print ("<A HREF=\"phpbbs.php?write_mode=1\" ACCESSKEY=\"0\">&#63888;</A>新規書き込み<br>\n");
        }
      }
    } else {
      print ("<form method=post action=\"phpbbs.php\">\n");
      print ("投稿者 <input type=text name=\"name\" size=20 value=\"$sender\" maxlength=19><br>\n");      print ("<input type=hidden name=res value=\"$rtime\">\n");
      print ("題　名 <input type=text name=\"subject\" size=20 maxlength=69><br>\n");
      print ("内　容\n");
      print ("<textarea name=\"value\" rows=10 cols=20></textarea><br>\n");
      print ("削除キー <input type=text name=\"passwd\" size=10 maxlength=10 istyle=3><br>\n");
      print ("<input type=submit value=\"書き込む\">\n");
      print ("<input type=reset value=\"書き直し\">\n");
      print ("</form>");
      }
    } else if (ereg("J-PHONE",$HTTP_USER_AGENT) || ereg("skyweb.jp",$REMOTE_HOST)) {
    // Skyweb用HTML
    if ($write_mode == "") {
      // 書き込み表示用
      if (file_exists ($file)) {
        $data = file($file);
        rsort($data);
    
        if ($bno == "") {
          print ("<center>$title Sky</center><p>\n");
        }

        while ( list( $num, $line ) = each( $data ) ) {
          $bbsdata = explode(" | ", $line);

          //表示部分Main
          if ($bno == "") {
            //題名
            if ($page == "") $page = 0;
            if ($num >= $page && $num <= $page + 7){
              $key = $num - $page + 1;
              if ($bbsdata[10] == "") {
                print ("<A HREF=\"phpbbs.php?bno=$num\" DIRECTKEY=$key></A>$bbsdata[2]<br>\n");
              } else {
                print ("&nbsp;<A HREF=\"phpbbs.php?bno=$num\" DIRECTKEY=$key></A>$bbsdata[2]<br>\n");
              }
            }
            if ($num == $page + 7) {
              $next_page = $page + 8;
              print ("<A HREF=\"phpbbs.php?page=$next_page\" DIRECTKEY=\"9\"></A>次のﾍﾟｰｼﾞへ<br>\n");
            }
          } else {
            if ($bno == $num) {
              //題名
              print ("<center>$bbsdata[2]</center><p>\n");
              //内容
              print ("$bbsdata[3]<p>\n");
              //投稿日
              print ("$bbsdata[5]<p>\n");
              //投稿者
              print ("投稿者:\n");
              if ($bbsdata[6] <> "" && ereg("@",$bbsdata[6])) {
                print ("<a href=\"mailto:$bbsdata[6]\">\n");
              }
              print ("$bbsdata[1]</a>\n");
        print ("<form method=post action=\"phpbbs.php?write_mode=1\">\n");
              print ("<input type=hidden name=rno value=\"$bbs_cnt\">\n");
              print ("<input type=hidden name=rtime value=\"$bbsdata[0]\">\n");
              print ("<input type=submit value=\"返信\">\n");
              print ("</form>\n");
            }
          }
        }
        if ($bno == "" && (ereg("J-PHONE/3\.0",$HTTP_USER_AGENT) || ereg("J-PHONE/4\.0",$HTTP_USER_AGENT))) {
          print ("<A HREF=\"phpbbs.php?write_mode=1\" DIRECTKEY=\"0\"></A>新規書き込み<br>\n");
        }
      }
    } else {
      print ("<form method=post action=\"phpbbs.php\">\n");
      print ("投稿者 <input type=text name=\"name\" size=20 value=\"$sender\" maxlength=19><br>\n");      print ("<input type=hidden name=res value=\"$rtime\">\n");
      print ("題　名 <input type=text name=\"subject\" size=20 maxlength=69><br>\n");
      print ("内　容\n");
      print ("<textarea name=\"value\" rows=10 cols=20></textarea><br>\n");
      print ("削除キー <input type=text name=\"passwd\" size=10 maxlength=10 istyle=3><br>\n");
      print ("<input type=submit value=\"書き込む\">\n");
      print ("<input type=reset value=\"書き直し\">\n");
      print ("</form>");
    }
  } else {
    // PC用HTML
    if ($admin_mode == "") {
      print ("<script language=\"JavaScript\" src=\"phpbbs.js\"></script>\n");

      //Ver 2.00 Changed
      if ($write_false == 1) {
        print ("<body bgcolor=\"$bgcolor\" text=\"$txtcolor\" link=\"$lnkcolor\" onLoad='alert(\"$errormsg\");'><font size=3>\n");
      } else {
        print ("<body bgcolor=\"$bgcolor\" text=\"$txtcolor\" link=\"$lnkcolor\"><font size=3>\n");
      }
      
      print ("<H1>$title</H1>");
      print ("<form method=post name=\"form\" action=\"phpbbs.php\" onSubmit=\"return CheckFields()\" enctype=\"multipart/form-data\">\n");

      if ($read_only == 0) {
        print ("投稿者 <input type=text name=\"name\" size=20 value=\"$sender\" maxlength=19>\n");
        print ("<br>\n");
        print ("メール <input type=text name=\"email\" size=40 value=\"$mail\"><br>\n");
        print ("題　名 <input type=text name=\"subject\" size=70 maxlength=69><br>\n");
        print ("内　容\n");
        if ($rno == "") {
          print ("<textarea name=\"value\" rows=5 cols=70></textarea><br>\n");
        } else {
          $rebody = $rname . "> ";
          $temp = "\n" . $rname . "> ";
          $rebody = $rebody . ereg_replace("<br>|<br />", $temp ,$rbody);
          print ("<textarea name=\"value\" rows=5 cols=70>$rebody</textarea><br>\n");
          print ("<input type=hidden name=res value=\"$rtime\">\n");
        }
        print ("リンク <input type=text name=\"url\" size=70 value=\"http://$hp\"><p>\n");

        // Ver 2.00 Added Start
        if ($pic_upload == 1) {
          print ("<INPUT TYPE=\"hidden\" NAME=\"MAX_FILE_SIZE\" VALUE=\"$maxsize\">\n"); 
          print ("画像 <input type=file name=\"upfile\" size=70><br>\n");
          print ("JPG,PNG,GIFファイルのみ、ファイルサイズは100kまでOK。<p>\n");
        }
        // Ver 2.00 Added End
        
        print ("削除キー <input type=password name=\"passwd\" size=10 maxlength=10><br>\n");
        print ("<input type=submit value=\"     書き込む     \">\n");
        print ("<input type=reset value=\"書き直し\">\n");
      }
      print ("<A HREF=\"$top_url\">Top Pageへ戻る</A>\n");
      print ("<DIV ALIGN=\"RIGHT\">");
      print ("<INPUT TYPE=\"button\" NAME=\"main\" VALUE=\"管理者メニュー\" onClick=\"AdminWindow_Open()\"></div>\n");
      print ("</form>");
      if ($read_only == 0) {
        print ("<p>■投稿時には、この記事を削除する時に利用する削除キーを設定してください.<br>");
        // 2004.6.22 COC Original
        //print ("<font size='+1' color='#FF0000'><B>■質問は、メンバー専用ページ内Q&Aにてお願い致します！</font><br>");
      }
      
      // 書き込み表示部分
      // Ver 2.00 Display Changed
      if (file_exists ($file)) {
        $data = file($file);
        rsort($data);
        $bbs_cnt = count($data) + 1;

        while ( list( $num, $line ) = each( $data ) ) {
          $bbsdata = explode(" | ", $line);
          $bbs_cnt = $bbs_cnt - 1;
          //表示部分Main
          if ($page == "") $page = 0;
          if ($num >= $page && $num < $page + $disp_max) {
//            if ($page < $disp_max) {
            if ($bbsdata[10] == "") {
              print ("<hr><p>\n");
            } else {
              print ("<p><p>\n");
            }
            //題名
            print ("<table width=\"100%\" border=\"0\">\n");
            print ("<td>\n");
            print ("<form method=post action=\"phpbbs.php\">\n");
            if ($bbsdata[10] == "") {
              print ("<table width=100% border=0 bgcolor=$subject_color><tr><td width=90%><font size=+2><b>$bbsdata[2]</b></font>");
              if (time() <= $bbsdata[0] + 86400) {
                print ("<img src=new.gif>");
              }
            } else {
              print ("<table width=\"90%\" border=\"0\" bgcolor=\"$subject_color\"><tr><td bgcolor=\"$bgcolor\"></td><td width=\"90%\"><b>$bbsdata[2]</b>");
              if (time() <= $bbsdata[10] + 86400) {
                print ("<img src=new.gif>");
              }
            }
            print ("</td>\n");
            if ($bbsdata[10] == "") {
              print ("<td>\n");
              print ("<input type=hidden name=rno value=\"$bbs_cnt\">\n");
              print ("<input type=hidden name=rtime value=\"$bbsdata[0]\">\n");
              print ("<input type=hidden name=rname value=\"$bbsdata[1]\">\n");
              print ("<input type=hidden name=rbody value=\"$bbsdata[3]\">\n");
              if ($read_only == 0) {
                print ("<input type=submit value=\"返信\">\n");
              }
              print ("</td>");
            }
            print ("</tr></table></form>\n");
            
            print ("<table width=\"100%\" border=\"0\">\n");
            print ("<tr>\n");
            print ("<td valign=\"top\">\n"); 
            //投稿日
            if ($bbsdata[10] == "") {
              print("<font size=-1><b>投稿日</b>\n");
              if (time() <= $bbsdata[0] + 86400) {
                print ("<font color=#FF0000>");
                print ("$bbsdata[5]\n");
                print ("</font>");
              } else {
                print ("$bbsdata[5]\n");
              }
            } else {
              print("<font size=-1><b>投稿日</b>\n");
              if (time() <= $bbsdata[10] + 86400) {
                print ("<font color=#FF0000>");
                print ("$bbsdata[5]\n");
                print ("</font>");
              } else {
                print ("$bbsdata[5]\n");
              }
            }
            //投稿者
            print ("<b>投稿者</b>\n");
            if ($bbsdata[6] <> "" && ereg("@",$bbsdata[6])) {
              print ("<a href=\"mailto:$bbsdata[6]\">\n");
            }
            print ("$bbsdata[1]</a>\n");
            //Remote Host
//            print ("[$bbsdata[7]]\n");
//              if (ereg("DoCoMo",$bbsdata[8])) {
//                print ("(i-mode)\n");
//              } elseif (ereg("J-PHONE",$bbsdata[8])) {
//                print ("(J-PHONE)\n");
//              } elseif (ereg("UP\.Browser",$bbsdata[8])) {
//                print ("(EZweb)\n");
//              } elseif (ereg("Windows NT 5\.0",$bbsdata[8])) {
//                print ("(Windows2000)\n");
//              } elseif (ereg("Windows NT 5\.1",$bbsdata[8])) {  // Ver1.34 added
//                print ("(WindowsXP)\n");
//              } elseif (ereg("Windows NT",$bbsdata[8])) {
//                print ("(WindowsNT)\n");
//              } elseif ((ereg("Windows Me",$bbsdata[8])) || (ereg("Win 9x 4.90",$bbsdata[8]))) {
//                print ("(WindowsMe)\n");
//              } elseif (ereg("Windows 95",$bbsdata[8])) {
//                print ("(Windows95)\n");
//              } elseif (ereg("Windows 98",$bbsdata[8])) {
//                print ("(Windows98)\n");
//              } elseif ((ereg("Macintosh\; I\; PPC",$bbsdata[8])) || (ereg("Mac_PowerPC",$bbsdata[8]))) {
//                print ("(Power Macintosh)\n");
//              } elseif (ereg("Macintosh",$bbsdata[8])) {
//                print ("(Macintosh)\n");
//              } elseif (ereg("SunOS",$bbsdata[8])) {
//                print ("(Solaris)\n");
//              } elseif (ereg("DreamPassport",$bbsdata[8])) {
//                print ("(DreamCast)\n");
//              } elseif (ereg("Windows CE",$bbsdata[8])) {
//                print ("(WindowsCE)\n");
//              } else {
//                print ("($bbsdata[8])\n");
//              }
            print ("</font><blockquote><font face=\"HG丸ｺﾞｼｯｸM-PRO, MS UI Gothic, ＭＳ Ｐゴシック, Osaka\">\n");
            //内容
            print ("$bbsdata[3]</font><br>\n");

            //リンク
            if ($bbsdata[4] <> "http://") {
              print ("<p><a href=\"$bbsdata[4]\" target=\"_top\">$bbsdata[4]</a>\n");
            }
            print ("</blockquote></td>\n");
            print ("<td width=\"160\">\n"); 
            print ("<div align=\"right\">\n");
            // Ver 2.00 Added
            if ($bbsdata[11] != "" && $bbsdata[11] != "\n" && $pic_upload == 1) {
              print ("<a href=\"$bbsdata[11]\" border=\"0\" target=\"_brank\">\n");
              print ("<img src=\"$bbsdata[11]\" width=\"160\" height=\"120\">\n");
              print ("</a>\n");
            }
            print ("</div></td></tr>\n");
            print ("</table>\n");
            
//              $page = $page + 1;
            print ("<table width=\"30%\" border=\"0\" align=\"right\">\n");
            print ("<div align=right><form method=post action=\"phpbbs.php\">\n");
            print ("<input type=hidden name=\"target\" value=$bbsdata[0]>\n");

            if ($read_only == 0) {
              print ("削除キー <input type=password name=\"pwd\" size=10 value=\"\">\n");
              print ("<input type=submit value=\"削除\"></form>\n");
            }
            print ("</div>");
            print ("</td></table>\n");
            print ("</td></table>\n");
          }
          if ($num == $page + $disp_max) {
            $next_page = $page + $disp_max;
            print ("<A HREF=\"phpbbs.php?page=$next_page\">次のページへ</A><br>\n");
          }
//          }
        }
      }

      print ("<hr><p>\n");
      print ("</font>\n");
    } else {
// 管理者モード設定
// 1 ・・・ 管理者認証画面
// 2 ・・・ Password Failed
// 3 ・・・ Password Changing or 設定変更画面への切り替え
// 4 ・・・ Password Changing Missing
// 5 ・・・ 設定変更画面
// 9 ・・・ 変更完了画面
      print ("<body bgcolor=\"$bgcolor\" text=\"$txtcolor\" link=\"$lnkcolor\">\n");
      print ("<H2>$title 管理者モード</H2>");
      if ($_GET["admin_mode"] == 1) {
        print ("<form method=post action=\"phpbbs.php?admin_mode=3\">\n");
        print ("管理者キー <input type=password name=\"olpass\" size=10 maxlength=10><br>\n");
        print ("<input type=submit value=\"確定\"></form>");
      } else if ($admin_mode == 2) {
        print ("管理者パスワードが違います。もう一度パスワードを確認してください。");
        print ("<form>");
        print ("<input type=submit value=\"OK\" onClick=\"javascript:window.close('AdminWindow')\"></form>");
      } else if ($admin_mode == 3) {
        print ("<form method=post action=\"phpbbs.php?admin_mode=3\">\n");
        print ("管理者キー <input type=password name=\"olpass\" size=10 maxlength=10 value=\"$olpass\"><br>\n");
        print ("新しい管理者キー <input type=password name=\"n1pass\" size=10 maxlength=10><br>\n");
        print ("確認のためもう一度 <input type=password name=\"n2pass\" size=10 maxlength=10><br>\n");
        print ("<input type=submit value=\"確定\"><input type=button value=\"設定変更\" onClick=\"location.href='phpbbs.php?admin_mode=5'\"></form>");

      } else if ($admin_mode == 9) {
        print ("変更が完了いたしました。");
        print ("<form>");
        print ("<input type=button value=\"OK\" onClick=\"javascript:window.close('AdminWindow')\"></form>");
      } else if ($admin_mode == 4) {
        print ("新しい管理者キーと確認キーが違っています。");
        print ("<form method=post action=\"phpbbs.php?admin_mode=3\">\n");
        print ("<input type=submit value=\"OK\"></form>");
      } else if ($admin_mode == 5) {
        print ("<form method=post action=\"phpbbs.php\">\n");
        print ("この掲示板のTitle <input type=text name=\"conf_title\" size=30 maxlength=30 value=\"$title\"><br>\n");
        print ("表示件数 <input type=text name=\"conf_disp_max\" size=4 maxlength=4 value=\"$disp_max\"><br>\n");
        print ("戻り先ページ <input type=text name=\"conf_top_url\" size=50 maxlength=50 value=\"$top_url\"><br>\n");
        print ("背景色 <input type=text name=\"conf_bgcolor\" size=9 maxlength=7 value=\"$bgcolor\"><br>\n");
        print ("タイトル部分背景色 <input type=text name=\"conf_subject_color\" size=9 maxlength=7 value=\"$subject_color\"><br>\n");
        print ("文字色 <input type=text name=\"conf_txtcolor\" size=9 maxlength=7 value=\"$txtcolor\"><br>\n");
        print ("リンク色 <input type=text name=\"conf_lnkcolor\" size=9 maxlength=7 value=\"$lnkcolor\"><br>\n");
      // Ver 1.41 Added Start
        print ("<br><b>お知らせメール機能</b><br>\n");
        // Ver 1.43 Added Start
        if ($mail_tenso == 1) {
          print ("<input type=radio name=conf_mail_tenso value=1 checked>ON　");
          print ("<input type=radio name=conf_mail_tenso value=0>OFF<br>");
        } else {
          print ("<input type=radio name=conf_mail_tenso value=1>ON　");
          print ("<input type=radio name=conf_mail_tenso value=0 checked>OFF<br>");
        }
        print ("<b>転送内容</b><br>\n");
        if ($mail_body == 1) {
          print ("<input type=radio name=conf_mail_body value=1 checked>内容つき　");
          print ("<input type=radio name=conf_mail_body value=0>内容なし<br>");
        } else {
          print ("<input type=radio name=conf_mail_body value=1>内容つき　");
          print ("<input type=radio name=conf_mail_body value=0 checked>内容なし<br>");
        }
        // Ver 1.43 Added End
        print ("送信元メールアドレス <input type=text name=\"conf_from_address\" size=50 maxlength=50 value=\"$from_address\"><br>\n");
        $mail_address = ereg_replace(",", "\n", $mail_address);
        print ("送付先 <textarea name=\"conf_mail_address\" rows=3 cols=50>$mail_address</textarea><br>\n");
        print ("※ 複数の送付先の場合、改行してください<br>\n");
      // Ver 1.41 Added End
      // Ver 1.52 Added Start
        print ("<b>書き込み禁止</b><br>\n");
        if ($read_only == 0) {
          print ("<input type=radio name=conf_read_only value=0 checked>通常使用　");
          print ("<input type=radio name=conf_read_only value=1>書き込み禁止<br>");
        } else {
          print ("<input type=radio name=conf_read_only value=0>通常使用　");
          print ("<input type=radio name=conf_read_only value=1 checked>書き込み禁止<br>");
        }
      // Ver 1.52 Added End
      // Ver 2.00 Added Start
        print ("<b>画像添付</b><br>\n");
        if ($pic_upload== 0) {
          print ("<input type=radio name=conf_pic_upload value=0 checked>OFF　");
          print ("<input type=radio name=conf_pic_upload value=1>ON<br>");
        } else {
          print ("<input type=radio name=conf_pic_upload value=0>OFF　");
          print ("<input type=radio name=conf_pic_upload value=1 checked>ON<br>");
        }
      // Ver 2.00 Added End
        print ("<input type=submit value=\"設定完了\" onClick=\"window.opener.location.href = 'phpbbs.htm'\"><input type=reset value=\"リセット\"></form>");
      }
    }
    //著作権表示（使用時は消さないこと）
    print ("<p align=right>\n");
    print ("<font face=\"Courier New, Courier, mono\">\n");
    print ("PHPBBS Ver2.02 is Freeware<br>\n");
    include "/home/htdocs/include/hooter_s.php3";
    print ("</p>\n");    
  }
    print("</body>\n");
    print("</html>");
}
?>