#!/usr/local/bin/perl
#      ↑ここにあなたの加入しているプロバイダのperl言語のパスを指定します
#	ほとんどの場合、｢#!/usr/local/bin/perl｣だと思われます
#-----------------------------------------------------
#↓jcode変換ライブラリ
require 'jcode.pl';

#-----------------------------------------------------
#ログを保存するデータファイル名
$datafile = '../gather/webhandler.dat';
#-----------------------------------------------------
#あなたのメールアドレスを指定します。
#このアドレスにメールが届きます
$mailto = '10065@contest.thinkquest.gr.jp';
#-----------------------------------------------------
#送信後あなたのページに戻るためのホームページアドレス
$homepage = '../jh/quest.html';
#-----------------------------------------------------
#送られてきたメールの題名を設定
$subject = 'from HP';
#-----------------------------------------------------
#sendmailのパス　利用できないプロバイダは '' にする。
$sendmail = '';
#-----------------------------------------------------
#未記入を許可しない項目名（フィールド名）をいくつでも
#送信されたフォームの項目に次の項目名(nameプロパティ)
#があり、訪問者が未記入ならば送信を中止します。
#$CHECK[0] = 'name';
#$CHECK[1] = 'email';
#-----------------------------------------------------
#ログを集計する最大件数
$max = 1000;
#----------------------------------------------------------
#各項目　最大表示行数 0にするとすべてを表示
$max_vew = 20;
#----------------------------------------------------------
#グラフの最大表示幅（ピクセル）
$graphvew = 200;
#-----------------------------------------------------
#ログを集計しないフィールド名
#訪問者からのメッセージなどは毎回異なる為集計の意味がない。
#（メールには送信される）
#$NO_LOG[0] = 'お名前';
#$NO_LOG[1] = 'email';
#=======================================================================================
#			ここからは変更する必要はありません
#=======================================================================================
$ENV{'TZ'} = "JST-9"; 
@DATE = localtime(time);
$DATE[5] += 1900;
$DATE[4] = sprintf("%02d",$DATE[4] + 1);
$DATE[3] = sprintf("%02d",$DATE[3]);
$DATE[2] = sprintf("%02d",$DATE[2]);
$DATE[1] = sprintf("%02d",$DATE[1]);
$DATE[6] = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat') [$DATE[6]];
$DATE = "$DATE[5]年$DATE[4]月$DATE[3]日($DATE[6])";
$DATE_TIME = "$DATE[5]/$DATE[4]/$DATE[3]/($DATE[6]) $DATE[2]:$DATE[1]";
$hostaddr = &domain_name;
if ($ENV{'REQUEST_METHOD'} eq "POST") {
	read(STDIN, $QUERY_DATA, $ENV{'CONTENT_LENGTH'});
} else { $QUERY_DATA = $ENV{'QUERY_STRING'}; }
@pairs = split(/&/,$QUERY_DATA);
foreach $pair (@pairs) {
	($name, $value) = split(/=/, $pair);
	$name =~ tr/+/ /;
	$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	&jcode'convert(*name,'sjis');
	&jcode'convert(*value,'sjis');
	if (!($value =~ /\n/) && $value =~ /\r/) { $value =~ s/\r/\n/g; }
	if ($name eq 'email') { $email = $value; }
	if ($name eq 'action') { $action = $value;
	} else {
		$name =~ s/</&lt;/g;
		$name =~ s/>/&gt;/g;
		$name =~ s/"/&quot;/g;
		$name =~ s/\t//g;
		$name =~ s/=/&eq;/g;
		$value =~ s/</&lt;/g;
		$value =~ s/>/&gt;/g;
		$value =~ s/"/&quot;/g;
		$value =~ s/\t//g;
		$value =~ s/=/&eq;/g;
		push(@NAME,$name);
		push(@VALUE,$value);
		foreach $buff (@CHECK) {
			if ($buff eq $name) {
				if ($buff eq 'email') {
					if ($value !~ /.+\@.+\..+/) { &error(bad_email); } 
				} else {
					if ($value eq '') { &error(bad_data); } 
				}
			}
		}
		$QUERY{$name} = $value;
	}
}
if (!($email =~ /.+\@.+\..+/)) { $email = 'nobody@xxx.xxx.or.jp'; }
$count = @NAME;

