#!/usr/local/bin/perl #┌───────────────────────────────── #│ Sun Board v3.04 (2002/04/03) #│ Copyright(C) KENT WEB 2002 #│ webmaster@kent-web.com #│ http://www.kent-web.com/ #└───────────────────────────────── $ver = 'Sun Board v3.04'; #┌───────────────────────────────── #│ [注意事項] #│ 1. このスクリプトはフリーソフトです。このスクリプトを使用した #│ いかなる損害に対して作者は一切の責任を負いません。 #│ 2. 設置に関する質問はサポート掲示板にお願いいたします。 #│ 直接メールによる質問は一切お受けいたしておりません。 #└───────────────────────────────── # # [ 設置例 ] # # public_html / index.html (トップページ) # | # +-- sunbbs / sunbbs.cgi [755] # | sunbbs.log [666] # | index.html [666] # | index2.html [666] # | jcode.pl [644] # | pastno.dat [666] ... 過去ログ時 # | # +-- lock [777] / # | # +-- past [777] / 0001.dat [666] ... 過去ログ時 #============# # 設定項目 # #============# # コード変換ライブラリ取込 require './jcode.pl'; # タイトル名 $title = "ウェルネスコラム"; # タイトルの色 #$t_color = "#D8D8D8"; $t_color = "#dd00dd"; # タイトルのサイズ $t_size = '18pt'; # 壁紙 (http://から指定) $bg = ""; # 背景色 #$bc = "#5F6761"; $bc = "#F0F4FF"; # 文字色 #$tx = "#FFFFFF"; $tx = "#000000"; # リンク色 #$lk = "#FFFF80"; # 未訪問 #$vl = "#FFFF80"; # 訪問済 #$al = "#CC0000"; # 訪問中 $lk = "#009999"; #vl = "#009999"; $al = "CC0000"; # 管理用パスワード(英数字) $pass = '631001'; # 戻り先 (index.htmlなど) $home = "../index1.html"; # 記事の最大保持数 $max = 40; # 表示ファイル第1ページの記事数 $pagelog = 10; # 自動リンク (0=no 1=yes) $autolink = 1; # CGIスクリプト自身をURLで指定 $script = './sunbbs.cgi'; # 表示ファイル(index.html)のあるディレクトリをURLで指定 # → 最後は / で閉じる $htm_url = 'http://www.pmai.jp/'; # 表示ファイル(index.html)のあるディレクトリをサーバパスで指定 # → 最後は / で閉じる # → フルパスなら / から始まるパス(http://からではない) $htm_dir = './'; # 新着情報ボードモード (0=no 1=yes) # → 書き込みは管理者限定となります $whatsnew = 1; # 題名部の色 #$obi_color = "#404040"; $obi_color = "#00cccc"; # 題名部ポインタ $point = '■'; # 戻り先部ポインタ $point2 = '▲'; # ポインタの色 #$p_color = "#FFCC33"; $p_color = "#009999"; # 題名の色 #$s_color = "#FFFFFF"; $s_color = "##000099"; # タイトルGIF画像 (http://から記述) $t_gif = "http://www.pmai.jp/sunbbs/logo.gif"; # タイトル画像の大きさ $tg_w = '362'; # 横幅 $tg_h = '35'; # 高さ # ログファイル名 # → フルパスなら / から記述(http://からではない) $logfile = './sunbbs.log'; # 表示ファイルHTML (第1ページ) # → ファイル名のみを記述 $htmfile = "index.html"; # 表示ファイルHTML (第2ページ) # → ファイル名のみを記述 $nexthtm = "index2.html"; # 掲示板使用時のタグ許可 (0=no 1=yes) $tagkey = 0; # method形式 (POST/GET) $method = 'POST'; # ロックファイル処理 # 0 : なし # 1 : あり(symlink関数) # 2 : あり(mkdir関数) $lockkey = 0; # ロックファイル名 $lockfile = './lock/sunbbs.lock'; # ブラウザのキャッシュ取込を拒否 (0=no 1=yes) $nocashe = 1; # 投稿後に内容確認画面を表示 (0=no 1=yes) # → 投稿後自動的に表示画面に戻らない場合は「1」とすること $msg_check = 1; # 投稿があるとメール通知する (0=no 1=yes) $mailing = 1; # メールアドレス(メール通知する時) $mailto = 'harada@asnt.co.jp'; # sendmailパス(メール通知する時) $sendmail = '/usr/lib/sendmail'; ## --- 管理者コメント(タイトル下部にちょっとしたコメントを表示できます) $message = <<"MSG"; 個人別の健康管理方法を分析、提案するパートナーとして。 \予\防医学分析研究所 若狭良成 MSG #---(以下は「過去ログ」機能を使用する場合の設定です)---# # # 過去ログ生成 (0=no 1=yes) $pastkey = 1; # 過去ログ用NOファイル $nofile = './pastno.dat'; # 過去ログのディレクトリ # → フルパスなら / から記述(http://からではない) # → 最後は必ず / で閉じる $pastdir = './past/'; # 過去ログ1ファイルの行数 # → この行数を超えると次ページを自動生成します $log_line = 600; #============# # 設定完了 # #============# &decode; if ($mode eq 'regist') { ®ist; } elsif ($mode eq 'form') { &form; } elsif ($mode eq 'find') { &find; } elsif ($mode eq 'admin') { &admin; } elsif ($mode eq 'mente') { &mente; } elsif ($mode eq 'edit') { &edit; } elsif ($mode eq 'userdel') { &userdel; } elsif ($mode eq "past" && $pastkey) { &past; } elsif ($mode eq "check") { ✓ } &location; #----------------# # 投稿フォーム # #----------------# sub form { # フォームサイズを定義 &form_size; print &header; print "[戻る]\n"; print "