#!/usr/local/bin/perl #┌───────────────────────────────── #│ ROSE-BOARD v0.9 (2002/03/30) #│ Copyright(C) CGI Kitchen 2002/02/02- #│ http://aikon.milkcafe.to/ #└───────────────────────────────── #┌───────────────────────────────── #│ ROSE-BOARD v0.9 (2002/03/30) #│ >>>ROSE-BOARD v0.8のフォーカス機能を任意設定に変更しました。 #└───────────────────────────────── #┌───────────────────────────────── #│ YY-BOARD v4.54 (2001/09/06) #│ Copyright(C) Kent Web 1997-2001 #│ webmaster@kent-web.com #│ http://www.kent-web.com/ #└───────────────────────────────── $ver = 'YYBBS v4.54'; #┌───────────────────────────────── #│ このスクリプトはYY-BOARD v4.54に背景色選択機能を付加し #│ CGI Kitchenが再配布するものです。 #│ 質問事項は当サイトのサポート掲示板で伺います。 #│ ケントさんにご迷惑をお掛けするような事は絶対にしないでくださいね。 #│ ご利用に際しては、ケントさんの利用既定もお読みいただくよう #│ お願い申し上げます。 #│　　 #│ 画像はPearl boxさんからお借りしました。 #│ http://flap.vis.ne.jp/pxb/←こちらのアドレスです。 #│ ご利用に際しては、Pearl boxさんの利用既定もお読みいただくよう #│ お願い申し上げます。 #└───────────────────────────────── # # 【ファイル構成例】 # # public_html (ホームディレクトリ) # | # +-- rose / rose.cgi [755] # | rose.log [666] # | count.dat [666] # | jcode.pl [644] # | pastno.dat [666] # | # +-- img / home.gif, ... # | # +-- lock [777] / # | # +-- past [777] / 1.dat [666] ... # #============# # 設定項目 # #============# # 文字コードライブラリ取込 require './jcode.pl'; # 戻り先のURL (index.htmlなど) $homepage = "http://www.webdtp.com/bin/"; # スクリプトのファイル名 # → フルパスで指定する場合は http:// から記述 $script = './rose.cgi'; # ログファイルを指定 # → フルパスで指定する場合は / から記述 $logfile = './rose.log'; # タイトル名を指定 $title = "ROSE-BOARD"; # タイトルの色 $t_color = "#808080"; # タイトルの大きさ（ポイント数:スタイルシートで有効） $t_size = '14pt'; # タイトル文字のフォントタイプ $t_face = "Verdana"; # 本文の文字大きさ（ポイント数:スタイルシートで有効） $b_size = '10pt'; # 壁紙を指定する場合（http://から指定） $backgif = "http://www.webdtp.com/bin/Mon/bbs/img/pin.gif"; # 背景色を指定 $bgcolor = "#FFFFFF"; # 文字色を指定 $text = "#666666"; # リンク色を指定 $link = "#DBE0D1"; # 未訪問 $vlink = "#DBE0D1"; # 訪問済 $alink = "#525252"; # 訪問中 $hovercolor = "#525252"; # リンクした時の文字の色 $t_text = '#DBE0D1'; #フォーム内、タイトル等の文字の色 $blinkcolor = '#DBE0D1'; #リンクした時の背景色 $fbcolor = '#DBE0D1'; #テキストエリア等の背景色　　 $f_ltcolor = '#DBE0D1'; #フォームの枠の色 $f_lttcolor = '#525252'; #フォームの文字の色 $sacolor = '#525252'; #スクロールバーの矢印の色 $sfcolor = '#FFFFFF'; #スクロールバーの色 $stcolor = '#FFFFFF'; #スクロールバーの地背景色 $hasencolor = '#DBE0D1'; #囲み線の色 $line_c = "#DBE0D1"; #水平線の色 $table_c = "#525252"; #入力フォームの背景色 $tblesize = '400'; #ログ表示部のテーブルの幅（ピクセル） $filter = '80'; #背景を透けさせる度合いの設定です。 #設定数値が少ない程透ける程度が高くなります。透けさせたくない場合は、 #'100'にしてください。 # 最大記事数 $max = 100; # 管理者用マスタパスワード (英数字で８文字以内) $pass = '0123'; # アイコン画像のある「ディレクトリ」 # → フルパスなら http:// から記述する # → 最後は必ず / で閉じる $imgurl = "./img/"; # アイコンモード (0=no 1=yes) $icon_mode = 0; # アイコンを定義（上下は必ずペアで） @icon1 = ('1.gif','2.gif','3.gif','4.gif','5.gif','6.gif','7.gif','8.gif'); @icon2 = ('うさちゃん','ハムスター','ねこちゃん','くま','今晩のおかず','ウキウキうさ','今晩のおかず２','ドロねこ'); # 管理者専用アイコン機能 (0=no 1=yes) # → 【使い方】記事投稿時に「管理者アイコン」を選択し、パスワードに # 「管理用パスワード」を入力して下さい。 $my_icon = 0; # 管理者専用アイコンの「ファイル名」を指定 $my_gif = 'admin.gif'; # 返信がつくと親記事をトップへ移動 (0=no 1=yes) $topsort = 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=mkdir関数 $lockkey = 0; # ロックファイル名 $lockfile = './lock/yybbs.lock'; # ミニカウンタの設置 # → 0=no 1=テキスト 2=GIF画像 $counter = 1; # ミニカウンタの桁数 $mini_fig = 6; # テキストのとき：ミニカウンタの色 $cnt_color = "#C0C0C0"; # ＧＩＦのとき：画像までのディレクトリ # → 最後は必ず / で閉じる $gif_path = "./img/"; $mini_w = 8; # 画像の横サイズ $mini_h = 12; # 画像の縦サイズ # カウンタファイル $cntfile = './count.dat'; # タグの許可 (0=no 1=yes) $tagkey = 1; # メールアドレスの入力必須 (0=no 1=yes) $in_email = 0; # 記事 [タイトル] 部の長さ (全角文字換算) $sub_len = '12'; # 記事の [タイトル] 部の色 $sub_color = "#C0C0C0";#名前・NO.の文字色 $subt_color= "#FFFFFF";#タイトルの文字色 # 家アイコンの使用 (0=no 1=yes) $home_icon = 1; $home_gif = "home.gif"; # 家アイコンのファイル名 $home_wid = 16; # 画像の横サイズ $home_hei = 16; # 〃 縦サイズ # イメージ参照画面の表示形態 # 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 = 10; # 投稿があるとメール通知する (sendmail必須) # 0 : 通知しない # 1 : 通知するが、自分の投稿記事はメールしない。 # 2 : 通知する。自分の投稿記事も通知する。 $mailing = 0; # メールアドレス(メール通知する時) $mailto = 'xxx@xxx.xxx'; # sendmailパス（メール通知する時） $sendmail = '/usr/lib/sendmail'; # 他サイトから投稿排除時に指定 (http://から書く) $base_url = ""; # 背景色の設定。 @BCOLORS = ('#778E86','#808080','#AD4030','#86A8B7','#BD6C6A','#6B617C','#636F0D','#948C4E'); # 文字色の設定。 @FCOLORS = ('#FFFFFF','#DBE0D1','#EFEBE2','#EDF1F3','#F8F4F3','#E9DED8','#E8FFD0','#F1E0E0'); # 投稿フォーム改行形式 (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 = 1; # 過去ログ用NOファイル $nofile = './pastno.dat'; # 過去ログのディレクトリ # → フルパスなら / から記述（http://からではない） # → 最後は必ず / で閉じる $pastdir = './past/'; # 過去ログ１ファイルの行数 # → この行数を超えると次ページを自動生成します $log_line = '600'; #============# # 設定完了 # #============# # メイン処理 &decode; &axs_check; 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") { ®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; local($flag)=0; foreach (@deny) { if (!$_) { next; } $_ =~ s/\*/\.\*/g; if ($host =~ /$_/i) { $flag=1; last; } } if ($flag) { &error("アクセスを許可されていません"); } } #--------------# # 記事表示部 # #--------------# sub html_log { local($no,$reno,$date,$name,$mail, $sub,$comment,$url,$host,$pw,$fcolor,$icon,$p_flag); # クッキーを取得 &get_cookie; # フォーム長を調整 &get_agent; # ヘッダを出力 if ($ImageView == 1) { &header('ImageUp'); } else { &header; } # カウンタ処理 if ($counter) { &counter; } # タイトル部 print "
\n"; if ($banner1 ne "") { print "$banner1

