#!/usr/local/bin/php
<?php
//================================================================================
//メールフォーム	Ver.103
//製作・著作権所有：携帯サイトnet（Copyright(c) https://www.keitai-site.net/）
//================================================================================
/////////////////////////////////////////▼変数定義▼
$conf['a_id'] = "admin";							//管理用ＩＤ（必ず変更して下さい）
$conf['a_pw'] = "admin";							//管理用パスワード（必ず変更して下さい）
$conf['sitename'] = "健康工房紀の郷";						//サイト名（必ず変更して下さい）
$conf['pagename'] = "体験談応募";						//ページ名
$conf['metakey'] = "メールフォーム,フォームメール";				//metaキーワード
$conf['metadesc'] = "体験談応募フォームです。";
//meta説明
$conf['dir'] = "/mailform/mail_stories_m/";					//設置するディレクトリ
$conf['fname1'] = "./log1.csv";							//お問い合わせデータ
$conf['css'] = "./mailform.css";						//スタイルシート
$conf['line_page'] = 15;							//お問い合わせデータの１ページ当りの表示件数
$conf['mailto'] = "kinosato@health-navi.net";						//管理者メールアドレス
$conf['mailon'] = "1";								//ユーザーへの自動返信メール機能を使用："1"、不使用："0"
$conf['attach'] = "0";								//ファイル添付機能を使用："1"、不使用："0"
$conf['maxsize'] = 100000;							//添付ファイルの制限サイズ
	//ファイルサイズはphp.iniのupload_max_filesizeおよびpost_max_sizeに依存するので、これらのサイズを超えない値を指定してください。
$conf['maxdata'] = 300;								//保存できるお問い合わせ件数の上限件数

/////////////////////////////////////////▲変数定義終端▲
/////////////////////////////////////////▼初期処理▼
$fp1 = @fopen($conf['fname1'],"r");					//読み込み専用オープン
$aryfl1 = @file($conf['fname1']);
@fclose($fp1);
$line_total = count($aryfl1);						//ファイルの総行数取得
$page_total = floor($line_total/$conf['line_page']);			//総ページ数
if(fmod($line_total,$conf['line_page']) > 0){$page_total++;}		//総ページ数の余りがあれば＋１ページ
$from = @array_fill(0,$page_total,TRUE);					//ページ数分の配列生成
$page = @array_fill(0,$page_total,TRUE);					//ページ数分の配列生成
$admin = $_REQUEST['admin'];
$msg = @array_fill(0,20,NULL);						//メッセージ用の配列生成
/////////////////////////////////////////▲初期処理終端▲
/////////////////////////////////////////▼携帯判別▼
$user_agent = $_SERVER['HTTP_USER_AGENT'];
if(eregi("DoCoMo",$user_agent)){$ua = "docomo";}
elseif(eregi("UP\.Browser",$user_agent)){$ua = "au";}
elseif(eregi("J-PHONE",$user_agent)){$ua = "softbank";}
elseif(eregi("Vodafone",$user_agent)){$ua = "softbank";}
elseif(eregi("SoftBank",$user_agent)){$ua = "softbank";}
elseif(eregi("J-EMULATOR",$user_agent)){$ua = "softbank";}
else{$ua = "pc";}
/////////////////////////////////////////▲携帯判別終端▲
/////////////////////////////////////////▼メインルーチン開始▼
switch($_REQUEST['act']){

case 'login':				//▼login
head1();
login();
foot1();
break;

case 'admin':				//▼admin
head1();
if($_REQUEST['a_id'] == $conf['a_id'] && $_REQUEST['a_pw'] == $conf['a_pw']){
admin();
}
else{$msg[1] = "認証は認められませんでした。";msg();login();}
foot1();
break;

case 'form_reg':			//▼form_reg
head1();
form_reg();
foot1();
break;

case 'form_del_a':			//▼form_del_a
head1();
admin();
form_del_a();
foot1();
break;

case 'delete':			//▼delete
delete();
head1();
admin();
msg();
foot1();
break;

case 'regist':			//▼regist
regist();
head1();
if($admin == 1){admin();}
msg();
foot1();
break;

default:				//▼default
head1();
form_reg();
foot1();
}
/////////////////////////////////////////▲メインルーチン終端▲
/////////////////////////////////////////▼関数▼

