#!/usr/local/bin/perl require './jcode.pl'; #-------------------------------------- $ver="PluralVote v5.1";# (投票システム) #-------------------------------------- # Copyright(C) りゅういち # E-Mail:ryu@cj-c.com # W W W :http://www.modern-work.com/shop/manizm.html #Next MANIZM? #--- 初期設定 ------------------* # 同じようにいくつでも増やせます。 # [ ]内の数字を使いCGIにアクセスするとその設定ファイルで動作します。 # $set[12] の設定ファイルを使う場合: http://www.xxx.com/cgi-bin/p_vote.cgi?no=12 $set[0]="./set.cgi"; $set[1]="./set1.cgi"; # 禁止文字列 タグ使用の場合は禁止タグも入力OK 同じようにいくつでも指定可能 @NW=('死ね','','; close(DB); &hed_; print "
\n"; if($t_img eq ""){print"$title\n";} elsif ($t_img ne "") {print "\n";} $total=0; foreach $line (@lines) { ($namber,$vote,$count) = split(/<>/,$line); $total+=$count; $count{$vote} = $count; $namb{$vote} = $namber; } print <<"_HTML_";
□ HOME　 □ HELP
$com
$date現在の総投票数: $total
$nf _HTML_ if($rorc){$rcbox="checkbox";}else{$rcbox="radio";} $rank1=0; $rank2=1; $count_tmp=0; $K=0; foreach (sort { ($count{$b} <=> $count{$a}) || ($a cmp $b)} keys(%count)) { ($count{$_} == $count_tmp) || ($rank1 = $rank2); if($total > 0){ $point{$_}=($count{$_}/$total)*100; $point{$_}=sprintf("%2.1f",$point{$_}); if($rank1==1){$bwid=$point{$_};$bwid{$_}=$kw;} else{$bwid{$_}=int(($point{$_}*$kw)/$bwid);} }else{$point{$_}="0";} if(($max_v && $total >= $max_v)||($p_co==1 && $cooks==3)||($max_d && $DATE>=$max_d)){ $r_b="
";$s_c="
";$endcom="

投票は終了しました。

"; }else{ $r_b=""; $s_c=""; } if($K){$COL="$str";$K=0;}else{$COL="$bg";$K=1;} print <<"_HTML_"; _HTML_ $count_tmp = $count{$_}; $rank2++; } if($tag){$tac="可";}else{$tac="不可";} if($edit == 1){ print "
ランク投票項目投票数グラフ
$rank1位$r_b $_ $count{$_} $point{$_}\%
$s_c
"; if(($max_v && $total >= $max_v)||($p_co==1 && $cooks==3)||($max_d && $DATE>=$max_d)){ print"
"; }else{ print <<"_HTML_";
$nf 項目追加(最高$max個まで/タグ$tac)
_HTML_ } }elsif($edit == 0){print "$s_c\n";} print "$endcom\n"; print <<"_HTML_";
$nf
_HTML_ &foot_; } # # [マニュアル] # sub man_ { if($edit==1){ $ecom="だれでも自由に増やせます。\n";$eco="追加できます。\n"; $ec="
  • 関係ない投票項目は\予\告\なく\削\除\されます。
    • \n"; $e ="
  • 半角カナは使用禁止。文字化けの原因になります。
    • \n"; }else{$ecom="追加できません。\n";$eco="増える\可\能\性があります。\n";} if($cooks==1){$comc="2重投票できません。\n";} elsif($cooks==0){$comc="2重投票できますが、\n";} elsif($cooks==2){$comc="同じ項目への連続投票はできません。\n";} &hed_; print <<"_HTML_"; □BACK
    $title の使い方
    • このランクシステム(以下VOTES)は投票したい項目をチェックしボタンを押し投票します。
    • このVOTESは投票項目を$ecom
    • 投票項目は最大$maxコまで$eco
      • $ec$e
    • このVOTESは、$comcモラルある投票をしましょう。
    _HTML_ &foot_; } # # [ヘッダ表示] # sub hed_ { print "Content-type: text/html\n\n"; print <<"_HTML_"; $title _HTML_ print "";} elsif ($back eq "") { print ">";} print <<"_HEAD_"; _HEAD_ } # # [フッタ表示] # sub foot_ { print <<"_HTML_";
    - Plural Vote -
    _HTML_ print "\n"; exit; } # # [フォームデコード] # sub d_code_ { if ($ENV{'REQUEST_METHOD'} eq "POST") {read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});} else { $buffer = $ENV{'QUERY_STRING'}; } @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'); $value =~ s//\>\;/g; $value =~ s/\"/\"\;/g; $value =~ s/<>/\<\;\>\;/g; $value =~ s///g; foreach(0..$#NW){if(index($value,$NW[$_]) >= 0){&er_("「$NW[$_]」は使用できません!");}} $FORM{$name} = $value; if($name eq 'namber'){ push(@v_,$value); } if ($name eq 'p_co') { push(@d_,$value); } } $vote = $FORM{'vote'}; $namber=$FORM{'namber'}; $mode = $FORM{'mode'}; $cook = $FORM{'cook'}; $p_co = $FORM{'p_co'}; $no = $FORM{'no'}; } # # [書き込み処理] # sub right_ { $OK=0; if($FORM{'pass'} eq $pass){$OK=1;} if($cooks==1 && $OK==0){&get_; if($cook){&er_("投票は一回のみです!");}} $addr = $ENV{'REMOTE_ADDR'}; if ($lock == 1) {$lockfile = "$lock1"; &lock_;} open(DB,"$log") || &er_("Can't open $log"); @lines = ; close(DB); if($tag){ $vote=~ s/\"\;/\"/g; $vote=~ s/\<\;//g; } @new = (); $k = 0; foreach $line (@lines) { $line =~ s/\n//g; ($nam,$votes,$count,$ip) = split(/<>/,$line); $ip =~ s/\n//g; foreach $namber (@v_) { if ($nam eq "$namber") { if($cooks==2 && $OK==0){if($addr eq "$ip"){ &er_("連続投票不可!"); }} $count++; $line = "$nam<>$votes<>$count<>$addr<>"; $k = 1; } } if ($vote eq "$votes") { &er_("同一項目名が存在します！"); } push (@new,"$line\n"); } if($k == 0){ @lines = reverse(@lines); ($nam0,$vo0,$cnt0,$ip0) = split(/<>/,$lines[0]); if($nam0 eq "") { $namber=0; } $namber = $nam0 + 1; $LINE=@lines; if($LINE > $max){&er_("これ以上項目を増やせません！");} if($vote eq ""){ &er_("項目名がありません!"); } if($OK){$C=0;}else{$C=1;} push (@new,"$namber<>$vote<>$C<>$addr<>\n"); } open (DB,">$log"); print DB @new; close(DB); if(-e $lockfile){ unlink($lockfile); } if($cooks==1 && $OK==0){ &set_; } if($FORM{'pass'} eq "$pass"){ &edit_; } if($cooks==3){$p_co=1;} } # # [ファイルロック] # sub lock_ { $k = 0; foreach (1 .. 5) { unless (-e $lockfile) { open(LOCK,">$lockfile"); close(LOCK); $k = 1; last; } else {sleep(1);} } if ($k == 0) { &er_("LOCK is BUSY"); } } # # [時刻の取得] # sub time_ { $ENV{'TZ'} = "JST-9"; ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time); $year=$year+1900; $mon++; if ($mon < 10) { $mon = "0$mon"; } if ($mday < 10) { $mday = "0$mday"; } if ($hour < 10) { $hour = "0$hour"; } if ($min < 10) { $min = "0$min"; } if ($sec < 10) { $sec = "0$sec"; } $week = ('日','月','火','水','木','金','土') [$wday]; $date="$year\/$mon\/$mday\($week\) $hour\:$min\:$sec"; $DATE="$year$mon$mday"; } # # [クッキー発行] # sub set_ { ($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + $cday*24*60*60); $yearg += 1900; if ($secg < 10) { $secg = "0$secg"; } if ($ming < 10) { $ming = "0$ming"; } if ($hourg < 10) { $hourg = "0$hourg"; } if ($mdayg < 10) { $mdayg = "0$mdayg"; } $month = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mong]; $youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$wdayg]; $date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT"; $cook="cook\:1"; print "Set-Cookie: $CN=$cook; expires=$date_gmt\n"; } # # [クッキー取得] # sub get_ { $cookies = $ENV{'HTTP_COOKIE'}; @pairs = split(/;/,$cookies); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $name =~ s/ //g; $DUMMY{$name} = $value; } @pairs = split(/,/,$DUMMY{"$CN"}); foreach $pair (@pairs) { ($name, $value) = split(/:/, $pair); $COOKIE{$name} = $value; } $cook = $COOKIE{'cook'}; if ($FORM{'cook'}) { $cook = $FORM{'cook'}; } } # # [管理画面] # sub edit_ { if ($FORM{'pass'} ne "$pass") { &er_("パスワードが違います!"); } if ($p_co) { open(DB,"$log"); @lines = ; close(DB); @COMS=@lines; @CAS = (); foreach $COMS (@COMS) { $COMS =~ s/\n//g; ($nam,$vo,$cou,$ip) = split(/<>/,$COMS); foreach $p_co (@d_) {if ($p_co eq $nam) {$COMS = "";}} if($COMS eq ""){ $n=""; }else{ $n="\n"; } push (@CAS,"$COMS$n"); } open (DB,">$log"); print DB @CAS; close(DB); } open(DB,"$log"); @lines = ; close(DB); if (-s $log) {$size = -s $log;} else {$size=0;} &hed_; print <<"_HTML_"; □ BACK
    管理モード
    現在のログサイズ：$size バイト
    □ 削除したい項目にチェックを入れ「削 除」を押して下さい。
    □ ナンバーをクリックするとその項目について編集できます。
    $nf _HTML_ foreach $line (@lines) { ($namber,$vote,$count,$ip) = split(/<>/,$line); print <<"_HTML_"; _HTML_ } print <<"_HTML_";
    チェックナンバー項目名カウント
    No.$namber $vote$count


    $nfログの初期化
    _HTML_ if($namber eq ""){ $namber=0; } if($tag){$tac="可";}else{$tac="不可";} $namber=$namber+1; print <<"_HTML_";
    $nf ・ここから追加すれば連続投票扱いになりません。

    項目を増やす事ができます。(最高$max個まで/タグ$tac)
    _HTML_ print "
    \n"; &foot_; } # # [記事編集] # sub hen_ { if ($FORM{'pass'} ne "$pass") { &er_("パスワードが違います!"); } open(DB,"$log"); @lines = ; close(DB); @new = (); $flag = 0; foreach $line (@lines) { ($nam,$vo,$co,$ip) = split(/<>/,$line); $ip =~ s/\n//g; if ($namber eq "$nam") { if($tag){ $vo=~ s/\"/\"\;/g; $vo =~ s//\>\;/g; } &hed_; print <<"_HTML_";
    $nf
    ナンバー[$namber] の編集
    □ すべての項目のカウント数を 0 にできます。
    $nf
    項目 /
    カウント数 /
    _HTML_ &foot_; } } } # # [編集内容置換] # sub h_w_ { if($FORM{'count'} eq "") { &er_("カウント数が未入力!"); } if($FORM{'vote'} eq "") { &er_("項目名が未入力!"); } if($FORM{'pass'} ne "$pass") { &er_("パスワードが違います!"); } open(DB,"$log"); @lines = ; close(DB); if($tag){ $vote=~ s/\"\;/\"/g; $vote=~ s/\<\;//g; } @new = (); $flag = 0; foreach $line (@lines) { $line =~ s/\n//g; ($knam,$kvo,$kco,$kip) = split(/<>/,$line); if ($namber eq "$knam") { $line = "$namber<>$vote<>$FORM{'count'}<>$kip<>"; $flag = 1; } push(@new,"$line\n"); } if ($flag == 0) { &er_("編集ナンバーが不正です!"); } if ($flag == 1) { open (DB,">$log"); print DB @new; close(DB); } &edit_; } # # [項目一括削除] # sub s_d_ { if ($FORM{'pass'} ne "$pass") { &er_("パスワードが違います!"); } open(DB,">$log"); printf DB ""; close(DB); &edit_; } # # [エラー処理] # sub er_ { if (-e $lockfile) { unlink($lockfile); } &hed_; print "
    ERROR! - $_[0]

    \n"; &foot_; } # # [設定ファイルチェック] # sub all_ { &hed_; $T=@set; print"

    $T個の設定ファイルがCGIに設定済み

    "; foreach (0..$#set){ if($set[$_]){ unless(-e $set[$_]){print"$_)$set[$_]が無いです
    ";} else{require "$set[$_]"; print"$_)$title
    "; if(-e $log){print"　ログ:○";}else{print"　ログ:×";} } print"

    " } } &foot_; } # # [ログ生成] # sub l_m { open(DB,">$_[0]") || &er_("Can't write $_[0]"); print DB ""; close(DB); chmod(0666,"$_[0]"); }