\n"; } if ($title_gif eq '') { print "$title\n"; } else { print "\"$title\"
\n"; } print "
\n"; print "
\n"; print "*HOME*\n"; print " *HELP*\n"; print " *SEARCH* \n"; # 過去ログのリンク部を表示 if ($pastkey) { print " *PAST* \n"; } print <<"EOM"; *ADMIN*

EOM # 管理者アイコンを配列に付加 if ($my_icon) { push(@icon1,"$my_gif"); push(@icon2,"管理者用"); } if ($icon_mode) { print "\n"; } print "\n"; print "\n"; print "\n"; print "\n"; print "
Name
Mail
Title
Message
URL
Icon\n"; # イメージ参照のリンク if ($ImageView == 1) { print "[Icon image]"; } else { print "[Icon image]"; } print "
Password\n"; print "(英数字で8文字以内です)
Back color\n"; # クッキーの色情報がない場合 if ($c_bcolor eq "") { $c_bcolor = $BCOLORS[0]; } foreach (0 .. $#BCOLORS) { if ($c_bcolor eq "$BCOLORS[$_]") { print ""; print "■\n"; } else { print ""; print "■\n"; } } print "
Font color\n"; # クッキーの色情報がない場合 if ($c_fcolor eq "") { $c_fcolor = $FCOLORS[0]; } foreach (0 .. $#FCOLORS) { if ($c_fcolor eq "$FCOLORS[$_]") { print ""; print "■\n"; } else { print ""; print "■\n"; } } print "
 "; 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,$fcolor,$bcolor,$icon) = split(/<>/); if ($reno eq "") { $i++; } if ($i < $start) { next; } if ($i > $end) { next; } # 題名の長さ if (length($sub) > $sub_len*2) { $sub = substr($sub,0,$sub_len*2); $sub .= "..."; } 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"; print "\n"; } print "
