#!/usr/bin/perl ## Message ANQ v1.11 (2000/10/03) ## Copyright(C) Kent Web 2000 ## webmaster@kent-web.com ## http://www.kent-web.com/ $ver = 'Msg-Anq v1.11'; # バージョン情報 #---- [注意事項] -----------------------------------------------# # 1. このスクリプトはフリーソフトです。このスクリプトを使用 # # したいかなる損害に対して作者は一切の責任を負いません。 # # 2. 設置に関する質問はサポートコーナにお願いいたします。 # # 直接メールによる質問は受け付けておりません。 # #---------------------------------------------------------------# #============# # 設定 # #============# # jcode.pl取り込み require './jcode.pl'; # タイトル名 $title = "tetish dog"; # タイトル文字の色 $t_color = "#008080"; # タイトル文字のタイプ $t_face = "ＭＳ Ｐゴシック"; # タイトル文字の大きさ (スタイルシートで反映) $t_size = '18pt'; # 本文の文字大きさ (スタイルシートで反映) $b_size = '10pt'; # スクリプト名 $script = "./mesganq.cgi"; # ログファイル $logfile = "./mesganq.log"; # メッセージログファイル $msgfile = "./mesganq.dat"; # メッセージファイル最大保持数 $max = 10; # 管理用パスワード $pass = '8126'; # ユーザ項目追加機能 (0=no 1=yes) # → yes だとユーザが自由に項目を追加することが可能となります $FreeItem = 0; # IPアドレスの保持件数（二重投稿禁止） # → これを 0 にすると二重投稿のチェックを行ないません $ipmax = 5; # グラフ画像 (絶対パスだと http://から) $graph = "./graph.gif"; # 戻り先 (絶対パスだと http://から) $home = "http://tetish.com/"; # bodyタグ $body = ''; # method形式 (POST or GET) $method = 'POST'; # ロックファイル機構 (0=no 1=symlink関数 2=open関数) $lockkey = 0; # ロックファイル名 # --> このディレクトリのパーミッションは 777 に設定 $lockfile = "./mesganq.lock"; # 戻るボタン (0=no 1=yes) # --> Javascriptによる戻るボタン表示機能 $BackButton = 1; # サブタイトル # --> タイトル下にサブタイトルを記述します（タグ使用可） $subtitle = <<'EOM';
  1. あなたの一番好きな犬を選んで投票して下さい。
  2. もし、選択項目からに無い場合はコメントして下さいね。
  3. こちらで追加致します。また、皆さんのご意見・ご要望もお待ちしております。
EOM # タイトル画像を使う場合 (http://から画像を指定) $ImgT = ""; # タイトル画像を使う場合に「横幅」「縦幅」をそれぞれピクセル数で記述 $ImgW = "300"; $ImgH = "70"; # タグ広告挿入オプション (FreeWebなど） # → の代わりに「広告タグ」を挿入する。 # → 広告タグ以外に、MIDIタグ や LimeCounter等のタグにも使用可能です。 $banner1 = ''; # 掲示板上部に挿入 $banner2 = ''; # 掲示板下部に挿入 #============# # 設定完了 # #============# # メイン処理 &decode; if ($mode eq 'regist') { ®ist; } elsif ($mode eq 'admin') { &admin; } elsif ($mode eq 'MakeItem' && $FreeItem) { &MakeItem; } &html; #------------------# # 初期画面を表示 # #------------------# sub html { &header; if ($BackButton) { print "
\n"; } else { print "▲TOP\n"; } print "
"; print "$banner1

\n" if ($banner1 ne ""); # タイトル if ($ImgT) { print "\"$title\"

\n"; } else { print "

\n"; print "$title\n"; print "
\n"; } print "
\n$subtitle\n
\n"; open(IN,"$logfile") || &error("Open Error : $logfile"); $top = ; $total=0; @NO=(); @ITEM=(); while () { ($no,$item,$count) = split(/<>/); push(@NO,$no); push(@ITEM,$item); $no{$no} = $no; $item{$no} = $item; $count{$no} = $count; $total += $count; } close(IN); $all = &filler($total); print "
\n"; print "\n"; print "有効回答：$all件

\n"; print "\n"; print "\n"; # 回答がすべて 0 のとき if ($total == 0) { open(IN,"$logfile") || &error("Open Error : $logfile"); $top = ; while () { ($no,$item,$count,$addr) = split(/<>/); print ""; print ""; print "\n"; } close(IN); } # ソート処理 else { # ランク用中間ファイル $rank1 = 0; $rank2 = 1; $count_tmp = 0; # ソート処理 foreach (sort { ($count{$b} <=> $count{$a}) || ($a cmp $b) } keys(%count)) { ($count{$_} == $count_tmp) || ($rank1 = $rank2); $per = int(($count{$_}*1000 / $total)+0.5) / 10; $per = sprintf("%.1f", $per); $width = int($per * 3); if ($width < 1) { $width = 1; } # 桁区切り $cnt = &filler($count{$_}); print ""; print ""; print "\n"; $count_tmp = $count{$_}; $rank2++; } } print "
順位項目得票数割合
1$item$count "; print "0.0\%
$rank1$item{$_}$cnt "; print "$per\%
\n"; # 回答フォーム print "

