#!/usr/local/bin/perl # YY-BOARD v4.1 (2001/01/27) # Copyright(C) Kent Web 1997-2001 # webmaster@kent-web.com # http://www.kent-web.com/ # バージョン情報 $ver = 'YYBBS v4.1'; #--- [注意事項] ------------------------------------------------# # 1. このスクリプトはフリーソフトです。このスクリプトを使用した # # いかなる損害に対して作者は一切の責任を負いません。 # # 2. 設置に関する質問はサポート掲示板にお願いいたします。 # # 直接メールによる質問は一切お受けいたしておりません。 # # 3. 添付の home.gif は L.O.V.E の mayuRin さんによる画像です。 # #---------------------------------------------------------------# # 【ファイル構成例】 # # public_html (ホームディレクトリ) # | # +-- yybbs / yybbs.cgi [755] # | yybbs.log [666] # | count.dat [666] # | jcode.pl [644] # | pastno.dat[666] # | # +-- img / home.gif, bear.gif, ... # | # +-- lock [777] / # | # +-- past [777] / 1.dat [666] ... #============# # 設定項目 # #============# $fBBSDB = "../../cgi2/dbfile/bbsdb.dat"; # 文字コードライブラリ取込 require "./jcode.pl"; # タイトル名を指定 $title = "大館市・田代町合併協議会【みんなの広場】"; # タイトルの色 $t_color = "#000000"; # タイトルの大きさ（ポイント数:スタイルシートで有効） $t_size = '20pt'; # タイトル文字のフォントタイプ $t_face = "ＭＳ Ｐゴシック"; # 本文の文字大きさ（ポイント数:スタイルシートで有効） $b_size = '12pt'; # 壁紙を指定する場合（http://から指定） $backgif = ""; # 背景色を指定 $bgcolor = "#FFFFFF"; # 文字色を指定 $text = "#000000"; # リンク色を指定 $link = "#0000FF"; # 未訪問 $vlink = "#800080"; # 訪問済 $alink = "#FF0000"; # 訪問中 # 戻り先のURL (index.htmlなど) $homepage = "../../"; # 最大記事数 $max = 2000; # 管理者用マスタパスワード (英数字で８文字以内) $pass = 'gappe1'; # アイコン画像のある「ディレクトリ」 # → フルパスなら http:// から記述する # → 最後は必ず / で閉じる $imgurl = "./img/"; # アイコンを定義（上下は必ずペアで） @icon1 = ('bear.gif','cat.gif','cow.gif','dog.gif','fox.gif','hituji.gif', 'monkey.gif','zou.gif','mouse.gif','panda.gif','pig.gif','usagi.gif'); @icon2 = ('くま','ねこ','うし','いぬ','きつね','ひつじ', 'さる','ぞう','ねずみ','パンダ','ぶた','うさぎ'); # 管理者専用アイコン機能 (0=no 1=yes) # --> 【使い方】記事投稿時に「管理者アイコン」を選択し、削除キーに # 「管理用パスワード」を入力して下さい。 $my_icon = 0; # 管理者専用アイコンの「ファイル名」を指定 $my_gif = 'admin.gif'; # アイコンモード (0=no 1=yes) $icon_mode = 0; # 返信がつくと親記事をトップへ移動 (0=no 1=yes) $topsort = 1; # ホスト名取得モード # --> 0 : $ENV{'REMOTE_HOST'} で取得できる場合 # --> 1 : gethostbyaddr で取得できる場合 $get_remotehost = 0; # タイトルにGIF画像を使用する時 (http://から記述) $title_gif = "t_bbs.gif"; $tg_w = '600'; # GIF画像の幅 (ピクセル) $tg_h = '75'; # 〃 高さ (ピクセル) # ファイルロック形式 # → 0=no 1=symlink関数 2=open関数 3=mkdir関数 # → 設定する場合は、ロックファイルを生成するディレクトリ # のパーミッションは原則として「777」に設定する。 $lockkey = 3; # ロックファイル名 $lockfile = "./lock/yybbs.lock"; # ミニカウンタの設置 # --> 0=no 1=テキスト 2=GIF画像 $counter = 0; # ミニカウンタの桁数 $mini_fig = 6; # テキストのとき：ミニカウンタの色 $cnt_color = "#555555"; # ＧＩＦのとき：画像までのディレクトリ # → 最後は必ず / で閉じる $gif_path = "./img/"; $mini_w = 8; # 画像の横サイズ $mini_h = 12; # 画像の縦サイズ # カウンタファイル $cntfile = "./count.dat"; # タグの許可 (0=no 1=yes) $tagkey = 0; # スクリプトのファイル名 # --> フルパスで指定する場合は http:// から記述 $script = "./yybbs.cgi"; # ログファイルを指定 # --> フルパスで指定する場合は / から記述 $logfile = "./yybbs.log"; # 記事 [タイトル] 部の長さ (全角文字換算) $sub_len = '12'; # 記事の [タイトル] 部の色 $sub_color = "#006400"; # 記事表示部の下地の色 $tbl_color = "#FFFFFF"; # 家アイコンの使用 (0=no 1=yes) $home_icon = 1; $home_gif = "home.gif"; # 家アイコンのファイル名 $home_wid = 16; # 画像の横サイズ $home_hei = 20; # 〃 縦サイズ # イメージ参照画面の表示形態 # 1 : JavaScript # 2 : HTML (JavaScriptが不安定なブラザが多い場合はこちら） $ImageView = 1; # イメージ参照画面のサイズ (JavaScriptの場合) $img_w = '550'; # 横幅 $img_h = '450'; # 高さ # methodの形式 (POST/GET) $method = 'POST'; # 記事の更新は method=POST 限定 (0=no 1=yes) # --> 連続投稿などの荒らし対策 $MethPost = 1; # 同一IPアドレスからの連続投稿時間（秒数） # --> 連続投稿などの荒らし対策 # --> 値を 0 にするとこの機能は無効になります $wait = 0; # １ページ当たりの記事表示数 (親記事) $p_log = 20; # 投稿があるとメール通知する (sendmail必須) # 0 : 通知しない # 1 : 通知するが、自分の投稿記事はメールしない。 # 2 : 通知する。自分の投稿記事も通知する。 $mailing = 0; # メールアドレス(メール通知する時) $mailto = ""; # sendmailパス（メール通知する時） $sendmail = "/usr/sbin/sendmail"; # 他サイトから投稿排除時に指定 (http://から書く) $base_url = ""; # 文字色の設定。 @COLORS = ('800000','DF0000','008040','0000FF','C100C1','FF80C0','FF8040','000080'); # 投稿フォーム改行形式 (soft=手動 hard=強制) $wrap = 'soft'; # URLの自動リンク (0=no 1=yes) # --> タグ許可の場合は no とすること。 $autolink = 1; # タグ広告挿入オプション (FreeWebなど） # → の代わりに「広告タグ」を挿入する。 # → 広告タグ以外に、MIDIタグ や LimeCounter等のタグにも使用可能です。 $banner1 = ''; # 掲示板上部に挿入 $banner2 = ''; # 掲示板下部に挿入 # アクセス制限（ホスト名、IPアドレスを記述） @deny = ( "anonymizer.com", "cache*.*.interlog.com", "211.154.120.*", "", "", "", "", "", "" ); #---(以下は「過去ログ」機能を使用する場合の設定です)---# # # 過去ログ生成 (0=no 1=yes) $pastkey = 0; # 過去ログ用NOファイル $nofile = "./pastno.dat"; # 過去ログのディレクトリ # → yybbs.cgiと同一のディレクトリに作成するならばこのままでよい # → フルパスなら / から記述（http://からではない） # → 最後は必ず / で閉じる $pastdir = "./past/"; # 過去ログ１ファイルの行数 # → この行数を超えると次ページを自動生成します $log_line = '1000'; @tColor = ('333333', 'cc0000', '0033cc', '336633', 'FF6600'); #============# # 設定完了 # #============# # メイン処理 &decode; &axs_check; if ($mode eq "howto") { &howto; } elsif ($mode eq "find") { &find; } elsif ($mode eq "usr_del") { &usr_del; } elsif ($mode eq "regist") { ®ist; } elsif ($mode eq "res") { &res_form; } elsif ($mode eq "admin") { &admin; } elsif ($mode eq "image") { ℑ } elsif ($mode eq "past") { &past; } elsif ($mode eq "check") { ✓ } &html_log; #----------------# # アクセス制限 # #----------------# sub axs_check { # ホスト名を取得 &get_host; $flag=0; foreach (@deny) { if (!$_) { next; } $_ =~ s/\*/\.\*/g; if ($host =~ /$_/i) { $flag=1; last; } } if ($flag) { &error("アクセスを許可されていません"); } } #--------------# # 記事表示部 # #--------------# sub html_log { # クッキーを取得 &get_cookie; # フォーム長を調整 &get_agent; # ヘッダを出力 if ($ImageView == 1) { &header('ImageUp'); } else { &header; } # カウンタ処理 if ($counter) { &counter; } if (!open(DATA, "+< $fBBSDB")) { # ファイルを開けないためエラーを出力 print "Content-type: text/html\n\n"; print '*ファイルをオープンできません。'; &unlock; exit(0); } $inMAIN = ; $tTitle = ; $tColor = ; $tBold = ; close(DATA); $tTitle =~ s/\r\n//g; $tTitle =~ s/\r//g; $tTitle =~ s/\n//g; $tColor =~ s/\r\n//g; $tColor =~ s/\r//g; $tColor =~ s/\n//g; $tBold =~ s/\r\n//g; $tBold =~ s/\r//g; $tBold =~ s/\n//g; if ($tBold eq "YES") { $tTitle = "".$tTitle.""; } # タイトル部 print "
\n"; if ($banner1 ne "") { print "$banner1

