<?
extract($_SERVER);
extract($_COOKIE);
extract($_POST);
extract($_GET);
######################################
# 設定は共通ファイル(common.pl)です。#
######################################
include ("common.pl");
if (file_exists("jcode-LE.php")) require_once("jcode-LE.php");

@mb_language("Japanese");
@mb_internal_encoding("SJIS");
/****
  写メールBBS by ToR 2002/09/25
                     http://php.s3.to
  
  メール投稿型の掲示板です。添付画像に対応してます。
  専用のメールアドレスを用意した方がいいです。
  尚、受信したメールは削除されます。

  pop.php ------新着メールのチェック、メールがあればログに記録します。
  mailbbs.php --PC表示用
  j.php --------J-PHONE表示用
  riyou.html ---投稿方法解説ページ（各自編集してください)
*/
//10/29 v1.6 サイズオーバー時も空ログ記録してた
//12/17 v1.7 PlayOnline Mailerの添付に対応（ファイル名取得
//03/01/06 v1.8 ez.php更新。広告削除機能追加。
//03/01/14 v1.81 2件同時受信の時前のファイル名が残る為$attach = "";追加
//03/01/18 v1.9 添付メールのみ記録する設定追加
//03/01/25 v2.0 バウンダリに正規表現文字があっても化けないようにした
//03/02/05 v2.1 サーバ接続回りを変更、削除できるかな
//03/02/13 v2.2 日付を取り込み時刻では無く、ヘッダにある日付に変更
//03/02/24 v2.3 書込みをバイナリーにした。ﾊﾞｲﾅﾘ
//03/05/23 v2.5 接続処理変更、エラー表示
//03/06/04 v2.51 拒否拡張子の追加（pif,scr)
//03/07/17 v2.6 非表示に変更
//03/07/24 v2.61 更新後はheaderで飛ばす、本文文字制限
//03/09/25 v2.71 2行に渡る件名、ファイル名の取得。連続投稿禁止

/*-----------------*/

// 接続開始
$sock = fsockopen($host, 110, $err, $errno, 10) or die("ｻｰﾊﾞｰに接続できません");
$buf = fgets($sock, 512);
if(substr($buf, 0, 3) != '+OK') die($buf);
$buf = _sendcmd("USER $user");
$buf = _sendcmd("PASS $pass");
$data = _sendcmd("STAT");//STAT -件数とサイズ取得 +OK 8 1234
sscanf($data, '+OK %d %d', $num, $size);

if ($num == "0") {
  $buf = _sendcmd("QUIT"); //バイバイ
  fclose($sock);
#---------------------------------------------------------------
#  header("Location: $jump");
	if($_GET['jump']) $jump=$_GET['jump']; elseif($_POST['jump']) $jump=$_POST['jump'];
#	else (!$jump) $jump="./joyful.cgi";
	header("Location: $jump");
#---------------------------------------------------------------
  exit;
}

# ↓=================================================================↓
# 古いレスの削除

	$fd2=fopen($log,"r");
	$fd4=fopen($tmp,"w");

	while (!feof($fd2)) {
		$buffer2 = fgets($fd2, 4096);
		$data2 = explode("<>", $buffer2);
			$fd3=fopen($res,"r");
				while (!feof($fd3)) {
					$buffer3 = fgets($fd3, 4096);
					$data3 = explode("<>", $buffer3);
					if($data2[0] && $data2[0]==$data3[0]) fputs($fd4, $buffer3);
				}
			fclose($fd3);
	}
	fclose($fd2);
	fclose($fd4);

	copy($tmp,$res);
	unlink($tmp);
# ↑=================================================================↑

// 件数分
for($i=1;$i<=$num;$i++) {
  $line = _sendcmd("RETR $i");//RETR n -n番目のメッセージ取得（ヘッダ含）
  while (!ereg("^\.\r\n",$line)) {//EOFの.まで読む
    $line = fgets($sock,512);
    $dat[$i].= $line;
  }
  $data = _sendcmd("DELE $i");//DELE n n番目のメッセージ削除
}
$buf = _sendcmd("QUIT"); //バイバイ
fclose($sock);
//print_r($dat);


//$num=1;
//$dat[1] = implode('',file("test00.txt"));
//$dat[2] = implode('',file("test01.txt"));

$lines = array();
$lines = @file($log);