\n"; $flag=1; } if ($reno) { print "
\n"; if ($reno) { print ""; } print ""; print "\n"; } else { print "\n"; } print "

$sub　"; if (!$reno) { print "by $name"; } else { print "by $name "; } print "
$url 
\n"; if (!$reno) { print "
\n"; print "\n"; print "\n"; print "
\n"; if ($reno) { print "\n"; } # アイコンモード if ($icon_mode) { print ""; } print "

\"$icon\"
$comment\n"; print "
Date：$dateNo\.$no\n"; print "
\n"; } close(IN); print "
\n"; $next_page = $page + $p_log; $back_page = $page - $p_log; $p_flag=0; print "
\n"; if ($back_page >= 0) { $p_flag=1; print "\n"; } if ($next_page < $i) { $p_flag=1; print "\n"; } # ページ移動ボタン表示 if ($p_flag) { print "\n"; } print "
\n"; 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
\n"; print "
\n"; print "
\n"; print "
\n"; print "
* 記事を修正・削除することができます *

\n"; print "Processing \n"; print "No. \n"; print "Password \n"; print "
\n"; # 著作権表示部 # MakiMakiさんの画像使用の有無に関わらずこの2箇所のリンク部の # 削除改変を禁止します print "
\n"; print "
\n"; print "- KENT -"; print "
- edit by Aikon -
\n"; print "
\n\n\n"; exit; } #----------------# # ログ書込処理 # #----------------# sub regist { local(@lines,@new,@tmp,$top,$no,$ip,$time2,$no2,$reno2, $date2,$name2,$mail2,$sub2,$com2,$flag,$ango,$stop,$match); # フォーム入力チェック &form_check; # 時間を取得 &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("連続投稿はもうしばらく時間をおいて下さい"); } # URL自動リンク if ($autolink) { &auto_link($in{'comment'}); } # 重複チェック $flag=0; foreach (@lines) { ($no2,$reno2,$date2,$name2,$mail2,$sub2,$com2) = split(/<>/); if ($in{'name'} eq $name2 && $in{'comment'} eq $com2) { $flag=1; last; } } if ($flag) { &error("重複投稿のため処理を中断しました"); } # パスワードを暗号化 if ($in{'pwd'} ne "") { $ango = &encrypt($in{'pwd'}); } # 親記事の場合 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'}<>$host<>$ango<>$in{'fcolor'}<>$in{'bcolor'}<>$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{'fcolor'}<>$in{'bcolor'}<>$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{'fcolor'}<>$in{'bcolor'}<>$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{'fcolor'}<>$in{'bcolor'}<>$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{'fcolor'}<>$in{'bcolor'}<>$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 { local($no,$reno,$date,$name,$mail,$sub,$com,$url,$resub,$fcolor); # フォーム長を定義 &get_agent; # クッキーを取得 &get_cookie; # ログを読み込み open(IN,"$logfile") || &error("Open Error : $logfile"); $top = ; # ヘッダを出力 if ($ImageView == 1) { &header('ImageUp'); } else { &header; } # 関連記事出力 print "
\n"; print "
\n"; print "
\n"; print "- 以下は、記事NO. $in{'no'} に関する返信フォームです -
\n"; while () { ($no,$reno,$date,$name,$mail,$sub,$com,$url,$fcolor) = split(/<>/); if (!$reno) { $com = "
$com
"; } if ($in{'no'} == $no || $in{'no'} == $reno) { if (length($sub) > $sub_len*2) { $sub = substr($sub,0,$sub_len*2-4); $sub .= "..."; } if ($in{'no'} == $no) { $resub = $sub; } if ($url) { $url = "<HOME>"; } if ($reno) { print '　　'; } print "$sub 投稿者：$name 投稿日：$date $url No\.$no
\n"; print "
$com
\n"; } } close(IN); print "
\n"; # タイトル名 if ($resub !~ /^Re\:/) { $resub = "Re\: $resub"; } print <<"EOM";
\n
EOM # 管理者アイコンを配列に付加 if ($my_icon) { push(@icon1,"$my_gif"); push(@icon2,"管理者用"); } if ($icon_mode) { print "\n"; } print "\n"; print "
Name
Mail
Title  
Message
URL
Icon\n"; if ($ImageView == 1) { print "[Icon Sample]"; } else { print "[Icon sample]"; } print "
Password"; print "\n"; print "(英数字で8文字以内です。)
Font color\n"; # クッキーの色情報がない場合 if ($c_fcolor eq "") { $c_fcolor = $FCOLORS[0]; } foreach (0 .. $#FCOLORS) { if ($c_fcolor eq "$FCOLORS[$_]") { print ""; print "■\n"; } else { print ""; print "■\n"; } } print "
\n"; print "\n\n\n"; exit; } #----------------# # デコード処理 # #----------------# sub decode { local($buffer, @pairs, $name, $value); $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(/=/); $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'} = "Unknown"; } } #----------------------------# # 掲示板の使い方メッセージ # #----------------------------# sub howto { if ($tagkey == 0) { $tag_msg = "投稿内容には、タグは一切使用できません。\n"; } else { $tag_msg = "コメント欄には、タグ使用をすることができます。\n"; } &header; print <<"EOM"; * 掲示板にもどる *
掲示板の利用上の注意

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

  2. $tag_msg

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

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

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

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

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

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

  9. 管理者が著しく不利益と判断する記事や他人を誹謗中傷する記事は予\告なく削除することがあります。