\n"; } if ($title_gif eq '') { print "$title\n"; } else { print <<"EOF";

$tTitle

$inMAIN
EOF } print "

\n"; print "[トップに戻る]\n"; print "[使い方]\n"; print "[ワード検索]\n"; # 過去ログのリンク部を表示 if ($pastkey) { print "[過去ログ]\n"; } print <<"EOM"; [管理用]
EOM # 管理者アイコンを配列に付加 if ($my_icon) { push(@icon1,"$my_gif"); push(@icon2,"管理者用"); } if ($icon_mode) { print "\n"; } print "\n"; print "\n"; print "
おなまえ
Ｅメール
題　　名 　
コメント
ＵＲＬ
イメージ (あなたのイメージを選択して下さい)\n"; # イメージ参照のリンク if ($ImageView == 1) { print "[画像イメージ参照]"; } else { print "[画像イメージ参照]"; } print "
削除キー\n"; print "(自分の記事を削除時に使用。英数字で8文字以内)
文字色\n"; # クッキーの色情報がない場合 if ($c_color eq "") { $c_color = $COLORS[0]; } foreach (0 .. $#COLORS) { if ($c_color eq "$COLORS[$_]") { print ""; print "■\n"; } else { print ""; print "■\n"; } } print "
\n"; print "