for($j=1;$j<=$num;$j++) {
  $write = true;
  $subject = $from = $text = $atta = $part = $attach = "";
  list($head, $body) = mime_split($dat[$j]);
//echo $body;
  // 日付の袖しつ
  eregi("Date:[ \t]*([^\r\n]+)", $head, $datereg);
  $now = strtotime($datereg[1]);
  if ($now == -1) $now = time();
  $head = ereg_replace("\r\n? ", "", $head);
  // サブジェクトの抽出
  if (eregi("\nSubject:[ \t]*([^\r\n]+)", $head, $subreg)) {
    $subject = $subreg[1];
    while (eregi("(.*)=\?iso-2022-jp\?B\?([^\?]+)\?=(.*)",$subject,$regs)) {//MIME Bﾃﾞｺｰﾄﾞ
      $subject = $regs[1].base64_decode($regs[2]).$regs[3];
    }
    while (eregi("(.*)=\?iso-2022-jp\?Q\?([^\?]+)\?=(.*)",$subject,$regs)) {//MIME Bﾃﾞｺｰﾄﾞ
      $subject = $regs[1].quoted_printable_decode($regs[2]).$regs[3];
    }
    $subject = htmlspecialchars(convert($subject));
  }
  // 送信者アドレスの抽出
  if (eregi("From:[ \t]*([^\r\n]+)", $head, $freg)) {
    $from = addr_search($freg[1]);
  } elseif (eregi("Reply-To:[ \t]*([^\r\n]+)", $head, $freg)) {
    $from = addr_search($freg[1]);
  } elseif (eregi("Return-Path:[ \t]*([^\r\n]+)", $head, $freg)) {
    $from = addr_search($freg[1]);
  }
  // 拒否アドレス
  for ($f=0; $f<count($deny); $f++)
    if (eregi($deny[$f], $from)) $write = false;

  // マルチパートならばバウンダリに分割
  if (eregi("\nContent-type:.*multipart/",$head)) {
    eregi('boundary="([^"]+)"', $head, $boureg);
    $body = str_replace($boureg[1], urlencode($boureg[1]), $body);
    $part = split("\r\n--".urlencode($boureg[1])."-?-?",$body);
    if (eregi('boundary="([^"]+)"', $body, $boureg2)) {//multipart/altanative
      $body = str_replace($boureg2[1], urlencode($boureg2[1]), $body);
      $body = eregi_replace("\r\n--".urlencode($boureg[1])."-?-?\r\n","",$body);
      $part = split("\r\n--".urlencode($boureg2[1])."-?-?",$body);
    }
  } else {
    $part[0] = $dat[$j];// 普通のテキストメール
  }
//print_r($part);

  foreach ($part as $multi) {
    list($m_head, $m_body) = mime_split($multi);
    $m_body = ereg_replace("\r\n\.\r\n$", "", $m_body);
    if (!eregi("Content-type: *([^;\n]+)", $m_head, $type)) continue;
    list($main, $sub) = explode("/", $type[1]);
    //echo "$type[1],$sub<br>";
    // 本文をデコード
    if (strtolower($main) == "text") {
      if (eregi("Content-Transfer-Encoding:.*base64", $m_head)) 
        $m_body = base64_decode($m_body);
      if (eregi("Content-Transfer-Encoding:.*quoted-printable", $m_head)) 
        $m_body = quoted_printable_decode($m_body);
      $text = convert($m_body);
      if ($sub == "html") $text = strip_tags($text);
      $text = str_replace(">","&gt;",$text);
      $text = str_replace("<","&lt;",$text);
# ↓=================================================================↓
#     $text = str_replace("\r\n", "\r",$text);
      $text = str_replace("\r\n", "\n",$text);
# ↑=================================================================↑
      $text = str_replace("\r", "\n",$text);
      $text = preg_replace("/\n{2,}/", "\n\n", $text);
      $text = str_replace("\n", "<br>", $text);
      // 電話番号削除
      $text = eregi_replace("([[:digit:]]{11})|([[:digit:]\-]{13})", "", $text);
      // 下線削除
      $text = eregi_replace($del_ereg, "", $text);
      // mac削除
      $text = ereg_replace("Content-type: multipart/appledouble;[[:space:]]boundary=(.*)","",$text);
      // 広告等削除
      if (is_array($word)) {
        foreach ($word as $delstr)
          $text = str_replace($delstr, "", $text);
      }
      if (strlen($text) > $body_limit) $text = substr($text, 0, $body_limit)."...";
    }
    // ファイル名を抽出
    if (eregi("name=\"?([^\"\n]+)\"?",$m_head, $filereg)) {
      $filename = ereg_replace("[\t\r\n]", "", $filereg[1]);
      if (eregi("(.*)=\?iso-2022-jp\?B\?([^\?]+)\?=(.*)",$filename,$regs)) {
        $filename = $regs[1].base64_decode($regs[2]).$regs[3];
        $filename = convert($filename);
      }
      $filename = time() . "-".$filename;
    }
    // 添付データをデコードして保存
    if (eregi("Content-Transfer-Encoding:.*base64", $m_head) && eregi($subtype, $sub)) {
      $tmp = base64_decode($m_body);
      if (!$filename) $filename = time().".$sub";
      if (strlen($tmp) < $maxbyte && !eregi($viri, $filename) && $write) {
        $fp = fopen($tmpdir.$filename, "wb");
        fputs($fp, $tmp);
        fclose($fp);
        $link = rawurlencode($filename);
        $attach = $filename;
      } else {
        $write = false;
      }
    }
  }
  if ($imgonly && $attach=="") $write = false;
  list($old,$otime,$osubj,$ofrom,,) = explode("<>", $lines[0]);
  // 連即投稿
  if ($from == $ofrom && $now - $otime < $wtime) $write = false;
  $id = $old + 1;
# ↓=================================================================↓
# 名前の既定入力
	$fd = fopen($log, "r");
	while (!feof($fd)) {
		$buffer = fgets($fd, 4096);
		$data = explode("<>", $buffer);
 		if (trim($from)==$data[3] && !trim($subject) && $data[2]) $subject=$data[2];
	}
	fclose($fd);
# ↑=================================================================↑
  if(trim($subject)=="") $subject = $nosubject;
  $line = "$id<>$now<>$subject<>$from<>$text<>$attach<>\n";

  if ($write) array_unshift($lines, $line);
}

