#!/usr/bin/perl
#==========================================================
$ver = "WEB de アンケート v7.7";
# Cool and Cool http://www.coolandcool.net/
# しょういち webmaster@coolandcool.net
#==========================================================
# jcode.plを同じフォルダに入れる。
require './jcode.pl';
#■ 基本設定_______________________________________________
# パスワード
$password = 'test';
# このcgiファイルを入れてるフォルダを絶対パスで（http://から）指定。最後の / は不要。
$stop_u = 'http://janus:8080/web_de';
# 戻り先。
$back_url = '../index.html';
# 画像ファイルを入れるフォルダ。最後の「/」は不要。
$icon_dir = '.';
# Location コマンドが使えないサーバーは次の設定を1に（通常は0）
$move_op = 0;
#■ ページ設定_____________________________________________
# タイトルタグ用
$master_title = 'Web de アンケート';
# ボディタグ
$master_body = "";
# タイトル
$bbs_title = "
";
# コメント
$master_comment = ' お気軽に投票 / コメント投稿してください！';
# フォントサイズ（単位はポイント）
$font_size = '11';
# 表の幅
$table_width = '700';
# ラインカラー
$line_color = '#AAAAAA';
# グラフの最大長さ（１位のグラフの長さがここで設定した長さになります）
$line_width = '250';
# 締め切り時間超過カラー
$out_color = '#FF0000';
# コメント記事のヘッドマーク
$mark = "■";
# NEWマークを表示する時間（単位は時。0にすればつかなくなる。）
$ch_time = '48';
#■ 応用設定_______________________________________________
$auto_link = 1; # 自動リンク (1=on 0=off)
# ↓リンク置き換え文字
$link_mark = '[Click]';
# カウンター機能 (1=on 0=off)
$counter_sw = 1;
# コメント機能 (1=on 0=off)
$view_s = 1;
# コメントプレビュー (1=ランダム表示 2=最新表示 3=最古表示)
$view_h = 2;
# コメント投稿可能な最大文字数（この文字数を越えて投稿することはできない）
$c_max = 250;
# 一つの項目に対する最大保存コメント数（これを越えて投稿があるとその分古い記事が削除される）
$max = 500;
# コメント表示部のバックカラー
$back_color = "#EEEEEE";
# 匿名投稿の可否（0=匿名投稿不可、1=匿名投稿可）
$namechck = 1;
# 各ウインドウサイズ設定
$v_width = 500; # コメント表示ウインドウ横
$v_height = 500; # コメント表示ウインドウ縦
$c_width = 400; # コメント投稿ウインドウ横
$c_height = 130; # コメント投稿ウインドウフォーム表示欄縦
$l_height = 250; # コメント投稿ウインドウ記事表示欄縦
#■ 広告設定_______________________________________________
$upcm = ''; # 上部に表示するCM
$dncm = ''; # 下部に表示するCM
#■ ファイル設定___________________________________________
$log_file = 'log'; # ログファイルを入れるフォルダ
$access_file = 'access.cgi'; # アクセスログファイル
$count_file = 'count.txt'; # カウンターファイル
$master_file = 'master.cgi'; # 設定ファイル
#■ メール通知設定_________________________________________
# （sendmailが使えないサーバーでは、通知メール機能は使えません。）
$mail_mode = 0; # 書き込み通知 (1=on 0=off)
# ↓通知先のメールアドレス
$mail_master = 'xxxx@xxxx.com';
$post_cc = ""; # 追加でメール通知をしたいメールアドレス（不要の場合は空欄に）
# ↓通知メールの題名
$mail_subject = "$master_title 通知メール";
# ↓sendmailパス
$sendmail = '/usr/bin/sendmail';
#■ セキュリティー設定_____________________________________
$access_sw = 1; # 投稿（アクセス）ログ保存 (1=投稿・投票のみ 2=表示も含む 0=off)
$access_n = "300"; # 保存するログ件数
$access_out = 0; # 外部アクセス禁止 (1=on 0=off)
$access_deny = 1; # アクセス拒否 (1=on 0=off)
# ↓投稿禁止文字機能。次の文字列が投稿項目に含まれている場合は無視する（コメント文には非適応）。
@deny_word = ('ばか','あああ','死','aaa','eee');
#■ 設定ここまで___________________________________________
# 処理開始_________________________________________________
&decode;
if ( $access_deny eq "1" ) { &deny; }
if ( $_mode eq "vote" ) { &vote; }
if ( $_mode eq "com" ) { &input_form; }
if ( $_mode eq "form" ) { &form; }
if ( $_mode eq "regist" ) { ®ist; }
if ( $_mode eq "cview" ) { &cview; }
if ( $_mode eq "system" && $id eq "m_system" ) { &m_system; }
if ( $_mode eq "m_system2" ) { &m_system2; }
if ( $_mode eq "chng_them" ) { &thm1; }
if ( $_mode eq "system" ) { &system; }
if ( $_mode eq "system2" ) { &system2; }
if ( $_mode eq "cview2" ) { &cview2; }
if ( $_mode eq "edit_form" ) { &edit_form; }
if ( $_mode eq "edit_com" ) { &edit_com; }
if ( $_mode eq "how" ) { &how; }
if ( $_mode eq "ip" ) { &ip; }
if ( $_mode eq "save_ip" ) { &save_ip; }
if ( $_mode eq "viewaccess" ) { &view_access; }
if ( $_mode eq "view" ) { &view; }
∫
exit;
# オープニング_____________________________________________
sub int {
&master_read; &head;
$ms = $master_comment; $bu = $back_url;
$sw_b = 1; &title; &get_time;
if ( $access_sw eq "2" ) { $new_v="* トップページへアクセス"; &access; }
print "| テーマ | 投票〆切
（現在は $mon\/$mday $hour\:$min） |
\n";
foreach $master (@master) {
($ord,$id,$them,$comm,$d1,$d2,$d3,$d4,$d5,$chk1) = split(/<>/,$master);
if ( $them ne "" ) {
print "| \n$them | \n";
if ( $d1 ne "" ) { print "$d1年 $d2月$d3日 $d4：$d5"; } else { print "なし"; }
print " |
\n";
}
}
print "
";
$id_r="m_system";
©
exit;
}
# ページ表示_______________________________________________
sub view {
&master_read;
foreach $master (@master) {
($ord,$id_r,$them,$comm,$d1,$d2,$d3,$d4,$d5,$chk1) = split(/<>/,$master);
if ( $id eq $id_r ) { last; }
}
$nowtime = time; if ( $access_sw eq "2" ) { &get_time; $new_v="* 「$them」へアクセス"; &access; }
$h_height = $l_height + $c_height;
$js ="\n\n\n";
&head; &get_time;
$time_out = 0;
if ( $d1 ne "" ) {
if ( $year > $d1 ) { $time_out = 1; } elsif ( $year == $d1) {
if ( $mon > $d2 ) { $time_out = 2; } elsif ( $mon == $d2 ) {
if ( $mday > $d3 ) { $time_out = 3; } elsif ( $mday == $d3) {
if ( $hour > $d4 ) { $time_out = 4; } elsif ( $hour == $d4 ) {
if ( $min >= $d5 ) { $time_out = 5; }
}
}
}
}
}
if ( $time_out ) { $time_msg ="投票〆切が過ぎたので投票はできません。"; } else { $time_msg ="投票〆切 $d1年 $d2月$d3日 $d4：$d5"; }
$mss="| テーマ：$them |
 |
| ";
if ( $d1 ne "" ) { $mss="$mss \n $time_msg"; } else { $mss="$mss \n 投票〆切なし"; }
$mss="$mss |
"; $ms = $comm;
if ( $pass ) { $mode_mssg="項目追加モード"; }
$bu='web_de.cgi?_mode=return'; &title; &log_read; &ready; &txt_read;
print "
";
©
exit;
}
# 投票処理_________________________________________________
sub vote {
if ( $access_out ) { &acc_chk; } &get_time;
&get_host; &log_read;
$cookie_name = "web_de$id"; &get_cookie;
$count_a = 0; $count_b = 0;
if ( $new_v ) {
foreach $deny_w (@deny_word) {
if ( $new_v =~ $deny_w ) {
$new_v = "$new_v (登録拒否)"; $count_b = 1; if ( $access_sw ) { &access; }
&error("
投稿をお受けできません。
投稿した文字に、許可されていない文字が含まれていました。"); }# ■■■投稿拒否時メッセージ■■■
}
}
foreach $vote (@vote) {
($number_v,$value_v) = split(/<>/,$vote);
$num = $number_v - 1;
($number,$count,$title,$date_v,$host1,$host2,$host3,$host4,$host5,$url_v) = split(/<>/,$lines[$num]);
if ( $host ne $host1 && $host ne $host2 && $host ne $host3 && $host ne $host4 && $host ne $host5 && $COOKIE{$number} eq "" ) {
$count++; $date_v = $date; $count_a++;
} else { $count_b++; }
$lines[$num] = "$number<>$count<>$title<>$date_v<>$host<>$host1<>$host2<>$host3<>$host4<>$url_v<>\n";
}
if ( $new_v ) {
$fault = 0;
foreach $lines(@lines) {
($number,$count,$title,$date_v,$host1,$host2,$host3,$host4,$host5,$url_v) = split(/<>/,$lines);
if ( $new_v eq $title ) { $count_b++; $fault = 1; last; }
}
if ( !$fault ) {
$lines[0] = $lines[0] + 1;
push(@lines,"$lines[0]<>1<>$new_v<>$date<>$host<><><><><>$url<>\n"); $count_a++;
push(@vote,"$lines[0]<>$new_v<>\n");
$lines[0] = "$lines[0]\n";
}
}
if ( $access_sw ) { &access; }
&log_save;
&set_cookie;
$cookies = $ENV{'HTTP_COOKIE'};
$cookies =~ s/\+/ /g;
$cookies =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg;
@pairs = split(/;/,$cookies);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ s/ //g;
$DUMMY{$name} = $value;
}
$cookie_body=$DUMMY{"web_de$id"};
foreach $vote (@vote) {
($number_v,$value_v) = split(/<>/,$vote);
$cookie_body ="$cookie_body$number_v<>on\,";
}
# chop $cookie_body;
$cookie_body =~ s/([^\w\=\& ])/'%' . unpack("H2", $1)/eg;
$cookie_body =~ tr/ /+/;
print "Set-Cookie: web_de$id=$cookie_body; expires=$date_gmt;\n";
$move_to = "$stop_u\/web_de.cgi\?_mode=view\&id=$id\&pass=$pass"; &move_to;
exit;
}
# =====コメント関係========================================
# コメントウインドウ_______________________________________
sub input_form {
print "Content-type: text/html\n\n";
print "\n\n";
print "$master_title";
print "";
print "\n<![CDATA[\n<body><p> </p><p align=\"center\">フレーム未対応のブラウザではこの\機\能\は使えません。<BR>ブラウザの戻るボタンで前のページに戻り、通常\表\示\ボタンをクリックし、通常\表\示\モードでレスを入れてください。</p>";
print "<BR><BR><BR><BR><BR><BR></body>\n]]>\n";
exit;
}
# コメント投稿フォーム_____________________________________
sub form {
$cookie_name = "CoolNoteForm"; &get_cookie;
$name = $COOKIE{"name"}; $url = $COOKIE{"url"};
$action = "";
print "