\n"; # ページ区切り処理 $start = $page + 1; $end = $page + $p_log; # 記事を展開 open(IN,"$logfile") || &error("Open Error : $logfile"); $top = ; $i=0; $flag=0; while () { ($no,$reno,$date,$name,$mail,$sub, $comment,$url,$host,$pw,$color,$icon) = split(/<>/); if ($reno eq "") { $i++; } if ($i < $start) { next; } if ($i > $end) { last; } if ($mail) { $name = "$name"; } if ($home_icon && $url) { $url = "HomePage"; } elsif (!$home_icon && $url) { $url = "<HOME>"; } if (!$icon_mode) { $comment = "
$comment
"; } if (!$reno && $flag) { print "

\n"; $flag=1; } if (!$reno) { print "
\n"; $flag=1; } if ($reno) { print "
\n"; } print "\n"; if ($reno) { print ""; } print ""; print "\n"; } else { print "
\n"; } print "

$sub　"; if (!$reno) { print "投稿者：$name 投稿日：$date "; } else { print "$name - $date "; } print "No\.$no   $url \n"; if (!$reno) { print "
\n"; print "\n"; print "\n"; print "
\n"; if ($reno) { print "\n"; } # アイコンモード if ($icon_mode) { print ""; } print "

$comment"; print "
\n"; } close(IN); print "
\n"; $next_page = $page + $p_log; $back_page = $page - $p_log; print "
\n"; if ($back_page >= 0) { print "\n"; } if ($next_page < $i) { print "\n"; } print "
\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "【記事削除フォーム】
\n"; print "記事No\n"; print "削除キー\n"; print "\n"; print "
\n"; # 著作権表示部 # MakiMakiさんの画像使用の有無に関わらずこの2箇所のリンク部の # 削除改変を禁止します print <<"EOF";