function login(){								//▼login
global $conf,$aryfl1,$ua,$admin,$msg;

print <<<END
<h2>{$conf['pagename']}</h2>
<form action="{$_SERVER[REQUEST_URI]}" method="post">
<input type="hidden" name="act" value="admin" />
<p>ユーザ名：<input type="text" name="a_id" size="10"><br />
パスワード：<input type="password" name="a_pw" size="10"></p>
<input type="submit" value="ログイン">
</form>
END;
}

function admin(){								//▼admin
global $conf,$aryfl1,$ua,$admin,$msg;

print <<<END
<h2>管理メニュー</h2>
<form action="{$_SERVER[REQUEST_URI]}" method="post">
<input type="hidden" name="act" value="form_del_a" />
<input type="hidden" name="admin" value="1" />
<input type="submit" value="管理者削除フォーム">
</form>
<form action="{$_SERVER[REQUEST_URI]}" method="post">
<input type="submit" value="ログアウト">
</form>
<br />
END;
}

function form_reg(){								//▼form_reg
global $conf,$aryfl1,$ua,$admin,$msg;

print <<<END
<h2>{$conf['pagename']}</h2>
END;
$vol = $conf['maxsize'];
if($vol < 1000000){$vol = round($vol/1000,1)."KB";}else{$vol = round($vol/1000000,1)."MB";}
print <<<END
<!--
-->
<form action="{$_SERVER[REQUEST_URI]}" method="post" enctype="multipart/form-data">
<input type="hidden" name="MAX_FILE_SIZE" value="{$conf['maxsize']}" />
<input type="hidden" name="act" value="regist" />

<p>■お名前<font color="#FF0000">*</font><br>
<input type="text" name="name"></p>

<p>■フリガナ<font color="#FF0000">*</font><br>
<input type="text" name="name2" mode="hankakukana"></p>

<p>■ニックネーム<br>
<input type="text" name="name3"><br>
 ※掲載する際にニックネーム表示をご希望の方のみ、ご記載下さい</p>

<p>■性別<br>
<input type="radio" name="sex" value="男">男<br>
<input type="radio" name="sex" value="女">女</p>

<p>■年代<br>
<input type="radio" name="age" value="〜20代" />〜20代<br>
<input type="radio" name="age" value="30代" />30代<br>
<input type="radio" name="age" value="40代" />40代<br>
<input type="radio" name="age" value="50代" />50代<br>
<input type="radio" name="age" value="60代〜" />60代〜</p>

<p>■郵便番号<font color="#FF0000">*</font><br>
<input type="text" name="post" istyle="4"></p>

<p>■ご住所<font color="#FF0000">*</font><br>
<input type="text" name="address"></p>

<p>■お電話番号<font color="#FF0000">*</font><br>
<input type="text" name="tel" istyle="4"></p>

<p>■FAX番号<br>
<input type="text" name="fax" istyle="4"></p>

<p>■メールアドレス<font color="#FF0000">*</font><br>
<input type="email" name="mail" maxlength="50" istyle="3"></p>

<p>■ご使用いただいた商品名<font color="#FF0000">*</font><br>
<input type="text" name="item"></p>

<p>■ご意見・ご感想<font color="#FF0000">*</font><br>
<textarea name="comment" rows="5"></textarea></p>

<p><span>*</span>は必須項目です。<br>
<input type="submit" value="メールを送信する"> <input type="reset" name="reset" value="リセット" /></p>

</form>

END;
if($conf['attach'] == 1){
print <<<END
END;
}
print <<<END
<input type="submit" value="送信"> 
</form>
END;
}

function mojifilter(&$str){							//▼mojifilter
//$str = ereg_replace("\r\n\|\r|\n","",$str);			//＜＜使用しない事＞＞
$str = ereg_replace("[\r\n\]","",$str);				//改行除去（文字間）
$str = trim($str);							//空白除去
$str = str_replace('\"','”',$str);				//ダブルクオート置換
$str = str_replace('\'','’',$str);				//シングルクオート置換
$str = str_replace(',','，',$str);					//カンマ置換
$str = mb_convert_kana($str,"KV","SJIS");				//半角カナ変換
if(get_magic_quotes_gpc()){$str = stripslashes($str);}		//￥除去
return $str;
}

