#!/usr/local/bin/perl #┌───────────────────────────────── #│ JOYFUL NOTE v1.95 (2005/11/20) #│ Copyright (c) KentWeb #│ webmaster@kent-web.com #│ http://www.kent-web.com/ #│ #│ Modified by isso. Jan, 2006 #│ http://swanbay-web.hp.infoseek.co.jp/index.html #└───────────────────────────────── $ver = 'JoyfulNote v1.95 Rev1.63'; #┌───────────────────────────────── #│ [注意事項] #│ 1. このスクリプトはフリーソフトです。このスクリプトを使用した #│ いかなる損害に対して作者は一切の責任を負いません。 #│ 2. 設置に関する質問はサポート掲示板にお願いいたします。 #│ 直接メールによる質問は一切お受けいたしておりません。 #│ 3. このスクリプトは、method=POST 専用です。 #│ 4. 同梱のアイコンで、以下のファイルの著作権者は以下のとおりです。 #│ home.gif : mayuRinさん #│ clip.gif : 牛飼いとアイコンの部屋さん #└───────────────────────────────── # # 【ファイル構成例】 # # public_html (ホームディレクトリ) # | # +-- joyful / bapysbbs.cgi [705] # | joyful.log [606] # | count.dat [606] # | jcode.pl [604] # | cgi-lib.pl [604] # | pastno.dat [606] # | spamdata.cgi [606] # | # +-- img [707] / home.gif, bear.gif, ... # | # +-- lock [707] / # | # +-- past [707] / 1.dat [606] ... #------------------------------------------------- # 設定項目 #------------------------------------------------- # ライブラリ取込 require './jcode.pl'; require './cgi-lib.pl'; # タイトル名 $title = "Bapy's BBS"; # タイトルの文字色 $t_color = "#804040"; # タイトルの文字サイズ $t_size = '22pt'; # 本文の文字フォント $face = '"ＭＳ Ｐゴシック", Osaka'; # 本文の文字サイズ $b_size = '10pt'; # 壁紙を指定する場合（http://から指定） $bg = "http://www.bapys.com/images/bbs_bg.gif"; # 背景色を指定 $bc = "#FF877E"; # 文字色を指定 $tx = "#000000"; # リンク色を指定 $lk = "#0000FF"; # 未訪問 $vl = "#800080"; # 訪問済 $al = "#FF0000"; # 訪問中 # 戻り先のURL (index.htmlなど) $homepage = "../index.html"; # 最大記事数 (親記事+レス記事も含めた数） $max = 3000; # 返信がつくと親記事をトップへ移動 (0=no 1=yes) $topsort = 1; # 返信にも添付機能を許可する (0=no 1=yes) $res_clip = 1; # 画像と記事の位置 # 1 : 画像が左。記事は右から回り込む # 2 : 画像が下。記事は画像の上に表示。 $imgpoint = 1; # タイトルにGIF画像を使用する時 (http://から記述) $t_img = "http://www.bapys.com/images/bbs_title.gif"; $t_w = 330; # GIF画像の幅 (ピクセル) $t_h = 80; # 〃 高さ (ピクセル) # ファイルロック形式 # → 0=no 1=symlink関数 2=mkdir関数 $lockkey = 0; # ロックファイル名 $lockfile = './lock/joyful.lock'; # ミニカウンタの設置 # → 0=no 1=テキスト 2=GIF画像 $counter = 1; # ミニカウンタの桁数 $mini_fig = 6; # テキストのとき：ミニカウンタの色 $cnt_color = "#BB0000"; # GIFカウンタのとき：画像までのディレクトリ # → 最後は必ず / で閉じる $gif_path = "./img/"; $mini_w = 8; # 画像の横サイズ $mini_h = 12; # 画像の縦サイズ # カウンタファイル $cntfile = './count.dat'; # スクリプトのURL $script = './bapysbbs.cgi'; # ログファイルを指定 # → フルパスで指定する場合は / から記述 $logfile = './joyful.log'; # アップロードディレクトリ # → パスの最後は / で終わること # → フルパスだと / から記述する $imgdir = './img/'; # アップロードディレクトリのＵＲＬパス # → パスの最後は / で終わること $imgurl = "./img/"; # 添付ファイルのアップロードに失敗したとき # 0 : 添付ファイルは無視し、記事は受理する # 1 : エラー表示して処理を中断する $clip_err = 1; # 記事 [タイトル] 部の長さ (全角文字換算) $sub_len = 15; # メールアドレスの入力必須 (0=no 1=yes) $in_email = 0; # 記事の [タイトル] 部の色 $sub_color = "#880000"; # 記事表示部の下地の色 $tbl_color = "#FFFFFF"; # 同一IPアドレスからの連続投稿時間（秒数） # → 連続投稿などの荒らし対策 # → 値を 0 にするとこの機能は無効になります $wait = 60; # １ページ当たりの記事表示数 (親記事) $p_log = 5; # 投稿があるとメール通知する (sendmail必須) # 0 : 通知しない # 1 : 通知するが、自分の投稿記事はメールしない。 # 2 : 通知する。自分の投稿記事も通知する。 $mailing = 0; # メールアドレス(メール通知する時) $mailto = 'xxx@xxx.xxx'; # sendmailパス（メール通知する時） $sendmail = '/usr/lib/sendmail'; # 他サイトから投稿排除時に指定 (http://から書く) $base_url = ""; # 文字色の設定（半角スペースで区切る） $colors = '#800000 #DF0000 #008040 #0000FF #C100C1 #FF80C0 #FF8040 #000080'; # URLの自動リンク (0=no 1=yes) $autolink = 1; # タグ広告挿入オプション # → の代わりに「広告タグ」を挿入する。 # → 広告タグ以外に、MIDIタグ や LimeCounter等のタグにも使用可能です。 $banner1 = ''; # 掲示板上部に挿入 $banner2 = ''; # 掲示板下部に挿入 # ホスト取得方法 # 0 : gethostbyaddr関数を使わない # 1 : gethostbyaddr関数を使う $gethostbyaddr = 0; # アクセス制限（半角スペースで区切る、アスタリスク可） # → 拒否ホスト名を記述（後方一致）【例】*.anonymizer.com $deny_host = 'unknown.ord.scnet.net'; # → 拒否IPアドレスを記述（前方一致）【例】210.12.345.* $deny_addr = ''; # アップロードを許可するファイル形式 # 0:no 1:yes $gif = 1; # GIFファイル $jpeg = 1; # JPEGファイル $png = 1; # PNGファイル $text = 1; # TEXTファイル $lha = 0; # LHAファイル $zip = 0; # ZIPファイル $pdf = 1; # PDFファイル $midi = 1; # MIDIファイル $word = 0; # WORDファイル $excel = 0; # EXCELファイル $ppt = 0; # POWERPOINTファイル $ram = 0; # RAMファイル $rm = 0; # RMファイル $mpeg = 0; # MPEGファイル $mp3 = 0; # MP3ファイル # 投稿受理最大サイズ (bytes) # → 例 : 102400 = 100KB $cgi_lib'maxdata = 102400; # 画像ファイルの最大表示の大きさ（単位：ピクセル） # → これを超える画像は縮小表示します $MaxW = 300; # 横幅 $MaxH = 150; # 縦幅 # 家アイコンの使用 (0=no 1=yes) $home_icon = 1; # アイコン画像ファイル名 (ファイル名のみ) $IconHome = "home.gif"; # ホーム $IconClip = "clip.gif"; # クリップ $IconSoon = "soon.gif"; # COMINIG SOON # 画像管理者チェック機能 (0=no 1=yes) # → アップロード「画像」は管理者がチェックしないと表示されない機能です # → チェックされるまで「画像」は「COMMING SOON」のアイコンが表示されます $ImageCheck = 0; # 投稿後の処理 # → 掲示板自身のURLを記述しておくと、投稿後リロードします # → ブラウザを再読み込みしても二重投稿されない措置。 # → Locationヘッダの使用可能なサーバのみ $location = ''; # 禁止ワード # → コンマで区切って複数指定する（例）$deny_word = 'アダルト,出会い,カップル'; $deny_word = ''; #---(以下は「過去ログ」機能を使用する場合の設定です)---# # # 過去ログ生成 (0=no 1=yes) $pastkey = 0; # 過去ログ用NOファイル $nofile = './pastno.dat'; # 過去ログのディレクトリ # → フルパスなら / から記述（http://からではない） # → 最後は必ず / で閉じる $pastdir = './past/'; # 過去ログ１ファイルの行数 # → この行数を超えると次ページを自動生成します $log_line = 600; # _/_/_/_/_/ 管理者設定 _/_/_/_/_/ # # 管理者用マスタパスワード (英数字で８文字以内) $pass = 'japetbapys'; # 下記の設定は管理者詐称チェックをする場合のみ必要に応じて変更して下さい。 # 管理者詐称チェック # 0 : 管理者詐称チェックをしない # 1 : 管理者詐称チェックをする $adminchk = 0; # 一般利用者が使用できないハンドルの指定 $AdminName = "管理人,管理者"; # 管理者用の入力ハンドル、管理者表示を設定します。 $a_handle = "webmaster"; # 管理者投稿時の入力名(管理者用のユーザーID) → 適当なものに変更して下さい $a_color = "#FF0000"; # 管理者表示色 $a_name = "管理人"; # 管理者の掲示板表示名 # 一時ログファイル $tempfile = './wf_temp.cgi'; # ------------------------------------- # spam投稿(宣伝投稿)設定 # ------------------------------------- # 通常はそのままで運用して頂き、拒否できない投稿が多いか # あるいは誤処理が多い場合にのみ設定を変更して下さい。 # URL重複書き込み設定 # URL欄に記入したURLがメッセージ内に書かれている場合 # スパム投稿と見なし書き込みを拒否します。 # 0 : URLの重複書き込みを禁止しない # 1 : 新規投稿の場合のみURLの重複書き込みを拒否する【推奨】 # 2 : 返信でもURLの重複書き込みを拒否する $spampost = 1; # フォーム投稿確認用 # 投稿フォームを使わないプログラム投稿対策です。 # 掲示板スパム投稿が頻発する場合には、たとえば # $formcheck = 'formcheck_hogehoge_nospam'; # のようにユニークなものに変更して下さい。 $formcheck = 'formcheck_japet_bapys'; # 掲示板アクセスからの経過時間(秒) # ブラウザを使わないプログラム投稿対策です。 # 投稿者が掲示板を開いて投稿完了するまでの最小時間間隔です。 # 通常は数秒程度に設定しておきます。 # 初期設定は10秒で、ゼロにするとこのチェックは行いません。 $mintime = 10; # 投稿者が掲示板を開いて投稿完了するまでの最長時間間隔です。 # 通常は数十分〜数時間程度に設定しておきます。 # 初期設定は7200秒(120分)で、ゼロにするとこのチェックは行いません。 $maxtime = 7200; # 禁止語句(NGワード、URL)登録ファイル # 書き込み禁止語句を登録するファイルです。 # このファイルに登録された語句、URLを本文やURL欄に書き込むと投稿拒否されます。 # このファイルを削除すると、禁止語句のチェックは行いません。 $spamdata = './spamdata.cgi'; # 禁止語句(NGワード、URL)チェック設定 # 0 : 新規投稿の場合のみ禁止語句(NGワード、URL)チェックをする【推奨】 # 1 : 返信でも禁止語句(NGワード、URL)チェックをする $spamdatacheck = 0; # 0 : メールアドレス欄は禁止語句チェックをしない # 1 : メールアドレス欄も禁止語句チェックをする $ngmail = 1; # 0 : タイトル欄は禁止語句チェックをしない # 1 : タイトル欄も禁止語句チェックをする $ngtitle = 1; # URLの直接書き込みを禁止する # URL(http://〜)のメッセージ内への直接書き込みを禁止し、 # ttp://〜と書き込んだときだけ、URLの書き込みを許可します。 # 0 : URLの直接書き込みを許可する # 1 : URLの直接書き込みを禁止する(URLを書き込む場合には ttp://〜と記述) $comment_url = 0; # 上でURLの直接書き込みを許可する場合はURLを書き込める限度数を設定します。 # ここでは、多数のURL書き込みを禁止することができます。 # 10に設定すると、http://〜を10以上書き込んだ投稿を拒否します。 # ゼロにするとこのチェックは行いません。初期設定は5。 $spamurlnum = 5; # メッセージに全角文字が含まれているかのチェック設定 # 0 : メッセージに全角文字(日本語)が含まれていなくても投稿を許可する # 1 : メッセージに全角文字(日本語)が含まれていない場合は投稿を拒否する $asciicheck = 1; # メッセージ文字数のチェック設定 # 20に設定するとURL以外の文字数が半角文字で20文字未満、 # 全角文字で10文字未満の場合に投稿を拒否します。 # ゼロにするとこのチェックは行いません。 $characheck = 20; # 掲示板スパム投稿時の処理 # 0 : エラー表示しない(書き込み拒否のみ)【強力に推奨】 # 1 : 即時エラー表示 # それ以外の数値 : 数値秒後にエラー表示 # 3600に設定すると3600秒(60分)後にエラー表示 $spamresult = 0; # 掲示板スパムの投稿拒否ログ # 0 : 記録しない # 1 : 記録する(推奨) $spamlog = 1; # 投稿拒否ログファイル $spamlogfile = './spamlog.cgi'; # 不正な削除キーの禁止 # 削除キーに半角スペースを含む場合や、 # 「111111」「aaaaa」のような一字の繰り返しを禁止できます # 0 : 不正な削除キーを禁止しない # 1 : 不正な削除キーを禁止する $ng_pass = 0; # メールアドレスの入力を禁止できます # 0 : メールアドレスの入力を自由にする # 1 : メールアドレスの入力を禁止する # 2 : メールアドレスの入力はアットマークを全角入力「 ＠ 」に限定する $no_email = 0; # アクセスしてから投稿までの間隔が早い場合にはプレビューを表示してから投稿 # 0 : プレビューを表示しない # それ以外の数値 : アクセスしてから数値秒後までの投稿をプレビューを表示する # 30に設定すると掲示板にアクセスしてから30秒以内の投稿は # 一旦プレビューしてから投稿を許可する。初期設定は 30(秒)。 $previewtime = 30; # プレビュー投稿時にスパムと判断された場合の表示メッセージ $spammsg = '迷惑投稿として処理されました'; #------------------------------------------------- # 設定完了 #------------------------------------------------- # メイン処理 &decode; &axscheck; # プレビューモード if ($previewtime) { if ($mode ne "post") { if ($mode ne "admin") { if ($mode ne "usr_edt") { my $posttime = time; my $timecheck = abs($posttime - $in{"$formcheck"}); if ($timecheck < $previewtime) { $mode = "previewmode"; } } } } } if ($mode eq "howto") { &howto; } elsif ($mode eq "find") { &find; } elsif ($mode eq "usr_del") { &usr_del; } elsif ($mode eq "usr_edt") { &usr_edt; } elsif ($mode eq "regist" && $in{'pview'} ne "on") { ®ist; } elsif ($mode eq "post" && $in{'pview'} eq "on") { ®ist; } elsif ($mode eq "previewmode") { &previewmode; } elsif ($mode eq "res") { &res_form; } elsif ($mode eq "admin") { &admin; } elsif ($mode eq "past") { &past; } elsif ($mode eq "check") { ✓ } elsif ($mode eq "spam") { &spam; } elsif ($mode eq "spammsg") { &spammsg; } elsif ($mode eq "spamclear") { &spamclear; } elsif ($mode eq "spamdata") { &spamdata; } elsif ($mode eq "editspam") { &editspam; } elsif ($mode eq 'noscript') { &noscript; } elsif ($mode eq "admin_repost_form") { &admin_repost_form; } elsif ($in{'pass'} eq $pass && $mode eq "admin_repost") { ®ist; } &html_log; #------------------------------------------------- # アクセス制限 #------------------------------------------------- sub axscheck { # IP&ホスト取得 $host = $ENV{'REMOTE_HOST'}; $addr = $ENV{'REMOTE_ADDR'}; if ($gethostbyaddr && ($host eq "" || $host eq $addr)) { $host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2); } # IPチェック local($flg); foreach ( split(/\s+/, $deny_addr) ) { s/\./\\\./g; s/\*/\.\*/g; if ($addr =~ /^$_/i) { $flg = 1; last; } } if ($flg) { &error("アクセスを許可されていません"); # ホストチェック } elsif ($host) { foreach ( split(/\s+/, $deny_host) ) { s/\./\\\./g; s/\*/\.\*/g; if ($host =~ /$_$/i) { $flg = 1; last; } } if ($flg) { &error("アクセスを許可されていません"); } } if ($host eq "") { $host = $addr; } } #------------------------------------------------- # 記事表示部 #------------------------------------------------- sub html_log { local($ipt,$wh,$i,$flag); # ヘッダを出力 &header; # カウンタ処理 if ($counter) { &counter; } # タイトル部 print "
\n"; if ($banner1 ne "") { print "$banner1