$banner2 - KENT & MakiMaki - ページのトップへ EOF exit; } #----------------# # ログ書込処理 # #----------------# sub regist { # POST限定 if ($MethPost && !$post_flag) { &error("不正なアクセスです"); } # 他サイトからのアクセスを排除 if ($base_url) { $ref_url = $ENV{'HTTP_REFERER'}; $ref_url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if ($ref_url !~ /$base_url/i) { &error("不正なアクセスです"); } } # 名前とコメントは必須 if ($in{'name'} eq "") { &error("名前が入力されていません"); } if ($in{'comment'} eq "") { &error("コメントが入力されていません"); } if ($in{'email'} && $in{'email'} !~ /(.*)\@(.*)\.(.*)/) { &error("Ｅメールの入力内容が正しくありません"); } # 題名の長さ制限 if (length($in{'sub'}) > $sub_len * 2) { &error("題名の長さは全角$sub_len文字までにして下さい"); } # 管理アイコンのチェック if ($my_icon && $in{'icon'} eq "$my_gif") { if ($in{'pwd'} ne "$pass") { &error("管理用アイコンは管理者専用です"); } } # 時間を取得 &get_time; # クッキーを発行 &set_cookie; # ファイルロック if ($lockkey) { &lock; } # ログを開く open(IN,"$logfile") || &error("Open Error : $logfile"); @lines = ; close(IN); # 記事NO処理 $top = shift(@lines); ($no,$ip,$time2) = split(/<>/, $top); $no++; # 連続投稿チェック if ($addr eq "$ip" && $wait > $times - $time2) { &error("連続投稿はもうしばらく時間をおいて下さい"); } # 削除キーを暗号化 if ($in{'pwd'} ne "") { $ango = &encrypt($in{'pwd'}); } # URL自動リンク if ($autolink) { &auto_link($in{'comment'}); } # 親記事の場合 if ($in{'reno'} eq "") { $i=0; $stop=0; foreach (@lines) { ($no2,$reno2) = split(/<>/); $i++; if ($i > $max-1 && $reno2 eq "") { $stop=1; } if (!$stop) { push(@new,$_); } elsif ($stop && $pastkey) { push(@data,$_); } } unshift(@new,"$no<><>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<><>$ango<>$in{'color'}<>$in{'icon'}<>\n"); unshift(@new,"$no<>$addr<>$times<>\n"); # 過去ログ更新 if ($data[0]) { &pastlog; } # 更新 open(OUT,">$logfile") || &error("Write Error : $logfile"); print OUT @new; close(OUT); } # レス記事の場合：トップソートあり elsif ($in{'reno'} && $topsort) { $match=0; @new=(); @tmp=(); foreach (@lines) { ($no2,$reno2) = split(/<>/); if ($in{'reno'} eq "$no2") { $match=1; push(@new,$_); } elsif ($in{'reno'} eq "$reno2") { push(@new,$_); } elsif ($match == 1 && $in{'reno'} ne "$reno2") { $match=2; push(@new,"$no<>$in{'reno'}<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$ango<>$in{'color'}<>$in{'icon'}<>\n"); push(@tmp,$_); } else { push(@tmp,$_); } } if ($match == 1) { push(@new,"$no<>$in{'reno'}<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$ango<>$in{'color'}<>$in{'icon'}<>\n"); } push(@new,@tmp); # 更新 unshift(@new,"$no<>$addr<>$times<>\n"); open(OUT,">$logfile") || &error("Write Error : $logfile"); print OUT @new; close(OUT); } # レス記事の場合：トップソートなし else { $match=0; @new=(); foreach (@lines) { ($no2,$reno2) = split(/<>/); if ($match == 0 && $in{'reno'} eq "$no2") { $match=1; } elsif ($match == 1 && $in{'reno'} ne "$reno2") { $match=2; push(@new,"$no<>$in{'reno'}<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$ango<>$in{'color'}<>$in{'icon'}<>\n"); } push(@new,$_); } if ($match == 1) { push(@new,"$no<>$in{'reno'}<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$ango<>$in{'color'}<>$in{'icon'}<>\n"); } # 更新 unshift(@new,"$no<>$addr<>$times<>\n"); open(OUT,">$logfile") || &error("Write Error : $logfile"); print OUT @new; close(OUT); } # ロック解除 if ($lockkey) { &unlock; } # メール処理 if ($mailing == 1 && $in{'email'} ne "$mailto") { &mail_to; } elsif ($mailing == 2) { &mail_to; } } #----------------# # 返信フォーム # #----------------# sub res_form { # フォーム長を定義 &get_agent; # クッキーを取得 &get_cookie; # ログを読み込み open(IN,"$logfile") || &error("Open Error : $logfile"); $top = ; # ヘッダを出力 if ($ImageView == 1) { &header('ImageUp'); } else { &header; } # 関連記事出力 print "- 以下は、記事NO. $in{'no'} に関する返信フォームです -
\n"; while () { ($no,$reno,$date,$name,$mail,$sub,$com,$url) = split(/<>/); if ($in{'no'} eq "$no" || $in{'no'} eq "$reno") { if ($in{'no'} eq "$no") { $resub = $sub; } if ($url) { $url = "<HOME>"; } if ($reno) { print '　　'; } print "$sub 投稿者：$name 投稿日：$date $url No\.$no
\n"; print "
$com
\n"; } } close(IN); # タイトル名 if ($resub !~ /^Re\:/) { $resub = "Re\: $resub"; } print <<"EOM";
EOM # 管理者アイコンを配列に付加 if ($my_icon) { push(@icon1,"$my_gif"); push(@icon2,"管理者用"); } if ($icon_mode) { print "\n"; } print "\n"; print "
おなまえ
Ｅメール
タイトル
メッセージ
ＵＲＬ
イメージ\n"; if ($ImageView == 1) { print "[画像イメージ参照]"; } else { print "[画像イメージ参照]"; } print "
削除キー"; print "\n"; print "(自分の記事を削除時に使用。英数字で8文字以内)
文字色\n"; # クッキーの色情報がない場合 if ($c_color eq "") { $c_color = $COLORS[0]; } foreach (0 .. $#COLORS) { if ($c_color eq "$COLORS[$_]") { print ""; print "■\n"; } else { print ""; print "■\n"; } } print "
\n"; print "
\n"; print <<"EOF";

$banner2 - KENT & MakiMaki - ページのトップへ EOF exit; } #----------------# # デコード処理 # #----------------# sub decode { $post_flag=0; if ($ENV{'REQUEST_METHOD'} eq "POST") { $post_flag=1; if ($ENV{'CONTENT_LENGTH'} > 51200) { &error("投稿量が大きすぎます"); } read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/, $buffer); foreach (@pairs) { ($name,$value) = split(/=/); if ($name eq "word") { $word = $value; } $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; # 文字コードをシフトJIS変換 &jcode'convert(*value, "sjis", "", "z"); # タグ処理 if ($tagkey) { $value =~ s/<>/<>/g; } else { $value =~ s//>/g; $value =~ s/\"/"/g; } # 改行等処理 if ($name eq "comment") { $value =~ s/\r\n/
/g; $value =~ s/\r/
/g; $value =~ s/\n/
/g; } else { $value =~ s/\r//g; $value =~ s/\n//g; } # 一括削除用 if ($name eq "del") { push(@DEL,$value); } $in{$name} = $value; } $mode = $in{'mode'}; $page = $in{'page'}; $in{'url'} =~ s/^http\:\/\///; if ($in{'sub'} eq "") { $in{'sub'} = "無題"; } } #----------------------------# # 掲示板の使い方メッセージ # #----------------------------# sub howto { if ($tagkey == 0) { $tag_msg = "投稿内容には、タグは一切使用できません。\n"; } else { $tag_msg = "コメント欄には、タグ使用をすることができます。\n"; } &header; print <<"HTML"; [掲示板にもどる]
掲示板の利用上の注意

  1. この掲示板はクッキー対応です。１度記事を投稿いただくと、おなまえ、Ｅメール、ＵＲＬ、削除キーの情報は２回目以降は自動入力されます。（ただし利用者のブラウザがクッキー対応の場合）

  2. $tag_msg

  3. 記事を投稿する上での必須入力項目は「おなまえ」と「メッセージ」です。Ｅメール、ＵＲＬ、題名、削除キーは任意です。

  4. 記事には、半角カナは一切使用しないで下さい。文字化けの原因となります。

  5. 記事の投稿時に「削除キー」にパスワード（英数字で8文字以内）を入れておくと、その記事は次回削除キーによって削除することができます。

  6. 既存の記事に「返信」をすることができます。各記事の上部にある「返信」ボタンを押すと返信用フォームが現れます。

  7. 過去の投稿記事から「キーワード」によって簡易検索ができます。トップメニューの「ワード検索」のリンクをクリックすると検索モードとなります。

  8. 管理者が著しく不利益と判断する記事や他人を誹謗中傷する記事は予\告なく削除することがあります。

$banner2 - KENT & MakiMaki - ページのトップへ HTML exit; } #------------------# # ワード検索処理 # #------------------# sub find { &header; print <<"EOM"; [掲示板にもどる]
ワード検索

  • 検索したいキーワードを入力し、「条件」「表\示」を選択して「検索」ボタンを押して下さい。
  • キーワードは「半角スペース」で区切って複数指定することができます。

    キーワード： 条件：\n"; print "表\示：\n"; print ""; print "