EOM exit; } #------------------# # ワード検索処理 # #------------------# sub find { local($no,$reno,$date,$name,$email,$sub,$com,$url); &header; print <<"EOM"; * 掲示板にもどる *
ワード検索

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

キーワード： 条件：\n 表\示：\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'}; $eword = &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 ($url) { $url = "<HOME>"; } if ($reno) { $no = "$renoへのレス"; } # 結果を表示 print "
[$no] $sub"; print " 投稿者：$name 投稿日：$date $url
\n"; print "
$com
\n"; } print "
\n"; } print "\n\n"; exit; } #---------------------------------# # ブラウザを判断:フォーム幅調整 # #---------------------------------# sub get_agent { # ブラウザ名を取得 $agent = $ENV{'HTTP_USER_AGENT'}; if ($agent =~ /MSIE 3/i) { $nam_wid = 30; $sub_wid = 40; $com_wid = 37; $url_wid = 48; $nam_wid2 = 20; } elsif ($agent =~ /MSIE 4/i || $agent =~ /MSIE 5/i) { $nam_wid = 30; $sub_wid = 40; $com_wid = 37; $url_wid = 70; $nam_wid2 = 20; } else { $nam_wid = 30; $sub_wid = 40; $com_wid = 37; $url_wid = 70; $nam_wid2 = 20; } } #------------------# # クッキーの発行 # #------------------# 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'}\,fcolor<>$in{'fcolor'}\,bcolor<>$in{'bcolor'}"; print "Set-Cookie: YYBBS=$cook; expires=$gmt\n"; } #------------------# # クッキーを取得 # #------------------# sub get_cookie { local($key, $val, @pairs); @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_fcolor = $COOK{'fcolor'}; $c_bcolor = $COOK{'bcolor'}; 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{'fcolor'}) { $c_fcolor = $in{'fcolor'}; } if ($in{'bcolor'}) { $c_bcolor = $in{'bcolor'}; } } #--------------# # エラー処理 # #--------------# sub error { if ($lockflag) { &unlock; } &header if (!$head_flag); print "