\n"; } if ($t_img eq '') { print "$title\n"; } else { print "\"$title\"\n"; } if ( (-s $spamlogfile) > 1000000 ) { print "
\n
\n投稿拒否ログ(スパムログ)のファイルサイズが大きくなりました。
", "至急、管理モードから投稿拒否ログを削除して下さい。
\n
\n"; } # メニュー部 print "

\n"; print "[トップに戻る]\n"; print "[留意事項]\n"; print "[ワード検索]\n"; print "[過去ログ]\n" if ($pastkey); print "[管理用]\n"; print "
\n"; # 投稿フォーム &form(); print "

\n"; # 記事展開 $i=0; $flag=0; open(IN,"$logfile") || &error("Open Error: $logfile"); $top = ; while () { ($no,$reno,$date,$name,$mail,$sub,$comment,$url,$host,$pw,$color,$tail,$w,$h,$chk) = split(/<>/); if ($reno eq "") { $i++; } if ($i < $page + 1) { next; } if ($i > $page + $p_log) { next; } # 題名の長さ if (length($sub) > $sub_len*2) { $sub = substr($sub,0,$sub_len*2); $sub .= "..."; } # if ($mail) { $name = "$name"; } if ($mail) { ($em0,$em1) = split(/\@/,$mail); $em1 =~ s/\././g; $name = "\n". "\n"; } if ($home_icon && $url) { $url = "HomePage"; } elsif (!$home_icon && $url) { $url = "<HOME>"; } 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"; } print "

