#!/usr/local/bin/perl

$script = "ank.html";

require './lib/jcode.pl';
require './lib/teikei.pl';

# SENDMAILのパス
$sendmail = "/usr/lib/sendmail";

# メールの送信元メールアドレス
$sender = 'info@p-guu.net';


&decode;

if ($mode eq 'preview'){ &preview; }
elsif ($mode eq 'send_mail'){ &send_mail; }

&count;

$center .= '
<div id="center_main">
  <div class="center_msg"><img src="images2/ank/title01.jpg" width=460 height=173 alt="アンケート"></div>
';
$center .= "<form method=\"post\" action=\"$script\">\n";
$center .= '
  <div class="center_msg">
  <table cellpadding="3" cellspacing="1" border="0" bgcolor="#f89a36" class="ank_text" width=460>
    <tr valign="top">
      <td bgcolor="#fff7ed" width=150>1.年齢を教えてください</td>
      <td bgcolor="#fff0e0"> 
        <input type="radio" name="1" value="20代まで">20代まで
        <input type="radio" name="1" value="30代">30代
        <input type="radio" name="1" value="40代">40代
        <input type="radio" name="1" value="50代">50代
        <input type="radio" name="1" value="60代以上">60代以上
      </td>
    </tr>
    <tr valign="top">
      <td bgcolor="#fff7ed" width=150>2.性別を教えてください</td>
      <td bgcolor="#fff0e0">
        <input type="radio" name="2" value="男">男　 
        <input type="radio" name="2" value="女">女 
      </td>
    </tr>
    <tr valign="top"> 
      <td bgcolor="#fff7ed" width=150>3.よく打つのはどっち？</td>
      <td bgcolor="#fff0e0">
        <input type="radio" name="3" value="パチンコ">パチンコ　 
        <input type="radio" name="3" value="パチスロ">パチスロ
      </td>
    </tr>
    <tr valign="top"> 
      <td bgcolor="#fff7ed" width=150>4.パチンコで欲しい機能は？<br>(複数回答可)</td>
      <td bgcolor="#fff0e0">
        <table border="0" cellspacing="0" cellpadding="5" class="ank_text">
          <tr> 
            <td><input type="checkbox" name="4" value="確変継続率高">確変継続率高</td>
            <td><input type="checkbox" name="4" value="初当りが早い">初当りが早い</td>
          </tr>
          <tr>
            <td><input type="checkbox" name="4" value="連チャンセット型">連チャンセット型</td>
            <td><input type="checkbox" name="4" value="権利物">権利物</td>
          </tr>
          <tr>
            <td><input type="checkbox" name="4" value="羽根物">羽根物</td>
            <td><input type="checkbox" name="4" value="一般電役">一般電役</td>
          </tr>
          <tr> 
            <td><input type="checkbox" name="4" value="普通機">普通機</td>
            <td><input type="checkbox" name="4" value="突然確変搭載">突然確変搭載</td>
          </tr>
          <tr> 
            <td><input type="checkbox" name="4" value="アレンジボール">アレンジボール</td>
            <td><input type="checkbox" name="4" value="雀球">雀球</td>
          </tr>
        </table>
      </td>
    </tr>
    <tr valign="top"> 
      <td bgcolor="#fff7ed" width=150>5.パチスロで欲しい機能は？<br>(複数回答可)</td>
      <td bgcolor="#fff0e0">
        <table border="0" cellspacing="0" cellpadding="5" class="ank_text">
          <tr> 
            <td><input type="checkbox" name="5" value="小役の集中">小役の集中</td>
            <td><input type="checkbox" name="5" value="リールの遅れ">リールの遅れ</td>
          </tr>
          <tr> 
            <td><input type="checkbox" name="5" value="時間差告知">時間差告知 </td>
            <td><input type="checkbox" name="5" value="複合小役">複合小役</td>
          </tr>
          <tr> 
            <td><input type="checkbox" name="5" value="CT">CT</td>
            <td><input type="checkbox" name="5" value="大量リーチ目">大量リーチ目</td>
          </tr>
          <tr> 
            <td><input type="checkbox" name="5" value="リール無制御ゾーン">リール無制御ゾーン</td>
            <td><input type="checkbox" name="5" value="Eメール予告">Eメール予告</td>
          </tr>
          <tr> 
            <td><input type="checkbox" name="5" value="ため息センサー">ため息センサー</td>
            <td><input type="checkbox" name="5" value="ビタ押しでフラグ成立">ビタ押しでフラグ成立</td>
          </tr>
        </table>
      </td>
    </tr>
    <tr valign="top"> 
      <td bgcolor="#fff7ed" width=150>6.タイアップ機種はなんですか？<br>自由にお書きください。</td>
      <td bgcolor="#fff0e0"><textarea name="6" cols="40" rows="5"></textarea></td>
    </tr>
    <tr valign="top"> 
      <td bgcolor="#fff7ed" width=150>7.その他</td>
      <td bgcolor="#fff0e0"><textarea name="7" cols="40" rows="5"></textarea></td>
    </tr>
  </table>
  </div>

  <div class="center_msg">
    <table cellpadding="3" cellspacing="1" border="0" bgcolor="#f89a36" class="ank_text" width=460>
      <tr> 
        <td width="150" align="left" bgcolor="#fff7ed">メールアドレス<span class="ank_mailcaution">※必須</span></td>
        <td bgcolor="#fff0e0"><input name="Email" type="text" size="40"></td>
      </tr>
    </table>
  </div>


  <div class="center_msg"><input type="hidden" name="mode" value="preview"><input type="submit" value="確認画面"><input name="reset" type="reset" value="リセット"><br><br></div>
  </form>