\n"; # ワード検索の実行と結果表示 if ($in{'word'} ne ""){ # 入力内容を整理 $in{'word'} =~ s/　/ /g; @pairs = split(/\s+/, $in{'word'}); # ファイルを読み込み @new=(); open(IN,"$logfile") || &error("Open Error : $logfile"); $top = ; while () { $flag=0; foreach $pair (@pairs) { if (index($_,$pair) >= 0) { $flag=1; if ($in{'cond'} eq 'OR') { last; } } else { if ($in{'cond'} eq 'AND') { $flag=0; last; } } } if ($flag) { push(@new,$_); } } close(IN); # 検索終了 $count = @new; print "検索結果：$count件\n"; if ($page eq '') { $page = 0; } $end_data = @new - 1; $page_end = $page + $in{'view'} - 1; if ($page_end >= $end_data) { $page_end = $end_data; } $next_line = $page_end + 1; $back_line = $page - $in{'view'}; if ($back_line >= 0) { print "[前の$in{'view'}件]\n"; } if ($page_end ne "$end_data") { print "[次の$in{'view'}件]\n"; } print "[検索やり直し]\n"; foreach ($page .. $page_end) { ($no,$reno,$date,$name,$email,$sub,$com,$url) = split(/<>/, $new[$_]); if ($email) { $name = "$name"; } if ($url) { $url = "<HOME>"; } if ($reno) { $no = "$renoへのレス"; } # 結果を表示 print "
[$no] $sub"; print " 投稿者：$name 投稿日：$date $url
\n"; print "
$com
\n"; } print "
\n"; } print <<"EOF";

$banner2 - KENT & MakiMaki - ページのトップへ EOF exit; } #---------------------------------# # ブラウザを判断:フォーム幅調整 # #---------------------------------# sub get_agent { # ブラウザ名を取得 $agent = $ENV{'HTTP_USER_AGENT'}; if ($agent =~ /MSIE 3/i) { $nam_wid = 30; $sub_wid = 40; $com_wid = 65; $url_wid = 48; $nam_wid2 = 20; } elsif ($agent =~ /MSIE 4/i || $agent =~ /MSIE 5/i) { $nam_wid = 30; $sub_wid = 40; $com_wid = 60; $url_wid = 70; $nam_wid2 = 20; } else { $nam_wid = 20; $sub_wid = 25; $com_wid = 56; $url_wid = 50; $nam_wid2 = 10; } } #------------------# # クッキーの発行 # #------------------# sub set_cookie { # クッキーは60日間有効 local($sec,$min,$hour,$mday,$mon,$year,$wday) = gmtime(time+60*24*60*60); @month=('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'); $gmt = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT", $week[$wday],$mday,$month[$mon],$year+1900,$hour,$min,$sec); $cook="name<>$in{'name'}\,email<>$in{'email'}\,url<>$in{'url'}\,pwd<>$in{'pwd'}\,icon<>$in{'icon'}\,color<>$in{'color'}"; print "Set-Cookie: YYBBS=$cook; expires=$gmt\n"; } #------------------# # クッキーを取得 # #------------------# sub get_cookie { local($key, $val); @pairs = split(/;/, $ENV{'HTTP_COOKIE'}); foreach (@pairs) { ($key,$val) = split(/=/); $key =~ s/\s//g; $GET{$key} = $val; } @pairs = split(/,/, $GET{'YYBBS'}); foreach (@pairs) { ($key,$val) = split(/<>/); $COOK{$key} = $val; } $c_name = $COOK{'name'}; $c_email = $COOK{'email'}; $c_url = $COOK{'url'}; $c_pwd = $COOK{'pwd'}; $c_icon = $COOK{'icon'}; $c_color = $COOK{'color'}; if ($in{'name'}) { $c_name = $in{'name'}; } if ($in{'email'}) { $c_email = $in{'email'}; } if ($in{'url'}) { $c_url = $in{'url'}; } if ($in{'pwd'}) { $c_pwd = $in{'pwd'}; } if ($in{'icon'}) { $c_icon = $in{'icon'}; } if ($in{'color'}) { $c_color = $in{'color'}; } } #--------------# # エラー処理 # #--------------# sub error { if ($lockkey) { &unlock; } &header if (!$head_flag); print "

ERROR !

\n"; print "

$_[0]\n"; print "