function regist(){								//▼regist
global $conf,$aryfl1,$ua,$admin,$msg;

$in_check_ok = TRUE;
$reg_time = time();
$name = $_REQUEST['name'];
$name2 = $_REQUEST['name2'];
$name3 = $_REQUEST['name3'];
$sex = $_REQUEST['sex'];
$age = $_REQUEST['age'];
$post = $_REQUEST['post'];
$address = $_REQUEST['address'];
$tel = $_REQUEST['tel'];
$fax = $_REQUEST['fax'];
$mail = $_REQUEST['mail'];
$item = $_REQUEST['item'];
$comment = $_REQUEST['comment'];
$upfile = $_FILES['upfile']['name'];
$vol = $_FILES['upfile']['size'];
$dllimit = $_REQUEST['dllimit'];
if($dllimit > 0 && is_numeric($dllimit)){$zan = $dllimit - $dlcount;}
else{$zan = "-"; $dllimit = "-";}
$dlkey = $_REQUEST['dlkey'];
//eregi("(\jpg|\jpeg|\png|\bmp|\gif)$",$_FILES['upfile']['name'],$ext);		//ユーザファイル名から拡張子抜出し
preg_match("/\.[^.]*$/i",$_FILES['upfile']['name'],$ext);		//ユーザファイル名から拡張子抜出し

$pass = $_REQUEST['pass'];
$dlcount = 0;
$host = $_SERVER['REMOTE_ADDR'];

mojifilter($comment);

if($name == ""){$in_check_ok = FALSE; $msg[2] = "お名前が入力されていません";}
if($name2 == ""){$in_check_ok = FALSE; $msg[2] = "フリガナが入力されていません";}
if($post == ""){$in_check_ok = FALSE; $msg[2] = "郵便番号が入力されていません";}if($address == ""){$in_check_ok = FALSE; $msg[2] = "住所が入力されていません";}
if($tel == ""){$in_check_ok = FALSE; $msg[2] = "電話番号が入力されていません";}
if($mail == ""){$in_check_ok = FALSE; $msg[3] = "メールアドレスが入力されていません";}
if($comment == ""){$in_check_ok = FALSE; $msg[6] = "おご意見・ご感想が入力されていません";}


if($conf['attach'] == 1){
if($_FILES['upfile']['size'] > $conf['maxsize']){$in_check_ok = FALSE; $msg[7] = "添付ファイルが大き過ぎます。";}
}

if($aryfl1 == ""){							//ファイルなしの場合新規作成
	$id1 = 1;
	$fp1 = @fopen($conf['fname1'],"a");	
	@chmod($conf['fname1'],0606);
	@fclose($fp1);
}
else{									//ファイルありの場合リロード対策処理
	foreach($aryfl1 as $value){list($id1,,,,$name_prev,,,,,,,,,,,,,$host_prev) = explode(",",mb_convert_encoding($value,"SJIS","ASCII,JIS,UTF-8,EUC-JP,SJIS"));}						//最終行を読み込み
	

//if(strcmp($name_prev,$name) == 0){				//管理者送信の場合チェックしない
		//if($admin != 1){$in_check_ok = FALSE; $msg[1] = "すでに送信されています。";}else{$id1 += 1;}
	//}
	//else{$id1 += 1;}
}

if($in_check_ok){	//▼▼▼エラー無ければ更新処理▼▼▼
//▼件数制限処理▼
if($conf['maxdata'] <= count($aryfl1)){
$i = 0;
foreach($aryfl1 as $value){list(,,,,,,,,,$upfiledel,,,,,$thumbfiledel,,,) = explode(",",mb_convert_encoding($value,"SJIS","ASCII,JIS,UTF-8,EUC-JP,SJIS"));
	if($i == 0){
		unset($aryfl1[$i]);					//先頭データ行削除
		@unlink('uf/'.$upfiledel);				//アップロードファイル削除
		@unlink('uf/'.$thumbfiledel);			//サムネイルファイル削除
	}
	$fp1 = @fopen($conf['fname1'],"w");			//書き込みオープン
	@flock($fp1,LOCK_EX);
	foreach($aryfl1 as $line){@fwrite($fp1, $line);}
	@flock($fp1,LOCK_UN);
	@fclose($fp1);
	$i++;
}
}

//▼アップロード処理▼
if($conf['attach'] == 1){
if(is_file("{$_FILES['upfile']['tmp_name']}")){
$upfile = date("YmdHis",$reg_time).$ext[0];					//保存用ファイル名生成
@move_uploaded_file($_FILES['upfile']['tmp_name'],'uf/'.$upfile);		//テンポラリディレクトリからの移動処理
}
}

//▼データ更新処理▼
$adddata = array($id1,$id2,$id3,$reg_time,$name,$mail,$url,$title,$comment,$upfile,$dllimit,$dlkey,$pass,$vol,$thumbfile,$dlcount,$zan,$host);	//変数群から配列生成
$adddata = implode(",",$adddata);					//配列要素をカンマで連結
$adddata = mb_convert_encoding($adddata,"SJIS","ASCII,JIS,UTF-8,EUC-JP,SJIS");
$fp1 = @fopen($conf['fname1'],"a");				//追加書き込みオープン
@flock($fp1,LOCK_EX);
@fwrite($fp1,$adddata."\r\n");
@flock($fp1,LOCK_UN);
@fclose($fp1);
$msg[0] = "送信完了";
$msg[1] = "送信が完了しました。";

//▼メール通知処理（管理者宛）▼
$subject = "【体験談の応募がありました】";
$mail_str .= "お名前：".$name."\n";
$mail_str .= "フリガナ：".$name2."\n";
$mail_str .= "ニックネーム：".$name3."\n";
$mail_str .= "性別：".$sex."\n";
$mail_str .= "年代：".$age."\n";
$mail_str .= "郵便番号：".$post."\n";
$mail_str .= "住所：".$address."\n";
$mail_str .= "お電話番号：".$tel."\n";
$mail_str .= "FAX番号：".$fax."\n";
$mail_str .= "メールアドレス：".$mail."\n";
$mail_str .= "ご使用いただいた商品名：".$item."\n";
$mail_str .= "ご意見・ご感想：\n";
$mail_str .= $comment."\n";
$mail_str .= "送信時間：".date('Y/m/d (D) H:i')."\n";
mb_internal_encoding("sjis");
@mb_send_mail($conf['mailto'],$subject,$mail_str,'From:'.$conf['mailto']);

//▼メール通知処理（ユーザー宛）▼
//if(!$admin && $conf['mailon'] == "1"){
if($conf['mailon'] == "1"){
$subject = "【健康工房紀の郷】";
$mail_str = "体験談のご応募ありがとうございました。\n";
$mail_str .= "以下の内容にて承りましたので御確認ください。。\n\n";
$mail_str .= "お名前：".$name."\n";
$mail_str .= "フリガナ：".$name2."\n";
$mail_str .= "ニックネーム：".$name3."\n";
$mail_str .= "性別：".$sex."\n";
$mail_str .= "年代：".$age."\n";
$mail_str .= "郵便番号：".$post."\n";
$mail_str .= "住所：".$address."\n";
$mail_str .= "お電話番号：".$tel."\n";
$mail_str .= "FAX番号：".$fax."\n";
$mail_str .= "メールアドレス：".$mail."\n";
$mail_str .= "ご使用いただいた商品名：".$item."\n";
$mail_str .= "ご意見・ご感想：\n";
$mail_str .= $comment."\n";
$mail_str .= "----------------------------------------------------\n";
$mail_str .= "{$conf['sitename']}\n";
$mail_str .= "〒640-8461 和歌山県 和歌山市 船所 215-115\n";
$mail_str .= "073-464-4570\n";
$mail_str .= "https://www.health-navi.net\n";
$mail_str .= "----------------------------------------------------\n";
mb_language("Ja");
mb_internal_encoding("sjis");
@mb_send_mail($mail,$subject,$mail_str,'From:'.$conf['mailto']);
}

}
else{$msg[0] = "送信できませんでした。";$msg[16] = "再入力はブラウザの戻るボタンを押してください。";}

}

