#!/usr/bin/perl #参考 PoorBBS Ver 0.9e めざせ世界最小最速掲示板 35行バージョン #掲示板とはちがいます。小麦は西原鳥に似てるかアンケート。 # require './jcode.pl'; $maxlength=8192; $cgifile='ciber.cgi';#登録/1p表示数/文字長/ファイル名 $| = 1; ($sec,$min,$hour,$mday,$mon,$year,$i,$i,$i) = localtime(time); $year += 1900;$mon ++;$date = "$year/$mon/$mday $hour:$min:$sec"; if ($ENV{'REQUEST_METHOD'} eq "POST" && $ENV{'CONTENT_LENGTH'} < $maxlength){read(STDIN,$buf,$ENV{CONTENT_LENGTH});} else {$buf=$ENV{'QUERY_STRING'};} @pairs = split(/&/,$buf); 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'); $value =~ s/\r//g; $value =~ s//g; $FORM{$name} = $value; } ##投票する。 ## if ($FORM{like} eq "a"){@vote = (1,1,0,0);} elsif ($FORM{like} eq "b"){@vote = (1,0,1,0);} elsif ($FORM{like} eq "c"){@vote = (1,0,0,1);} else{$vote[0] = "";} if ($vote[0] ne ""){ open(VOTE,">>vote.log"); $, = ","; $time = localtime; eval 'flock(VOTE,2);'; print VOTE @vote," ".$time."\n"; eval 'flock(VOTE,8);'; close(VOTE); $, = ""; } ##開票する。 ## open(SCORE,"vote.log"); while(){ @arr = split( /,/ ,$_); for(0 .. 3){ $total[$_] += @arr[$_]; } } close(SCORE); $all ="応募総数$total[0]
"; $yes =" $\"O\"$ " x $total[1]; $yes ="
似ている。$total[1]件
".$yes; $no =" $\"O\"$ " x $total[2]; $no ="
似てない。$total[2]件
".$no; $mod =" $\"O\"$ " x $total[3]; $mod ="
そのほか。$total[3]件
".$mod; $log="ciber"; $html="$log.html"; if ($log eq ''){$log = 'test';} $name =$FORM{pnm}; $msg=$FORM{'msg'}; open(DB,"$log.log"); @lines = ; close(DB); $header= " こむぎさんは西原鳥に似ているかアンケート

恨ミシュランで西原りえこがメシがまずいときに鳥に変身して怒る姿は、こむぎさんにそっくりであるという情報が寄せられました。この問題に関して世論の動向を調査したいと思います。

投票結果

$all $yes $no $mod
\n"; $footer=" \n"; if ($msg ne '') {&posttext;} print "Content-type: text/html\n\n"; print $header; print @lines; print $footer; open(DB,">$html"); eval 'flock(DB,2)'; print DB $header; print DB @lines; print DB $footer; eval 'flock(DB,8);'; close(DB); exit; sub posttext{$host=$ENV{'REMOTE_HOST'}; $text= "$name :$date
"; $text = "$text

$msg

"; unshift (@lines ,"$text\n"); open(DB,">$log.log"); eval 'flock(DB,2);'; print DB @lines; eval 'flock(DB,8);'; close(DB);}