#!/usr/local/bin/perl ## Honey Board v1.5 (00/05/04) ## Copyright(C) Kent Web 2000 ## Mail: webmaster@kent-web.com ## Home: http://www.kent-web.com/ $ver = 'Honey v1.5'; # バージョン情報 #--- [注意事項] ------------------------------------------------# # 1. このスクリプトはフリーソフトです。このスクリプトを使用した # # いかなる損害に対して作者は一切の責任を負いません。 # # 2. 設置に関する質問はサポート掲示板にお願いいたします。 # # 直接メールによる質問は一切お受けいたしておりません。 # #---------------------------------------------------------------# #============# # 設定 # #============# # 文字コードライブラリ取込み require './jcode.pl'; # タイトル名 $title = "プログラム"; # タイトル文字の色 $t_color = "#00FF00"; # タイトル文字のタイプ $t_face = "MS Pゴシック"; # タイトル文字サイズ(スタイルシートで有効) $t_point = '18pt'; # 本文の文字サイズ(スタイルシートで有効) $b_size = '10pt'; # スクリプト名 $script = "./honey3.cgi"; # ログファイル名 $logfile = "../bbs/prog/prog.log"; # 管理用パスワード $pass = '4126'; # 最大記事数(これを超える記事は古い順に削除されます) $max = 100; # 戻り先 $home = "../index.html"; # 画像格納ディレクトリ(絶対パスなら http://から記述) $imgurl = "./img"; # 背景色、文字色 $bgrnd = ""; # 壁紙 $bgcol = "#000000"; # 背景色 $text = "#404040"; # 文字色 $link = "#0000FF"; # リンク色:未訪問 $vlink = "#800080"; # リンク色:既訪問 $alink = "#DD0000"; # リンク色:訪問中 # 記事タイトル色 / 記事Noの色 $onepnt = "#FF80FF"; # 文字色 @colors = ('#800000','#DF0000','#008040','#0000FF', '#C100C1','#FF80C0','#FF8040','#000080'); # 記事表示部「下地」の色 (1=白 2=グレー) $oya_sita = 1; # 親記事 $res_sita = 2; # レス記事 # Eメールアドレスの必須入力 (0=no 1=yes) $in_email = 1; # method形式 (POST/GET) $method = 'POST'; # タグ許可 (0=no 1=yes) $tagkey = 0; # URLの自動リンク (0=no 1=yes) # --> タグ許可の場合は no とすること。 $autolink = 1; # 1ページあたりの記事表示件数 $p_log = 7; # レスがついたらツリー毎トップへ移動 (0=no 1=yes) $top_sort = 1; # ホスト名取得に gethostbyaddr関数を使用 (0=no 1=yes) $gethostbyaddr = 0; # ロックファイル機構 (0=no 1=symlink関数 2=open関数) # --> ロックファイル機構を使用する場合ロックファイルを生成するディレクトリ # のパーミッションは 777 に設定する $lockkey = 0; # ロックファイル名 $lockfile = "./honey.lock"; # メール通知機能 # --> 0 : no # --> 1 : yes 自分の投稿記事もメール通知する # --> 2 : yes 自分の投稿記事はメール通知しない $mailing = 0; # sendmailのパス(メール通知する場合) $sendmail = '/usr/lib/sendmail'; # メール通知先アドレス(メール通知する場合) $mailto = 'foo@xxx.ne.jp'; # キャラクタを指定(上下の配列はペアで) @icon1 = ( 'boy1.gif','boy2.gif','seinen.gif','girl1.gif','girl2.gif', 'ol1.gif','ol2.gif','ol3.gif','china.gif','cook.gif','piero.gif', 'dog.gif','cat.gif','mouse.gif','pig.gif','hiyoko.gif','flog.gif'); @icon2 = ( '少年1','少年2','青年','少女1','少女2', 'OL風1','OL風2','OL風3','中国風','コック風','ピエロ', '子犬','子猫','子ネズミ','子ブタ','ヒヨコ','カエル'); # 管理者用アイコン # --> 管理アイコンを指定する場合は「削除キー」欄に管理用パスワードを # 同時に入力する必要があります。 $mgr_icon = "master.gif"; # タグ広告挿入オプション (FreeWebなど) # → の代わりに「広告タグ」を挿入する。 # → 広告タグ以外に、MIDIタグ や LimeCounter等のタグにも使用可能です。 $banner1 = ''; # 掲示板上部に挿入 $banner2 = ''; # 掲示板下部に挿入 # アクセス制限(拒否するホスト名を記述) @deny = ( "anonymizer", "cache*.*.interlog.com", "", "", "", "", "", "", "" ); # タイトル画像を使う場合 # --> 画像URLを http:// から記述 $ImgT = ""; $ImgW = "150"; # 画像横幅 $ImgH = "50"; # 画像縦幅 #============# # 設定完了 # #============# # イメージディレクトリ調整 $imgurl =~ s/\/$//; &decode; &axs_check; if ($mode eq 'regist') { ®ist; } if ($mode eq 'find') { &find; } if ($mode eq 'howto') { &howto; } if ($mode eq 'admin') { &admin; } if ($mode eq 'usrdel') { &usrdel; } if ($mode eq 'image') { ℑ } if ($mode eq 'res') { &res_msg; } &html; #----------------# # アクセス制限 # #----------------# sub axs_check { # ホスト名を取得 &get_host; if ($deny[0]) { local($flag)=0; foreach (@deny) { if ($_ eq '') { last; } $_ =~ s/\*/\.\*/g; if ($host =~ /$_/) { $flag=1; last; } } if ($flag) { &error("アクセスを許可されていません") } } } #----------------# # 記事表示処理 # #----------------# sub html { &header; print "
\n"; } # タイトル部 if ($ImgT) { print "\n"; } else { print "$title\n"; } print <<"EOM";
\n"; print " | \n";
print "
\n"; # 著作権表示(削除不可) print " \n"; print "- Honey Board -\n"; print " |