\n"; print "\n"; print "
項目選択
コメント (全角30文字以内)
\n"; print "
\n"; print "

\n"; # 項目追加 if ($FreeItem) { print "
\n"; print "
\n"; print "\n"; print "投票する項目が上記にない場合は以下のフォームから追加して下さい

\n"; print "\n"; print "\n"; print "

\n"; } # コメントを表示 print "
▼ 直近のコメント一覧
\n"; open(IN,"$msgfile"); while () { ($date,$item,$comment) = split(/<>/); print "日付 ： $date
\n"; print "投票 ： $item
\n"; print "コメント ： $comment
\n"; } close(IN); # 管理用フォーム print "
\n"; print "
\n"; print "\n"; print ""; print "\n"; print "
\n"; # 著作権表示（削除不可） print "
$banner2

\n"; print "- Message Anq -\n"; print "

\n"; print "\n"; exit; } #----------------# # 投票受付処理 # #----------------# sub regist { # IPアドレスを取得 $addr = $ENV{'REMOTE_ADDR'}; if ($in{'item'} eq "") { &error("項目の選択がありません"); } if (length($in{'comment'}) > 60) { &error("コメント文が長すぎます。全角30文字以内で記述して下さい"); } # ロック処理 if ($lockkey == 1) { &lock1; } elsif ($lockkey == 2) { &lock2; } @new=(); open(IN,"$logfile") || &error("Open Error : $logfile","lock"); $top = ; while () { ($no,$item,$count) = split(/<>/); if ($in{'item'} eq "$no") { $AnsItem = $item; $count++; $_="$no<>$item<>$count<>\n"; } push(@new,$_); } close(IN); if ($ipmax) { $top =~ s/\n//; @ip = split(/\s+/, $top); $match=0; $ip=""; $i=0; foreach (@ip) { $i++; if ($addr eq "$_") { $match=1; last; } if ($i < $ipmax) { $ip .= "$_ "; } } if ($match) { &error("連続投票はできません","lock"); } $ip = "$addr $ip\n"; } else { $ip = "\n"; } # 更新 unshift(@new,$ip); open(OUT,">$logfile") || &error("Write Error : $logfile","lock"); print OUT @new; close(OUT); # コメント文記録 if ($in{'comment'}) { open(IN,"$msgfile"); @lines = ; close(IN); # 記事数を調整 while ($max <= @lines) { pop(@lines); } # 時間／ホスト名を取得 &get_time; &get_host; unshift(@lines,"$date<>$AnsItem<>$in{'comment'}<>$host<>\n"); open(OUT,">$msgfile"); print OUT @lines; close(OUT); } # ロック解除 if (-e $lockfile) { unlink($lockfile); } # 完了メッセージ &header; print <<"EOM";

ご回答ありがとうございました

EOM exit; } #--------------# # 管理モード # #--------------# sub admin { if ($in{'pass'} ne "$pass") { &error("パスワードが違います"); } # 項目追加処理 if ($in{'item'}) { # ロック処理 if ($lockkey == 1) { &lock1; } elsif ($lockkey == 2) { &lock2; } $flag=0; open(IN,"$logfile") || &error("Open Error : $logfile","lock"); while() { ($no,$item2) = split(/<>/); if ($item eq "$item2") { $flag=1; last; } } close(IN); if ($flag) { &error("この項目は既に存在するため追加できません","lock"); } $no++; open(OUT,">>$logfile") || &error("Write Error : $logfile","lock"); print OUT "$no<>$item<>0<>\n"; close(OUT); # ロック解除 if (-e $lockfile) { unlink($lockfile); } } # 削除処理 if ($DEL[0]) { # ロック処理 if ($lockkey == 1) { &lock1; } elsif ($lockkey == 2) { &lock2; } open(IN,"$logfile") || &error("Open Error : $logfile","lock"); @lines = ; close(IN); $top = shift(@lines); @new=(); foreach (@lines) { $flag=0; ($no,$item) = split(/<>/); foreach $x (@DEL) { if ($no eq "$x") { $flag=1; last; } } if ($flag == 0) { push(@new,$_); } } # 更新 unshift(@new,$top); open(OUT,">$logfile") || &error("Write Error : $logfile","lock"); print OUT @new; close(OUT); # ロック解除 if (-e $lockfile) { unlink($lockfile); } } &header; print <<"EOM"; [初期画面に戻る]
管理モード