\n"; print "\n"; exit; } #--------------# # 管理モード # #--------------# sub admin { if ($in{'pass'} ne "" && $in{'pass'} ne "$pass") { &error("パスワードが違います"); } &header; print "[掲示板に戻る]\n"; print "
\n"; print "管理モード\n"; print "
\n"; if ($in{'pass'} eq "") { print "

パスワードを入力して下さい

\n"; print "
\n"; print "\n"; print "\n"; print ""; print "
\n"; } else { # 削除処理 if ($DEL[0]) { # ロック処理 if ($lockkey) { &lock; } # 削除情報をマッチングし更新 @new=(); open(IN,"$logfile") || &error("Open Error : $logfile"); $top = ; while () { $flag=0; ($no,$reno,$date) = split(/<>/); foreach $del (@DEL) { if ($no eq "$del" || $reno eq "$del") { $flag=1; last; } } if ($flag == 0) { push(@new,$_); } } close(IN); # 更新 unshift(@new,$top); open(OUT,">$logfile") || &error("Write Error : $logfile"); print OUT @new; close(OUT); # ロック解除 if ($lockkey) { &unlock; } } # 管理を表示 if ($page eq "") { $page = 0; } print "

\n"; print "
  • 削除する記事のチェックボックスにチェックを入れ、削除ボタンを押して下さい。\n"; print "
  • 親記事を削除するとレス記事も一括して削除されます。
\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print ""; print "\n"; print "

\n"; print ""; print "\n"; # ページ区切り処理 $start = $page + 1; $end = $page + $p_log; open(IN,"$logfile") || &error("Open Error : $logfile"); $top = ; $i=0; while () { ($no,$reno,$date,$name,$mail,$sub,$com,$url,$host,$pw) = split(/<>/); if ($reno eq "") { $i++; } if ($i < $start) { next; } if ($i > $end) { last; } if ($mail) { $name="$name"; } ($date,$dmy) = split(/\(/, $date); if ($url) { $url = "<Home>"; } else { $url = '-'; } $com =~ s/
//ig; $com =~ s//>/g; if (length($com) > 40) { $com = substr($com,0,38); $com .= "..."; } if ($reno eq "") { print "\n"; } # 削除チェックボックス print ""; print ""; print ""; print ""; print "\n"; } close(IN); print "\n"; print "
削除記事NO投稿日タイトル投稿者URLコメントホスト名
$no$date$sub$name$url$com$host

\n"; } $next_page = $page + $p_log; $back_page = $page - $p_log; print "

\n"; if ($back_page >= 0) { print "\n"; } if ($next_page < $i) { print "\n"; } print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print <<"EOF";