"; if (!$reno) { print "
\n"; } # 自動リンク if ($autolink) { &auto_link($comment); } if ($imgpoint == 1) { $ipt="align=left hspace=18"; } else { $ipt=""; print "$comment"; } # 添付ファイルが存在する場合 if ($tail eq ".gif" || $tail eq ".jpg" || $tail eq ".png") { if ($ImageCheck && $chk != 1) { print "

\n"; } else { if ($w && $h) { $wh="width=$w height=$h"; } else { $wh=""; } print "

\n"; } } elsif ($tail) { print "

Download:$no$tail $no$tail\n"; } print "$comment
" if ($imgpoint == 1); if (!$reno) { print "

\n"; } print "
\n"; } close(IN); print "
\n"; $next = $page + $p_log; $back = $page - $p_log; $p_flag=0; print "

\n"; if ($back >= 0) { $p_flag=1; print "\n"; } if ($next < $i) { $p_flag=1; print "\n"; } # ページ移動ボタン表示 if ($p_flag) { print "\n"; } print "
\n"; print "\n"; print "
\n"; print "\n"; print "
\n"; $x=1; $y=0; while ($i > 0) { if ($page == $y) { print "[$x]\n"; } else { print "[$x]\n"; } $x++; $y = $y + $p_log; $i = $i - $p_log; } print "
\n"; print "
\n"; print "
\n"; print "- 以下のフォームから自分の投稿記事を修正・削除することができます -
\n"; print "処理 \n"; print "記事No \n"; print "暗証キー \n"; print "
\n"; # 著作権表示部（削除改変不可） print "$banner2

\n"; print "\n"; print "- Joyful Note -\n"; print "
Modified by isso\n"; print "

