#!/usr/local/bin/perl ## YY-BOARD v2.8 (00/01/30) ## (C) 1997-2000 KENT-WEB.COM ## E-MAIL: webmaster@kent-web.com ## WWW: http://www.kent-web.com/ $ver = 'YYBBS v2.8'; # バージョン情報(修正不要) ## ---[注意事項]------------------------------------------------------ ## 1. このスクリプトはフリーソフトです。このスクリプトを使用したいか ## なる損害に対して作者は一切の責任を負いません。 ## 2. 設置に関する質問はサポート掲示板にお願いいたします。メールに ## よる質問には一切お答えしません。 ## 3. 同梱の「家アイコン (home.gif) 」は、「牛飼いとアイコンの部屋 ## (http://www.ushikai.com/)」によるもので、作者の合意の元に再配布 ## するものです。 ## ------------------------------------------------------------------- #============# # 設定項目 # #============# # jcode.plが同一ディレクトリにある場合 require './jcode.pl'; # タイトル名を指定 $title = "ごんぎつねの掲示板"; # タイトルの色 $t_color = "#008080"; # タイトルの大きさ(ポイント数:スタイルシート) $t_point = '18'; # タイトル文字のフォントタイプ $t_face = "MS Pゴシック"; # 本文の文字大きさ(ポイント数:スタイルシート) $pt = '10'; # 壁紙を指定する場合(http://から指定) $backgif = ""; # 背景色を指定 $bgcolor = "#E1F0F0"; # 文字色を指定 $text = "#000000"; # リンク色を指定 $link = "#0000FF"; # 未訪問 $vlink = "#800080"; # 訪問済 $alink = "#FF0000"; # 訪問中 # 戻り先のURL (index.htmlなど) $homepage = "../index.htm"; # 親記事最大記事数 (あまり多くすると危険) # --> レス記事の数は最大記事数には含まれません $max = 300; # 管理者用マスタパスワード (英数字で8文字以内) $pass = 'azusa2'; # アイコン画像のある「ディレクトリ」 # --> yybbs.cgi と別ディレクトリとなる場合は、http://から記述する。 $icon_dir = "."; # アイコンを定義(上下は必ずペアで) @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) $res_sort = 1; # ホスト名取得モード # --> 0 : $ENV{'REMOTE_HOST'} で取得できる場合 # --> 1 : gethostbyaddr で取得できる場合 $get_remotehost = 0; # タイトルにGIF画像を使用する時 (http://から記述) $title_gif = ""; $tg_w = '150'; # GIF画像の幅 (ピクセル) $tg_h = '50'; # 〃 高さ (ピクセル) # ファイルロック形式 # --> 0=no 1=symlink関数 2=open関数 # --> 1 or 2 を設定する場合は、ロックファイルを生成するディレクトリ # のパーミッションは 777 に設定する。 $lockkey = 0; # ロックファイル名 $lockfile = "./yybbs.lock"; # カウンタのロックファイル $cntlock = "./yycnt.lock"; # ミニカウンタの設置 # --> 0=no 1=テキスト 2=GIF画像 $counter = 0; # ミニカウンタの桁数 $mini_fig = 5; # テキストのとき:ミニカウンタの色 $cnt_color = "#dd0000"; # GIFのとき:画像までのディレクトリ $gif_path = "."; $mini_w = 8; # 画像の横サイズ $mini_h = 12; # 画像の縦サイズ # カウンタファイル $cntfile = "./count.dat"; # タグの許可 (0=no 1=yes) $tagkey = 0; # スクリプトのファイル名 # --> フルパスで指定する場合は http:// から記述 $script = "./yybbs.cgi"; # ログファイルを指定 # --> フルパスで指定する場合は / から記述 $logfile = "./yybbs.log"; # 記事の [タイトル] 部の色 $sub_color = "#006400"; # 記事表示部の下地の色 $tbl_color = "#FFFFFF"; # 家アイコンの使用 (0=no 1=yes) $home_icon = 1; $home_gif = "home.gif"; # 家アイコンのファイル名 $home_wid = 25; # 画像の横サイズ $home_hei = 22; # 〃 縦サイズ # methodの形式 (POST/GET) $method = 'POST'; # 1ページ当たりの記事表示数 (親記事) $pagelog = 15; # 投稿があるとメール通知する (0=no 1=yes) # --> sendmail必須 $mailing = 0; # メールアドレス(メール通知する時) $mailto = 'foo@host.ne.jp'; # sendmailパス(メール通知する時) $sendmail = '/usr/lib/sendmail'; # 自分の投稿記事はメール通知する (0=no 1=yes) $mail_me = 0; # 他サイトから投稿排除時に指定 (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 = '<!--下部-->'; # 掲示板下部に挿入 # 過去ログ生成 (0=no 1=yes) $pastkey = 1; $nofile = "./pastno.dat"; # 過去ログ用NOファイル $past_dir = "."; # 過去ログのディレクトリ $log_line = '150'; # 過去ログ1ファイルの行数 $yybbs2 = "./yybbs2.cgi"; # 過去ログ管理ファイル #============# # 設定完了 # #============# ## --- メイン処理 &decode; if ($mode eq "howto") { &howto; } if ($mode eq "find") { &find; } if ($mode eq "usr_del") { &usr_del; } if ($mode eq "msg_del") { &msg_del; } if ($mode eq "msg") { ®ist; } if ($mode eq "res_msg") { &res_msg; } if ($mode eq "admin") { &admin; } if ($mode eq "admin_del") { &admin_del; } if ($mode eq "image") { ℑ } &html_log; ## --- 記事表示部 sub html_log { # クッキーを取得 &get_cookie; # フォーム長を調整 &get_agent; # ログを読み込み open(IN,"$logfile") || &error("Can't open $logfile",'NOLOCK'); @lines = <IN>; close(IN); # 記事番号をカット shift(@lines); # 親記事のみの配列データを作成 @new = (); foreach $line (@lines) { local($num,$k,$dt,$na,$em,$sub,$com, $url,$host,$pw,$color,$icon) = split(/<>/, $line); # 親記事を集約 if ($k eq "") { push(@new,$line); } } # レス記事はレス順につけるため配列を逆順にする @lines = reverse(@lines); # ヘッダを出力 &header; # カウンタ処理 if ($counter) { &counter; } # タイトル部 print "<center>$banner1<P>\n"; if ($title_gif eq '') { print "<font color=\"$t_color\" size=6 face=\"$t_face\"><b><SPAN>$title</SPAN></b></font>\n"; } else { print "<img src=\"$title_gif\" width=\"$tg_w\" height=\"$tg_h\">\n"; } print "<hr width=\"90%\" size=2>\n"; print "[<a href=\"$homepage\" target=_top>トップにもどる</a>]\n"; print "[<a href=\"$script?mode=howto\">掲示板の使い方</a>]\n"; print "[<a href=\"$script?mode=find\">ワード検索</a>]\n"; # 過去ログのリンク部を表示 if ($pastkey) { print "[<a href=\"$yybbs2\">過去ログ</a>]\n"; } print <<"EOM"; [<a href="$script?mode=msg_del">記事削除</a>] [<a href="$script?mode=admin">管理用</a>] <hr width="90%" size=2></center> <form method="$method" action="$script"> <input type=hidden name=mode value="msg"> <blockquote> <table border=0 cellspacing=0> <tr> <td nowrap><b>おなまえ</b></td> <td><input type=text name=name size="$nam_wid" value="$c_name"></td> </tr> <tr> <td nowrap><b>Eメール</b></td> <td><input type=text name=email size="$nam_wid" value="$c_email"></td> </tr> <tr> <td nowrap><b>題 名</b></td> <td nowrap> <input type=text name=sub size="$subj_wid"> <input type=submit value="投稿する"><input type=reset value="リセット"> </td> </tr> <tr> <td colspan=2> <b>コメント</b><br> <textarea cols="$com_wid" rows=7 name=comment wrap="$wrap"></textarea> </td> </tr> <tr> <td nowrap><b>URL</b></td> <td><input type=text size="$url_wid" name=url value="http://$c_url"></td> </tr> EOM # 管理者アイコンを配列に付加 if ($my_icon) { push(@icon1,"$my_gif"); push(@icon2,"管理者用"); } if ($icon_mode) { print "<tr><td nowrap><b>イメージ</b></td><td><select name=icon>\n"; foreach(0 .. $#icon1) { if ($c_icon eq "$icon1[$_]") { print "<option value=\"$icon1[$_]\" selected>$icon2[$_]\n"; } else { print "<option value=\"$icon1[$_]\">$icon2[$_]\n"; } } print "</select> <small>(あなたのイメージを選択して下さい)</small>\n"; print "[<a href=\"$script?mode=image\" target='_blank'>画像イメージ参照</a>]</td></tr>\n"; } print "<tr><td nowrap><b>削除キー</b></td>\n"; print "<td><input type=password name=pwd size=8 maxlength=8 value=\"$c_pwd\">\n"; print "<small>(自分の記事を削除時に使用。英数字で8文字以内)</small></td></tr>\n"; print "<tr><td nowrap><b>文字色</b></td><td>\n"; # クッキーの色情報がない場合 if ($c_color eq "") { $c_color = $COLORS[0]; } foreach (0 .. $#COLORS) { if ($c_color eq "$COLORS[$_]") { print "<input type=radio name=color value=\"$COLORS[$_]\" checked> "; print "<font color=\"$COLORS[$_]\">■</font>\n"; } else { print "<input type=radio name=color value=\"$COLORS[$_]\"> "; print "<font color=\"$COLORS[$_]\">■</font>\n"; } } print "</td></tr></table></form></blockquote><hr>\n"; if ($FORM{'page'} eq '') { $page = 0; } else { $page = $FORM{'page'}; } # 記事数を取得 $end_data = @new - 1; $page_end = $page + ($pagelog - 1); if ($page_end >= $end_data) { $page_end = $end_data; } foreach ($page .. $page_end) { ($number,$k,$date,$name,$email,$sub, $comment,$url,$host,$pwd,$color,$icon) = split(/<>/, $new[$_]); if ($email) { $name = "<a href=\"mailto:$email\">$name</a>"; } # URL表示 if ($url && $home_icon) { $url = "<a href=\"http://$url\" target='_top'><img src=\"$icon_dir\/$home_gif\" border=0 align=top HSPACE=10 WIDTH=\"$home_wid\" HEIGHT=\"$home_hei\" alt='HomePage'></a>"; } elsif ($url && !$home_icon) { $url = "<<a href=\"http://$url\" target='_top'>HOME</a>>"; } print "<center><TABLE border=1 width='95%' cellpadding=5 cellspacing=0 bgcolor=\"$tbl_color\">\n"; print "<TR><TD>\n"; print "<table border=0 cellspacing=0 cellpadding=0><tr>\n"; print "<td valign=top>[<b>$number</b>] <font color=$sub_color><b>$sub</b></font>\n"; print "投稿者:<font color=\"$link\"><b>$name</b></font> "; print "<small>投稿日:$date</small> <font face=\"Arial,verdana\"> </font> $url</td>\n"; print "<td><form action=\"$script\" method=\"$method\">\n"; print "<input type=hidden name=mode value=\"res_msg\">\n"; print "<input type=hidden name=resno value=\"$number\">\n"; print "<input type=submit value=\"返信\"></td></form>"; print "</tr></table>\n"; print "<table border=0 cellspacing=7><tr>\n"; if ($icon ne "") { print "<td><img src=\"$icon_dir\/$icon\"></td>\n"; } else { print "<td width=37> </td>\n"; } # 自動リンク if ($autolink) { &auto_link($comment); } print "<td><font color=\"$color\">$comment</font></td></tr></table>\n"; ## レスメッセージを表示 foreach $line (@lines) { ($rnum,$rk,$rd,$rname,$rem,$rsub, $rcom,$rurl,$rho,$rp,$rc,$ri) = split(/<>/,$line); if ($rem) { $rname = "<a href=\"mailto:$rem\">$rname</a>"; } if ($number eq "$rk") { print "<hr width='85%' size=1 noshade>\n"; print "<table cellspacing=0 cellpadding=0 border=0><tr><td width=37> </td>\n"; if ($ri ne "") { print "<td><img src=\"$icon_dir\/$ri\"></td><td><font face=\"Arial,verdana\"> </font></td>\n"; } else { print "<td width=35> </td><td><font face=\"Arial,verdana\"> </font></td>\n"; } print "<td><font color=\"$sub_color\"><b>$rsub</b></font> "; print "投稿者:<font color=\"$link\"><b>$rname</b></font> - "; print "<small>$rd</small> "; # URL表示 if ($rurl && !$home_icon) { print "<<a href=\"http://$rurl\" target='_top'>HOME</a>>"; } elsif ($rurl && $home_icon) { print "<a href=\"http://$rurl\" target='_top'><img src=\"$icon_dir\/$home_gif\" border=0 align=top HSPACE=10 WIDTH=\"$home_wid\" HEIGHT=\"$home_hei\" alt=\"HomePage\"></a>"; } # 自動リンク if ($autolink) { &auto_link($rcom); } print "<br><font color=\"$rc\">$rcom</font></td></tr></table>\n"; } } print "</TD></TR></TABLE><P>\n"; } print "<table border=0><tr>\n"; # 改頁処理 $next_line = $page_end + 1; $back_line = $page - $pagelog; # 前頁処理 if ($back_line >= 0) { print "<td><form method=\"$method\" action=\"$script\">\n"; print "<input type=hidden name=page value=\"$back_line\">\n"; print "<input type=submit value=\"前の$pagelog件\">\n"; print "</form></td>\n"; } # 次頁処理 if ($page_end ne "$end_data") { print "<td><form method=\"$method\" action=\"$script\">\n"; print "<input type=hidden name=page value=\"$next_line\">\n"; print "<input type=submit value=\"次の$pagelog件\">\n"; print "</form></td>\n"; } print "</tr></table><P>\n"; &footer; exit; } ## --- ログ書き込み処理 sub regist { # 他サイトからのアクセスを排除 if ($base_url ne ".") { $ref_url = $ENV{'HTTP_REFERER'}; $ref_url =~ s/\?(.|\n)*//ig; $ref_url =~ s/\%7E/\~/ig; if ($ref_url && $ref_url !~ $base_url) { &error("不正なアクセスです",'NOLOCK'); } } # 名前とコメントは必須 if ($name eq "") { &error("名前が入力されていません",'NOLOCK'); } if ($comment eq "") { &error("コメントが入力されていません",'NOLOCK'); } if ($email && $email !~ /(.*)\@(.*)\.(.*)/) { &error("Eメールの入力内容が正しくありません",'NOLOCK'); } # 管理アイコンのチェック if ($my_icon && $icon eq "$my_gif") { if ($pwd ne "$pass") { &error("管理用アイコンは管理者専用です",'NOLOCK'); } } # ホスト名を取得 &get_host; # 時間を取得 &get_time; # クッキーを発行 &set_cookie; # ファイルロック if ($lockkey == 1) { &lock1; } elsif ($lockkey == 2) { &lock2; } # ログを開く open(IN,"$logfile") || &error("Can't open $logfile"); @lines = <IN>; close(IN); # 記事NO処理 $oya = $lines[0]; $oya =~ s/\n//; shift(@lines); # 二重投稿の禁止 local($flag) = 0; foreach $line (@lines) { ($knum,$kk,$kd,$kname,$kem,$ksub,$kcom) = split(/<>/,$line); if ($name eq "$kname" && $comment eq "$kcom") { $flag=1; last; } } if ($flag) { &error("二重投稿は禁止です"); } # 親記事の場合、記事Noをカウントアップ if ($FORM{'resno'} eq "") { $oya++; $number=$oya; } else { $number = $oya; } # 削除キーを暗号化 if ($FORM{'pwd'} ne "") { &passwd_encode($FORM{'pwd'}); } # ログをフォーマット $new_msg = "$number<>$FORM{'resno'}<>$date<>$name<>$email<>$sub<>$comment<>$url<>$host<>$ango<>$color<>$FORM{'icon'}<>\n"; ## 自動ソート時は、レス記事投稿時は親記事はトップへ移動 if ($res_sort && $FORM{'resno'} ne "") { @res_data = (); @new = (); foreach $line (@lines) { $flag = 0; ($num,$k,$d,$na,$em,$sb,$com,$u,$ho,$p,$c,$ico) = split(/<>/,$line); # 親記事を抜き出す if ($k eq "" && $FORM{'resno'} eq "$num") { $new_line = "$line"; $flag = 1; } # 関連のレス記事を抜き出す elsif ($k eq "$FORM{'resno'}") { push(@res_data,$line); $flag = 1; } if ($flag == 0) { push(@new,$line); } } # 関連レス記事をトップへ unshift(@new,@res_data); # 新規メッセージをトップへ unshift(@new,$new_msg); # 親記事をトップへ unshift(@new,$new_line); ## 親記事の場合、最大記事数を超える記事をカット } elsif ($FORM{'resno'} eq "") { $i = 0; $stop = 0; foreach $line (@lines) { ($num,$k,$d,$na,$em,$sb,$com,$u,$ho,$p,$c,$ico)=split(/<>/,$line); if ($k eq "") { $i++; } if ($i > $max-1) { $stop = 1; if ($pastkey == 0) { last; } else { if ($k eq "") { $kflag=1; push(@past_data,$line); } else { push(@past_res,$line); } } } if ($stop == 0) { push(@new,$line); } } ## 過去記事生成 if ($kflag) { @past_res = reverse(@past_res); push(@past_data,@past_res); &pastlog; } unshift(@new,$new_msg); ## レス記事は記事数の調整はしない } else { @res_data = (); @new = (); foreach $line (@lines) { $flag = 0; ($num,$k,$d,$na,$em,$sb,$com,$u,$ho,$p,$c,$ico) = split(/<>/,$line); # 親記事を抜き出す if ($k eq "" && $FORM{'resno'} eq "$num") { $new_line = "$line"; $flag = 2; } if ($flag == 0) { push(@new,$line); } elsif ($flag == 2) { push(@new,$new_line); push(@new,$new_msg); } } } # 親記事NOを付加 unshift (@new,"$oya\n"); # ログを更新 open(OUT,">$logfile") || &error("Can't write $logfile"); print OUT @new; close(OUT); # ロック解除 if (-e $lockfile) { unlink($lockfile); } # メール処理 if ($mailing && $mail_me) { &mail_to; } elsif ($mailing && $email ne "$mailto") { &mail_to; } } ## --- 返信フォーム sub res_msg { # ログを読み込み open(DB,"$logfile") || &error("Can't open $logfile",'NOLOCK'); @lines = <DB>; close(DB); # 親記事NOをカット @lines = splice(@lines,1); # フォーム長を定義 &get_agent; # クッキーを取得 &get_cookie; &header; print "以下は、記事NO <B>$FORM{'resno'}</B> に関する返信フォームです<hr>\n"; print "<center><table border=0 width=\"97%\" cellpadding=10 bgcolor=\"$tbl_color\">\n"; print "<tr><td>\n"; $flag=0; foreach $line (@lines) { local($num,$k,$date,$name,$email,$sub,$com) = split(/<>/, $line); # 親記事を出力 if ($k eq "" && $FORM{'resno'} eq "$num") { $resub = $sub; $flag=1; print "<B>【親記事】</B><P>\n"; print "<font color=\"$sub_color\"><B>$sub</B></font>\n"; print "投稿者:<font color=\"$link\"><B>$name</B></font>\n"; print "<small>投稿日:$date</small><br>\n"; print "<blockquote>$com</blockquote><P>\n"; # レス記事を @res に格納 } elsif ($k ne "" && $FORM{'resno'} eq "$k") { push(@res,$line); } } # レス記事を表示 if (@res) { # 記事を逆順に @res = reverse(@res); $flag = 0; foreach $line (@res) { local($num,$k,$date,$name,$email,$sub,$com) = split(/<>/,$line); if ($flag == 0) { $flag=1; print "<hr size=2><B>【レス記事】</B><br>\n"; } print "<blockquote><font color=\"$sub_color\"><B>$sub</B></font>\n"; print "投稿者:<font color=\"$link\"><B>$name</B></font> - \n"; print "<small>$date</small><br>\n"; print "<blockquote>$com</blockquote></blockquote><br>\n"; } } # タイトル名 if ($resub !=~ /^Re\:/) { $resub = "Re\: $resub"; } print <<"EOM"; </td></tr></table></center><hr> <form action="$script" method="$method"> <input type=hidden name=mode value="msg"> <input type=hidden name=resno value="$FORM{'resno'}"> <blockquote> <table> <tr> <td nowrap><b>おなまえ</b></td> <td><input type=text name=name value="$c_name" size=$nam_wid></td> </tr> <tr> <td nowrap><b>Eメール</b></td> <td><input type=text name=email value="$c_email" size=$nam_wid></td> </tr> <tr> <td nowrap><b>タイトル</b></td> <td><input type=text name=sub value="$resub" size=$subj_wid> <input type=submit value="返信する"><input type=reset value="リセット"></td> </tr> <tr> <td colspan=2><b>メッセージ</b><br> <textarea cols=$com_wid rows=5 name=comment wrap="$wrap"></textarea></td> </tr> <tr> <td nowrap><b>URL</b></td> <td><input type=text name=url value="http://$c_url" size=$url_wid></td> </tr> EOM # 管理者アイコンを配列に付加 if ($my_icon) { push(@icon1,"$my_gif"); push(@icon2,"管理者用"); } if ($icon_mode) { print "<tr><td nowrap><b>イメージ</b></td><td><select name=icon>\n"; foreach(0 .. $#icon1) { if ($c_icon eq "$icon1[$_]") { print "<option value=\"$icon1[$_]\" selected>$icon2[$_]\n"; } else { print "<option value=\"$icon1[$_]\">$icon2[$_]\n"; } } print "</select> <small>(あなたのイメージを選択して下さい)\n"; print "[<a href=\"$script?mode=image\" target=_blank>イメージ画像参照</a>]</small></td></tr>\n"; } print "<tr><td nowrap><b>削除キー</b>"; print "<td><input type=password name=pwd size=8 maxlength=8 value=\"$c_pwd\">\n"; print "<small>(自分の記事を削除時に使用。英数字で8文字以内)</small></td></tr>\n"; print "<tr><td nowrap><b>文字色</b></td><td>\n"; # クッキーの色情報がない場合 if ($c_color eq "") { $c_color = $COLORS[0]; } foreach (0 .. $#COLORS) { if ($c_color eq "$COLORS[$_]") { print "<input type=radio name=color value=\"$COLORS[$_]\" checked>"; print "<font color=\"$COLORS[$_]\">■</font>\n"; } else { print "<input type=radio name=color value=\"$COLORS[$_]\">"; print "<font color=$COLORS[$_]>■</font>\n"; } } print "</td></tr></table></form>\n"; print "</blockquote><P><hr><P>\n"; &footer; exit; } ## --- フォームからのデータ処理 sub decode { if ($ENV{'REQUEST_METHOD'} eq "POST") { if ($ENV{'CONTENT_LENGTH'} > 51200) { &error("投稿量が大きすぎます",'NOLOCK'); } read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; # 文字コードをS-JIS変換 &jcode'convert(*value,'sjis'); # タグ処理 if ($tagkey == 0) { $value =~ s/</</g; $value =~ s/>/>/g; $value =~ s/\"/"/g; } else { $value =~ s/<!--(.|\n)*-->//g; $value =~ s/<>/<>/g; } # 改行等処理 if ($name eq "comment") { $value =~ s/\r\n/<br>/g; $value =~ s/\r/<br>/g; $value =~ s/\n/<br>/g; } else { $value =~ s/\r//g; $value =~ s/\n//g; } # 一括削除用 if ($name eq 'del') { push(@delete,$value); } $FORM{$name} = $value; } $name = $FORM{'name'}; $comment = $FORM{'comment'}; $email = $FORM{'email'}; $url = $FORM{'url'}; $url =~ s/^http\:\/\///; $mode = $FORM{'mode'}; $sub = $FORM{'sub'}; if ($sub eq "") { $sub = "無題"; } $pwd = $FORM{'pwd'}; $pwd =~ s/\r//g; $pwd =~ s/\n//g; $icon = $FORM{'icon'}; $color = $FORM{'color'}; } ## --- 掲示板の使い方メッセージ sub howto { if ($tagkey == 0) { $tag_msg = "投稿内容には、<b>タグは一切使用できません。</b>\n"; } else { $tag_msg = "コメント欄には、<b>タグ使用をすることができます。</b>\n"; } &header; print <<"HTML"; [<a href="$script\?">掲示板にもどる</a>] <table width="100%"> <tr> <th bgcolor="#0000A0"> <font color="#FFFFFF">掲示板の利用上の注意</font> </th> </tr> </table> <P><center> <table width="90%" border=1 cellpadding=10> <tr><td bgcolor="$tbl_color"> <OL> <LI>この掲示板は<b>クッキー対応</b>です。1度記事を投稿いただくと、おなまえ、Eメール、URL、削除キーの情報は2回目以降は自動入力されます。(ただし利用者のブラウザがクッキー対応の場合)<P> <LI>$tag_msg<P> <LI>記事を投稿する上での必須入力項目は<b>「おなまえ」</b>と<b>「メッセージ」</b>です。Eメール、URL、題名、削除キーは任意です。<P> <LI>記事には、<b>半角カナは一切使用しないで下さい。</b>文字化けの原因となります。<P> <LI>記事の投稿時に<b>「削除キー」</b>にパスワード(英数字で8文字以内)を入れておくと、その記事は次回<b>削除キー</b>によって削除することができます。<P> <LI>記事の保持件数は<b>最大 $max件</b>です。それを超えると古い順に自動削除されます。<P> <LI>既存の記事に<b>「返信」</b>をすることができます。各記事の上部にある<b>「返信」</b>ボタンを押すと返信用フォームが現れます。<P> <LI>過去の投稿記事から<b>「キーワード」によって簡易検索ができます。</b>トップメニューの<a href="$script?mode=find">「ワード検索」</a>のリンクをクリックすると検索モードとなります。<P> <LI>管理者が著しく不利益と判断する記事や他人を誹謗中傷する記事は\予\告\なく削除することがあります。 </OL> </td></tr></table> </center> <hr> <P> HTML &footer; exit; } ## --- ワード検索サブルーチン sub find { &header; print <<"HTML"; [<a href="$script\?">掲示板にもどる</a>] <table width="100%"> <tr> <th bgcolor="#0000A0"> <font color="#FFFFFF">ワード検索</font> </th> </tr> </table> <P><center> <table cellpadding=5> <tr><td bgcolor="$tbl_color" nowrap> <UL> <LI>検索したい<b>キーワード</b>を入力し、検索領域を選択して「検索ボタン」を押してください。 <LI>キーワードは「半角スペース」で区切って複数指定することができます。 </OL> </td></tr> </table> <P><form action="$script" method="$method"> <input type=hidden name=mode value="find"> <table border=1 cellspacing=1> <tr> <th colspan=2>キーワード <input type=text name=word size=30></th> </tr> <tr> <td>検索条件</td> <td> <input type=radio name=cond value="and" checked>AND <input type=radio name=cond value="or">OR </td> </tr> <tr> <th colspan=2> <input type=submit value="検索する"><input type=reset value="リセット"> </th> </tr> </table> </form></center> HTML # ワード検索の実行と結果表示 if ($FORM{'word'} ne ""){ # 入力内容を整理 $cond = $FORM{'cond'}; $word = $FORM{'word'}; $word =~ s/ / /g; $word =~ s/\t/ /g; @pairs = split(/ /,$word); # ファイルを読み込み open(DB,"$logfile") || &error("Can't open $logfile",'NOLOCK'); @lines = <DB>; close(DB); # 検索処理 foreach (1 .. $#lines) { $flag = 0; foreach $pair (@pairs){ if (index($lines[$_],$pair) >= 0) { $flag = 1; if ($cond eq 'or') { last; } } else { if ($cond eq 'and') { $flag = 0; last; } } } if ($flag == 1) { push(@new,$lines[$_]); } } # 検索終了 $count = @new; print "<hr><b><font color=\"$t_color\">検索結果:$count件</font></b><P>\n"; print "<OL>\n"; foreach $line (@new) { ($num,$k,$date,$name,$email,$sub,$com,$url) = split(/<>/,$line); if ($email) { $name = "<a href=\"mailto:$email\">$name</a>"; } if ($url) { $url = "[<a href=\"http://$url\" target='_top'>HOME</a>]"; } if ($k) { $num = "$kへのレス"; } # 結果を表示 print "<LI>[$num] <font color=\"$sub_color\"><b>$sub</b></font>\n"; print "投稿者:<b>$name</b> <small> $url 投稿日:$date</small>\n"; print "<P><blockquote>$com</blockquote><hr>\n"; } print "</OL><P>\n"; } &footer; exit; } ## --- ブラウザを判断しフォーム幅を調整 sub get_agent { # ブラウザ名を取得 $agent = $ENV{'HTTP_USER_AGENT'}; if ($agent =~ /MSIE 3/i) { $nam_wid = 30; $subj_wid = 40; $com_wid = 65; $url_wid = 48; $nam_wid2 = 20; } elsif ($agent =~ /MSIE 4/i || $agent =~ /MSIE 5/i) { $nam_wid = 30; $subj_wid = 40; $com_wid = 65; $url_wid = 78; $nam_wid2 = 20; } else { $nam_wid = 20; $subj_wid = 25; $com_wid = 56; $url_wid = 50; $nam_wid2 = 10; } } ## --- クッキーの発行 sub set_cookie { # クッキーは60日間有効 ($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$dmy,$dmy) = gmtime(time + 60*24*60*60); $yearg += 1900; if ($secg < 10) { $secg = "0$secg"; } if ($ming < 10) { $ming = "0$ming"; } if ($hourg < 10) { $hourg = "0$hourg"; } if ($mdayg < 10) { $mdayg = "0$mdayg"; } $month = ('Jan','Feb','Mar','Apr','May','Jun','Jul', 'Aug','Sep','Oct','Nov','Dec')[$mong]; $youbi = ('Sunday','Monday','Tuesday','Wednesday', 'Thursday','Friday','Saturday')[$wdayg]; $date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT"; $cook="name\:$name\,email\:$email\,url\:$url\,pwd\:$pwd\,icon\:$icon\,color\:$color"; print "Set-Cookie: YYBBS=$cook; expires=$date_gmt\n"; } ## --- クッキーを取得 sub get_cookie { @pairs = split(/\;/, $ENV{'HTTP_COOKIE'}); foreach $pair (@pairs) { local($name, $value) = split(/\=/, $pair); $name =~ s/ //g; $DUMMY{$name} = $value; } @pairs = split(/\,/, $DUMMY{'YYBBS'}); foreach $pair (@pairs) { local($name, $value) = split(/\:/, $pair); $COOKIE{$name} = $value; } $c_name = $COOKIE{'name'}; $c_email = $COOKIE{'email'}; $c_url = $COOKIE{'url'}; $c_pwd = $COOKIE{'pwd'}; $c_icon = $COOKIE{'icon'}; $c_color = $COOKIE{'color'}; if ($FORM{'name'}) { $c_name = $FORM{'name'}; } if ($FORM{'email'}) { $c_email = $FORM{'email'}; } if ($FORM{'url'}) { $c_url = $url; } if ($FORM{'pwd'}) { $c_pwd = $FORM{'pwd'}; } if ($FORM{'icon'}) { $c_icon = $FORM{'icon'}; } if ($FORM{'color'}) { $c_color = $FORM{'color'}; } } ## --- エラー処理 sub error { if ($_[1] ne '0') { &header; } if (-e $lockfile && $_[1] eq "") { unlink($lockfile); } print "<center><hr width=\"75%\"><h3>ERROR !</h3>\n"; print "<P><font color=red><B>$_[0]</B></font>\n"; print "<P><hr width=\"75%\"></center>\n"; &footer; exit; } ## --- 削除画面 sub msg_del { if ($FORM{'action'} eq 'admin' && $FORM{'pass'} ne "$pass") { &error("パスワードが違います",'NOLOCK'); } open(DB,$logfile) || &error("Can't open $logfile",'NOLOCK'); @lines = <DB>; close(DB); shift(@lines); # 親記事のみの配列データを作成 @NEW = (); foreach (@lines) { ($number,$k,$date,$name,$email,$subj, $comment,$url,$host,$pwd) = split(/<>/, $_); # レス記事を外す if ($k eq '') { push(@NEW,$_); } } @lines = reverse(@lines); &header; print "[<a href=\"$script\?\">掲示板へ戻る</a>]\n"; print "<table width=\"100%\"><tr><th bgcolor=\"#0000A0\">\n"; print "<font color=\"#FFFFFF\">コメント削除画面</font></th>\n"; print "</tr></table><P><center>\n"; print "<table border=0 cellpadding=5><tr>\n"; print "<td bgcolor=$tbl_color>\n"; if ($FORM{'action'} eq '') { print "■投稿時に記入した「削除キー」により、記事を削除します。<br>\n"; } print "■削除したい記事のチェックボックスにチェックを入れ、下記フォームに「削除キー」を入力してください。<br>\n"; print "■親記事を削除する場合、そのレスメッセージも同時に消滅してしまうことになりますので、ご注意ください。<br>\n"; print "</td></tr></table><P>\n"; print "<form action=\"$script\" method=$method>\n"; if ($FORM{'action'} eq '') { print "<input type=hidden name=mode value=\"usr_del\">\n"; print "<b>削除キー</b> <input type=text name=del_key size=10>\n"; } else { print "<input type=hidden name=mode value=\"admin_del\">\n"; print "<input type=hidden name=action value=\"admin\">\n"; print "<input type=hidden name=pass value=\"$FORM{'pass'}\">\n"; } print "<input type=submit value=\"削除する\"><input type=reset value=\"リセット\">\n"; print "<P><table border=1>\n"; print "<tr><th>削除</th><th>記事No</th><th>題名</th><th>投稿者</th><th>投稿日</th><th>コメント</th>\n"; if ($FORM{'action'} eq 'admin') { print "<th>ホスト名</th>\n"; } print "</tr>\n"; if ($FORM{'page'} eq '') { $page = 0; } else { $page = $FORM{'page'}; } # 記事数を取得 $end_data = @NEW - 1; $page_end = $page + ($pagelog - 1); if ($page_end >= $end_data) { $page_end = $end_data; } foreach ($page .. $page_end) { ($num,$k,$date,$name,$email,$sub, $com,$url,$host,$pw,$color) = split(/<>/,$NEW[$_]); if ($email) { $name="<a href=mailto:$email>$name</a>"; } $com =~ s/<br>/ /g; if ($tagkey) { $com =~ s/</</g; $com =~ s/>/>/g; } if (length($com) > 60) { $com = substr($com,0,58); $com = $com . '..'; } if ($FORM{'action'} eq 'admin') { print "<tr><th><input type=checkbox name=del value=\"$date\"></th>\n"; } else { print "<tr><th><input type=radio name=del value=\"$date\"></th>\n"; } print "<th>$num</th><td>$sub</td><td>$name</td>\n"; print "<td><small>$date</small></td><td>$com</td>\n"; if ($FORM{'action'} eq 'admin') { print "<td>$host</td>\n"; } print "</tr>\n"; ## レスメッセージを表示 foreach (0 .. $#lines) { ($rnum,$rk,$rd,$rname,$rem,$rsub, $rcom,$rurl,$rho,$rp,$rc) = split(/<>/, $lines[$_]); $rcom =~ s/<br>/ /g; if ($tagkey) { $rcom =~ s/</\<\;/g; $rcom =~ s/>/\>\;/g; } if (length($rcom) > 60) { $rcom=substr($rcom,0,58); $rcom=$rcom . '..'; } if ($num eq "$rk") { if ($FORM{'action'} eq 'admin') { print "<tr><th><input type=checkbox name=del value=\"$rd\"></th>\n"; } else { print "<tr><th><input type=radio name=del value=\"$rd\"></th>\n"; } print "<td colspan=2 align=center><b>$num</b>へのレス</td>\n"; print "<td>$rname</td><td><small>$rd</small></td><td>$rcom</td>\n"; if ($FORM{'action'} eq 'admin') { print "<td>$rho</td>\n"; } print "</tr>\n"; } } } print "</table></form>\n"; print "<table border=0 width=\"100%\"><tr>\n"; # 改頁処理 $next_line = $page_end + 1; $back_line = $page - $pagelog; # 前頁処理 if ($back_line >= 0) { print "<td><form method=\"$method\" action=\"$script\">\n"; print "<input type=hidden name=page value=\"$back_line\">\n"; print "<input type=hidden name=mode value=msg_del>\n"; print "<input type=submit value=\"前の親記事$pagelog件\">\n"; if ($FORM{'action'} eq 'admin') { print "<input type=hidden name=action value=\"admin\">\n"; print "<input type=hidden name=pass value=\"$FORM{'pass'}\">\n"; } print "</form></td>\n"; } # 次頁処理 if ($page_end ne "$end_data") { print "<td><form method=\"$method\" action=\"$script\">\n"; print "<input type=hidden name=page value=\"$next_line\">\n"; print "<input type=hidden name=mode value=msg_del>\n"; print "<input type=submit value=\"次の親記事$pagelog件\">\n"; if ($FORM{'action'} eq 'admin') { print "<input type=hidden name=action value=\"admin\">\n"; print "<input type=hidden name=pass value=\"$FORM{'pass'}\">\n"; } print "</form></td>\n"; } print "</tr></table><P><hr><P>\n"; &footer; exit; } ## --- 記事削除処理 sub usr_del { if ($FORM{'del_key'} eq "") { &error("削除キーが入力モレです",'NOLOCK'); } if ($FORM{'del'} eq "") { &error("ラジオボタンの選択がありません",'NOLOCK'); } # ロック開始 if ($lockkey == 1) { &lock1; } elsif ($lockkey == 2) { &lock2; } # ログを読み込む open(DB,"$logfile") || &error("Can't open $logfile"); @lines = <DB>; close(DB); # 親記事NO $oya = $lines[0]; if ($oya =~ /<>/) { &error("ログが正しくありません"); } shift(@lines); ## 削除キーによる記事削除 ## @new=(); foreach $line (@lines) { $dflag = 0; ($num,$k,$dt,$name,$email,$sub,$com,$url,$host,$pw) = split(/<>/,$line); if ($FORM{'del'} eq "$dt") { $dflag = 1; $encode_pwd = $pw; $del_num = $num; if ($k eq '') { $oyaflag=1; } } elsif ($oyaflag && $del_num eq "$k") { $dflag = 1; } if ($dflag == 0) { push(@new,$line); } } if ($del_num eq '') { &error("$FORM{'del'}削除対象記事が見つかりません"); } else { if ($encode_pwd eq '') { &error("削除キーが設定されていません"); } $plain_text = $FORM{'del_key'}; &passwd_decode($encode_pwd); if ($check eq 'no') { &error("パスワードが違います"); } } # 親記事NOを付加 unshift(@new,$oya); ## ログを更新 ## open(DB,">$logfile") || &error("Can't write $logfile"); print DB @new; close(DB); # ロック解除 if (-e $lockfile) { unlink($lockfile); } # 削除画面にもどる &msg_del; } ## --- 管理者一括記事削除 sub admin_del { if ($FORM{'pass'} ne "$pass") { &error("パスワードが違います",'NOLOCK'); } if ($FORM{'del'} eq "") { &error("チェックボックスの選択がありません",'NOLOCK'); } # ロック開始 if ($lockkey == 1) { &lock1; } elsif ($lockkey == 2) { &lock2; } # ログを読み込む open(DB,"$logfile") || &error("Can't open $logfile"); @lines = <DB>; close(DB); # 親記事NO $oya = $lines[0]; if ($oya =~ /<>/) { &error("ログが正しくありません。<P> <small>\(v2.5以前のログの場合は変換の必要があります\)<\/small>"); } shift(@lines); ## 削除処理 foreach $line (@lines) { $dflag=0; ($num,$k,$dt,$name,$email,$sub,$com,$url,$host,$pw) = split(/<>/,$line); foreach $del (@delete) { if ($del eq "$dt") { $dflag = 1; $del_num = $num; if ($k eq '') { $oyaflag=1; } } elsif ($oyaflag && $del_num eq "$k") { $dflag = 1; } } if ($dflag == 0) { push(@new,$line); } } # 親記事NOを付加 unshift(@new,$oya); ## ログを更新 ## open(DB,">$logfile") || &error("Can't write $logfile"); print DB @new; close(DB); # ロック解除 if (-e $lockfile) { unlink($lockfile); } # 削除画面にもどる &msg_del; } ## --- 管理者入室画面 sub admin { &header; print "<center><h4>パスワードを入力してください</h4>\n"; print "<form action=\"$script\" method=$method>\n"; print "<input type=hidden name=mode value=\"msg_del\">\n"; print "<input type=hidden name=action value=\"admin\">\n"; print "<input type=password name=pass size=8><input type=submit value=\" 認証 \">\n"; print "</form></center><P><hr><P>\n"; &footer; exit; } ## --- 時間を取得 sub get_time { $ENV{'TZ'} = "JST-9"; ($sec,$min,$hour,$mday,$mon,$year,$wday,$d,$d) = localtime(time); $year += 1900; $mon++; if ($mon < 10) { $mon = "0$mon"; } if ($mday < 10) { $mday = "0$mday"; } if ($hour < 10) { $hour = "0$hour"; } if ($min < 10) { $min = "0$min"; } if ($sec < 10) { $sec = "0$sec"; } $week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat') [$wday]; # 日時のフォーマット $date = "$year\/$mon\/$mday\($week\) $hour\:$min\:$sec"; } ## --- カウンタ処理 sub counter { # 閲覧時のみカウントアップ $match=0; if ($FORM{'mode'} eq '') { # カウンタロック if ($lockkey) { &lock3; } $match=1; } # カウントファイルを読みこみ open(NO,"$cntfile") || &error("Can't open $cntfile",'0'); $cnt = <NO>; close(NO); # カウントアップ if ($match) { $cnt++; } # 更新 open(OUT,">$cntfile") || &error("Write Error : $cntfile"); print OUT $cnt; close(OUT); # カウンタロック解除 if (-e $cntlock) { unlink($cntlock); } # 桁数調整 while(length($cnt) < $mini_fig) { $cnt = '0' . "$cnt"; } @cnts = split(//,$cnt); print "<table><tr><td>\n"; # GIFカウンタ表示 if ($counter == 2) { foreach (0 .. $#cnts) { print "<img src=\"$gif_path/$cnts[$_]\.gif\" alt=\"$cnts[$_]\" width=\"$mini_w\" height=\"$mini_h\">"; } # テキストカウンタ表示 } else { print "<font color=\"$cnt_color\" face=\"verdana,Times New Roman,Arial\">$cnt</font>"; } print "</td></tr></table>\n"; } ## --- ロックファイル:symlink関数 sub lock1 { local($retry) = 5; while (!symlink(".", $lockfile)) { if (--$retry <= 0) { &error("LOCK is BUSY"); } sleep(1); } } ## --- ロックファイル:open関数 sub lock2 { local($retry) = 0; foreach (1 .. 5) { if (-e $lockfile) { sleep(1); } else { open(LOCK,">$lockfile"); close(LOCK); $retry = 1; last; } } if (!$retry) { &error("LOCK is BUSY"); } } ## --- カウンタロック sub lock3 { $cnt_flag = 0; foreach (1 .. 7) { if (-e $cntlock) { sleep(1); } else { open(LOCK,">$cntlock"); close(LOCK); $cnt_flag = 1; last; } } if (!$cnt_flag) { unlink($cntlock); } } ## --- メール送信 sub mail_to { $mail_sub = "$title に投稿がありました"; &jcode'convert(*mail_sub,'jis'); &jcode'convert(*name,'jis'); &jcode'convert(*sub,'jis'); &jcode'convert(*comment,'jis'); $comment =~ s/<br>/\n/g; $comment =~ s/</</g; $comment =~ s/>/>/g; if (open(MAIL,"| $sendmail $mailto")) { print MAIL "To: $mailto\n"; # メールアドレスがない場合はダミーメールに置き換え if ($email eq "") { $email = "nomail\@xxx.xxx"; } print MAIL "From: $email\n"; print MAIL "Subject: $mail_sub\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 "TIME : $date\n"; print MAIL "HOST : $host\n"; print MAIL "NAME : $name\n"; print MAIL "EMAIL: $email\n"; if ($url) { print MAIL "URL : http://$url\n"; } print MAIL "TITLE: $sub\n\n"; print MAIL "$comment\n"; print MAIL "--------------------------------------------------------\n"; close(MAIL); } } ## --- パスワード暗号処理 sub passwd_encode { $now = time; ($p1, $p2) = unpack("C2", $now); $wk = $now / (60*60*24*7) + $p1 + $p2 - 8; @saltset = ('a'..'z','A'..'Z','0'..'9','.','/'); $nsalt = $saltset[$wk % 64] . $saltset[$now % 64]; $ango = crypt($_[0], $nsalt); } ## --- パスワード照合処理 sub passwd_decode { if ($_[0] =~ /^\$1\$/) { $key = 3; } else { $key = 0; } $check = "no"; if (crypt($plain_text, substr($_[0],$key,2)) eq "$_[0]") { $check = "yes"; } } ## --- HTMLのヘッダー sub header { $pt_b = $pt + 2 . 'pt'; $pt_s = $pt - 1 . 'pt'; $pt .= pt; $t_point .= pt; print "Content-type: text/html\n\n"; print <<"EOM"; <html> <head> <META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS"> <STYLE type="text/css"> <!-- body,tr,td,th { font-size: $pt } a:link { font-size: $pt; color:$link } a:visited { font-size: $pt; color:$vlink } a:active { font-size: $pt; color:$alink } a:hover { font-size: $pt; color:$alink } span { font-size: $t_point } big { font-size: $pt_b } small { font-size: $pt_s } --> </STYLE> <title>$title</title></head> EOM # bodyタグ if ($backgif) { $bgkey = "background=\"$backgif\" bgcolor=$bgcolor"; } else { $bgkey = "bgcolor=$bgcolor"; } print "<body $bgkey text=$text link=$link vlink=$vlink alink=$alink>\n"; } ## --- HTMLのフッター sub footer { ## MakiMakiさんの画像使用の有無に関わらずこの2箇所のリンク部を ## 削除することはできません。 print "<br><br><center>$banner2<P><small><!-- $ver -->\n"; print "<a href=\"http://www.kent-web.com/\" target='_top'>KENT</a> & \n"; print "<a href=\"http://village.infoweb.ne.jp/~fwhf2602/\" target='_top'>MakiMaki</a>\n"; print "</small></center>\n"; print "</body></html>\n"; } ## --- 自動リンク sub auto_link { $_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)/$1<a href=\"$2\" target='_top'>$2<\/a>/g; } ## --- イメージ画像表示 sub image { &header; print "<center><hr width=\"75%\">\n"; print "<h3>イメージ画像サンプル</h3>\n"; print "<P>現在登録されているイメージ画像は以下のとおりです\n"; print "<P><hr width=\"75%\">\n"; print "<P><table border=1 cellpadding=5 cellspacing=0><tr>\n"; $i=0; $j=0; $stop = @icon1; foreach (0 .. $#icon1) { $i++; $j++; print "<th><img src=\"$icon_dir\/$icon1[$_]\" ALIGN=middle> $icon2[$_]</th>\n"; if ($i >= 5) { print '</tr><tr>'; $i=0; } if ($j eq "$stop") { if ($i == 0) { last; } while ($i < 5) { print "<th><br></th>"; $i++; } } } print "</tr></table><br>\n"; print "<FORM><INPUT TYPE=\"button\" VALUE=\" CLOSE \" onClick=\"top.close();\"></FORM></center>\n"; print "</body></html>\n"; 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 { $new_flag = 0; # 過去NOを開く open(NO,"$nofile") || &error("Can't open $nofile"); $count = <NO>; close(NO); # 過去ログのファイル名を定義 $pastfile = "$past_dir\/$count\.html"; # 過去ログがない場合、新規に自動生成する unless(-e $pastfile) { &new_log; } # 過去ログを開く if ($new_flag == 0) { open (IN,"$pastfile") || &error("Can't open $pastfile"); @past = <IN>; close(IN); } # 規定の行数をオーバーすると、次ファイルを自動生成する if ($#past > $log_line) { &next_log; } foreach $pst_line (@past_data) { ($pnum,$pk,$pdt,$pname,$pemail, $psub,$pcom,$purl,$phost,$ppw) = split(/<>/, $pst_line); if ($pemail) { $pname = "<a href=\"mailto:$pemail\">$pname</a>"; } if ($purl) { $purl="<a href=\"http://$purl\" target='_top'>http://$purl</a>"; } if ($pk) { $pnum = "$pkへのレス"; } # 自動リンク if ($autolink) { &auto_link($pcom); } # 保存記事をフォーマット $html = <<"HTML"; [$pnum] <font color=\"$sub_color\"><b>$psub</b></font><!--T--> 投稿者:<font color=\"$link\"><b>$pname</b></font> <small>投稿日:$pdt</small><p><blockquote>$pcom<p>$purl</blockquote><!--$phost--><hr> HTML push(@htmls,"$html"); } @news = (); foreach $line (@past) { if ($line =~ /<!--OWARI-->/i) { last; } push (@news,$line); if ($line =~ /<!--HAJIME-->/i) { push (@news,@htmls); } } push (@news,"<!--OWARI-->\n</body></html>\n"); # 過去ログを更新 open(OUT,">$pastfile") || &error("Can't write $pastfile"); print OUT @news; close(OUT); } ## --- 過去ログ次ファイル生成ルーチン sub next_log { # 次ファイルのためのカウントアップ $count++; # カウントファイル更新 open(NO,">$nofile") || &error("Can't write $nofile"); print NO "$count"; close(NO); $pastfile = "$past_dir\/$count\.html"; &new_log; } ## --- 新規過去ログファイル生成ルーチン sub new_log { $new_flag = 1; if ($backgif) { $bgkey = "background=\"$backgif\" bgcolor=$bgcolor"; } else { $bgkey = "bgcolor=$bgcolor"; } $past[0] = "<html><head><title>過去ログ</title></head>\n"; $past[1] = "<body $bgkey text=$text link=$link vlink=$vlink alink=$alink><hr size=1>\n"; $past[2] = "<\!--HAJIME-->\n"; $past[3] = "<\!--OWARI-->\n"; $past[4] = "</body></html>\n"; # 新規過去ログファイルを生成更新 open(OUT,">$pastfile") || &error("Can't write $pastfile"); print OUT @past; close(OUT); # パーミッションを666へ。 chmod(0666,"$pastfile"); }