#!/usr/bin/perl #手動で強引に家族構成、年齢を追加。 #汎用性など全く考えていない。 #ついでに回答者カウントを追加。とにかく##,person,ageを追え。 #┌───────────────────────────────── #│ WEB ENQUETE v4.2 (2004/01/02) #│ Copyright (c) KentWeb #│ webmaster@kent-web.com #│ http://www.kent-web.com/ #└───────────────────────────────── $ver = 'WEB ENQUETE v4.2'; #┌───────────────────────────────── #│ [注意事項] #│ 1. このスクリプトはフリーソフトです。このスクリプトを使用した #│ いかなる損害に対して作者は一切の責任を負いません。 #│ 2. 設置に関する質問はサポート掲示板にお願いいたします。 #│ 直接メールによる質問は一切お受けいたしておりません。 #└───────────────────────────────── # # 【ファイル構成例】 # # public_html (ホームディレクトリ) # | # +-- enq / enq.cgi [705] # | enq.log [606] # | axslog.cgi [606] # | jcode.pl [604] # | graph.gif # | # +-- lock [707] / # # 【チェックモード呼び出し例】 # # http://www.xxx.xxx/enq/enq.cgi?mode=check # #------------------------------------------------- # ▼基本設定 #------------------------------------------------- # ライブラリ取り込み require './jcode.pl'; # タイトル名 $title = "作家別書籍所有率調査"; # タイトル文字の色 $t_color = "#444444"; # タイトル文字サイズ $t_size = '20px'; # 本文の文字サイズ $b_size = '13px'; # 本文の文字フォント $b_face = "MS UI Gothic, Osaka"; # スクリプトURL $script = './writer.cgi'; # データファイル ##本当は/homeにおきたいが、どうもうまく行かないのであきらめ。 ##まあremote hostくらい勘弁していただこう。(2005/05/18) ##隠蔽するならファイル名をわかりにくくするだけでも効果あり。 $logfile = './writer.log'; $logfile2 = './writer2.log'; $logfile3 = './writer3.log'; # アクセスログ $axslog = './waxslg.cgi'; # アクセスログの記録数 # 実際には1000件を超えると1Mを超えるので、loglotateも考えよう。 $logMax = 20000; # 管理用パスワード $pass = 'xxxxxx'; # ユーザ項目追加機能(ユーザが自由に項目を追加可能) # 0 : しない # 1 : する(同一IPによる連続した追加行為は禁止) # 2 : する(同一IPによる連続した追加行為は可能) $freeitem = 0; # グラフ画像 (絶対パスだと http://から) $graph = "./graph.gif"; # 戻り先 (絶対パスだと http://から) $home = "../"; # bodyタグ #$body = '
'; $body = ''; # テーブル内「タイトル」セル色 $tblCol1 = "#ffffff"; # 文字色 $tblCol2 = "#666666"; # 下地色 # テーブル内「項目」セル色 $tblCol3 = "#000000"; # 文字色 $tblCol4 = "#ffffff"; # 下地色 # ロックファイル機構 (0=no 1=yes) $lockkey = 0; # ロックファイル名 $lockfile = './lock/enq.lock'; # 投票の回答形式 # 0 : 単一回答(ラジオボタン) # 1 : 複数回答(チェックボックス) $type = 1; # 集計結果はソートする # 0 : しない # 1 : する $sort = 1; # 投稿制限(セキュリティ対策) # 0 : しない # 1 : 同一IPアドレスからの投稿間隔を制限する # 2 : 全ての投稿間隔を制限する $regCtl = 0; # 制限投稿間隔(秒数) # → $regCtl での投稿間隔 $wait = 120; # 投稿時は「method=POST」限定 (0=no 1=yes) # → セキュリティ対策 $postonly = 1; # 他サイトから投稿排除時に指定する場合(セキュリティ対策) # → 掲示板のURLをhttp://から書く $baseUrl = ''; # サブタイトル # → タイトル下にサブタイトルを記述します。(タグ使用可) $subtitle = <<'EOM';\n" if ($banner1 ne "");
# タイトル
if ($ImgT) {
print "\n";
} else {
print "$title\n";
}
##世帯環境〜年齢部分は追加コーディング(2005/5/17)
print <
有効投票者:$person2人 有効投票数:$all2件
$subtitle