function delete(){								//▼delete
global $conf,$aryfl1,$ua,$admin,$msg;

if(is_numeric($_REQUEST['del_id'])){
$del_id = $_REQUEST['del_id'];
$i = 0;
foreach($aryfl1 as $value){list($id1,$id2,$id3,$reg_time,$name,$mail,$url,$title,$comment,$upfile,$dllimit,$dlkey,$pass,$vol,$thumbfile,$dlcount,$zan,$host) = explode(",",mb_convert_encoding($value,"SJIS","ASCII,JIS,UTF-8,EUC-JP,SJIS"));
if(strcmp($id1,$del_id) == 0){
	unset($aryfl1[$i]);				//指定データ行削除
	@unlink('uf/'.$upfile);			//アップロードファイル削除
	@unlink('uf/'.$thumbfile);			//サムネイルファイル削除
}
$i++;
}

$fp1 = @fopen($conf['fname1'],"w");				//書き込みオープン
@flock($fp1,LOCK_EX);
foreach($aryfl1 as $line){@fwrite($fp1, $line);}
@flock($fp1,LOCK_UN);
@fclose($fp1);

$msg[0] = "削除完了";
$msg[1] = "データ削除が完了しました。";
}
else{
$msg[0] = "削除未完了";
$msg[1] = "入力値が数値ではありません。";
}
}

