#!/usr/bin/perl #┌───────────────────────────────── #│ CHARM BOARD v1.0 - 2004/09/08 #│ copyright (c) KentWeb #│ webmaster@kent-web.com #│ http://www.kent-web.com/ #└───────────────────────────────── $ver = 'CHARM BOARD v1.0'; #┌───────────────────────────────── #│ [注意事項] #│ 1. このスクリプトはフリーソフトです。このスクリプトを使用した #│ いかなる損害に対して作者は一切の責任を負いません。 #│ 2. 設置に関する質問はサポート掲示板にお願いいたします。 #│ 直接メールによる質問は一切お受けいたしておりません。 #└───────────────────────────────── #------------------------------------------------- # 基本設定 #------------------------------------------------- # ライブラリ取り込み require './jcode.pl'; # タイトル $title = "一行コメント"; # 本体ファイルURL $script = './charm.cgi'; # 管理用パスワード $pass = '0652'; # 最大記事数(これを超える記事は古い順に削除) $max = 100; # 本文文字サイズ $body_size = '12px'; # 本文文字スタイル $body_face = '"MS UI Gothic", "MS Pゴシック", Osaka'; # bodyタグ $body = '
'; # ログファイル $logfile = './charmlog.cgi'; # 管理者コメントファイル $comfile = './charm.dat'; # 文字色の設定 # → スペースで区切る $color = '#800000 #DF0000 #008040 #0000FF #C100C1 #FF80C0 #FF8040 #000080'; # ホスト取得方法 # 0 : gethostbyaddr関数を使わない # 1 : gethostbyaddr関数を使う $gethostbyaddr = 0; # クッキーID $cook_id = 'charm_board'; # スマイルアイコン # → スペースで区切る $smile = 'smile01.gif smile02.gif smile03.gif smile04.gif smile05.gif smile06.gif smile07.gif'; # 画像ディレクトリURL $imgurl = './img'; # 戻り先 $backurl = '../index.html'; # 記事の更新は method=POST 限定する場合(セキュリティ対策) # → 0=no 1=yes $postonly = 1; # 1ページあたりの記事表示件数 $pageLog = 10; # ファイルロック形式 # → 0=no 1=symlink関数 2=mkdir関数 $lockkey = 0; # ロックファイル名 $lockfile = './lock/charm.lock'; # アクセス制限(半角スペースで区切る) # → 拒否するホスト名又はIPアドレスを記述(アスタリスク可) # → 記述例 $deny = '*.anonymizer.com 211.154.120.*'; $deny = '212.98.168.142 216.130.157.51 200.222.68.38 69.182.171.102 58.231.61.170 strat5.hccanet.org 85-18-156-24.ip.fastwebnet.it dc2correo.utbb.edu.mx 219.93.21.20 *.uitm.edu.my *.rev.coltfrance.com 38.trans144.gye.satnet.net fsl.profinet.at 210.217.118.34 *.in-addr.arpa 209.68.139.100 c9111d27.rjo.virtua.com.br 216.184.127.178 216.129.105.148 59.10.55.191 201.225.249.101'; #------------------------------------------------- # 設定完了 #------------------------------------------------- &decode; &axscheck; if ($mode eq "regist") { ®ist; } elsif ($mode eq "mente") { &mente; } elsif ($mode eq "admin") { &admin; } elsif ($mode eq "check") { ✓ } &logview; #------------------------------------------------- # 初期画面 #------------------------------------------------- sub logview { local($mycom,$i,$no,$date,$name,$msg,$col,$ico,$pw,$hos,$res,$col2,$ico2,$next,$back,@ico,@col); # 管理者コメント open(IN,"$comfile"); $mycom =