;
close(DB);
$accesses = @lines;
#集計最初のデータの投票時刻
if ($lines[0] =~ /\[(.*)\] (.*)/) {
$first_date = $1;
($clock,$day) = split(/ /,$first_date);
($hour,$minute,$second) = split(/:/,$clock);
($month,$mday,$year) = split(/:/,$day);
if ($year < 100) { $year += 1900; }
$first_date = "$year年$month月$mday日 $hour時$minute分";
}
else { $first_date = 0; }
#集計最後のデータの投票時刻
if ($lines[($accesses - 1)] =~ /\[(.*)\] (.*)/) {
$last_date = $1;
($clock,$day) = split(/ /,$last_date);
($hour,$minute,$second) = split(/:/,$clock);
($month,$mday,$year) = split(/:/,$day);
if ($year < 100) { $year += 1900; }
$last_date = "$year年$month月$mday日 $hour時$minute分";
}
else { $last_date = 0; }
foreach $line (@lines) {
if ($line =~ /\[(.*)\] (.*)/) {
$an = $2;
if ($an ne ' ' && $an ne '') { push(@AN, $an); }
}
}
$i = 0;
foreach (@AN) { $ans{($_)[0]}++; $i++; }
print "Content-type: text/html\n\n";
print "$title\n";
print "$body\n";
print "$an_title
\n";
print "全投票数:$accesses 有効回答数(白票以外):$i
\n";
print "
\n";
if ($tnx ne "1") { print "| 項目名 | 備考 | 選択数 | 投票 | 割合 | グラフ |
|---|
\n"; }
else { print "| 項目名 | 備考 | 選択数 | 割合 | グラフ |
|---|
\n"; }
foreach (sort { $ans{$b} <=> $ans{$a} } keys %ans) {
print "\n";
$total_ans += $ans{$_};
$percent_ans = 100 * ($ans{$_} / $i);
$percent_ans = sprintf("%2.1f",$percent_ans);
$img = int($percent_ans) * 3;
if ($tnx ne "1") {
print "\n";
}
else { print "| $_ | $ans{$_} | $percent_ans\% | ![](\"$gif\") | \n"; }
print "
\n";
}
print "
\n";
print "
・$date_now 現在のアンケート集計結果です。
\n";
if ($first_date != 0 && $last_date != 0) {
print "・これらは[$first_date]から[$last_date]までの集計結果です。
\n";
print "・最大アンケート集計件数： $rescue 件分（これを超えると最新の$rescue件分の集計になります）\n";
}
}
sub html_trailer {
print "
\n";
if ($tnx eq "1") { print "
ありがとうございました。
\n"; }
#著作表示(削除禁止)
print "\n";
print "\n";
}
sub html_form {
print "\n";
}
sub an_w {
@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;
&jcode'convert(*value,'sjis');
if ($FORM{'an2'} ne "") {
$value =~ s//>/g;
$value =~ s/\$/＄/g;
$value =~ s/\\/￥/g;
}
if ($name ne "write") { $FORM{$name} = $value; }
}
if ($FORM{'an'} ne "" && $FORM{'an2'} ne "") { $write = ""; }
elsif ($FORM{'an'} ne "") { $write = $FORM{'an'}; }
elsif ($FORM{'an2'} ne "") { $write = "$FORM{'an2'}
$FORM{'misc'}"; }
#重複チェックへ
if ($wck) { &wcheck; }
if (!open(LOG,"$an_file")) { &error('エラー','データファイルを読み出せません.'); }
@lines=;
close(LOG);
$axs=@lines;
$rescue2 = ($rescue - 1);
if ($axs >= $rescue) {
if (!open(LOG,">$an_file")) { &error('エラー','データファイルに記録できません.'); }
foreach $axs (1..$rescue2) { print LOG $lines[$axs]; }
}
else { if (!open(LOG,">>$an_file")) { &error('エラー','データファイルに記録できません.'); } }
print LOG "[$date] $write\n";
close(LOG);
}
sub error {
print "Content-type: text/html\n\n";
print "$title\n";
print "$body\n";
print "$_[0]\n";
print "$_[1]\n";
print ' |