#!/usr/bin/perl #chdir("/sftpgrp/cntst/contest/"); require "./common/perl/common.pl"; use CGI; use Encode; use POSIX qw(); use Mail::Sendmail; use strict qw(vars); use lib "./perl-modules/"; if(!$ENV{HTTPS}){ my $url = $ENV{SCRIPT_URI}; $url =~ s@http@https@gi; print "Location:$url\n\n"; exit; } my $q = new CGI(); my $file = $q->param('file'); my %pm = new CGI()->Vars; my $TITLE = qq{お問い合わせ}; print "Content-type:text/html;charset=utf-8\n\n"; if($pm{mode} =~ /submit|check/){ my @error = &valiation(); if(@error){ &error_page(@error); } elsif($pm{mode} eq "check"){ &check_page(); } elsif($pm{mode} eq "submit"){ my $y = POSIX::strftime("%Y",localtime); # my $num = sprintf "%04d",counter("./dat/count_${y}.txt"); &_sendmail_admin(); &_sendmail_user(); &done_redirect(); } } elsif($pm{mode} eq "done"){ &done_page(); } else { main(); } sub _sendmail_user{ # my $num = shift; my $date = POSIX::strftime("%Y/%m/%d %H:%M:%S",localtime); my $host = gethostbyaddr(pack("C4",split(/\./,$ENV{REMOTE_ADDR})),2) || $ENV{REMOTE_ADDR}; my $body = <<"BODY"; ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 　　　　　　　　◆ お問合せ完了自動返信メール ◆ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ この度は、第10回全国学生英語プレゼンテーションコンテストへのお問合せ ありがとうございました。以下の内容で受付ました。 ご入力いただきましたEメールアドレスに、改めて事務局よりご連絡させ ていただきます。ご返信には多少お時間を頂戴する場合もございます。 また内容によっては回答出来かねる場合もございますので、予めご了承 くださいませ。 ■お問合せ・ご質問内容： $pm{message} ■お名前： $pm{jname1} $pm{jname2} ■メール： $pm{mail} ■電話： $pm{tel} ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 第10回全国学生英語プレゼンテーションコンテスト HP http://www.kandagaigo.ac.jp/contest/ Facebook https://www.facebook.com/English.Presentation.Contest Instagram https://www.instagram.com/english_precon/ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ お問い合わせ先： 全国学生英語プレゼンテーションコンテスト事務局 〒101-8525東京都千代田区内神田2-13-13 神田外語グループ内 メール：contest\@kandagaigo.ac.jp ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 本コンテストにご応募されていないにも関わらず、このメールを受信された 場合は、他の方が間違ってメールアドレスを登録された可能性がありますの で、このメールを破棄していただくようお願いいたします。 BODY my $message = parseBody($body); # my $subject = qq{【お問合せ受付けました】 T${num}}; my $subject = qq{【お問合せ受付けました】}; my $from = encode("MIME-Header-ISO_2022_JP", '英語プレゼンテーションコンテスト事務局'); my %mail = ( "Content-Type" => 'text/plain; charset="utf-8"', From => ($from . ' '), To => $pm{mail}, Subject => encode("MIME-Header-ISO_2022_JP", $subject), "Content-Transfer-Encoding" => "7bit", Encoding => '7bit', Message => $message, ); sendmail(%mail); } sub _sendmail_admin{ # my $num = shift; my $date = POSIX::strftime("%Y/%m/%d %H:%M:%S",localtime); my $host = gethostbyaddr(pack("C4",split(/\./,$ENV{REMOTE_ADDR})),2) || $ENV{REMOTE_ADDR}; my $body = <<"BODY"; $date --------------------------------------------- * Message: $pm{message} --------------------------------------------- * Contact Information Name : $pm{jname1} $pm{jname2} Tel : $pm{tel} Mail : $pm{mail} --------------------------------------------- $host($ENV{REMOTE_ADDR}) $ENV{HTTP_USER_AGENT} BODY my $message = parseBody($body); # my $subject = qq{[precon/お問い合わせ] T${num}}; my $subject = qq{[precon/お問い合わせ]}; my %mail = ( "Content-Type" => 'text/plain; charset="utf-8"', From => $pm{mail}, To => 'contest@kandagaigo.ac.jp', # Bcc => 'yano@satoru.net', Subject => encode("MIME-Header-ISO_2022_JP", $subject), "Content-Transfer-Encoding" => "7bit", Encoding => '7bit', Message => $message, ); sendmail(%mail); } sub valiation{ my @error; # push @error,qq{名前が空白です。}; return @error; } sub error_page{ print <<"EOM"; @{[&header()]}