\n\n\n"; exit; } #------------------------------------------------- # 投稿記事受付 #------------------------------------------------- sub regist { local($top,$ango,$f,$match,$tail,$W,$H,@lines,@new,@tmp); # 削除キーをチェック my $pwdflag = 0; if ($ng_pass && $in{'pwd'}) { if ($in{'pwd'} =~ /\s/) { $pwdflag = 1; } if ($in{'pwd'} eq reverse($in{'pwd'})) { $pwdflag = 1; } } if ($pwdflag) { &error("削除キーが不正です。"); } # メールアドレスをチェック if ($no_email == 1 && $in{'email'}) { &error("メールアドレスは入力禁止です。"); } if ($no_email == 2 && $in{'email'}!~ /^[\w\.\-]+\＠[\w\.\-]+\.[a-zA-Z]{2,6}$/) { &error("アットマーク ＠ は全角での入力が必須です。"); } if ($in{'email'} && $in{'email'} =~ /＠/) { $in{'email'} =~ s/＠/\@/; } # フォーム入力チェック &form_check; # 管理者詐称チェック local($acflag)=0; foreach (split(/\,/, $AdminName)) { if ($in{'name'} =~ /\Q$_\E/i) { $acflag=1; last; } } if ($adminchk && $acflag) { &error("$in{'name'}を名乗ることはできません。"); } $aflag = 0; if ($in{'name'} eq $a_handle && $in{'pwd'} eq $pass) { $in{'name'} = $a_name; $in{'color'} = $a_color; $aflag = 1; } # 禁止ワードチェック if ($deny_word) { &deny_word($in{'name'}); &deny_word($in{'comment'}); } # 時間を取得 &get_time; # クッキーを発行 # &set_cookie($in{'name'},$in{'email'},$in{'url'},$in{'pwd'},$in{'icon'},$in{'color'}); # ファイルロック if ($lockkey) { &lock; } # ログを開く open(IN,"$logfile") || &error("Open Error: $logfile"); @lines = ; close(IN); # 記事NO処理 $top = shift(@lines); local($no,$ip,$time2) = split(/<>/, $top); $no++; # 連続投稿チェック if ($addr eq $ip && $wait > $times - $time2) { &error("連続投稿はもうしばらく時間をおいて下さい"); } # 削除キーを暗号化 if ($mode ne "admin_repost") { if ($in{'pwd'} ne "") { $ango = &encrypt($in{'pwd'}); } } # ファイル添付処理 if ($in{'pview'} ne "on") { if ($in{'upfile'}) { ($tail,$W,$H) = &upload; } } else { $tail = $in{'tail'}; $W = $in{'W'}; $H = $in{'H'}; rename ("$imgdir$in{\"$formcheck\"}$tail","$imgdir$no$tail"); } # 改行・ダブルクオート復元 if ($in{'pview'} eq "on") { $in{'comment'} =~ s/<br>/
/g; $in{'comment'} =~ s/"/"/g; } # spam投稿チェック $spam = 0; $sameurl = 0; # フォーム投稿からのチェック if ($in{'url2'}) { $spam=1; $reason = "プログラム投稿(ブラウザを使用していない)"; } if (!$in{"$formcheck"}) { $spam=1; $reason = "プログラム投稿(投稿フォームへアクセスしていない)"; } if (!$spam) { my $posttime = time; my $timecheck = abs($posttime - $in{"$formcheck"}); if ($maxtime && $timecheck > $maxtime) { $spam=1; $reason = "プログラム投稿(アクセスから投稿までの時間が$timecheck秒)"; } if ($mintime && $timecheck < $mintime) { $spam=1; $reason = "プログラム投稿(アクセスから投稿までの時間が$timecheck秒)"; } } # スパム投稿チェック(多数URL記述対応) if (!$spam) { if ($comment_url) { $urlnum = ($in{'comment'} =~ s/http/http/g); if ($urlnum) { &error("ＵＲＬは先頭のｈを抜いて書き込んで下さい。"); } } else { $urlnum = ($in{'comment'} =~ s/http/http/g); if ($spamurlnum && ($urlnum >= $spamurlnum)) { $spam=1; $reason = "URLの書き込みが$urlnum個"; } } } # 全角文字(日本語)チェック if (!$spam) { if ($asciicheck) { my $asciimsg = $in{'comment'}; jcode::convert(\$asciimsg, 'euc'); if ($asciimsg !~ /[\xA1-\xFE][\xA1-\xFE]/) { $spam=1; $reason = "メッセージ内に全角文字(日本語)がない"; } } } # URL以外の文字数をチェック if (!$spam) { if ($characheck) { if ($in{'comment'} =~ /(https?\:\/\/[\w\.\~\-\/\?\&\=\;\#\:\%\+\@\,]+)/) { my $charamsg = $in{'comment'}; $charamsg =~ s/(https?\:\/\/[\w\.\~\-\/\?\&\=\;\#\:\%\+\@\,]+)//g; $charamsg =~ s/[\s\n\r\t
]//g; $msgnum = length($charamsg); if ($msgnum < $characheck) { $spam=1; $reason = "メッセージ内のURL以外の文字数が$msgnum文字分しかない"; } } } } if(!$spam) { if (-e $spamdata) { if ($spamdatacheck || !$in{'reno'}) { # 禁止URLデータをロード open(SPAM,"$spamdata") || &error("Open Error : $spamdata"); $SPM = ; close(SPAM); # 禁止URLの書き込みをチェック foreach (split(/\,/, $SPM)) { if(length($_) > 1) { if ($in{'comment'} =~ /\Q$_\E/i) { $spam=1; $reason = "コメント内に禁止語句$_を含む投稿"; last; } if (!$spam && $in{'url'} =~ /\Q$_\E/i) { $spam=1; $reason = "URLに禁止語句$_を含む投稿"; last; } if (!$spam && $ngmail && $in{'email'} =~ /\Q$_\E/i) { $spam=1; $reason = "メールアドレスに禁止語句$_を含む投稿"; last; } if (!$spam && $ngtitle && $in{'sub'} =~ /\Q$_\E/i) { $spam=1; $reason = "タイトルに禁止語句$_を含む投稿"; last; } } } } } } if(!$spam) { if ($spampost) { $sameurl = 0; if ($spampost eq 2 || !$in{'reno'}) { # URLのコメントへの重複書き込みをチェック if (!$spam && $in{'url'} && ($in{'comment'} =~ /\Q$in{'url'}\E/i)) { $spam=1; $reason = "コメント内にURL欄と同じURLを含む投稿"; # URL欄をクリアにしてクッキーを発行 $sameurl = 1; } } } } # spam投稿処理 if ($spam && $mode ne "admin_repost") { # 投稿拒否ログの記録 if ($spamlog) { $in{'comment'} =~ s/"/"/g; push (@spamlog,"$no<>$in{'reno'}<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$ango<>$in{'color'}<>$tail<>$W<>$H<>0<>$reason<>$in{\"$formcheck\"}<>$ENV{'HTTP_REFERER'}<>$ENV{'HTTP_USER_AGENT'}<>\n"); if($tail) { rename ("$imgdir$no$tail","$imgdir$in{\"$formcheck\"}$tail"); } if (-e $spamlogfile) { open(OUT,">>$spamlogfile") || &error("Write Error"); print OUT @spamlog; close(OUT); } else { open(OUT,">$spamlogfile"); chmod (0606,"$spamlogfile"); print OUT @spamlog; close(OUT); } } # ロック解除 if ($lockkey) { &unlock; } if ($spamresult) { # エラー表示 if ($spamresult eq '1') { &error("迷惑投稿のため処理を中断しました"); } else { sleep($spamresult); &error("迷惑投稿のため処理を中断しました"); } } else { &message('投稿は正常に処理されました'); } } # 復活処理 if ($mode eq "admin_repost") { $date = $in{'date'}; $host = $in{'host'}; $ango = $in{'ango'}; if ($in{'tail'}) { $tail = $in{'tail'}; $W = $in{'W'}; $H = $in{'H'}; rename ("$imgdir$in{'uploadtime'}$tail","$imgdir$no$tail"); } } # クッキーを発行(復活処理を除く) if ($mode ne "admin_repost") { if ($sameurl) { $in{'url'} = ""; } if ($aflag) { if ($no_email == 2) { $in{'email'} =~ s/\@/＠/; } &set_cookie($a_handle,$in{'email'},$in{'url'},$in{'pwd'},$in{'icon'},$in{'color'}); if ($no_email == 2) { $in{'email'} =~ s/＠/\@/; } } else { if ($no_email == 2) { $in{'email'} =~ s/\@/＠/; } &set_cookie($in{'name'},$in{'email'},$in{'url'},$in{'pwd'},$in{'icon'},$in{'color'}); if ($no_email == 2) { $in{'email'} =~ s/＠/\@/; } } } # 親記事の場合 if ($in{'reno'} eq "") { $i=0; $stop=0; foreach (@lines) { ($no2,$reno2,$d,$n,$m,$s,$com,$u,$ho,$p,$c,$tail2,$w,$h,$chk) = split(/<>/); $i++; if ($i > $max-1 && $reno2 eq "") { $stop=1; } if (!$stop) { push(@new,$_); } else { if ($pastkey) { push(@data,$_); } if (-e "$imgdir$no2$tail2") { unlink("$imgdir$no2$tail2"); } } } unshift(@new,"$no<><>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$ango<>$in{'color'}<>$tail<>$W<>$H<>0<>\n"); unshift(@new,"$no<>$addr<>$times<>\n"); # 過去ログ更新 if ($data[0]) { &pastlog; } # 一時ファイルを作成 open(OUT,">$tempfile") || &error("Write Error : ログファイルに書き込みができません。"); chmod (0606,$tempfile); print OUT @new; close(OUT); # 一時ファイル正常更新時にログファイルにリネーム if ( (-s $tempfile) > 20 ) { rename ($tempfile,$logfile) || &error("Rename Error"); } # レス記事の場合：トップソートあり } elsif ($in{'reno'} && $topsort) { $f=0; $match=0; @new=(); @tmp=(); foreach (@lines) { ($no2,$reno2) = split(/<>/); if ($in{'reno'} eq $no2) { if ($reno2) { $f++; last; } $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'}<>$tail<>$W<>$H<>0<>\n"); push(@tmp,$_); } else { push(@tmp,$_); } } if ($f || !$match) { &error("不正な返信要求です"); } if ($match == 1) { push(@new,"$no<>$in{'reno'}<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$ango<>$in{'color'}<>$tail<>$W<>$H<>0<>\n"); } push(@new,@tmp); # 更新 unshift(@new,"$no<>$addr<>$times<>\n"); # 一時ファイルを作成 open(OUT,">$tempfile") || &error("Write Error : ログファイルに書き込みができません。"); chmod (0606,$tempfile); print OUT @new; close(OUT); # 一時ファイル正常更新時にログファイルにリネーム if ( (-s $tempfile) > 20 ) { rename ($tempfile,$logfile) || &error("Rename Error"); } # レス記事の場合：トップソートなし } else { $f=0; $match=0; @new=(); foreach (@lines) { ($no2,$reno2) = split(/<>/); if ($match == 0 && $in{'reno'} eq $no2) { if ($reno2) { $f++; last; } $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'}<>$tail<>$W<>$H<>0<>\n"); } push(@new,$_); } if ($f || !$match) { &error("不正な返信要求です"); } if ($match == 1) { push(@new,"$no<>$in{'reno'}<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$ango<>$in{'color'}<>$tail<>$W<>$H<>0<>\n"); } # 更新 unshift(@new,"$no<>$addr<>$times<>\n"); # 一時ファイルを作成 open(OUT,">$tempfile") || &error("Write Error : ログファイルに書き込みができません。"); chmod (0606,$tempfile); print OUT @new; close(OUT); # 一時ファイル正常更新時にログファイルにリネーム if ( (-s $tempfile) > 20 ) { rename ($tempfile,$logfile) || &error("Rename Error"); } } # ロック解除 if ($lockkey) { &unlock; } # メール処理 if ($mailing == 1 && $in{'email'} ne $mailto) { &mail_to; } elsif ($mailing == 2) { &mail_to; } # リロード if ($location) { if ($ENV{'PERLXS'} eq "PerlIS") { print "HTTP/1.0 302 Temporary Redirection\r\n"; print "Content-type: text/html\n"; } print "Location: $location?\n\n"; } else { &message("投稿は正常に処理されました"); } } #------------------# # プレビュー画面 # #------------------# sub previewmode { # ファイル添付処理 if ($in{'upfile'}) { $no = $in{"$formcheck"}; ($tail,$W,$H) = &upload; } &header; print < EOM $in{'name'} =~ s/"/"/g; $in{'sub'} =~ s/"/"/g; $in{'comment'} =~ s/"/"/g; # URL if ($in{'url'} eq "http://") { $in{'url'} = ""; } $checked0 = ""; $checked1 = ""; $urlnum = ($in{'comment'} =~ s/http/http/g); if($urlnum || $in{'url'}) { $checked1 = "checked"; } else { $checked0 = "checked"; } if($in{'reno'}) { $checked0 = "checked"; $checked1 = ""; } print < ▼ 内容を確認し、"投稿する"をチェックして投稿して下さい。

お名前 $in{'name'}
Ｅメール $in{'email'}
タイトル $in{'sub'}
参照先 $in{'url'}
メッセージ
$in{'comment'}

投稿する   投稿をやめる
EOM exit; } #------------------------------------------------- # メッセージ #------------------------------------------------- sub message { local($msg) = @_; &header; print "

\n"; print "

$msg