// ログ最大行処理
if (count($lines) > $maxline) {
  for ($k=count($lines)-1; $k>=$maxline; $k--) {
    list($id,$tim,$sub,$fro,$tex,$at,) = explode("<>", $lines[$k]);
    if (file_exists($tmpdir.$at)) @unlink($tmpdir.$at);
    $lines[$k] = "";
  }
}
// ログに記録
if ($write) {
  $fp = fopen($log, "w");
  flock($fp, LOCK_EX);
  fputs($fp, implode('', $lines));
  fclose($fp);
} elseif (file_exists($tmpdir.$filename)) {
  @unlink($tmpdir.$filename);
}


/* コマンドー送信！！*/
function _sendcmd($cmd) {
  global $sock;
  fputs($sock, $cmd."\r\n");
  $buf = fgets($sock, 512);
  if(substr($buf, 0, 3) == '+OK') {
    return $buf;
  } else {
    die($buf);
  }
  return false;
}
/* ヘッダと本文を分割する */
function mime_split($data) {
  $part = split("\r\n\r\n", $data, 2);
  $part[1] = ereg_replace("\r\n[\t ]+", " ", $part[1]);

  return $part;
}
/* メールアドレスを抽出する */
function addr_search($addr) {
  if (eregi("[-!#$%&\'*+\\./0-9A-Z^_`a-z{|}~]+@[-!#$%&\'*+\\/0-9=?A-Z^_`a-z{|}~]+\.[-!#$%&\'*+\\./0-9=?A-Z^_`a-z{|}~]+", $addr, $fromreg)) {
    return $fromreg[0];
  } else {
    return false;
  }
}
/* 文字コードコンバートauto→SJIS */
function convert($str) {
global $bake;
  if (function_exists('mb_convert_encoding')) {
	return mb_convert_encoding($str, "SJIS", "auto");
  } elseif (function_exists('JcodeConvert')) {
	if(!$bake) return JcodeConvert($str, 0, 2); else return JcodeConvert($str, 3, 2);
  }
	return true;
}

#---------------------------------------------------------------
#  header("Location: $jump");
	if($_GET['jump']) $jump=$_GET['jump']; elseif($_POST['jump']) $jump=$_POST['jump'];
#	else (!$jump) $jump="./joyful.cgi";
	header("Location: $jump");
#---------------------------------------------------------------
?>