ERROR !

\n"; print "

$_[0]\n"; print "

\n\n\n"; exit; } #--------------# # 管理モード # #--------------# sub admin { local($dmy,$no,$reno,$date,$name,$mail,$sub, $com,$url,$host,$pw,$next_page,$back_page); if ($in{'pass'} ne "" && $in{'pass'} ne $pass) { &error("パスワードが違います"); } &header; 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 == $del || $reno == $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 "
DELNO.DateTitleNameURLCommentHost
$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\n\n"; exit; } #------------------# # ユーザ記事削除 # #------------------# sub usr_del { local(@lines,@new,$no,$reno,$dt,$name,$mail,$sub,$com,$url,$host,$pw,$top,$PW); # 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'} == $no) { $PW = $pw; if ($reno eq "") { $flag=2; } else { $flag=1; } } elsif ($flag == 2 && $in{'no'} == $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 usr_edt { local($no,$reno,$dt,$name,$mail,$sub,$com, $url,$host,$pw,$fcolor,$bcolor,$icon,$flag,$top,$flag,$pattern); if ($in{'no'} eq '' || $in{'pwd'} eq '') { &error("記事Noまたはパスワードが入力モレです"); } if ($in{'action'} eq "edit") { # フォーム入力チェック &form_check; # ロック処理 &lock if ($lockkey); } $flag=0; open(IN,"$logfile") || &error("Open Error : $logfile"); $top = ; while () { ($no,$reno,$dt,$name,$mail,$sub,$com,$url,$host,$pw,$fcolor,$bcolor,$icon) = split(/<>/); if ($in{'no'} == $no) { $pw2 = $pw; $flag=1; if ($in{'action'} ne "edit") { last; } else { if ($autolink) { &auto_link($in{'comment'}); } $_ = "$no<>$reno<>$dt<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$pw<>$in{'fcolor'}<>$bcolor<>$in{'icon'}<>\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); &set_cookie; 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 "Name：$in{'name'}
\n"; print "Mail：$in{'email'}
\n"; print "Title：$in{'sub'}
\n"; print "URL：$in{'url'}