\n"; print "
\n"; print "
\n"; print "
\n\n"; exit; } #------------------------------------------------- # 画像アップロード #------------------------------------------------- sub upload { local($macbin,$fname,$flag,$upfile,$imgfile,$tail,$W,$W2,$H,$H2); # 画像処理 $macbin=0; foreach (@in) { if (/(.*)Content-type:(.*)/i) { $tail=$2; } if (/(.*)filename=\"(.*)\"/i) { $fname=$2; } if (/application\/x-macbinary/i) { $macbin=1; } } $tail =~ s/\r//g; $tail =~ s/\n//g; # ファイル形式を認識 $flag=0; if ($tail =~ /image\/gif/i && $gif) { $tail=".gif"; $flag=1; } if ($tail =~ /image\/p?jpeg/i && $jpeg) { $tail=".jpg"; $flag=1; } if ($tail =~ /image\/x-png/i && $png) { $tail=".png"; $flag=1; } if ($tail =~ /text\/plain/i && $text) { $tail=".txt"; $flag=1; } if ($tail =~ /lha/i && $lha) { $tail=".lzh"; $flag=1; } if ($tail =~ /zip/i && $zip) { $tail=".zip"; $flag=1; } if ($tail =~ /pdf/i && $pdf) { $tail=".pdf"; $flag=1; } if ($tail =~ /audio\/.*mid/i && $midi) { $tail=".mid"; $flag=1; } if ($tail =~ /msword/i && $word) { $tail=".doc"; $flag=1; } if ($tail =~ /ms-excel/i && $excel) { $tail=".xls"; $flag=1; } if ($tail =~ /ms-powerpoint/i && $ppt) { $tail=".ppt"; $flag=1; } if ($tail =~ /audio\/.*realaudio/i && $ram) { $tail=".ram"; $flag=1; } if ($tail =~ /application\/.*realmedia/i && $rm) { $tail=".rm"; $flag=1; } if ($tail =~ /video\/.*mpeg/i && $mpeg) { $tail=".mpg"; $flag=1; } if ($tail =~ /audio\/.*mpeg/i && $mp3) { $tail=".mp3"; $flag=1; } if (!$flag) { if ($fname =~ /\.gif$/i && $gif) { $tail=".gif"; $flag=1; } if ($fname =~ /\.jpe?g$/i && $jpeg) { $tail=".jpg"; $flag=1; } if ($fname =~ /\.png$/i && $png) { $tail=".png"; $flag=1; } if ($fname =~ /\.lzh$/i && $lha) { $tail=".lzh"; $flag=1; } if ($fname =~ /\.txt$/i && $text) { $tail=".txt"; $flag=1; } if ($fname =~ /\.zip$/i && $zip) { $tail=".zip"; $flag=1; } if ($fname =~ /\.pdf$/i && $pdf) { $tail=".pdf"; $flag=1; } if ($fname =~ /\.mid$/i && $midi) { $tail=".mid"; $flag=1; } if ($fname =~ /\.doc$/i && $word) { $tail=".doc"; $flag=1; } if ($fname =~ /\.xls$/i && $excel) { $tail=".xls"; $flag=1; } if ($fname =~ /\.ppt$/i && $ppt) { $tail=".ppt"; $flag=1; } if ($fname =~ /\.ram$/i && $ram) { $tail=".ram"; $flag=1; } if ($fname =~ /\.rm$/i && $rm) { $tail=".rm"; $flag=1; } if ($fname =~ /\.mpe?g$/i && $mpeg) { $tail=".mpg"; $flag=1; } if ($fname =~ /\.mp3$/i && $mp3) { $tail=".mp3"; $flag=1; } } # アップロード失敗処理 if (!$flag || !$fname) { if (!$clip_err) { return; } else { &error("アップロードできません"); } } $upfile = $in{'upfile'}; # マックバイナリ対策 if ($macbin) { $length = substr($upfile,83,4); $length = unpack("%N",$length); $upfile = substr($upfile,128,$length); } # 添付データを書き込み $imgfile = "$imgdir$no$tail"; open(OUT,">$imgfile") || &error("アップロード失敗"); binmode(OUT); binmode(STDOUT); print OUT $upfile; close(OUT); chmod (0666, $imgfile); # 画像サイズ取得 if ($tail eq ".jpg") { ($W, $H) = &JpegSize($imgfile); } elsif ($tail eq ".gif") { ($W, $H) = &GifSize($imgfile); } elsif ($tail eq ".png") { ($W, $H) = &PngSize($imgfile); } # 画像表示縮小 if ($W > $MaxW || $H > $MaxH) { $W2 = $MaxW / $W; $H2 = $MaxH / $H; if ($W2 < $H2) { $key = $W2; } else { $key = $H2; } $W = int ($W * $key) || 1; $H = int ($H * $key) || 1; } return ($tail,$W,$H); } #------------------------------------------------- # 返信フォーム #------------------------------------------------- sub res_form { local($f,$no,$reno,$date,$name,$mail,$sub,$com,$url); # ヘッダを出力 &header; # ログを読み込み $f=0; open(IN,"$logfile") || &error("Open Error: $logfile"); $top = ; # 関連記事出力 print "[戻る]

\n"; print "- 以下は、記事NO. $in{'no'} に関する 返信フォーム です -

\n"; $flag=0; while () { ($no,$reno,$date,$name,$mail,$sub,$com,$url) = split(/<>/); if (!$reno) { $com = "
$com
"; } if ($in{'no'} == $no && $reno) { $f++; } if ($in{'no'} == $no || $in{'no'} == $reno) { if ($in{'no'} == $no) { $resub = $sub; } if ($url) { $url = "<HOME>"; } if ($reno && !$flag) { print "
\n"; $flag=1; } print "$sub 投稿者：$name 投稿日：$date $url No.$no
$com

\n"; } } close(IN); if ($f) { &error("不正な返信要求です"); } if ($flag) { print "

\n"; } print "
\n"; # タイトル名 if ($resub !~ /^Re\:/) { $resub = "Re\: $resub"; } print "\n"; &form("res","","","","","",$resub,"","","","",""); print "\n\n"; exit; } #------------------------------------------------- # デコード処理 #------------------------------------------------- sub decode { local($key,$val); undef(%in); &ReadParse; while ( ($key,$val) = each(%in) ) { next if ($key eq "upfile"); # シフトJISコード変換 &jcode'convert(*val, "sjis", "", "z"); # タグ処理 $val =~ s/&/&/g; $val =~ s/"/"/g; $val =~ s//>/g; # 改行処理 $val =~ s/\r\n/
/g; $val =~ s/\r/
/g; $val =~ s/\n/
/g; $in{$key} = $val; } $mode = $in{'mode'}; $page = $in{'page'}; $in{'url'} =~ s/^http\:\/\///; if ($in{'sub'} eq "") { $in{'sub'} = "無題"; } } #------------------------------------------------- # 留意事項 #------------------------------------------------- sub howto { if ($in_email) { $eml_msg = "記事を投稿する上での必須入力項目は「おなまえ」「Ｅメール」「メッセージ」です。ＵＲＬ、題名、削除キーは任意です。"; } else { $eml_msg = "記事を投稿する上での必須入力項目は「おなまえ」と「メッセージ」です。Ｅメール、ＵＲＬ、題名、削除キーは任意です。"; } $maxkb = int ($cgi_lib'maxdata / 1024); if ($gif) { $FILE .= "GIF, "; } if ($jpeg) { $FILE .= "JPEG, "; } if ($png) { $FILE .= "PNG, "; } if ($text) { $FILE .= "TEXT, "; } if ($lha) { $FILE .= "LHA, "; } if ($zip) { $FILE .= "ZIP, "; } if ($pdf) { $FILE .= "PDF, "; } if ($midi) { $FILE .= "MIDI, "; } if ($word) { $FILE .= "WORD, "; } if ($excel) { $FILE .= "EXCEL, "; } if ($ppt) { $FILE .= "POWERPOINT, "; } if ($rm) { $FILE .= "RM, "; } if ($ram) { $FILE .= "RAM, "; } if ($mpeg) { $FILE .= "MPEG, "; } if ($mp3) { $FILE .= "MP3, "; } $FILE =~ s/\, $//; &header; print <<"HTML"; [掲示板にもどる]
掲示板の利用上の注意

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

  2. 画像などのバイナリーファイルをアップロードすることが可能\です。

    • 添付可能\ファイル : $FILE
    • 最大投稿データ量 : $maxkb KB
    • 画像は横$MaxWピクセル、縦$MaxHピクセルを超えると縮小表\示されます。

  3. 投稿内容には、タグは一切使用できません。

  4. $eml_msg

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

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

  7. 記事の保持件数は最大 $max件です。それを超えると古い順に自動削除されます。

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

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

  10. 管理者が著しく不利益と判断する記事や他人を誹謗中傷する記事は予\告なく削除することがあります。
HTML exit; } #------------------------------------------------- # ワード検索処理 #------------------------------------------------- sub find { &header; print <<"EOM"; [掲示板に戻る]

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

    キーワード： 条件：\n"; print "表\示：\n"; print "
    \n