</div>
';

#------------#
# プレビュー #
#------------#
sub preview {

	#  $bufferに格納されたFORM形式のデータを取り出す
	@pairs = split(/&/,$buffer);
	foreach $pair (@pairs) {
		($name, $value) = split(/=/, $pair);
		$value =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

		# 記録するデータはsjisに統一する
		&jcode'convert(*value,'sjis');

		if ($name eq '4'){
			push(@no4,"$value<br>");
		}

		if ($name eq '5'){
			push(@no5,"$value<br>");
		}

	}

	$flag = "";
	if (!$in{'1'}){$in{'1'} = "<div class=\"ank_error\">1の質問を選択してください</div>"; $flag = 1;}
	if (!$in{'2'}){$in{'2'} = "<div class=\"ank_error\">2の質問を選択してください</div>"; $flag = 1;}
	if (!$in{'3'}){$in{'3'} = "<div class=\"ank_error\">3の質問を選択してください</div>"; $flag = 1;}
	if (!$no4[0]){$no4[0] = "<div class=\"ank_error\">4の質問を選択してください</div>"; $flag = 1;}
	if (!$no5[0]){$no5[0] = "<div class=\"ank_error\">5の質問を選択してください</div>"; $flag = 1;}
	if (!$in{'Email'}){$in{'Email'} = "<div class=\"ank_error\">メールアドレスを入力してください</div>"; $flag = 1;}
	if ($in{'Email'} !~ /(.*)\@(.*)\.(.*)/) {
		$in{'Email'} = "<div class=\"ank_error\">メールアドレスを入力してください</div>"; $flag = 1;
	}


$center .= '
<div id="center_main">
<div class="center_msg"><img src="images2/ank/title01.jpg" width=460 height=173 alt="アンケート"></div>

<div class="center_msg">
<table cellpadding="3" cellspacing="1" border="0" bgcolor="#f89a36" class="ank_text" width=460>
<tr valign="top">
<td bgcolor="#fff7ed" width=150>1.年齢を教えてください</td>
<td bgcolor="#fff0e0">';
$center .= "$in{'1'}";
$center .= '</td></tr>

<tr valign="top">
<td bgcolor="#fff7ed" width=150>2.性別を教えてください</td>
<td bgcolor="#fff0e0">';
$center .= "$in{'2'}";
$center .= '</td></tr>

<tr valign="top">
<td bgcolor="#fff7ed" width=150>3.よく打つのはどっち？</td>
<td bgcolor="#fff0e0">';
$center .= "$in{'3'}";
$center .= '</td></tr>

<tr valign="top"> 
<td bgcolor="#fff7ed" width=150>4.パチンコで欲しい機能は？<br>(複数回答可)</td>
<td bgcolor="#fff0e0">';
$center .= "@no4";
$center .= '</td></tr>

<tr valign="top"> 
<td bgcolor="#fff7ed" width=150>5.パチスロで欲しい機能は？<br>(複数回答可)</td>
<td bgcolor="#fff0e0">';
$center .= "@no5";
$center .= '</td></tr>

<tr valign="top"> 
<td bgcolor="#fff7ed" width=150>6.タイアップ機種はなんですか？<br>自由にお書きください。</td>
<td bgcolor="#fff0e0">';
$center .= "$in{'6'}";
$center .= '</td></tr>

<tr valign="top"> 
<td bgcolor="#fff7ed" width=150>7.その他</td>
<td bgcolor="#fff0e0">';
$center .= "$in{'7'}";
$center .= '</td></tr>
</table>
</div>

<div class="center_msg">
<table cellpadding="3" cellspacing="1" border="0" bgcolor="#f89a36" class="ank_text" width=460>
<tr> <td width="150" align="left" bgcolor="#fff7ed">メールアドレス</td>
<td bgcolor="#fff0e0">';
$center .= "$in{'Email'}";
$center .= '</td></tr>
</table>
</div>
<div class="center_msg">

';

$center .= "<form action=\"$script\" method=\"post\">\n";
if ( !$flag ){
	$center .= '<input type="hidden" name="mode" value="send_mail"><input type="submit" value="送信"></div>';
	$center .= "<input type=\"hidden\" name=\"1\" value=\"$in{'1'}\">\n";
	$center .= "<input type=\"hidden\" name=\"2\" value=\"$in{'2'}\">\n";
	$center .= "<input type=\"hidden\" name=\"3\" value=\"$in{'3'}\">\n";
	$center .= "<input type=\"hidden\" name=\"4\" value=\"@no4\">\n";
	$center .= "<input type=\"hidden\" name=\"5\" value=\"@no5\">\n";
	$center .= "<input type=\"hidden\" name=\"6\" value=\"$in{'6'}\">\n";
	$center .= "<input type=\"hidden\" name=\"7\" value=\"$in{'7'}\">\n";
	$center .= "<input type=\"hidden\" name=\"Email\" value=\"$in{'Email'}\">\n</form>";

}else{
	$center .= '<input type="button" name="btnGo" value="戻る" onClick="javascript:history.go(-1)"></div></form>';
}


&html;
}

