などに
# タグの使用は可能です。
$title2 =q(
前回投票 $date"; } if (!$vote){ $err .= "選択項目のセレクトまたは、記入がありません。
"; } if (length($name1) < 2 && $nam){ $err .= "名前が書かれていないか短すぎます。
"; } if (!$email && $mail) { $err .= "メールアドレスの記入がありません。
"; } if (length($comment) < 6 && $com){ $err .= "コメントが短すぎるか書かれていません。
"; } if (length($comment) > $comment_max ){ $err .= "コメントが長すぎます。$comment_max文字(全角でその半分）以内でお願いします。
"; } if ($err) { &error("$err") }; if ($email){ $name1="$name1"; } return unless( ($ENV{'HTTP_REFERER'} eq '') || ($ENV{'HTTP_REFERER'} =~/$cginame/)); #うまく動作しない場合は、上記の行をコメントアウトしてください。(先頭に#) $flag = 1; if ($cookies ne '2'){ foreach $line(@lines) {#重複投票は過去のものに上書き if ($cookies eq '0') { next unless ($line=~/^$id/i); } if ($cookies eq '1') { ($id1, $koumoku1) = split(/:#/, $line); next unless (($id eq "$id1") && ($vote eq "$koumoku1")); } $flag = 0; $line = "$id:#$vote:#$name1:#$comment:#$date:#$host:#$times:#\n"; last; } } if($flag){ #新規投票は、加える unshift(@lines,"$id:#$vote:#$name1:#$comment:#$date:#$host:#$times:#\n"); } (@lines < $max-1) || (@lines = @lines[0 .. $max - 1]); if ($lockkey == 1) { &lock1($lockfile,0); } elsif ($lockkey == 2) { &lock2($lockfile,0); } open(DB,"+<$vote_file") || &error("Can't open $vote_file"); eval 'flock(DB,2);'; truncate(DB,0); seek(DB,0,0); print DB @lines; #eval 'flock(DB,8);'; close(DB); &unlock($lockfile); &setcookie; }#writelog END sub header { #HTMLヘッダ print "Content-type: text/html\n\n"; print <<"_HTML_";
_HTML_ if ($jouge){ &formhtml; &resulthtml; } else { &resulthtml; &formhtml; } &footer; exit; }#votehtml END sub formhtml{ print <<"_HTML_";
_HTML_ }#formhtml END sub resulthtml{ #投票結果画面 print <<"_HTML_"; $date 現在のアンケート集計結果は以下の通りです。
それぞれの選択項目をクリックすると各コメントを見ることができます。
| 順位 | 選択項目 | 回答数 | 割合 | グラフ |
|---|---|---|---|---|
| No\.$rank1 | $decode | $votes{$decode} | $percent\% |
\n"; }#resulthtml END sub footer { print "
\n"; print "$banner2"; print "
[管理用]
\n"; print "\n"; #この行だけは消さないでください！！ } sub detailhtml {#コメント画面 &header; foreach $line (@lines) { next unless($line=~/:#/); ($id, $koumoku, $name, $comment,$dmy) = split(/:#/, $line); if($koumoku eq $FORM{'detail'}){ push(@com,$line); } } if ($page eq '') { $page = 0; } $end_data = $#com; $comtotal = $#com + 1; $page_end = $page + ($pagelog - 1); if ($page_end >= $end_data) { $page_end = $end_data; } print <<"_HTML_"; [投票結果に戻る]
[$FORM{'detail'}]についてのコメント
$comtotal件の投票があります。
_HTML_ $detail = &URLEncoder($FORM{'detail'}); &backnext; print <<"_HTML_";
| お名前 | コメント |
|---|---|
| $name | $comment |
_HTML_ &backnext; &footer; exit; }#detailhtml END #ページリンク(OLD,NEW) sub backnext{ # 改頁処理 $next_line = $page_end + 1; $back_line = $page - $pagelog; print "
エラー発生
\n"; print "$_[0]
\n"; print "\n"; exit; } sub URLEncoder { $_[0] =~ s/([^0-9A-Za-z_ ])/"%".unpack("H2",$1)/ge; $_[0] =~ tr/ /+/; $_[0]; } # カウンタ (KENTさん式 改良バージョン sub counter { print "
| \n"; # ログ読込み if (!open(NO,"$countfile")){ print "Can't open $countfile |