#確認済みならメールを送信する
if ($action == 1) {
	&data_read;
	if (@DATA >= $max) { pop(@DATA); }
	$record = "DATE=$DATE\tHOST=$hostaddr";
	foreach (sort keys %QUERY) {
		$key = $_;
		$value = $QUERY{$key};
		if ($key && $value) {
			$match = 0;
			foreach $line (@NO_LOG) {
				if ($line eq $key) { $match = 1; last; }
			}
			if (!$match) { $record .= "\t$key\=$value"; }
		}
	}
	$record .= "\n";
	unshift(@DATA,$record);
	&data_save;
	if ($sendmail ne '') {
		$msg ="DATE = $DATE_TIME\n";
		$msg .= "HOST = $hostaddr\n";
		$msg .= "AGENT = $ENV{'HTTP_USER_AGENT'}\n";
		$msg .= "----------------------------------------------------\n\n";
		foreach (0..$count-1) {
			if ($VALUE[$_] ne '') { $msg .= "$NAME[$_] = $VALUE[$_]\n"; }
		}
		$msg .= "----------------------------------------------------\n";
		$msg =~ s/&eq;/=/g;
		&jcode'convert(*subject,'jis');
		&jcode'convert(*msg,'jis');

		if (&sendmail($subject, $email, $mailto, $cc, $bcc, $msg)) { &error(send_mail); }
		else { &error(no_error); }
		exit;
	} else { print "Location: $homepage\n\n"; }
} elsif ($action eq 'vew') {
	&data_read;
	$datacount = @DATA;
	foreach $line (@DATA) {
		@FIELD = split(/\t/,$line);
		foreach $pair (@FIELD) {
			($name, $value) = split(/=/, $pair);
			$name =~ s/&eq;/=/g;
			$value =~ s/&eq;/=/g;
			$value =~ s/\n//g;
			$FIELD_VALUE{"$name\t$value"}++;
		}
	}
	print "Content-type: text/html\n\n";
	print "<html><head><title>access</title></head>\n";
	print "<body bgcolor=#000055 text=#FFFFFF link=#FF0000 vlink=#0000FF>\n";
	print "<div align=center><center>\n";
	if ($max_vew != 0) {
		print "Questionnaire's Answer Database";
	}
	$field_name = '';
	foreach (sort keys %FIELD_VALUE) {
		$key = $_;
		($name, $value) = split(/\t/, $key);
		if ($name ne 'DATE') {
			if ($field_name ne $name) {
				if (@data > 0) { &table_vew($field_name); }
				$field_name = $name;
				$flag = 0; @data = ''; $datamax = 0; $samples = 0;
			}
			$count = $FIELD_VALUE{$key};
			$scount = sprintf("%05d",$count);
			$line = "$scount\t$value\t$count\n";
			push(@data,$line);
			$samples += $count;
			if ($datamax < $count) { $datamax = $count; }
		}
	}
	if (@data > 0) { &table_vew($field_name); }
	print "</center></div>\n";
	print "<p align=right><font size=2><a href=http://www2q.meshnet.or.jp/~terra/cgi/>WebHandler Terra</a></font></p>\n";
	print "</body></html>\n";
	exit;
} else {
	print "Content-type: text/html\n\n";
	print "<html><head><title>WebHandler</title></head>\n";
	print "<body bgcolor=#000000 text=FFFFFF><font size=5>Sure?</font>\n";
		print "<div align=center><center>\n";
		print "<form method=post action=webhandler.cgi>\n";
		print "<table border><tr>\n";
			print "<td align=center>Names</td>\n";
			print "<td align=center>Contents</td></tr>\n";
			foreach (0..$count-1) {
				if ($VALUE[$_] ne '') {
					print "<input type=hidden name=\"$NAME[$_]\" value=\"$VALUE[$_]\">\n";
					print "<tr><td>$NAME[$_]</td>\n";
					$VALUE[$_] =~ s/\r/<br>/g;
					print "<td>$VALUE[$_]</td></tr>\n";
				}
			}
		print "</table>\n";
	print "<p><input type=hidden name=action value=1>\n";
	print "<input type=submit value='OK'><p>\n";
	print "</form>\n";
#	print "<hr><i>送信先：<a href=\"mailto:$mailto\">$mailto</a><i>\n";
	print "</body></html>\n";
	exit;
}
#=======================================================================================
sub table_vew {
	local($title) = $_[0];
	local($value, $gyo, $vew);
	@data = reverse(sort(@data));
	print "<table border=1 width=600><tr><td align=center colspan=5 bgcolor=#000000><font color=#FFFFFF>$title [$samples]</font></td></tr>\n";
	$gyo = 1; $vew = 1;
	foreach $dummy (@data) {
		($s,$value,$c) = split(/\t/,$dummy);
		if ($c != 0) {
			if ($samples == 0) {
				$per = 0;
				$chrlen = 0;
			} else {
				$per = $c / $samples * 100;
				if ($datamax != 0) { $chrlen = int($c / $datamax * $graphvew); }
			}
			print "<tr><td align=center>$vew</td>\n";
			print "<td>",$value,"</td>\n";
			print "<td align=right>$c</td>\n";
			print "<td align=right>\n";
			printf "%10.2f\n" , $per;
			print "\%</td>\n";
			print "<td>";
			if ($chrlen < 1) { print "　"; }
			else {
				print "<img src=bar.gif width=$chrlen height=10>\n";
			}
			print "</td></tr>\n";
			$gyo++;
			if ($max_vew != 0 && $gyo > $max_vew) { last; }
		}
		$vew++;
	}
	print "</table><p>\n";
}
#=======================================================================================
sub sendmail {
	local($subject, $from, $to, $cc, $bcc, $body) = @_;
	local(@TO) = split(/\,/, $to);
	local(@CC) = split(/\,/, $cc);
	local(@BCC) = split(/\,/,$bcc);
	local($attach_file) = '';
	local($mailto) = '';
	local($i);
	$i = 1;
	foreach $ml (@TO, @CC, @BCC) {
		if ($ml =~ /([#-9A-~\-\_]+\@[#-9A-~\-\_\.]+)/) {
			if ($i == 1) { $mailto = "$1"; }
			else { $mailto .= "\,$1"; }
		}
		$i++;
	}
	if (!$mailto) { return(1); }
	if (!open(MAIL,"| $sendmail -t -n -oi $mailto")) { return(1); }
	print MAIL "FormMailer: FormMail v1.5\n";
	if (!$bcc) { print MAIL "To: $to\n"; }
	print MAIL "From: $from\n";
	print MAIL "CC: $cc\n" if $cc;
	print MAIL "Subject: $subject\n";
	print MAIL "Content-Transfer-Encoding: 7bit\n";
	print MAIL "Content-Type: text/plain;\n\n";
	print MAIL $body;
	print MAIL "\n";
	close(MAIL);
	0;
}

#=======================================================================================
sub domain_name {
	local($addr) = $ENV{'REMOTE_ADDR'};
	local($_) = gethostbyaddr(pack("C4",split(/\./,$addr)),2);
	if ($_ eq '') { $_ = $addr; }
	else {
		if (/.+\.(.+)\.(.+)\.(.+)$/) { $_ = "\*\.$1\.$2\.$3"; }
		elsif (/.+\.(.+)\.(.+)$/) { $_ = "\*\.$1\.$2"; }
		elsif (/.+\.(.+)$/) { $_ = "\*\.$1"; }
		else { $_ = "on the internet"; }
	}
	$_;
}
#=======================================================================================
sub data_read {
	if (open(DB,"$datafile")) {
		@DATA = <DB>;
		close(DB);
	}
}
#=======================================================================================
sub data_save {
	$tmpfile = 'webhandler.tmp';
	foreach (1 .. 10) {
		unless (-f $tmpfile) { $tmpflag = 1; last; }
		$tmpflag = 0;
		sleep(1);
	}
	if ($tmpflag == 1) {
		$tmp_dummy = "$$\.tmp";
		if (!open(TMP,">$tmp_dummy")) { &error(bad_tmpfile); }
		close(TMP);
		chmod 0666,$tmp_dummy;
		if (!open(TMP,">$tmp_dummy")) { &error(bad_tmpfile); }
		print TMP @DATA;
		close(TMP);
		foreach (1 .. 10) {
			unless (-f $tmpfile) {
				if (!open(TMP,">$tmpfile")) { &error(bad_tmpfile); }
				close(TMP);
				rename($tmp_dummy,$datafile);
				unlink $tmpfile;
				$tmpflag = 1;
				last;
			}
			$tmpflag = 0;
			sleep(1);
		}
		if (-f $tmp_dummy) { unlink $tmp_dummy; }
	}
	$tmpflag;
}
#=======================================================================================
sub error {
	$error = $_[0];
	if ($error eq 'no_error')	{ $msg = 'Thank you!'; }
	elsif ($error eq 'bad_email')	{ $msg = '<p><b>Error!</b></p>Address is illegal.'; }
	elsif ($error eq 'bad_data')	{ $msg = '<p><b>Error!</b></p>'; }
	elsif ($error eq 'send_mail')	{ $msg = '<p><b>Error!</b></p>'; }
	else { $msg = '<p><b>Error!</b></p>'; }
	print "Content-type: text/html\n\n";
	print "<html><head><title>formmail</title></head>\n";
	print "<body bgcolor=#FFFFFF>\n";
	print "<div align=center><center>\n";
	print "<p>　</p><p>　</p>\n";
	print "<table border=5 width =70%><tr>\n";
		print "<td align=center><p>　</p>\n";
		print "<p><font size=6><b><i>$msg</i></b></font></p>";
		print "<p><a href=$homepage>return</font></a></p><p>　</p></td>\n";
	print "</tr></table>\n";
	print "</center></div>\n";
	print "<p align=right><font size=2><a href=http://www2q.meshnet.or.jp/~terra/cgi/>WebHandler Terra</a></font></p>\n";
	print "</body></html>\n";
	exit;
}