$banner2 - KENT & MakiMaki - ページのトップへ EOF exit; } #------------------# # ユーザ記事削除 # #------------------# sub usr_del { # POST限定 if ($MethPost && !$post_flag) { &error("不正なアクセスです"); } if ($in{'no'} eq '' || $in{'pwd'} eq '') { &error("記事Noまたは削除キーが入力モレです"); } # ロック処理 if ($lockkey) { &lock; } open(IN,"$logfile") || &error("Open Error : $logfile"); @lines = ; close(IN); $top = shift(@lines); $flag=0; foreach (@lines) { ($no,$reno,$dt,$name,$mail,$sub,$com,$url,$host,$pw) = split(/<>/); if ($flag == 0 && $in{'no'} eq "$no") { $PW = $pw; if ($reno eq "") { $flag=2; } else { $flag=1; } } elsif ($flag == 2 && $in{'no'} eq "$reno") { next; } else { push(@new,$_); } } if ($flag == 0) { &error("該当記事が見当たりません"); } if ($PW eq '') { &error("該当記事には削除キーが設定されていません"); } # 削除キーを照合 $match = &decrypt("$in{'pwd'}","$PW"); if ($match ne 'yes') { &error("削除キーが違います"); } # 更新 unshift(@new,$top); open(OUT,">$logfile") || &error("Write Error : $logfile"); print OUT @new; close(OUT); # ロック解除 if ($lockkey) { &unlock; } } #--------------# # 時間を取得 # #--------------# sub get_time { $ENV{'TZ'} = "JST-9"; $times = time; ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime($times); @week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat'); # 日時のフォーマット $date = sprintf("%04d/%02d/%02d(%s) %02d:%02d", $year+1900,$mon+1,$mday,$week[$wday],$hour,$min); } #----------------# # カウンタ処理 # #----------------# sub counter { # 閲覧時のみカウントアップ if ($mode eq '') { $cntup=1; } else { $cntup=0; } # カウントファイルを読みこみ open(IN,"$cntfile") || &error("Open Error : $cntfile"); eval "flock(IN, 1);"; $data = ; close(IN); # IPチェックとログ破損チェック ($cnt, $ip) = split(/:/, $data); if ($addr eq "$ip" || $cnt eq "") { $cntup=0; } # カウントアップ if ($cntup) { $cnt++; open(OUT,"+< $cntfile") || &error("Write Error : $cntfile"); eval "flock(OUT, 2);"; truncate(OUT, 0); seek(OUT, 0, 0); print OUT "$cnt\:$addr"; close(OUT); } # 桁数調整 while(length($cnt) < $mini_fig) { $cnt = '0' . $cnt; } @cnts = split(//, $cnt); # GIFカウンタ表示 if ($counter == 2) { foreach (0 .. $#cnts) { print "\"$cnts[$_]\""; } } # テキストカウンタ表示 else { print "$cnt
\n"; } } #--------------# # ロック処理 # #--------------# sub lock { # symlink関数式ロック if ($lockkey == 1) { local($retry) = 5; while (!symlink(".", $lockfile)) { if (--$retry <= 0) { &error('Lock is busy'); } sleep(1); } # open関数式ロック } elsif ($lockkey == 2) { local($flag)=0; foreach (1 .. 5) { if (-e $lockfile) { sleep(1); } else { open(LOCK,">$lockfile") || &error("Lock Error: $lockfile"); close(LOCK); $flag = 1; last; } } if (!$flag) { &error; } # mkdir関数式ロック } elsif ($lockkey == 3) { if (-e $lockfile) { # 3分以上古いロックは削除する ($mtime) = (stat($lockfile))[9]; if ($mtime < time - 90) { rmdir($lockfile); } } local($retry) = 5; while (!mkdir($lockfile, 0755)) { if (--$retry <= 0) { &error('Lock is busy'); } sleep(1); } } } #--------------# # ロック解除 # #--------------# sub unlock { if ($lockkey == 1 || $lockkey == 2) { unlink($lockfile); } elsif ($lockkey == 3) { rmdir($lockfile); } } #--------------# # メール送信 # #--------------# sub mail_to { # メールタイトルを定義 $MailSub = "[$title : $no] $in{'sub'}"; # 記事の改行・タグを復元 $com = $in{'comment'}; $com =~ s/
/\n/g; $com =~ s/<//g; $com =~ s/"/\"/g; # メール本文を定義 $MailBody = <<"EOM"; 投稿日時：$date ホスト名：$host ブラウザ：$ENV{'HTTP_USER_AGENT'} 投稿者名：$in{'name'} Ｅメール：$in{'email'} ＵＲＬ ：$in{'url'} タイトル：$in{'sub'} 投稿記事： $com EOM # JISコード変換 &jcode'convert(*MailSub,'jis'); &jcode'convert(*MailBody,'jis'); # メールアドレスがない場合はダミーメールに置き換え if ($in{'email'} eq "") { $email = "nomail\@xxx.xxx"; } else { $email = $in{'email'}; } if (!open(MAIL,"| $sendmail -t")) { &error("メール送信に失敗しました"); } print MAIL "To: $mailto\n"; print MAIL "From: $email\n"; print MAIL "Subject: $MailSub\n"; print MAIL "MIME-Version: 1.0\n"; print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n"; print MAIL "Content-Transfer-Encoding: 7bit\n"; print MAIL "X-Mailer: $ver\n\n"; print MAIL "--------------------------------------------------------\n"; print MAIL "$MailBody\n"; print MAIL "--------------------------------------------------------\n"; close(MAIL); } #----------------------# # パスワード暗号処理 # #----------------------# sub encrypt { local($inpw) = $_[0]; local(@SALT, $salt, $encrypt); @SALT = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/'); srand; $salt = $SALT[int(rand(@SALT))] . $SALT[int(rand(@SALT))]; $encrypt = crypt($inpw, $salt) || crypt ($inpw, '$1$' . $salt); return $encrypt; } #----------------------# # パスワード照合処理 # #----------------------# sub decrypt { local($inpw, $logpw) = @_; local($salt, $key, $check); $salt = $logpw =~ /^\$1\$(.*)\$/ && $1 || substr($logpw, 0, 2); $check = "no"; if (crypt($inpw, $salt) eq "$logpw" || crypt($inpw, '$1$' . $salt) eq "$logpw") { $check = "yes"; } return $check; } #------------------# # HTMLのヘッダー # #------------------# sub header { $head_flag=1; print "Content-type: text/html\n\n"; print <<"EOM"; 大館市・田代町合併協議会／あなたの声をお聞かせください
みんなの広場 大館市・田代町合併協議会
メニューを表示
ホーム
合併協議会とは
これまでの経過
各種会議・住民説明会のお知らせ
協議状況
合併協定項目
わたしたちのまちってどんなとこ？
合併協議会だより
あなたの声をお聞かせください
資料室
リンク

EOF exit; } #----------------# # ホスト名取得 # #----------------# sub get_host { $host = $ENV{'REMOTE_HOST'}; $addr = $ENV{'REMOTE_ADDR'}; if ($get_remotehost) { if ($host eq "" || $host eq "$addr") { $host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2); } } if ($host eq "") { $host = $addr; } } #----------------# # 過去ログ生成 # #----------------# sub pastlog { local($past_flag)=0; # 過去NOを開く open(NO,"$nofile") || &error("Open Error : $nofile"); $count = ; close(NO); # 過去ログのファイル名を定義 $pastfile = "$pastdir$count\.dat"; # 過去ログを開く open(IN,"$pastfile") || &error("Open Error : $pastfile"); @past = ; close(IN); # 規定の行数をオーバーすると次ファイルを自動生成 # if ($#past > $log_line) { # $past_flag=1; # カウントファイル更新 # $count++; # open(NO,">$nofile") || &error("Write Error : $nofile"); # print NO $count; # close(NO); # $pastfile = "$pastdir$count\.dat"; # @past=(); # } @temp=(); foreach (@data) { ($pno,$preno,$pdate,$pname,$pmail,$psub,$pcom,$purl,$pho) = split(/<>/); if ($pmail) { $pname = "$pname"; } if ($purl) { $purl = "<HOME>"; } if ($preno) { $pno = "$prenoへのレス"; } # 保存記事をフォーマット push(@temp,"
[$pno] $psub 投稿者：$pname 投稿日：$pdate $purl
$pcom
\n"); } # 過去ログを更新 unshift(@past,@temp); open(OUT,">$pastfile") || &error("Write Error : $pastfile"); print OUT @past; close(OUT); if ($past_flag) { chmod(0666,$pastfile); } } #------------# # 過去ログ # #------------# sub past { open(IN,"$nofile") || &error("Open Error : $nofile"); $pastno = ; close(IN); if (!$in{'pastlog'}) { $in{'pastlog'} = $pastno; } &header; print <<"EOM"; [掲示板に戻る]
過去ログ[$in{'pastlog'}]

