#!/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 .= '
アンケート
'; $center .= "
\n"; $center .= '
1.年齢を教えてください 20代まで 30代 40代 50代 60代以上
2.性別を教えてください 男 
3.よく打つのはどっち? パチンコ  パチスロ
4.パチンコで欲しい機能は?
(複数回答可)
確変継続率高 初当りが早い
連チャンセット型 権利物
羽根物 一般電役
普通機 突然確変搭載
アレンジボール 雀球
5.パチスロで欲しい機能は?
(複数回答可)
小役の集中 リールの遅れ
時間差告知 複合小役
CT 大量リーチ目
リール無制御ゾーン Eメール予告
ため息センサー ビタ押しでフラグ成立
6.タイアップ機種はなんですか?
自由にお書きください。
7.その他
メールアドレス※必須


'; #------------# # プレビュー # #------------# 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
"); } if ($name eq '5'){ push(@no5,"$value
"); } } $flag = ""; if (!$in{'1'}){$in{'1'} = "
1の質問を選択してください
"; $flag = 1;} if (!$in{'2'}){$in{'2'} = "
2の質問を選択してください
"; $flag = 1;} if (!$in{'3'}){$in{'3'} = "
3の質問を選択してください
"; $flag = 1;} if (!$no4[0]){$no4[0] = "
4の質問を選択してください
"; $flag = 1;} if (!$no5[0]){$no5[0] = "
5の質問を選択してください
"; $flag = 1;} if (!$in{'Email'}){$in{'Email'} = "
メールアドレスを入力してください
"; $flag = 1;} if ($in{'Email'} !~ /(.*)\@(.*)\.(.*)/) { $in{'Email'} = "
メールアドレスを入力してください
"; $flag = 1; } $center .= '
アンケート
1.年齢を教えてください '; $center .= "$in{'1'}"; $center .= '
2.性別を教えてください '; $center .= "$in{'2'}"; $center .= '
3.よく打つのはどっち? '; $center .= "$in{'3'}"; $center .= '
4.パチンコで欲しい機能は?
(複数回答可)
'; $center .= "@no4"; $center .= '
5.パチスロで欲しい機能は?
(複数回答可)
'; $center .= "@no5"; $center .= '
6.タイアップ機種はなんですか?
自由にお書きください。
'; $center .= "$in{'6'}"; $center .= '
7.その他 '; $center .= "$in{'7'}"; $center .= '
メールアドレス '; $center .= "$in{'Email'}"; $center .= '
'; $center .= "
\n"; if ( !$flag ){ $center .= '
'; $center .= "\n"; $center .= "\n"; $center .= "\n"; $center .= "\n"; $center .= "\n"; $center .= "\n"; $center .= "\n"; $center .= "\n"; }else{ $center .= '
'; } &html; } #------------# # メール送信 # #------------# sub send_mail { $in{'4'} =~ s/
/\n/g; $in{'4'} =~ s/ //g; $in{'5'} =~ s/
/\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 = '
アンケート
アンケートに
ご協力ありがとうございました
'; &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 = ; close(IN); #カウント1増やす $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); }