#------------#
# メール送信 #
#------------#
sub send_mail {

	$in{'4'} =~ s/<br>/\n/g;
	$in{'4'} =~ s/ //g;
	$in{'5'} =~ s/<br>/\n/g;
	$in{'5'} =~ s/ //g;

	$url = 'http://www.p-guu.net/';
	$ppurl = 'http://www.p-guu.net/pc/ft.html';
	$p_mail = 'E-mail:info@p-guu.net';

	# 登録日採取
	local($min,$hour,$mday,$mon,$year) = (localtime(time))[1..5];
	$date = sprintf("%04d/%02d/%02d-%02d:%02d",
			$year+1900,$mon+1,$mday,$hour,$min);

	# メール内容（ヘッダと本文の間は必ず空行を入れること）
$mail = <<"EOF";
X-HTTP-REFERER: $ENV{'HTTP_REFERER'}
To: $in{'Email'}
From: $sender
Subject: アンケートご協力ありがとうございました

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
激アツイベント情報誌 ぱっちGuu　アンケート 　　　    $url
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

この度は、激アツイベント情報誌 ぱっちGuu　アンケートに
お答え頂き、誠にありがとうございます。

このメールは、アンケートにお答え頂いた方へ自動返信されるメールです。

$date

年齢：
$in{'1'}

性別：
$in{'2'}

よく打つのは：
$in{'3'}

パチンコで欲しい機能\は：
$in{'4'}

パチスロで欲しい機能\は：
$in{'5'}

タイアップ機種は：
$in{'6'}

その他：
$in{'7'}

メールアドレス：
$in{'Email'}


◆個人情報に関しましてはこちらから
$ppurl

◆抽選で当選された方には、弊社よろ当選メールにてお知らせいたします。
尚、当選の方には電子メールにてご住所などのご確認をさせていただきます。 

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
◆お問い合わせ
株式会社ぱっちGuu　
$p_mail
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
EOF
	# メール送信
	open(MAIL,"| $sendmail -t");
	print MAIL &jis($mail);
	close(MAIL);

$mail = "";

$mail = <<"EOF";
X-HTTP-REFERER: $ENV{'HTTP_REFERER'}
To: $sender
From: $sender
Subject: アンケート

$date

1
$in{'1'}

2
$in{'2'}

3
$in{'3'}

4
$in{'4'}

5
$in{'5'}

6
$in{'6'}

7
$in{'7'}

メールアドレス
$in{'Email'}

EOF

	# メール送信
	open(MAIL,"| $sendmail -t");
	print MAIL &jis($mail);
	close(MAIL);

$center = '
<div class="center_msg"><img src="images2/ank/title01.jpg" width=460 height=173 alt="アンケート"></div>
<div align="center" style="margin-top:38px">
<table border=0 cellpadding=0 cellspacing=0>
<tr>
  <td><img src="images2/box/msgbox01.gif" width=13 height=13 alt=""></td>
  <td><img src="images2/box/msgbox02.gif" width="100%" height=13 alt=""></td>
  <td><img src="images2/box/msgbox03.gif" width=13 height=13 alt=""></td>
</tr>
<tr>
  <td height="100%"><img src="images2/box/msgbox04.gif" width="13" height="100%" alt=""></td>
  <td height="100%">
    <table border=0 cellpadding=0 cellspacing=0>
    <tr>
      <td><img src="images2/box/icon.gif" width=86 height=62 alt=""></td>
      <td valign="middle"><span style="margin-right:20px;" id="s1212">アンケートに<br>ご協力ありがとうございました</span>
    </tr>
    </table>
  </td>
  <td height="100%"><img src="images2/box/msgbox05.gif" width=13 height="100%" alt=""></td>
</tr>
<tr>
  <td><img src="images2/box/msgbox06.gif" width=13 height=13 alt=""></td>
  <td><img src="images2/box/msgbox07.gif" width="100%" height=13 alt=""></td>
  <td><img src="images2/box/msgbox08.gif" width=13 height=13 alt=""></td>
</tr>
</table>
</div>
';
&html;

}

sub jis { local($msg) = @_; &jcode'convert(*msg,'jis'); $msg; }

#----------------#
# 書込Cookie準備 #
#----------------#
$setcook1 = &setCookie("ID", $COOKIE{ID});

&html;


#----------#
# カウンタ #
#----------#
sub count {
	# カウントファイル
	$log = "count/ank.dat";

	# ロックファイル名
	$lockfile = 'count/lock/ank.lock';

	&lock;

	#カウントファイル読込み
	open(IN,"$log");
	$in_line = <IN>;
	close(IN);
	
	#カウント１増やす
	$in_line++;
	
	#カウントファイル書込み	
	open(OUT,">$log");
	print OUT $in_line;
	close(OUT);

	&unlock;

}

sub lock {
	local($retry) = 5;
	while (!mkdir($lockfile, 0755)) {
		sleep(1);
	}
}

sub unlock {
	rmdir($lockfile);
}