\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'}; $enwd = &url_enc($in{'word'}); 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 ($email) { ($em0,$em1) = split(/\@/,$email); $em1 =~ s/\././g; $name = "\n". "\n"; } if ($url) { $url = "<HOME>"; } if ($reno) { $no = "$renoへのレス"; } # 結果を表示 print "
[$no] $sub"; print " 投稿者：$name 投稿日：$date $url
\n"; print "
$com
\n"; } print "
\n"; } print "\n"; exit; } #------------------------------------------------- # クッキー発行 #------------------------------------------------- sub set_cookie { local(@cook) = @_; local($gmt, $cook, @t, @m, @w); @t = gmtime(time + 60*24*60*60); @m = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'); @w = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat'); # 国際標準時を定義 $gmt = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT", $w[$t[6]], $t[3], $m[$t[4]], $t[5]+1900, $t[2], $t[1], $t[0]); # 保存データをURLエンコード foreach (@cook) { s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg; $cook .= "$_<>"; } # 格納 print "Set-Cookie: JoyfulNote=$cook; expires=$gmt\n"; } #------------------------------------------------- # クッキー取得 #------------------------------------------------- sub get_cookie { local($key, $val, *cook); # クッキーを取得 $cook = $ENV{'HTTP_COOKIE'}; # 該当IDを取り出す foreach ( split(/;/, $cook) ) { ($key, $val) = split(/=/); $key =~ s/\s//g; $cook{$key} = $val; } # データをURLデコードして復元 foreach ( split(/<>/, $cook{'JoyfulNote'}) ) { s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C", hex($1))/eg; push(@cook,$_); } return (@cook); } #------------------------------------------------- # エラー処理 #------------------------------------------------- sub error { &unlock if ($lockflag); &header if (!$headflag); print "

ERROR !

\n"; print "$_[0]\n"; print "

\n"; print "\n"; exit; } #------------------------------------------------- # 管理モード #------------------------------------------------- sub admin { if ($in{'pass'} eq "") { &header; print "

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

\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "
\n\n"; exit; } if ($in{'pass'} ne $pass) { &error("パスワードが違います"); } &header; print "[掲示板に戻る]\n"; print "
\n"; print "管理モード\n"; print "
\n"; # 画像許可 if ($in{'chk'}) { @CHK = split(/\0/, $in{'chk'}); # ロック処理 if ($lockkey) { &lock; } # 許可情報をマッチングし更新 @new=(); open(IN,"$logfile") || &error("Open Error : $logfile"); $top = ; while () { ($no,$reno,$d,$n,$m,$s,$com,$u,$ho,$p,$c,$t,$w,$h,$chk) = split(/<>/); foreach $xx (@CHK) { if ($no eq $xx) { $_ = "$no<>$reno<>$d<>$n<>$m<>$s<>$com<>$u<>$ho<>$p<>$c<>$t<>$w<>$h<>1<>\n"; last; } } push(@new,$_); } close(IN); # 更新 unshift(@new,$top); open(OUT,">$logfile") || &error("Write Error : $logfile"); print OUT @new; close(OUT); # ロック解除 if ($lockkey) { &unlock; } } # 削除処理 if ($in{'del'}) { @DEL = split(/\0/, $in{'del'}); # ロック処理 if ($lockkey) { &lock; } # 削除情報をマッチングし更新 @new=(); open(IN,"$logfile") || &error("Open Error: $logfile"); $top = ; while () { $flag=0; ($no,$reno,$d,$n,$m,$s,$com,$u,$ho,$p,$c,$tail,$w,$h,$chk) = split(/<>/); foreach $del (@DEL) { if ($no eq $del || $reno eq $del) { if (-e "$imgdir$no$tail") { unlink("$imgdir$no$tail"); } $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; } } print "
\n"; if (-e $spamdata) { print <
  • NG URL(投稿拒否フレーズ)の一括編集

EOM } if(-e $spamlogfile) { print <
  • 投稿拒否された迷惑投稿を閲覧できます。
EOM } print "
"; # 管理を表示 if ($page eq "") { $page = 0; } print "

\n
    \n"; print "
  • 記事を削除する場合は「削除」のチェックボックスにチェックを入れ「送信する」を押して下さい。\n"; print "
  • 画像許可を行なう場合は「画像許可」のチェックボックスにチェックを入れ「送信する」を押して下さい。\n"; print "
\n
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print ""; print "\n"; print "

\n"; print ""; print ""; print "\n"; $line=9; if ($ImageCheck) { print ""; $line=10; } print "\n"; open(IN,"$logfile") || &error("Open Error: $logfile"); $top = ; $i=0; while () { $img_flag=0; ($no,$reno,$date,$name,$mail,$sub,$com,$url,$host,$pw,$color,$tail,$w,$h,$chk) = split(/<>/); if ($mail) { $name="$name"; } ($date) = 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 (-e "$imgdir$no$tail") { if ($tail eq ".gif" || $tail eq ".jpg" || $tail eq ".png") { $img_flag = 1; $File = "画像"; } else { $File = "File"; } $clip = "$File"; $size = -s "$imgdir$no$tail"; $all += $size; } else { $clip = ""; $size = 0; } if ($reno eq "") { print "\n"; } # チェックボックス print ""; print ""; print ""; print ""; print "\n"; # 画像許可 if ($ImageCheck) { if ($img_flag == 1 && $chk == 1) { print ""; } elsif ($img_flag == 1 && $chk != 1) { print ""; } else { print ""; } } print "\n"; } close(IN); print "\n"; print "
削除記事NO投稿日タイトル投稿者URLコメントホスト名画像
(bytes)		画像
許可
$no$date$sub$name$url$com$host$clip
($size)		OK

\n"; $all = int ($all / 1024); print "【添付データ総数 ： $all KB】\n"; print "
\n"; print "\n"; exit; } #------------------------------------------------- # ユーザ記事削除 #------------------------------------------------- sub usr_del { 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,$date,$name,$mail,$sub,$com,$url,$host,$pw,$color,$tail,$w,$h,$chk) = split(/<>/); if ($flag == 0 && $in{'no'} eq "$no") { if ($pw eq '') { &error("該当記事には削除キーが設定されていません"); } # 削除キーを照合 $match = &decrypt("$in{'pwd'}","$pw"); if ($match ne 'yes') { &error("削除キーが違います"); } # 添付ファイル削除 if (-e "$imgdir$no$tail") { unlink("$imgdir$no$tail"); } if ($reno eq "") { $flag=2; } else { $flag=1; } } elsif ($flag == 2 && $in{'no'} eq $reno) { if (-e "$imgdir$no$tail") { unlink("$imgdir$no$tail"); } next; } else { push(@new,$_); } } if ($flag == 0) { &error("該当記事が見当たりません"); } # 更新 unshift(@new,$top); open(OUT,">$logfile") || &error("Write Error : $logfile"); print OUT @new; close(OUT); # ロック解除 if ($lockkey) { &unlock; } } #------------------------------------------------- # 記事修正処理 #------------------------------------------------- sub usr_edt { if ($in{'no'} eq '' || $in{'pwd'} eq '') { &error("記事Noまたはパスワードが入力モレです"); } if ($in{'action'} eq "edit") { # フォーム入力チェック &form_check; # 禁止ワードチェック if ($deny_word) { &deny_word($in{'name'}); &deny_word($in{'comment'}); } # 管理者詐称チェック local($acflag)=0; foreach (split(/\,/, $AdminName)) { if ($in{'name'} =~ /\Q$_\E/i) { $acflag=1; last; } } if ($adminchk && $acflag) { &error("$in{'name'}を名乗ることはできません。"); } $aflag = 0; if ($in{'name'} eq $a_handle && $in{'pwd'} eq $pass) { $in{'name'} = $a_name; $in{'color'} = $a_color; $aflag = 1; } # ロック処理 &lock if ($lockkey); } $flag=0; open(IN,"$logfile") || &error("Open Error : $logfile"); $top = ; while () { ($no,$reno,$date,$name,$mail,$sub,$com,$url,$host,$pw,$color,$tail,$w,$h,$chk) = split(/<>/); if ($in{'no'} == $no) { $pw2 = $pw; $flag=1; if ($in{'action'} ne "edit") { last; } else { $_ = "$no<>$reno<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$pw<>$in{'color'}<>$tail<>$w<>$h<>$chk<>\n"; } } if ($in{'action'} eq "edit") { push(@new,$_); } } close(IN); if (!$flag) { &error("該当の記事が見当たりません"); } if ($pw2 eq "") { &error("パスワードが設定されていません"); } $check = &decrypt($in{'pwd'}, $pw2); if ($check ne "yes") { &error("パスワードが違います"); } if ($in{'action'} eq "edit") { unshift(@new,$top); open(OUT,">$logfile") || &error("Write Error : $logfile"); print OUT @new; close(OUT); &unlock if ($lockkey); if ($in{'url'}) { $in{'url'} = "http://$in{'url'}"; } if ($in{'email'}) { $in{'email'} = "$in{'email'}"; } &header; print "

- 以下のとおり修正が完了しました -

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
名前： $in{'name'}
e-mail： $in{'email'}
題名： $in{'sub'}
URL： $in{'url'}
\n"; print "
$in{'comment'}\n"; print "
\n"; print "
\n"; print "
\n"; print "\n\n"; exit; } $com =~ s/
/\r/g; &header; print "[戻る]\n"; print "

