| パスワード認証 |
|---|
| *書きこむにはパスワードが必要です! |
";}else{ print <<"_HTML_";
□ TOPPAGE □ MANUAL □ SEARCH $klog_link
| $com_top |
_KEY_ } $total=@NEW; $page_=int(($total-1)/$a_max); if ($FORM{'page'} eq '') { $page = 0; } else { $page = $FORM{'page'}; } $end_data = @NEW - 1; $page_end = $page + ($a_max - 1); if ($page_end >= $end_data) { $page_end = $end_data; } foreach ($page .. $page_end) { ($namber,$date,$name,$email,$d_may,$comment,$url,$font,$ico,$type) = split(/<>/,$NEW[$_]); if($email ne ""){ $name="$name"; } if($d_may eq ""){ $d_may="No Title"; } if($link_i == 1){ if ($url ne "") { $url="
| ||||||||||||||||||
\n";} elsif($res_n == 1){&fom_;} } print "
| _BACK_ } if ($page_end ne $end_data) { print <<"_NEXT_"; | _NEXT_ } print" |
| 記事ナンバー[$namber] 返信フォーム |
$comment
| ||||||||
\n"; } # # [ログ書きこみ処理] # sub wri_ { if ($FORM{'name'} eq "") { &er_("名前が未入力!"); } if ($FORM{'comment'} eq "") { &er_("コメントが未入力!"); } if (length($delkey) > 8) { &er_("削除キー は8文字以内!"); } if ($locks == 1) { &lock_; } open(LOG,"$log") || &er_("Can't open $log"); @lines =
| $title の使い方 |
|---|
|
_HTML_ print"\n"; exit; } # # [フォームなデコード] # sub d_code_ { if ($ENV{'REQUEST_METHOD'} eq "POST") { if ($ENV{'CONTENT_LENGTH'} > 51200) { &error("文章があまりに長すぎます!"); } 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; &jcode'convert(*value,'sjis'); if ($tag == 0) { $value =~ s//\>\;/g; $value =~ s/\"/\"\;/g; } else { $value =~ s/<>/\<\;\>\;/g; $value =~ s///g; } $FORM{$name} = $value; foreach(0..$#NW){if(index($value,$NW[$_]) >= 0){&er_("「$NW[$_]」は使用できません!");}} if ($name eq 'del') { push(@d_,$value); } } $d_may= $FORM{'d_may'}; $name = $FORM{'name'}; $comment = $FORM{'comment'};$comment =~ s/\r\n/
/g;$comment =~ s/\r|\n/
/g; $email = $FORM{'email'}; $url = $FORM{'url'};$url =~ s/^http\:\/\///; $mode = $FORM{'mode'}; $ico = $FORM{'ico'}; $font = $FORM{'font'}; $kiji = $FORM{'kiji'}; $namber=$FORM{'namber'}; $type = $FORM{'type'}; $delkey=$FORM{"delkey"}; $mo =$FORM{"mo"}; $ENV{'TZ'} = "JST-9"; ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time); $year=$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 set_ { ($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + 30*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\,ico\:$ico\,font\:$font\,delkey\:$delkey"; print "Set-Cookie: IBBS=$cook; expires=$date_gmt\n"; } # # [クッキー取得] # sub get_ { $cookies = $ENV{'HTTP_COOKIE'}; @pairs = split(/;/,$cookies); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $name =~ s/ //g; $DUMMY{$name} = $value; } @pairs = split(/,/,$DUMMY{'IBBS'}); foreach $pair (@pairs) { ($name, $value) = split(/:/, $pair); $COOKIE{$name} = $value; } $c_name = $COOKIE{'name'}; $c_email= $COOKIE{'email'}; $c_url = $COOKIE{'url'}; $c_ico = $COOKIE{'ico'}; $c_font = $COOKIE{'font'}; $c_key = $COOKIE{'delkey'}; if ($FORM{'name'}) { $c_name = $FORM{'name'}; } if ($FORM{'email'}) { $c_email= $FORM{'email'}; } if ($FORM{'url'}) { $c_url = $url; } if ($FORM{'ico'}) { $c_ico = $FORM{'ico'}; } if ($FORM{'font'}) { $c_font = $FORM{'font'}; } if ($FORM{'delkey'}) { $c_key = $FORM{'delkey'}; } } # # [管理ページ] # sub del_ { if ($FORM{'pass'} ne "$pass") { &er_("パスワードが違います!"); } &hed_; print <<"_HTML_"; □ BACK
| 管理モード |
|---|
|
■ 記事を編集したい場合、その記事のタイトルをクリック。 ■ 削除したい記事にチェックを入れ「削除」ボタンを押す。 ■ 名前の下の数字は IPアドレス (無い場合、v5.0以前での書き込み) □ 親記事を削除するとレス記事もすべて削除されます。 |
| _BACK_ } if ($page_end ne $end_data) { print <<"_NEXT_"; | _NEXT_ } print " |
\n"; if($klog_s){ print <<"_COPY_";
_COPY_ } if($bup){ if (-e $bup_f) { $bl=int(-M $bup_f);$bs=-s $bup_f; $bc="$bs バイト、$bl 日前のバックアップあり。"; }else{$bc="バックアップはありません。";} print <<"_HTML_";
_HTML_ } print <<"_HTML_";
/\n/g; if ($tag) { $comment =~ s//>/g; } print <<"_HTML_"; □ BACK
| 記事ナンバー[$namber] の編集 |
|---|
編集完了
";&del_;}else{if($s_ret){$mo="$s_pas";}&html_;} } # # [ロック処理] # sub lock_ { $lflag = 0; foreach (1 .. 5) { unless (-e $lockf) { open(LOCK,">$lockf"); close(LOCK); $lflag = 1; last; } else { sleep(1);} } if ($lflag == 0) { if (-e $lockf) { unlink($lockf); } &er_("LOCK is BUSY"); } } # # [メール通知] # sub mail_ { $mail_subj = "$title の投稿通知です。"; if ($type != 0 && $type ne ""){ $types = "(res comment)"; } &jcode'convert(*mail_subj,'jis'); &jcode'convert(*name,'jis'); &jcode'convert(*d_may,'jis'); &jcode'convert(*comment,'jis'); $comment =~ s//\n/g; $comment =~ s/<//g; foreach $mailto (@mail) { if (open(MAIL,"| $s_mail $mailto")) { print MAIL "X-Mailer: IBBS MAILER\n"; print MAIL "To: $mailto\n"; if ($email eq "") { $email = "nomail\@xxx.xxx"; } print MAIL "From: $email\n"; print MAIL "Subject: $mail_subj\n"; print MAIL "Content-Transfer-Encoding: 7bit\n"; print MAIL "Content-type: text/plain\n"; print MAIL "\n\n"; print MAIL "$mail_subj\n"; print MAIL "--Comment-----------------------------\n"; print MAIL "Time : $date\n"; print MAIL "Name : $name\n"; print MAIL "Email: $email\n"; if ($url ne "") { print MAIL "URL : http://$url\n"; } if ($d_may eq "") { $d_may = "No Title"; } print MAIL "Title: $d_may $types\n\n"; print MAIL "$comment\n\n"; print MAIL "---------------------------------END--\n"; close(MAIL); } } } # # [URLなどを判断] # sub auto_ { $_[0]=~ s/([^=^\"]|^)((http|ftp)\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)/$1$2<\/a>/g; $_[0]=~ s/([\w\.\-]+)\@([\w\.\-]+)/$1\@$2<\/a>/g; } # # [カウンタ処理] # sub con_ { open(NO,"$c_f") || &er_("Can't open $c_f",'0'); $cnt =
\n";
if ($m_pas) {
foreach (0 .. $#cnts) {
print "![](\"$m_pas/$cnts[$_]\.gif\") ";
}
} else {print "$cnt";}
print " |
\n"; } # # [エラー表示] # sub er_ { if (-e $lockf) { unlink($lockf); } &hed_; print "
\n"; &foot_; } # # [過去ログ] # sub log_ { open(NO,"$klog_c") || &er_("Can't open $klog_c"); $n =
コピー完了
"; &del_; } # # [バックアップ処理] # sub backup_{ unless(-e $bup_f) { $klog_f=$bup_f;&log_n; } open(LOG,">$bup_f") || &er_("Can't write $bup_f"); print LOG @lines; close(LOG); } # # [修復処理] # sub bma_ { if (-e $lockf) { unlink($lockf); } rename ($bup_f,$log) || &er_("Rename Error"); $msg="修復完了
"; &del_; } # # [画像表示] # sub img_ { &hed_; print"| アイコン画像一覧 |
|---|
*)見終わったらウィンドウを閉じて下さい
"; $I=0; foreach (0..$#ico1){ if($ico1[$_] eq "randam" || $ico1[$_] eq "master"){next;} $I++; print"
";$I=0;} } print"