function form_del_a(){							//▼form_del_a
global $conf,$aryfl1,$ua,$admin,$msg;
global $line_total,$page_total,$page,$from;

print <<<END
<h2>{$conf['pagename']}</h2>
<p>削除したい登録IDを指定してください。</p>
<form action="{$_SERVER[REQUEST_URI]}" method="post">
<input type="hidden" name="act" value="delete" />
<input type="hidden" name="admin" value="1" />
<p>削除したい登録ID：<input type="text" name="del_id" size="20">
<input type="submit" value="削除する"></p>
</form>
END;

if($_REQUEST['from']){$line_from = $_REQUEST['from'];}
else{$line_from = $line_total;}
$line_to = $line_from - $conf['line_page'];
if($line_from < $conf['line_page']){$line_to = 0;}
print <<<END
<br />新着順：全 $line_total 件中 $line_from - $line_to 件目<br /><br />
<hr />
END;

for($i=$line_from;$i>$line_to;$i--){
list($id1,$id2,$id3,$reg_time,$name,$mail,$url,$title,$comment,$upfile,$dllimit,$dlkey,$pass,$vol,$thumbfile,$dlcount,$zan,$host) = explode(",",mb_convert_encoding($aryfl1[$i-1],"SJIS","ASCII,JIS,UTF-8,EUC-JP,SJIS"));
$reg_time = date("Y/m/d H:i:s",$reg_time);
$path = $conf['dir'].'uf/';
print <<<END
登録ID：$id1<br />
お名前：$name メール：$mail 件名：$title<br />
お問い合わせ内容：$comment<br />
添付ファイル：<a href="$path$upfile">$upfile</a><br />日時：$reg_time<br />
ホスト： $host
<hr />
END;
}

/////▼改ページ処理▼
echo "ページ：";
$line_prev = $line_from + $conf['line_page'];			//ページ前へ
if($line_prev <= $line_total){
print <<<END
<form action="{$_SERVER[REQUEST_URI]}" method="post">
<input type="hidden" name="act" value="form_del_a" />
<input type="hidden" name="from" value="$line_prev" />
<input type="hidden" name="admin" value="1" />
<input type="submit" value="前ページ $line_prev 件目"></p>
</form>
END;
}

$line_next = $line_from - $conf['line_page'];			//ページ次へ
if($line_next > 0){
print <<<END
<form action="{$_SERVER[REQUEST_URI]}" method="post">
<input type="hidden" name="act" value="form_del_a" />
<input type="hidden" name="from" value="$line_next" />
<input type="hidden" name="admin" value="1" />
<input type="submit" value="次ページ $line_next 件目"></p>
</form>
END;
}
/////▲改ページ処理▲

print <<<END
<hr />
END;
}