- 変更する部分のみ修正して送信ボタンを押して下さい -
\n"; &form("edit",$no,$reno,$date,$name,$mail,$sub,$com,$url,$host,$pw,$color); print "\n\n"; exit; } #------------------------------------------------- # フォーム入力チェック #------------------------------------------------- sub form_check { # 他サイトからのアクセスを排除 if ($base_url) { $baseUrl =~ s/(\W)/\\$1/g; $ref = $ENV{'HTTP_REFERER'}; $ref =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if ($ref && $ref !~ /$base_url/i) { &error("不正なアクセスです"); } } # methodプロパティはPOST限定 if ($ENV{'REQUEST_METHOD'} ne 'POST') { &error("不正な投稿です"); } # 入力項目のチェック if ($in{'name'} eq "") { &error("名前が入力されていません"); } if ($in{'comment'} eq "") { &error("コメントが入力されていません"); } if ($in_email) { if ($in{'email'} eq "") { &error("Ｅメールが入力されていません"); } elsif ($in{'email'} !~ /^[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,6}$/) { &error("Ｅメールの入力内容が不正です"); } } } #------------------------------------------------- # 時間を取得 #------------------------------------------------- sub get_time { $times = shift; if (!$times) { $ENV{'TZ'} = "JST-9"; $times = time; } ($min,$hour,$mday,$mon,$year,$wday) = (localtime($times))[1..6]; @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 { # 古いロックは削除する if (-e $lockfile) { local($mtime) = (stat($lockfile))[9]; if ($mtime < time - 30) { &unlock; } } local($retry) = 5; # symlink関数式ロック if ($lockkey == 1) { while (!symlink(".", $lockfile)) { if (--$retry <= 0) { &error('LOCK is BUSY'); } sleep(1); } # mkdir関数式ロック } elsif ($lockkey == 2) { while (!mkdir($lockfile, 0755)) { if (--$retry <= 0) { &error('LOCK is BUSY'); } sleep(1); } } $lockflag=1; } #------------------------------------------------- # ロック解除 #------------------------------------------------- sub unlock { if ($lockkey == 1) { unlink($lockfile); } elsif ($lockkey == 2) { rmdir($lockfile); } $lockflag=0; } #------------------------------------------------- # メール送信 #------------------------------------------------- sub mail_to { local($mcom,$hp,$msub,$mbody); # メールタイトルを定義 $msub = &base64("[$title : $no] $in{'sub'}"); # 記事を復元 $mcom = $in{'comment'}; $mcom =~ s/
/\n/g; $mcom =~ s/<//g; $mcom =~ s/"/"/g; $mcom =~ s/&/&/g; # URL情報 if ($in{'url'}) { $hp = "http://$in{'url'}"; } else { $hp = ""; } # メール本文を定義 $mbody = < $title EOM if ($bg) { print "\n"; } else { print "\n"; } } #------------------------------------------------- # 自動URLリンク #------------------------------------------------- sub auto_link { if ($comment_url) { $_[0] =~ s/http/ttp/g; $_[0] =~ s/([^=^\"]|^)(ttps?\:[\w\.\~\-\/\?\&\=\+\@\;\#\:\%\,]+)/$1h$2<\/a>/g; } else { $_[0] =~ s/([^=^\"]|^)(https?\:[\w\.\~\-\/\?\&\=\+\@\;\#\:\%\,]+)/$1$2<\/a>/g; } # $_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1$2<\/a>/g; } #------------------------------------------------- # 過去ログ生成 #------------------------------------------------- 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 ($pmail) { ($em0,$em1) = split(/\@/,$pmail); $em1 =~ s/\././g; $pname = "\n". "\n"; } if ($purl) { $purl = "<HOME>"; } if ($preno) { $pno = "Res: $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"; # 表示ログを定義 $in{'pastlog'} =~ s/\D//g; $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'}; $enwd = &url_enc($in{'word'}); if ($back_line >= 0) { print "[前の$in{'view'}件]\n"; } if ($page_end ne "$end_data") { print "[次の$in{'view'}件]\n"; } # 表示開始 foreach ($page .. $page_end) { print $new[$_]; } print "

\n\n"; exit; } # ページ区切り処理 $start = $page + 1; $end = $page + $p_log; $i=0; open(IN,"$file") || &error("Open Error : $file"); while () { $flag=0; if ($_ =~ /^\\[\\d+\<\/b\>\]/) { $flag=1; $i++; } if ($i < $start) { next; } if ($i > $end) { last; } # $_ =~ s/\@/@/g; if ($flag) { print $_; } else { $_ =~ s/
//ig; if ($_ !~ /text\/javascript/ && $_ !~ /\<\!-- \/\// && $_ !~ /address\(/ && $_ !~ /\/\/ --\>/ && $_ !~ /script\>/ && $_ !~ /\<\/b\> 投稿日：/) {print "
$_
\n";} else {print "$_";} } } close(IN); print "
\n"; $next = $page + $p_log; $back = $page - $p_log; print "\n"; if ($back >= 0) { print "\n"; } if ($next < $i) { print "\n"; } print "
\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "
\n\n\n"; exit; } #------------------------------------------------- # チェックモード #------------------------------------------------- sub check { &header; print "

Check Mode

\n"; print "
    \n"; # ログパス if (-e $logfile) { print "
  • ログファイルのパス：OK\n"; # パーミッション if (-r $logfile && -w $logfile) { print "
  • ログファイルのパーミッション：OK\n"; } else { print "
  • ログファイルのパーミッション：NG\n"; } } else { print "
  • ログファイルのパス：NG → $logfile\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 "mkdir\n"; } ($lockdir) = $lockfile =~ /(.*)[\\\/].*$/; print "
  • ロックディレクトリ：$lockdir\n"; if (-d $lockdir) { print "
  • ロックディレクトリのパス：OK\n"; if (-r $lockdir && -w $lockdir && -x $lockdir) { print "
  • ロックディレクトリのパーミッション：OK\n"; } else { print "
  • ロックディレクトリのパーミッション：NG → $lockdir\n"; } } else { print "
  • ロックディレクトリのパス：NG → $lockdir\n"; } } # 画像ディレクトリ print "
  • 画像ディレクトリ：$imgdir\n"; if (-d $imgdir) { print "
  • 画像ディレクトリのパス：OK\n"; if (-r $imgdir && -w $imgdir && -x $imgdir) { print "
  • 画像ディレクトリのパーミッション：OK\n"; } else { print "
  • 画像ディレクトリのパーミッション：NG → $imgdir\n"; } } else { print "
  • 画像ディレクトリ：NG → $imgdir\n"; } # 過去ログ print "
  • 過去ログ："; if ($pastkey == 0) { print "設定なし\n"; } else { print "設定あり\n"; # NOファイル if (-e $nofile) { print "
  • NOファイルパス：OK\n"; if (-r $nofile && -w $nofile) { print "
  • NOファイルパーミッション：OK\n"; } else { print "
  • NOファイルパーミッション：NG → $nofile\n"; } } else { print "
  • NOファイルのパス：NG → $nofile\n"; } # ディレクトリ if (-d $pastdir) { print "
  • 過去ログディレクトリパス：OK\n"; if (-r $pastdir && -w $pastdir && -x $pastdir) { print "
  • 過去ログディレクトリパーミッション：OK\n"; } else { print "
  • 過去ログディレクトリパーミッション：NG → $pastdir\n"; } } else { print "
  • 過去ログディレクトリパーミッション：NG → $pastdir\n"; } } print "
