#!/usr/local/bin/perl #┌───────────────────────────────── #│ WEB ENQUETE v3.2 (2002/08/02) #│ Copyright(C) Kent Web 2002 #│ webmaster@kent-web.com #│ http://www.kent-web.com/ #└───────────────────────────────── $ver = 'WEB ENQUETE v3.2'; #┌───────────────────────────────── #│ [注意事項] #│ 1. このスクリプトはフリーソフトです。このスクリプトを使用した #│ いかなる損害に対して作者は一切の責任を負いません。 #│ 2. 設置に関する質問はサポート掲示板にお願いいたします。 #│ 直接メールによる質問は一切お受けいたしておりません。 #└───────────────────────────────── # # 【ファイル構成例】 # # public_html (ホームディレクトリ) # | # +-- enq / enq.cgi [755] # | enq.log [666] # | jcode.pl [644] # | graph.gif # | # +-- lock [777] / # # # 【チェックモード呼び出し例】 # # http://www.xxx.xxx/enq/enq.cgi?mode=check # #============# # 設定 # #============# # ライブラリ取り込み require './jcode.pl'; # タイトル名 $title = "所得税法[O−HARA]"; # タイトル文字の色 $t_color = "#1D7D7B"; # タイトル文字の大きさ (スタイルシートで反映) $t_size = '18pt'; # 本文の文字大きさ (スタイルシートで反映) $b_size = '10pt'; # 本文の文字タイプ (スタイルシートで反映) $f_family = "MS UI Gothic"; # 投票結果テーブルの下地の色 $tbl_color = "#FFFFFF"; # スクリプト名 $script = './enq.cgi'; # ログファイル名 $logfile = './enq.log'; # 管理用パスワード $pass = 'houjin1234'; # ユーザ項目追加機能(ユーザが自由に項目を追加可能) # 0 : しない # 1 : する(同一人物による連続した追加行為は禁止) # 2 : する(同一人物による連続した追加行為は可能) $freeitem = 0; # グラフ画像 (絶対パスだと http://から) $graph = "../../graph.gif"; # 戻り先 (絶対パスだと http://から) $home = "../../index.htm"; # bodyタグ $body = '
'; # ロックファイル機構 (0=no 1=yes) $lockkey = 1; # ロックファイル名 $lockfile = './lock/enq.lock'; # 二重登録チェック (0=no 1=yes) # → IPアドレスによる重複チェック機能 $ip_check = 1; # 投稿時は「method=POST」限定 (0=no 1=yes) # → セキュリティ対策 $postonly = 1; # 他サイトから投稿排除時に指定 (http://から書く) # → セキュリティ対策 $myurl = ""; # 戻るボタン (0=no 1=yes) # → Javascriptによる戻るボタン表示機能 $BackButton = 1; # サブタイトル # → タイトル下にサブタイトルを記述します。(タグ使用可) $subtitle = <<'EOM';\n" if ($banner1 ne ""); # タイトル if ($ImgT) { print "\n"; } else { print "
$subtitle |
\n"; print "- WebEnquete -\n"; print "