\n"; print "\n"; print "
過去ログ：\n
\n"; print "
\n"; print "\n"; print "\n"; print "ワード検索：\n"; print "条件：\n"; print "表\示：\n
\n"; # 表示ログを定義 $file = "$pastdir$in{'pastlog'}\.dat"; # ワード検索処理 if ($in{'word'} ne "") { $in{'word'} =~ s/　/ /g; @pairs = split(/\s+/, $in{'word'}); @new=(); open(IN,"$file") || &error("Open Error : $file"); while () { $flag=0; foreach $pair (@pairs) { if (index($_,$pair) >= 0) { $flag=1; if ($in{'cond'} eq 'OR') { last; } } else { if ($in{'cond'} eq 'AND') { $flag=0; last; } } } if ($flag) { push(@new,$_); } } close(IN); $count = @new; print "検索結果：$count件\n"; if ($page eq '') { $page = 0; } $end_data = @new - 1; $page_end = $page + $in{'view'} - 1; if ($page_end >= $end_data) { $page_end = $end_data; } $next_line = $page_end + 1; $back_line = $page - $in{'view'}; if ($back_line >= 0) { print "[前の$in{'view'}件]\n"; } if ($page_end ne "$end_data") { print "[次の$in{'view'}件]\n"; } print "[検索やり直し]\n"; # 表示開始 foreach ($page .. $page_end) { print $new[$_]; } print "

\n"; print "\n"; exit; } # ページ区切り処理 $start = $page + 1; $end = $page + $p_log; $i=0; open(IN,"$file") || &error("Open Error : $file"); while () { $flag=0; if ($_ =~ /^\\[\d+\]/) { $flag=1; $i++; } if ($i < $start) { next; } if ($i > $end) { last; } if ($flag) { print $_; } else { $_ =~ s/
//ig; print "
$_
\n"; } } close(IN); print "
\n"; $next_page = $page + $p_log; $back_page = $page - $p_log; print "\n"; if ($back_page >= 0) { print "\n"; } if ($next_page < $i) { print "\n"; } print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print <<"EOF";

$banner2 - KENT & MakiMaki - ページのトップへ EOF exit; } #------------------# # チェックモード # #------------------# sub check { &header; print "

Check Mode

\n"; print "
    \n"; # ログパス if (-e $logfile) { print "
  • ログファイルのパス：OK\n"; } else { print "
  • ログファイルのパス：NG → $logfile\n"; } # ログパーミッション if (-r $logfile && -w $logfile) { print "
  • ログファイルのパーミッション：OK\n"; } else { print "
  • ログファイルのパーミッション：NG\n"; } # カウンタログ print "
  • カウンタ："; if ($counter) { print "設定あり\n"; if (-e $cntfile) { print "
  • カウンタログファイルのパス：OK\n"; } else { print "
  • カウンタログファイルのパス：NG → $cntfile\n"; } } else { print "設定なし\n"; } # ロックディレクトリ print "
  • ロック形式："; if ($lockkey == 0) { print "ロック設定なし\n"; } else { if ($lockkey == 1) { print "symlink\n"; } else { print "open\n"; } ($lockdir) = split(/\/yybbs\.lock$/, $lockfile); if (-d $lockdir) { print "
  • ロックディレクトリのパス：OK\n"; } else { print "
  • ロックディレクトリ：NG → $lockdir\n"; } if (-r $lockdir && -w $lockdir && -x $lockdir) { print "
  • ロックディレクトリのパーミッション：OK\n"; } else { print "
  • ロックディレクトリのパーミッション：NG → $lockdir\n"; } } # 過去ログ print "
  • 過去ログ："; if ($pastkey == 0) { print "設定なし\n"; } else { print "設定あり\n"; # NOファイル if (-e $nofile) { print "
  • NOファイルパス：OK\n"; } else { print "
  • NOファイルのパス：NG → $nofile\n"; } if (-r $nofile && -w $nofile) { print "
  • NOファイルパーミッション：OK\n"; } else { print "
  • NOファイルパーミッション：NG → $nofile\n"; } # ディレクトリ if (-d $pastdir) { print "
  • 過去ログディレクトリパス：OK\n"; } else { print "
  • 過去ログディレクトリパーミッション：NG → $pastdir\n"; } if (-r $pastdir && -w $pastdir && -x $pastdir) { print "
  • 過去ログディレクトリパーミッション：OK\n"; } else { print "
  • 過去ログディレクトリパーミッション：NG → $pastdir\n"; } } print "
\n\n"; exit; }