応募内容の記載に間違い、記入漏れがあります。
以下「戻る」ボタンより$TITLEに戻り、記入内容をご確認ください。

@{[ map { qq{} } grep {!/mode/} keys %pm ]}
@{[footer()]} EOM } sub done_redirect{ print <<"EOM"; EOM } sub done_page{ print <<"EOM"; @{[&header()]}

お問い合わせありがとうございました。
近日中に事務局よりご連絡致しますので、今しばらくおまちください。

@{[footer()]} EOM } sub check_page{ my $md5 = shift; print <<"EOM"; @{[&header(qq{以下の内容でお問い合わせを受け付けます。
「送信する」のボタンをクリックする前に、送信内容をご確認ください。})]} @{[map { qq{} } grep {!/mode/} keys %pm]}
お名前 $pm{jname1} $pm{jname2}
メールアドレス $pm{mail}
電話番号 $pm{tel}
お問い合わせ・
ご質問内容		 @{[parseHTML($pm{message})]}
@{[footer()]} EOM } sub header{ my $header = join "",cat("./common/template/header.tmpl"); my $tracking = join "",cat("./common/template/tracking.tmpl"); #$tracking my $content = <<"EOM"; $header
@{[cat("./common/template/header_navi.tmpl")]}

CONTACTお問い合わせ

EOM $content =~ s@\$TITLE@お問い合わせ@gi; return $content; } sub main { print <<"EOM"; @{[&header()]} @{[main_form()]} @{[footer()]} EOM } sub main_form{ return <<"EOM";
お名前必須
姓 / Last Name 名 / First Name
メールアドレス必須
電話番号
お問い合わせ・
ご質問内容必須
EOM } sub footer{ return <<"EOM";
@{[cat("./common/footer_credit.html")]} @{[cat("./common/template/footer.tmpl")]} EOM } =test DROP DATABASE kanda2012_precon; CREATE DATABASE kanda2012_precon charset "utf8"; use kanda2012_precon; DROP TABLE OUBO_DATA; CREATE TABLE OUBO_DATA( num int AUTO_INCREMENT, group_type varchar(255), name varchar(255), sex varchar(32), school varchar(30), pref varchar(30), address TEXT, tel varchar(255), mail varchar(255), group_info TEXT, group_leader_name varchar(100), theme varchar(32), message TEXT, file varchar(255), filename varchar(255), filetype varchar(255), filesize varchar(32), filekaku varchar(32), filehash varchar(128), fileinfo TEXT, youtube_upload_status varchar(32), youtube_url varchar(128), youtube_vid varchar(32), youtube_upload_updated DATETIME, youtube_done BOOLEAN default false, youtube_status varchar(32), youtube_status_check_url varchar(255), youtube_response TEXT, dump TEXT, is_deleted BOOLEAN default false, is_hyoka BOOLEAN default false, md5 varchar(64), created DATETIME, date DATE, created_time int(11), ip varchar(16), host varchar(100), ua TEXT, PRIMARY KEY(num) ) charset "utf8"; ALTER TABLE OUBO_DATA ADD youtube_done BOOLEAN default false; ALTER TABLE OUBO_DATA ADD youtube_vid varchar(32); ALTER TABLE OUBO_DATA ADD youtube_status varchar(32); ALTER TABLE OUBO_DATA ADD youtube_status_check_url varchar(255); ALTER TABLE OUBO_DATA ADD youtube_response TEXT; =cut