$value){ if($value[0]==$Q{'NO'}){ $temp=$value; $flag=1;break; }; } $DATALOG=$temp; if(!$flag) error("ご指定の記事は存在しません。 error-BR0001"); } #---------------------------------------------# # 　メイン画面 #---------------------------------------------# //SPLUG(デフォルトプラグ,指定プラグ) $SPLUG=plug_carry($QSS,$PLUG[$QSS]); if($SPLUG) if(file_exists($SPLUG)) require($SPLUG); #---------------------------------------------# # 登録処理 #---------------------------------------------# function bbs_regist($DATALOG,$FIRSTLOG,$logfile){ global $NTmax,$NTtimeform,$NTmailto,$NTsubject,$Q,$mmax; $ERR=""; if($Q{'bnm'}=='') $ERR.="「お名前」"; if($Q{'btt'}=='') $Q{'btt'}="無題"; $temp=mb_strlen($Q{'btt'},'SJIS'); if($temp>($mmax+2)) $ERR.="▼タイトル文字数：[".$mmax."]->".$temp."文字
"; # 1バイト文字処理チェック $checom=$Q{'bcm'}; $checom=preg_replace('/[&|;|<|>|\\0|\\t|\\r\\n|\\r|\\n|,|!|\-|#| |\\|\\\\|\~|\.|\$|\*|\?|\||\(|\)|\[|\]|\{|\}|\/|\_|\@|\"|\%|\'|\=|\+|\^|\:]/','',$checom); $checom=preg_replace('/[a-zA-Z0-9]/','',$checom); if(!$checom) $Q{'bcm'}=''; if(strstr($Q{'bcm'}, "http://")) $Q{'bcm'}=''; if(strstr($Q{'bcm'}, "博多美人妻の中身、真実")) $Q{'bcm'}=''; if(strstr($Q{'bcm'}, ".asp")) $Q{'bcm'}=''; if(substr_count($Q{'bcm'}, 'http://')>2) $Q{'bcm'}=''; ///// $days=array("日","月","火","水","木","金","土"); if(!$NTmax) $NTmax=50; if($Q{'bcm'}=='') $ERR.="「記事内容」"; //if($ERR) return $ERR; if(!$ERR){ $days=array("日","月","火","水","木","金","土"); if(!$NTmax) $NTmax=50; $RESLINE=$NEWLINE=""; $n=0;$flag=0; foreach($DATALOG as $key => $value){ list($no,$re,$dat,$nam,$sub,$com,$hos,$col)=$value; $n++;if($n>$NTmax && $re=='') break; if($Q{'reno'}!='' && ($Q{'reno'}==$no || $Q{'reno'}==$re)){ $RESLINE.=$no."\t".$re."\t".$dat."\t".$nam."\t".$sub."\t".$com."\t".$hos."\t".$col."\t\n"; $flag=1; }else{ $NEWLINE.=$no."\t".$re."\t".$dat."\t".$nam."\t".$sub."\t".$com."\t".$hos."\t".$col."\t\n"; }; } //日付 $newdat=""; $temp=explode(",",$NTtimeform); if($temp[0]) $newdat.=date("m")."月"; if($temp[1]) $newdat.=date("d")."日"; if($temp[2]) $newdat.="(".$days[date("w")].")"; if($temp[3]) $newdat.=date("H:i"); if($Q{'reno'}==''){ $NEWLINE=($FIRSTLOG[0]+1)."\t\t".$newdat."\t".$Q{'bnm'}."\t".$Q{'btt'}."\t".$Q{'bcm'}."\t".$_SERVER["REMOTE_ADDR"]."\t".$Q{'bco'}."\t\n".$NEWLINE; }else{ if(!$flag) error("ご指定の記事は存在しないようです"); $RESLINE.=($FIRSTLOG[0]+1)."\t".$Q{'reno'}."\t".$newdat."\t".$Q{'bnm'}."\t".$Q{'btt'}."\t".$Q{'bcm'}."\t".$_SERVER["REMOTE_ADDR"]."\t".$Q{'bco'}."\t\n"; $NEWLINE=$RESLINE.$NEWLINE; } $NEWLINE=($FIRSTLOG[0]+1)."\t".$_SERVER["REMOTE_ADDR"]."\t\t\n".$NEWLINE; //ログ書き換え savefile($logfile, $NEWLINE); if($NTmailto && !$ERR){ #------------------メール送信--------------------# $TITLE="モバイルファンからお知らせ"; if($NTsubject) $TITLE=$NTsubject; $BODY=$TITLE."/お客様の掲示版\n\n"; $BODY.="ご利用ありがとうございます。\n"; $BODY.="ホームページに設置を頂いております「質問掲示板」に\n"; $BODY.="ユーザー様からの投稿が行われました。\n\n"; $BODY.="--- 投稿内容本文 ---\n"; $BODY.="お名前：".encode_text($Q{'bnm'})."\n"; if($Q{'email'}) $BODY.="メールアドレス：".$Q{'email'}."\n"; $BODY.="タイトル：".encode_text($Q{'btt'})."\n"; $BODY.="記事：".encode_text($Q{'bcm'})."\n\n"; $BODY.="------　以上　------\n\n"; $BODY.="※このメールへの返信はできません。\n\n"; mailsend($TITLE,$BODY,$NTmailto,system_mail,""); #---------------------------------------------# } } return $ERR; } ?>