1. 項目の追加

項目

2. 項目の削除

EOM open(IN,"$logfile") || &error("Open Error : $logfile"); $top = ; while () { ($no,$item,$count) = split(/<>/); print ""; print "\n"; } close(IN); print "
削除項目得票数
$item$count
\n"; print "

\n"; print "

\n"; # ロック開始 if ($in{'action'} eq "mesg_del" && $lockkey == 1) { &lock1; } elsif ($in{'action'} eq "mesg_del" && $lockkey == 2) { &lock2; } open(IN,"$msgfile") || &error("Open Error : $msgfile","lock"); @lines = ; close(IN); # 削除処理 if ($in{'action'} eq "mesg_del") { if ($DEL[0] eq "") { &error("削除項目がありません","lock"); } @new=(); foreach (@lines) { $flag=0; ($date,$mesg) = split(/<>/); foreach $xx (@DEL) { if ($xx eq "$date") { $flag=1; last; } } if ($flag == 0) { push(@new,$_); } } # 更新 open(OUT,">$msgfile") || &error("Write Error : $msgfile","lock"); print OUT @new; close(OUT); # ロック解除 if (-e $lockfile) { unlink("$lockfile"); } @lines = @new; } print "

3. コメントの削除

\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "
\n"; foreach (@lines) { ($date,$item,$comment,$host) = split(/<>/); if (length($comment) > 30) { $comment = substr($comment,0,28); $comment .= ".."; } print "
"; print "$item $comment - $date ($host)\n"; } print "
\n"; print "
\n"; print "\n"; exit; } #------------------# # ユーザ項目追加 # #------------------# sub MakeItem { # ロック処理 if ($lockkey == 1) { &lock1; } elsif ($lockkey == 2) { &lock2; } $flag=0; open(IN,"$logfile") || &error("Open Error : $logfile","lock"); while() { ($no,$item2) = split(/<>/); if ($item eq "$item2") { $flag=1; last; } } close(IN); if ($flag) { &error("この項目は既に存在するため追加できません","lock"); } $no++; open(OUT,">>$logfile") || &error("Write Error : $logfile","lock"); print OUT "$no<>$item<>0<>\n"; close(OUT); # ロック解除 if (-e $lockfile) { unlink($lockfile); } } #----------------# # デコード処理 # #----------------# sub decode { 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; # シフトJIS変換 &jcode'convert(*value, "sjis", "", "z"); # 改行処理 $value =~ s/\r//g; $value =~ s/\n//g; # 削除情報 if ($name eq 'del') { push(@DEL,$value); } $in{$name} = $value; } $mode = $in{'mode'}; $item = $in{'item'}; } #--------------# # HTMLヘッダ # #--------------# sub header { $HEAD = 1; # ヘッダ表示フラグ print "Content-type: text/html\n\n"; print <<"EOM"; $title $body EOM } #--------------# # エラー処理 # #--------------# sub error { if ($_[1] eq "lock" && -e $lockfile) { unlink($lockfile); } if ($HEAD eq "") { &header; } print "

ERROR !

\n"; print "

$_[0]\n"; print "

\n"; print "\n"; exit; } #--------------------------------# # ロックファイル : symlink関数 # #--------------------------------# sub lock1 { local($retry) = 5; while (!symlink(".", $lockfile)) { if (--$retry <= 0) { &error("LOCK is BUSY","lock"); } sleep(1); } } #-----------------------------# # ロックファイル : open関数 # #-----------------------------# sub lock2 { local($flag) = 0; foreach (1 .. 5) { if (-e $lockfile) { sleep(1); } else { open(LOCK,">$lockfile") || &error("Write Error : $lockfile","lock"); close(LOCK); $flag = 1; last; } } if (!$flag) { &error("LOCK is BUSY","lock"); } } #------------# # 桁区切り # #------------# sub filler { local($_) = $_[0]; 1 while s/(.*\d)(\d\d\d)/$1,$2/; return $_; } #----------------# # ホスト名取得 # #----------------# sub get_host { $host = $ENV{'REMOTE_HOST'}; # $addr = $ENV{'REMOTE_ADDR'}; if ($host eq "" || $host eq "$addr") { $host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2); } if ($host eq "") { $host = $addr; } } #--------------# # 時間の取得 # #--------------# sub get_time { # 日時の取得 $ENV{'TZ'} = "JST-9"; ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time); # 日時のフォーマット @week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat'); $date = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d", $year+1900,$mon+1,$mday,$week[$wday],$hour,$min,$sec); }