\n"; print "Message：$in{'comment'}\n"; print "

\n"; print "

\n"; print "
\n"; print "
\n\n\n"; exit; } &get_agent; $com =~ s/
/\r/g; $pattern = 'http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+'; $com =~ s/($pattern)<\/a>/$1/go; $com =~ s/<//g; $com =~ s/"/\"/g; if ($ImageView == 1) { &header('ImageUp'); } else { &header; } print <<"EOM";
- 変更する部分のみ修正して送信ボタンを押して下さい -


\n
EOM # 管理者アイコンを配列に付加 if ($my_icon) { push(@icon1,"$my_gif"); push(@icon2,"管理者用"); } if ($icon_mode) { print "\n"; } print "
NAME
MAIL
TITLE
MESSAGE
URL
ICON (あなたのイメージを選択して下さい)\n"; # イメージ参照のリンク if ($ImageView == 1) { print "[ICON SAMPLE]"; } else { print "[ICON SAMPLE]"; } print "
Font color\n"; foreach (0 .. $#FCOLORS) { if ($fcolor eq "$FCOLORS[$_]") { print ""; print "■\n"; } else { print ""; print "■\n"; } } print "

\n\n\n"; exit; } #------------------------# # フォーム入力チェック # #------------------------# sub form_check { local($ref_url); # 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'} !~ /[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,3}/) { &error("Ｅメールの入力内容が正しくありません"); } # 管理アイコンのチェック if ($my_icon && $in{'icon'} eq $my_gif) { if ($in{'pwd'} ne $pass) { &error("管理用アイコンは管理者専用です"); } } } #--------------# # 時間を取得 # #--------------# 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 { local($cntup,@cnts,$cnt); # 閲覧時のみカウントアップ 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 { local($retry,$mtime); # 1分以上古いロックは削除する if (-e $lockfile) { ($mtime) = (stat($lockfile))[9]; if ($mtime < time - 60) { &unlock; } } # symlink関数式ロック if ($lockkey == 1) { $retry = 5; while (!symlink(".", $lockfile)) { if (--$retry <= 0) { &error('LOCK is BUSY'); } sleep(1); } # mkdir関数式ロック } elsif ($lockkey == 2) { $retry = 5; 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($MailSub,$MailBody,$email); # メールタイトルを定義 $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'}; } 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"; EOM # JavaScriptヘッダー if ($ImageView == 1 && $_[0] eq "ImageUp") { print "\n"; print "\n"; } print "\n"; print "$title\n"; print "\n"; } #-----------------# # 自動URLリンク # #-----------------# sub auto_link { $_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1$2<\/a>/g; } #--------------------# # 画像イメージ表示 # #--------------------# sub image { local($i,$j,$stop); &header; print "
\n"; print "画像イメージサンプル\n"; print "

- 現在登録されている画像イメージは以下のとおりです -\n"; print "

\n"; print "

\n"; $i=0; $j=0; $stop = @icon1; foreach (0 .. $#icon1) { $i++; $j++; print "\n"; if ($j != $stop && $i >= 5) { print "\n"; $i=0; } elsif ($j == $stop) { if ($i == 0) { last; } while ($i < 5) { print ""; $i++; } } } print "
\"$icon1[$_]\" $icon2[$_]


\n"; print "

\n"; print "
\n\n\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 { local($count,$pastfile,@temp,$pno,$preno,$pdate,$pname,$pmail,$psub,$pcom,$purl,$pho); 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 { local($pastno,@new,$count,@pairs,$pair); 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'}; $eword = &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) { print $new[$_]; } print "

\n\n\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\n\n"; 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 "mkdir\n"; } ($lockdir) = $lockfile =~ /(.*)[\\\/].*$/; print "
  • ロックディレクトリ：$lockdir\n"; 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\n"; exit; } #-----------------# # URLエンコード # #-----------------# sub url_enc { local($_) = @_; s/(\W)/'%' . unpack('H2', $1)/eg; s/\s/+/g; $_; }