TOP>
JMCのすべて>
受講案内>$mainTitle
";
} else {
$str = "
TOP>
開催期間>$mainTitle
";
}
#上部ＨＴＭＬ
#// HTML 出力 (ヒアドキュメント)
print << "EOM";
$mainTitle
$css1
${str}
EOM
return;
}
#-------------pageBegn()終了-----------#
sub form{
# 入力フォーム表示
my $str = <<"EOM";
EOM
print $str;
}
#-------------form()終了-----------#
#///////////////////////////////////////#
# 書き込み確認 #
#///////////////////////////////////////#
# check()
sub check{
# ヘッダー
&head();
# タイトル表示
&pageBegin();
#フォームデータ取得
#タグの除去
&escapeTag();
#改行処理
$adress =~ s/<BR>/
/g;
$question =~ s/<BR>/
/g;
#表示
print <<"EOF";
$mainTitle 確認画面
| 御社名： | $comName |
| 御名前： | $name |
| ふりがな： | $nameFuri |
| 業種： | $equip |
| 会社ホームページ： | $comUrl |
| 役職： | $officialTitle
| | 郵便番号： | $zip
| | 住所： | $adress
| | 連絡方法： | $wayContact
| | 連絡先： | $contact
| | 問い合わせ内容： | $question
|
|
以上の内容でよろしいですか。
EOF
#メールのBODY作成
$mailBody .= "\n";
$mailBody .= "${name} 様から ${mainTitle} の依頼を受けました。\n\n";
$mailBody .= "御社名：${comName}\n";
$mailBody .= "御名前：${name}\n";
$mailBody .= "ふりがな：${nameFuri}\n";
$mailBody .= "業種：${equip}\n";
$mailBody .= "会社ホームページ：http://${comUrl}\n";
$mailBody .= "役職：${officialTitle}\n";
$mailBody .= "郵便番号：${zip}\n";
$mailBody .= "住所：${adress}\n";
$mailBody .= "連絡方法：${wayContact}\n";
$mailBody .= "連絡先：${contact}\n";
$mailBody .= "問い合わせ内容：${question}";
$mailBody =~ s/
//g;
$adress =~ s/
//g;
$question =~ s/
//g;
my @ltime = localtime(time);
my $sysDate = sprintf("%04d\/%02d\/%02d %02d:%02d:%02d",
$ltime[5]+1900,$ltime[4]+1,$ltime[3],$ltime[2],$ltime[1],$ltime[0]);
print <<"EOF";
EOF
&footer();
exit;
}
#-------------check()終了----------#
#///////////////////////////////////////#
# タグの除去 #
#///////////////////////////////////////#
# escapeTag()
sub escapeTag {
$comName =~ s//>/g; $comName =~ s/"/”/g; $comName =~ s/'/’/g;
$name =~ s//>/g; $name =~ s/"/”/g; $name =~ s/'/’/g;
$nameFuri =~ s//>/g; $nameFuri =~ s/"/”/g; $nameFuri =~ s/'/’/g;
$equip =~ s//>/g; $equip =~ s/"/”/g; $equip =~ s/'/’/g;
$comUrl =~ s//>/g; $comUrl =~ s/"/”/g; $comUrl =~ s/'/’/g;
$officalTitle =~ s//>/g; $officalTitle =~ s/"/”/g;
$officalTitle =~ s/'/’/g;
$zip =~ s//>/g; $zip =~ s/"/”/g; $zip =~ s/'/’/g;
$adress =~ s//>/g; $adress =~ s/"/”/g; $adress =~ s/'/’/g;
$wayContact =~ s//>/g; $wayContact =~ s/"/”/g;
$wayContact =~ s/'/’/g;
$contact =~ s//>/g; $contact =~ s/"/”/g; $contact =~ s/'/’/g;
$question =~ s//>/g; $question =~ s/"/”/g; $question =~ s/'/’/g;
#改行処理
$adress =~ s/\r\n/
/g;
$adress =~ s/\n/
/g;
$adress =~ s/\r/
/g;
$question =~ s/\r\n/
/g;
$question =~ s/\n/
/g;
$question =~ s/\r/
/g;
return 1;
}
#-------------escapeTag()終了-----------#
#///////////////////////////////////////#
# フッター #
#///////////////////////////////////////#
# footer()
sub footer {
print << "END_OF_BODY";
END_OF_BODY
exit;
}
#-------------footer()終了--------------#
#///////////////////////////////////////#
# ファイルのロック #
#///////////////////////////////////////#
# lock()
sub lock {
return;
my $lockTime = time;
#ロックがかかっている場合
if(-e $lockFile) {
#ロックファイルがオープンできなければエラー
open(LOCK,"<$lockFile") || &error("ロックファイルオープンできませんでした：${lockFile}");
my $tmpLocktime =
;
close(LOCK);
#以前のロック時間が現在より180秒前だったらロック強制解除
if(($lockTime - $tmpLocktime) > 180) {
unlink($lockFile);
} else {
my $i = 0;
while($i < $retry) {
sleep(5);
unless(-e $lockFile) { last; }
$i++
}
if($i == $retry) { &error("ロック解除できませんでした。トライ：${retry}回"); }
}
}
open(FP,">$lockFile") || &error("ファイルオープンできませんでした：${lockFile}");
print FP $lockTime;
close(FP);
return;
}
#-------------lock()終了----------------#
#///////////////////////////////////////#
# アンロック #
#///////////////////////////////////////#
# unlock()
sub unlock {
if(-e $lockFile) { unlink($lockFile); }
return;
}
#------------unlock()終了----------------#
#///////////////////////////////////////#
# エラー表示 #
#///////////////////////////////////////#
# errot($arg)
sub error{
my($msg) = @_; # エラーメッセージ取得
&head();
&pageBegin();
print "$msg
";
print "ブラウザの[戻る]をクリックし、戻って下さい。
";
print "
";
print "
";
print "
";
&footer();
exit;
}
#-------------error()終了---------------#
#///////////////////////////////////////#
# 2重投稿チェック #
# 名前、IPアドレス、 #
# 投稿内容が同じならはじく #
#///////////////////////////////////////#
#checkDoublePost()
sub checkDoublePost {
my ($l_date, $l_host, $l_name, $l_ques) = @_;
my $rtn = 1;
my @logFiles2 = &getLogFiles();
if($#logFiles2 < 0) { return $rtn; }
#ロック
&lock();
if(open(FILE, "<${msgDir}$logFiles2[$#logFiles2]")) {
#flock(FILE,2);
my @logs = ();
#二重投稿のチェック
while(my $line = ) {
chop($line);
if($line =~ /^\s*$/) { next; }
push(@logs,$line);
}
if($#logs > 0) {
my @tmp = split(/\t/, $logs[$#logs]);
if(($l_date eq $tmp[1]) && ($l_host eq $tmp[2]) && ($l_name eq $tmp[4]) && ($l_ques eq $tmp[12])) {
$rtn = 0;
}
}
#flock(FILE, 8);
close(FILE);
}
#ロック解除
&unlock();
return $rtn;
}
#----------checkDoublePost()終了--------#
# //////////////////////////////////////#
# ファイル取得 #
#///////////////////////////////////////#
sub getLogFiles {
my @tmpfiles = ();
while (my $tmp = <${msgDir}*>) {
$tmp =~ s/^${msgDir}//;
push(@tmpfiles, $tmp);
}
my %fileTime = ();
#ロック
&lock();
foreach my $file (@tmpfiles) {
if (open(FP1, "<${msgDir}${file}")) {
#flock(FP1,2);
my @logs = ();
while(my $line = ) {
my @tmp = split(/\t/, $line);
if($tmp[1] !~ /^\d/){ next; }
push(@logs, $tmp[1]);
}
$fileTime{$file} = pop(@logs);
#flock(FP1,8);
close(FP1);
}
}
#ロック解除
&unlock();
my @sort_file = sort {
($fileTime{$a} cmp $fileTime{$b}) || ($a <=> $b);
} keys (%fileTime);
return @sort_file;
}
#-----------getLogFiele()終了-----------#
#///////////////////////////////////////#
# メール送信 #
#///////////////////////////////////////#
# mailPost()
sub mailPost {
my $mailSubject = "";
my $no = "";
my @ltime = localtime(time);
my $addr = $ENV{'REMOTE_ADDR'};
my $fileName = sprintf("%04d%02d", $ltime[5]+1900,$ltime[4]+1).".dat";
my $inputStr = "${sysDate}\t${addr}\t${comName}\t${name}\t${nameFuri}\t${equip}\t${officialTitle}";
$inputStr .= "\t${zip}\t${adress}\t${wayContact}\t${contact}\t${question}";
if(&checkDoublePost($sysDate, $addr, $name, $question)) {
my @logfiles = &getLogFiles();
push(@logfiles, $fileName);
my @newTmpLogs = reverse(@logfiles);
my $count = 0;
for(my $i = 0; $i < @newTmpLogs; $i++) { #古いログの削除
$count++;
if($count > $logNum) { unlink("${msgDir}${newTmpLogs[$i]}");}
}
#ロック
&lock();
#$no = &countUp();
$no = sprintf("%05d", &countUp()); #カウンター更新
$mailSubject = "${no}_${mainTitle}";
$inputStr = "${no}\t${inputStr}";
# SJISファイルへコンバート
&jcode'convert(*inputStr, 'sjis');
if(open(FP,">>${msgDir}${fileName}")) { #ファイル追記モードでオープン
print FP "${inputStr}\n";
close(FP);
} else {
#&error("ファイルオープンできませんでした：${msgDir}/${fileName}");
}
#ロック解除
&unlock();
} else {
&error("既に送信されています。");
}
#件名作成
my $subject = jcode'jis($mailSubject);
my $encSubject = &mimeencode($subject);
#JISへ変換
my $body = jcode'jis($mailBody);
#書き込み
if(open( SENDMAIL, "| $mailPath")) {
print SENDMAIL <<"EOM";
From: $adminMail
To: $to
Bcc: $bcc
Subject: $encSubject
Errors-To: $adminMail
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Type: text/plain; charset=iso-2022-jp
$mailBody
EOM
close(SENDMAIL);
} else {
#何もしない
&error("MAIL送信できませんでした。");
}
&head();
&pageBegin();
$str = <<"EOM";
ＪＭＣ事務局へ「${mainTitle}」のメール送信を完了しました。
受付番号：$no です。
お問い合わせは、受付番号を確認後、連絡お願いします。
EOM
print $str;
&footer();
exit;
}
#------------mailPost()終了----------------#
#///////////////////////////////////////#
# カウントアップ #
#///////////////////////////////////////#
# $count = countUp()
sub countUp {
my $count;
open(FP, "+<$counterFile") || &error("${counterFile}カウンター用ファイルオープンできませんでした");
$count = ;
$count++;
seek(FP, 0, 0);
print FP $count;
truncate(FP, tell($count));
close(FP);
return ($count);
}
#-------------getCookie()終了-----------#
exit;
1;