\n\n"; exit; } #------------------------------------------------- # JPEGサイズ認識 #------------------------------------------------- sub JpegSize { local($jpeg) = @_; local($t, $m, $c, $l, $W, $H); open(JPEG,"$jpeg") || return (0,0); binmode JPEG; read(JPEG, $t, 2); while (1) { read(JPEG, $t, 4); ($m, $c, $l) = unpack("a a n", $t); if ($m ne "\xFF") { $W = $H = 0; last; } elsif ((ord($c) >= 0xC0) && (ord($c) <= 0xC3)) { read(JPEG, $t, 5); ($H, $W) = unpack("xnn", $t); last; } else { read(JPEG, $t, ($l - 2)); } } close(JPEG); return ($W, $H); } #------------------------------------------------- # GIFサイズ認識 #------------------------------------------------- sub GifSize { local($gif) = @_; local($data); open(GIF,"$gif") || return (0,0); binmode(GIF); sysread(GIF,$data,10); close(GIF); if ($data =~ /^GIF/) { $data = substr($data,-4); } $W = unpack("v",substr($data,0,2)); $H = unpack("v",substr($data,2,2)); return ($W, $H); } #------------------------------------------------- # PNGサイズ認識 #------------------------------------------------- sub PngSize { local($png) = @_; local($data); open(PNG, "$png") || return (0,0); binmode(PNG); read(PNG, $data, 24); close(PNG); $W = unpack("N", substr($data, 16, 20)); $H = unpack("N", substr($data, 20, 24)); return ($W, $H); } #------------------------------------------------- # URLエンコード #------------------------------------------------- sub url_enc { local($_) = @_; s/(\W)/'%' . unpack('H2', $1)/eg; s/\s/+/g; $_; } #------------------------------------------------- # 投稿フォーム #------------------------------------------------- sub form { local($type,$no,$reno,$date,$name,$mail,$sub,$com,$url,$host,$pw,$color) = @_; local($cnam,$ceml,$curl,$cpwd,$cico,$ccol); print "
\n"; ## フォーム種別を判別 # 修正 if ($type eq "edit") { print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; $cnam = $name; $ceml = $mail; $curl = $url; $ccol = $color; # 返信 } elsif ($type eq "res") { if ($res_clip) { print "\n"; } else { print "\n"; } print "\n"; print "\n"; ($cnam,$ceml,$curl,$cpwd,$cico,$ccol) = &get_cookie; # 新規 } else { print "\n"; print "\n"; ($cnam,$ceml,$curl,$cpwd,$cico,$ccol) = &get_cookie; } # 投稿画面へのアクセス時間を取得 my $accesstime = time; print <<"EOM"; EOM # 添付フォーム if ($type eq "" || ($type eq "res" && $res_clip)) { print "\n"; print "\n"; } # パスワード欄 if ($type ne "edit") { print ""; print "\n"; } # 色指定 print "
おなまえ
Ｅメール EOM if ($no_email eq '1') { print "メールアドレスは入力禁止"; } elsif ($no_email eq '2') { print "入力する場合には必ず＠を全角で書いて下さい"; } print <
タイトル
コメント EOM if ($comment_url) { print "【コメント内のＵＲＬは先頭のｈを抜いて書き込んで下さい。】"; } print <
EOM if ($spampost) { print "メッセージ中には参照先URLと同じURLを書き込まないで下さい"; } print <
ＵＲＬ
添付File
暗証キー "; print "(英数字で8文字以内)
文字色\n"; @col = split(/\s+/, $colors); if ($ccol eq "") { $ccol = $col[0]; } foreach (@col) { if ($ccol eq $_) { print "■\n"; } else { print "■\n"; } } print "
\n"; if ($ImageCheck) { print "・画像は管理者が許可するまで「COMING SOON」のアイコンが表\示されます。
\n"; } print "
\n"; } #------------------------------------------------- # 禁止ワード #------------------------------------------------- sub deny_word { local($word) = @_; local($flg); foreach ( split(/,+/, $deny_word) ) { if (index($word,$_) >= 0) { $flg=1; last; } } if ($flg) { &error("不適切な投稿のため受理できません"); } } #------------------------------------------------- # スパムログ #------------------------------------------------- sub spam { # POST限定 if ($postonly && !$post_flag) { &error("不正なアクセスです"); } if ($in{'pass'} eq "") { &enter; } elsif ($in{'pass'} ne $pass) { &error("パスワードが違います"); } &header; print <
  • 投稿拒否ログ
    「再投稿処理」をクリックすると誤ってスパム投稿として拒否された投稿を復活させることができます。
    必用な投稿を復活させたあとは、「投稿拒否ログを全て削除」しておいて下さい。
    EOM open(IN,"$spamlogfile") || &error("Open Error : $spamlogfile"); $i=0; while () { my ($no,$reno,$date,$name,$email,$sub,$msg,$url,$host,$ango,$color,$tail,$W,$H,$chk, $reason,$fcheck,$referer,$useragent) = split(/<>/); $reno{$i} = $reno; $date{$i} = $date; $name{$i} = $name; $email{$i} = $email; $sub{$i} = $sub; $msg{$i} = $msg; $url{$i} = $url; $host{$i} = $host; $ango{$i} = $ango; $color{$i} = $color; $tail{$i} = $tail; $W{$i} = $W; $H{$i} = $H; $chk{$i} = $chk; $reason{$i} = $reason; $uploadtime{$i} = $fcheck; if ($fcheck) { $formcheck{$i} = &get_time($fcheck); } else { $formcheck{$i} = "アクセス記録なし"; } $useragent{$i} = $useragent; $i++; } close(IN); foreach (sort { ($date{$b} cmp $date{$a}) } keys(%date)) { $useragent = "$useragents"; print "

    \n"; print "", "", "", "", "
    投稿日時$date{$_}タイトル$sub{$_}
    アクセス日時$formcheck{$_}投稿拒否理由$reason{$_}
    投稿者名$name{$_}URL$url{$_}
    ホストアドレス$host{$_}ブラウザ$useragent{$_}
    メールアドレス$email{$_}投稿内容 "; print <
    		(上記の投稿を復活させることができます)
    EOM } print <

    EOM exit; } #------------------------------------------------- # 投稿拒否ログ初期化 #------------------------------------------------- sub spamclear { # POST限定 if ($postonly && !$post_flag) { &error("不正なアクセスです"); } if ($in{'pass'} eq "") { &enter; } elsif ($in{'pass'} ne $pass) { &error("パスワードが違います"); } # 投稿拒否ログの削除 unlink($spamlogfile); &header(); print <

    投稿拒否ログを削除しました
    EOM exit; } #------------------------------------------------- # 投稿拒否コメント #------------------------------------------------- sub spammsg { # POST限定 if ($postonly && !$post_flag) { &error("不正なアクセスです"); } if ($in{'pass'} eq "") { &enter; } elsif ($in{'pass'} ne $pass) { &error("パスワードが違います"); } $in{'msg'} =~ s/<br>/
    /ig; &header(); print <

    コメント

    $in{'msg'}

    EOM exit; } #------------------------------------------------- # NG URL(禁止フレーズ)編集 #------------------------------------------------- sub spamdata { # POST限定 if ($postonly && !$post_flag) { &error("不正なアクセスです"); } if ($in{'pass'} eq "") { &enter; } elsif ($in{'pass'} ne $pass) { &error("パスワードが違います"); } &header; print <

  • NG URL(禁止フレーズ)を一括登録できます(半角のカンマで区切る)。
    たとえば http://www.hogehoge.com/sample/inde.cgi?mode=test を
    拒否したい場合は www.hogehoge.com を登録します。
    EOM if (-e $spamdata) { open(IN,"$spamdata"); $SPMLST = ; close(IN); } print <$SPMLST

EOM exit; } #------------------------------------------------- # NG URL(禁止フレーズ)更新 #------------------------------------------------- sub editspam { # POST限定 if ($postonly && !$post_flag) { &error("不正なアクセスです"); } if ($in{'pass'} eq "") { &enter; } elsif ($in{'pass'} ne $pass) { &error("パスワードが違います"); } $SPMLST = $in{"SPMLST"}; # 空データ・改行・空白を削除 $SPMLST =~ s/，/\,/g; $SPMLST =~ s/
//ig; $SPMLST =~ s/\n//g; $SPMLST =~ s/\r//g; $SPMLST =~ s/　//g; $SPMLST =~ s/\,{2,}/\,/g; $SPMLST =~ s/^\,{1,}//; open(OUT,">$spamdata") || &error("Write Error"); print OUT $SPMLST; close(OUT); &header; print <

NG URL(禁止フレーズ)を更新しました


EOM exit; } #------------------------------------------------- # 管理者再投稿画面 #------------------------------------------------- sub admin_repost_form { # POST限定 if ($postonly && !$post_flag) { &error("不正なアクセスです"); } if ($in{'pass'} eq "") { &enter; } elsif ($in{'pass'} ne $pass) { &error("パスワードが違います"); } # 投稿画面へのアクセス時間を取得 my $accesstime = time; $in{'msg'} =~ s/
/\n/g; $in{'msg'} =~ s/<br>/\n/g; &header; print <スパム投稿として処理された下記の投稿を復活させます。
投稿拒否理由 : $in{'reason'}
お名前 :  $in{'name'}
Ｅメール :  $in{'email'}
タイトル :  $in{'sub'}
メッセージ
参照先 : 
EOM exit; } #------------------# # JavaScript無効 # #------------------# sub noscript { &header; print <<"EOM";
JavaScriptを利用したメールアドレス表\示について

スパム(一方的迷惑メール)およびウイルス対策のため、JavaScriptを利用したメールアドレス表\示を採用しています。
お手数をおかけしますが、投稿者のメールアドレスを表\示させるためには、JavaScriptを有効にしてください。


EOM exit; } __END__