function head1(){								//▼head1
global $conf,$aryfl1,$ua,$admin,$msg;

/////////////////////////////////////////▼携帯判別▼
$DOCTYPE = array(
"pc"=>"<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">",
"docomo"=>"<!DOCTYPE html PUBLIC \"-//i-mode group (ja)//DTD XHTML i-XHTML(Locale/Ver.=ja/2.1) 1.0//EN\" \"i-xhtml_4ja_10.dtd\">",
"au"=>"<!DOCTYPE html PUBLIC \"-//OPENWAVE//DTD XHTML 1.0//EN\" \"https://www.openwave.com/DTD/xhtml-basic.dtd\">",
"softbank"=>"<!DOCTYPE html PUBLIC \"-//J-PHONE//DTD XHTML Basic 1.0 Plus//EN\" \"xhtml-Basic10-Plus.dtd\">"
);
/////////////////////////////////////////▲携帯判別終端▲

$currenturl = 'https://'.$_SERVER['HTTP_HOST'].$_SERVER['REQUEST_URI'];
$title = $conf['sitename']." - ".$conf['pagename'];		//titleのデフォルト設定

print <<<END
$DOCTYPE[$ua]
<html xmlns="https://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja">
<head>
<meta https-equiv="content-type" content="text/html;charset=shift_jis">
<title>腸内細菌コッカスの 健康工房紀の郷　</title>

</head>
<body bgcolor="#FFFFFF" text="#000000" link="#0000FF" alink="#FF0000" vlink="#FF00FF">
<a name="TOP"></a>
<p align="center"><a href="https://www.health-navi.net/m/index.html/-/MKAGOID-3cd6123c5bc6c0487dbfb1e977e8fc58/-/SAFID-/">腸内細菌コッカスの 健康工房紀の郷</a></p>
<p align="center"><a href="https://www.health-navi.net/m/index.html/-/MKAGOID-3cd6123c5bc6c0487dbfb1e977e8fc58/-/SAFID-/"><img src="https://image1.shopserve.jp/www.health-navi.net/pic-labo/simg/mbp_header.jpg" alt="腸内細菌コッカスの健康工房紀の郷　"></a></p>

<hr color=#000000>
    
<h3>▼体験談ご応募はこちら▼</h3>
END;

}

function foot1(){								//▼foot1
global $conf,$aryfl1,$ua,$admin,$msg;

$d = htmlentities(urlencode('https://'.$_SERVER[HTTP_HOST].$_SERVER[REQUEST_URI]));
$currenturl = 'https://'.$_SERVER[HTTP_HOST].$_SERVER[REQUEST_URI];
if($conf['pagename'] == ""){$top = $conf['sitename'];}
else{$top = $conf['pagename'];}

print <<<END
<hr color=#000000>
<a href="https://www.health-navi.net/m/index.html/-/MKAGOID-3cd6123c5bc6c0487dbfb1e977e8fc58/-/SAFID-/">ﾄｯﾌﾟﾍﾟｰｼﾞへ</a><br>
<a href="#TOP" accesskey="0">[0]↑ﾄｯﾌﾟへ</a><br>

<hr color=#000000><p align="center">COPYRIGHT(C) 2007 紀の郷 All Rights Reserved.</p>

<div class="link"><a href="{$conf['dir']}index.php?act=login">管理</a></div>
</body>
</html>
END;
}

function msg(){								//▼msg
global $conf,$aryfl1,$ua,$admin,$msg;

$num = count($msg);
print <<<END
<h2>$msg[0]</h2>
END;
for($i=1;$i<=$num;$i++){
if($msg[$i] != NULL){print("<p>$msg[$i]</p>");}
}
print <<<END
<br />
<p><a href="{$conf['dir']}index.php">{$conf['pagename']}</a>へ戻る</p>
END;
}
/////////////////////////////////////////▲関数終端▲
?>