mitsudori
dce359389d
new file: @hi-ho/getlog.cgi new file: [1999-01-24 - 1999-04-09] REBIRTH (aka Haruna)/bbscgi.txt new file: [1999-01-24 - 1999-04-09] REBIRTH (aka Haruna)/getlogcgi.txt new file: [1999-01-24 - 1999-04-09] REBIRTH (aka Haruna)/locationcgi.txt new file: [1999-05-04 - present] REMIX/bbs.txt new file: [1999-05-04 - present] REMIX/getlog_m.txt new file: [1999-05-04 - present] REMIX/jcode.txt new file: [1999-05-04 - present] REMIX/location.txt new file: [1999-05-04 - present] REMIX/loveyou.dat new file: [1999-06-20 - 1999-07-12] REQUIEM (aka RECYCLE)/bbs.txt new file: [1999-06-20 - 1999-07-12] REQUIEM (aka RECYCLE)/count0.txt new file: [1999-06-20 - 1999-07-12] REQUIEM (aka RECYCLE)/delete.txt new file: [1999-06-20 - 1999-07-12] REQUIEM (aka RECYCLE)/getlog.txt new file: [1999-06-20 - 1999-07-12] REQUIEM (aka RECYCLE)/jcode.txt new file: [1999-06-20 - 1999-07-12] REQUIEM (aka RECYCLE)/location.txt new file: [1999-06-20 - 1999-07-12] REQUIEM (aka RECYCLE)/loveyou.dat new file: [1999-06-20 - 1999-07-12] REQUIEM (aka RECYCLE)/readme.html new file: [1999-06-20 - 1999-07-12] REQUIEM (aka RECYCLE)/update.html new file: [1999-11-03 - 2000-05-02] REFLEX (aka AGStar no Yabou)/bbs.cgi new file: [1999-11-03 - 2000-05-02] REFLEX (aka AGStar no Yabou)/getlog_m.cgi new file: [1999-11-03 - 2000-05-02] REFLEX (aka AGStar no Yabou)/jcode.pl new file: [1999-11-03 - 2000-05-02] REFLEX (aka AGStar no Yabou)/list.cgi new file: [1999-11-03 - 2000-05-02] REFLEX (aka AGStar no Yabou)/loveyou.dat new file: [1999-11-03 - 2000-05-02] REFLEX (aka AGStar no Yabou)/readme.txt new file: source.txt
1080 lines
37 KiB
Perl
1080 lines
37 KiB
Perl
#! /usr/local/bin/perl
|
||
|
||
|
||
#----------------#
|
||
# 初期設定 #
|
||
#----------------#
|
||
|
||
|
||
# 掲示板の名前 --------------------------
|
||
|
||
|
||
$title = 'あやしいわーるど＠AMG';
|
||
|
||
# 文字色や背景などの設定
|
||
|
||
# body部
|
||
|
||
$bgc = '004040';
|
||
|
||
$textc = 'ffffff';
|
||
|
||
$linkc = 'eeffee';
|
||
|
||
$vlinkc = 'dddddd';
|
||
|
||
$alinkc = 'ff0000';
|
||
|
||
# 題名の色
|
||
|
||
$subjc = 'ffffee';
|
||
|
||
# --- 表示件数 --------------------------------------------
|
||
# １ページに表示する件数のデフォルト値
|
||
$def = 30;
|
||
# １ページに表示する件数の最小値
|
||
$defmin = 0;
|
||
# この件数以上でリロード／書き込みしたときには次はこの件数にする。
|
||
$defmax =120;
|
||
|
||
# --- ＵＲＬ ----------------------------------------------
|
||
# このスクリプト
|
||
$cgiurl = 'bbs.cgi';
|
||
$readfile= 'loveyou.dat';
|
||
|
||
# 連絡先
|
||
$mailadd = 'goodby@strangers.com';
|
||
|
||
# ログのＵＲＬ
|
||
$loglog0 = 'log';
|
||
$loglog1 = 'http://';
|
||
|
||
# ---------------------------------------- 書き込みチェック ----------------------------------------
|
||
# 管理人名前チェック・メールアドレス・パスワード
|
||
$namez = 'しば';
|
||
$pass = 'chiba';
|
||
# 書き込み最大量
|
||
$maxlength = 1024*16;
|
||
#投稿内容文字数
|
||
$max_v = 8000;
|
||
#投稿内容行数（上の文字数との兼ね合いを考えて）
|
||
$max_line = 120;
|
||
|
||
# 二重書き込みチェック件数
|
||
$check = 10;
|
||
# 二重書き込みチェックバイト数
|
||
$checklength = 10;
|
||
# 書き込み件数の最大登録数の設定
|
||
$max = '120';
|
||
|
||
# ------------------------------------ ディレクトリ・ファイル名 ------------------------------------
|
||
# 日本語コード変換ライブラリjocde.plのパス
|
||
require './jcode.pl';
|
||
# 内容が書き込まれる記録ファイルのパスを設定
|
||
$readfile = './loveyou.dat';
|
||
# 別途とるログのファイル名先頭文字・拡張子の指定
|
||
$logfile = "./log/";
|
||
$logfiledat = ".html";
|
||
|
||
# -------------------------------------------- カウンタ --------------------------------------------
|
||
# カウンタプラス値
|
||
$countplus = "";
|
||
# カウンタ開始日
|
||
$countdate = '99/7/26';
|
||
# カウンタファイルの先頭文字・拡張子の指定
|
||
$countfile = './count/count';
|
||
$countfiledat = '.txt';
|
||
# カウンタ強度（０のときは使用しない）
|
||
$countlevel = 1;
|
||
|
||
# --------------------------------------------- その他 ---------------------------------------------
|
||
# 時差
|
||
$tim =0*3600;
|
||
# 入力形式の設定
|
||
$method = 'post';
|
||
|
||
|
||
# 時刻処理
|
||
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time + $tim );
|
||
$month = ($mon + 1);
|
||
|
||
# 時刻のゼロサプレス
|
||
if ($month < 10) { $month = "0$month"; }
|
||
if ($mday < 10) { $mday = "0$mday"; }
|
||
if ($sec < 10) { $sec = "0$sec"; }
|
||
if ($min < 10) { $min = "0$min"; }
|
||
if ($hour < 10) { $hour = "0$hour"; }
|
||
|
||
# 曜日変換処理
|
||
$y0="日"; $y1="月"; $y2="火"; $y3="水"; $y4="木"; $y5="金"; $y6="土";
|
||
$youbi = ($y0,$y1,$y2,$y3,$y4,$y5,$y6) [$wday];
|
||
|
||
# 時刻フォーマット
|
||
$date_now = "$month月$mday日($youbi)$hour時$min分$sec秒";
|
||
|
||
|
||
# ログファイル名取得
|
||
$filedate = "$logfile$year$month$logfiledat";
|
||
# よくわからない変数
|
||
$gesu = $ENV{'REMOTE_PORT'};
|
||
# 投稿時のaction名
|
||
$action = "regist";
|
||
|
||
# 追加対策 -------------------------------
|
||
|
||
# 外部投稿防止コード
|
||
$protect_a = 9987; # 4桁
|
||
$protect_b = 55; # 2桁
|
||
$protect_c = 112; # 3桁
|
||
|
||
# 過去ログの最大ファイルサイズ
|
||
$maxoldlogsize = 4 * 1024 * 1024; # 3MB
|
||
|
||
###########################################################################################
|
||
|
||
# フォーム入力されたデータを$bufferに格納する（getかpostかによって取得方法が異なる）
|
||
#if ($ENV{'REQUEST_METHOD'} eq "POST" && $ENV{'CONTENT_LENGTH'} < $maxlength) { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
|
||
#else { $buffer = $ENV{'QUERY_STRING'}; }
|
||
if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; }
|
||
if ($ENV{'CONTENT_LENGTH'} > $maxlength) {&error(5);}
|
||
|
||
# $bufferに格納されたFORM形式のデータを取り出す
|
||
@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;
|
||
|
||
# 記録するデータはsjis
|
||
&jcode'convert(*value,'sjis');
|
||
|
||
|
||
#改行連打のいたずらを回避（３行以上何も書かずに改行のみの部分は改行無視）
|
||
#スペース＋改行の連打を回避（上記を回避するためにスペースをいれて改行する悪戯の場合）
|
||
if ($value =~ /\r\n/) { $value =~ s/\r\n/\r/g; }
|
||
if ($value =~ /\n/) { $value =~ s/\n/\r/g; }
|
||
|
||
if ($value =~ / \r \r/) { $value =~ s/ \r \r//g; }
|
||
if ($value =~ /\ \r\ \r/) { $value =~ s/\ \r\ \r//g; }
|
||
if ($value =~ / \r/) { $value =~ s/ \r/\r/g; }
|
||
if ($value =~ /\ \r/) { $value =~ s/\ \r/\r/g; }
|
||
if ($value =~ /\r\r\r\r/) { $value =~ s/\r\r\r\r//g; }
|
||
|
||
|
||
# 処理の都合上の処理
|
||
$value =~ s/\n//g; # 改行文字は消去
|
||
|
||
if ($name eq 'value') { $value =~ s/&/&\;/g; $value =~ s/\,/\0/g; }
|
||
elsif ($name ne 'page' && $name ne 'image') { $value =~ s/\,//g; $value =~ s/\;//g; $value =~ s/\://g; $value =~ s/\=//g; }
|
||
|
||
else { $value =~ s/\,//g; }
|
||
|
||
$value =~ s/</<\;/g; $value =~ s/>/>\;/g;
|
||
|
||
$FORM{$name} = $value;
|
||
}
|
||
|
||
|
||
# 表示ページ数の決定 ##################################################
|
||
if ($FORM{'def'} ne '') { $def = $FORM{'def'}; }
|
||
if ($def < $defmin) { $def = $defmin;}
|
||
$defnext = $def;
|
||
if ($defnext > $defmax) {$defnext = $defmax;}
|
||
|
||
|
||
|
||
# 表示色の決定 ########################################################
|
||
|
||
if ($select ne "1") { &select; }
|
||
$select=1;
|
||
|
||
# ポップアップウインドウの決定 ########################################################
|
||
|
||
#if ($FORM{'image'} eq '') { $checked1='checked'; }
|
||
#if ($FORM{'image'} eq '2') { $checked2='checked'; }
|
||
|
||
#if ($FORM{'himage'} eq '') { $himage=''; }
|
||
#if ($FORM{'himage'} eq '2'){ $link='$sec$min'; }
|
||
|
||
|
||
# 全体の流れを決定する（actionやpwdはフォーム入力されたデータを格納する名前）
|
||
########################################################
|
||
# action=regist --> 記事記録処理して通常画面へ
|
||
# その他 --> 通常画面へ
|
||
|
||
if (($FORM{'def'} eq '0') && ($FORM{'value'} ne '')) { ®ist; }
|
||
if ($FORM{'area'} eq 'read') { &read; }
|
||
if ($FORM{'area'} eq '') { &list; }
|
||
if ($FORM{'action'} eq "$action") { ®ist; }
|
||
if ($FORM{'action'} eq 'search1') { &search1; }
|
||
if ($FORM{'action'} eq 'search2') { &search2; }
|
||
if ($FORM{'action'} eq 'search3') { &search3; }
|
||
&html;
|
||
|
||
|
||
# メイン表示サブルーチン #######################################################
|
||
sub html {
|
||
|
||
if ($select ne "1") { &select; }
|
||
$select=1;
|
||
|
||
# プロテクトキー生成
|
||
local ( $ptime ) = time + $tim * 60 * 60;
|
||
local ( $pkey ) = ( $ptime + $protect_a ) * $protect_b + $protect_c;
|
||
|
||
print "Content-type: text/html\n\n";
|
||
print "<html><head><title>$title</title></head>\n";
|
||
print "$body\n";
|
||
|
||
|
||
# バナーはここ
|
||
|
||
print "<font size=+1 color=\"#$subjc\"><b>$title</b></font> <font size=-1><b><a href=\"$cgiurl\">リスト一覧</a></font></b> <font size=-1><b><a href=\"$cgiurl\?area\=read\">最新投稿一覧</a></font></b> <font size=-1><b><a href=\"list.cgi\">新規掲示板作成</a></b></font><p>
|
||
\n";
|
||
|
||
print "<form method=$method action=\"$cgiurl\?area\=$FORM{area}\">\n";
|
||
|
||
print "<input type=hidden name=\"action\" value=\"$action\">\n";
|
||
print "投稿者 <input type=text name=\"name\" size=20 maxlength=40 value=\"$FORM{'name'}\"><br>";
|
||
print "メール <input type=text name=\"email\" size=30><br>\n";
|
||
print "題名 <input type=text name=\"subject\" size=30 maxlength=60> \n";
|
||
print "<input type=submit value=\"投稿／リロード\"><input type=reset value=\"消す\"><p>内容<i>（タグは使えません。内容を書かずに投稿ボタンを押すとリロードします。）</i><br><textarea name=\"value\" rows=5 cols=70></textarea><input type=hidden name=\"page\" size=70 value=\"http://\"><p>\n";
|
||
print "表\示件数\n";
|
||
print "<input type=text name=\"def\" size=8 value=\"$defnext\">\n";
|
||
print "バックグラウンドカラー<input type=text name=\"bgcolor\" size=6 value=\"$bgc\"><input type=hidden name=\"link\" value=\"$FORM{'link'}\">\n";
|
||
print "URL自動リンク<input type=checkbox name=\"image\" value=\"1\" checked></font> \n";
|
||
|
||
print "<input type=hidden name=\"code\" value=\"$gesu$pkey\">\n";
|
||
|
||
print "<input type=hidden name=\"area\" value=\"$FORM{area}\">\n";
|
||
print "<input type=hidden name=\"areaname\" value=\"$title\">\n";
|
||
|
||
print "<input type=hidden name=\"win_count\" value=\"$maxcount\">\n";
|
||
|
||
print "<input type=hidden name=\"win_time\" value=\"$month$mday$hour$min$sec\">\n";
|
||
|
||
|
||
|
||
# プロテクトコード出力
|
||
print "<input type=hidden name=\"protect\" value=\"$pkey\">\n";
|
||
|
||
|
||
# print "<br><i>新しい記事から表\示します。最高$max件の記事が記録され、それを超えると古い記事から削除されます。<br>\n";
|
||
# print "１回の表\示で$def件を越える場合は、下のボタンを押すことで次の画面の記事を表\示します。</i>\n";
|
||
|
||
|
||
print "<p><font size=\-1\"><a href=\"http://AG.ST2.ARENA.NE.JP/cgi-bin/strangeworld/bbs.cgi\">あいあい</a>｜<a href=\"http://ch.st6.arena.ne.jp/cgi-bin/strangeworld/bbs/bbs.cgi\">わかな</a>｜<a href=\"http://extra.tomato.nu/strangeworld/\">エクストラ</a>
|
||
｜<a href=\"http://www.njs.ne.jp/~rebirth/remix/bbs.cgi\">REMIX</a>｜<A href=\"http://members.tripod.com/~swattylink/\">SwattyLink</A> /
|
||
<A href=\"http://swatty.virtualave.net/cgi-bin/upload.cgi\">File</a>|<a href=\"http://edoya.neko.to/2/upload.cgi\">ぁ界遺産</a>｜<a href=\"http://strange-empire.virtualave.net/cgi-bin/upload.cgi\">徘徊する骸</a>｜<a href=\"http://wave.ruru.ne.jp/loplop/erunst/chat.cgi\">チャット</a><p>
|
||
今月の過去ログは<a href=\"getlog_m.cgi\?action\=\getlog\&logfile\=$year$month.html\&day1\=01\&hour1\=00&day2\=31\&hour2=24\&searchmode=bbs\&keyword\=$area\">ここ</a>。先月のは<a href=\"getlog_m.cgi\?action\=\getlog\&logfile\=$pastyear$p$pastmonth.html\&day1\=01\&hour1\=00&day2\=31\&hour2=24\&searchmode=bbs\&keyword\=$area\">ここ</a>。\n";
|
||
#カウンター
|
||
if ( $countlevel > 0 ){
|
||
print "<font size=-1>$countdateから ";
|
||
&counter; print "$countplus（こわれにくさレベル$countlevel）</font>\n"; }
|
||
|
||
|
||
# サーチの注意書き
|
||
print "<br>投稿の内容やリモートホストによる規制や削除をしないため、各個人が責任を負ってください。<br>最大\表\示件数：$max件 ■：返信フォーム ★：発言サーチ ◆：スレッド一覧\n";
|
||
|
||
|
||
# リロード
|
||
print "<p></font></font><input type=submit value=\"投稿／リロード\">\n";
|
||
print "</form>\n";
|
||
|
||
#--- 記録記事の出力 ----------------------------------#
|
||
|
||
# 記録ファイルを読み出しオープンして、配列<@lines>に格納する
|
||
if (!open(DB,"$file")) { &error(0); }
|
||
@lines = <DB>;
|
||
close(DB);
|
||
|
||
if ($FORM{'page'} eq '') { $page = 0; } else { $page = $FORM{'page'}; }
|
||
|
||
$accesses = @lines; $accesses--;
|
||
$page_end = $page + $def - 1;
|
||
if ($page_end > $accesses) { $page_end = $accesses; }
|
||
|
||
foreach ($page .. $page_end) {
|
||
($date,$name,$email,$value,$subject,$hpage,$himage,$code,$postid,$area) = split(/\,/,$lines[$_]);
|
||
$value =~ s/\0/\,/g; # ヌルコードに変換記録した半角カンマを復帰させる
|
||
chop($himage) if $himage =~ /\n/;
|
||
chop($hpage) if $hpage =~ /\n/;
|
||
chop($postid) if $postid =~ /\n/;
|
||
&disp;
|
||
}
|
||
|
||
#--- 改ページ処理 ------------------------------------#
|
||
|
||
print "</form><hr><p>\n";
|
||
$page_next = $page_end + 1;
|
||
$i = $page + 1; $j = $page_end + 1;
|
||
if ($page_end ne $accesses) {
|
||
print "<font size=-1><i>以上は、現在登録されている新着順$i番目から$j番目までの記事です。</i></font><p>\n";
|
||
print "<form method=$method action=\"$cgiurl\?area\=$FORM{area}\">\n";
|
||
print "<input type=hidden name=\"area\" value=\"$FORM{area}\">\n";
|
||
print "<input type=hidden name=\"page\" value=\"$page_next\">\n";
|
||
print "<input type=hidden name=\"def\" value=\"$def\">\n";
|
||
print "<input type=hidden name=\"bgcolor\" value=\"$bgc\">\n";
|
||
print "<input type=submit value=\"次のページ\"></form>\n";
|
||
}
|
||
else {
|
||
|
||
print "<font size=-1><i>以上は、現在登録されている新着順$i番目から$j番目までの記事です。";
|
||
print "これ以下の記事はありません。</i></font>\n";
|
||
}
|
||
|
||
# このスクリプトの著作権表示（かならず表示してください）
|
||
|
||
print "<form method=$method action=\"$cgiurl\?area\=$FORM{area}\"><input type=hidden name=\"area\" value=\"$FORM{area}\"><input type=hidden name=\"def\" value=\"$def\"><input type=hidden name=\"bgcolor\" value=\"$bgc\"><input type=submit value=\" リロード \"></form>\n";
|
||
print "<h4 align=right><hr size=5><a href=\"http://www.ask.or.jp/~rescue/\">MiniBBS v7.5</a> <a href=\"http://www.bea.hi-ho.ne.jp/strangeworld/recycle/\">REFLEX 991115</a> is Free.<br></h4>\n";
|
||
print "</body></html>\n";
|
||
exit;
|
||
}
|
||
|
||
|
||
# 書き込み処理サブルーチン ############################################################
|
||
sub regist {
|
||
|
||
# 内容がスペースならリロード
|
||
if ($FORM{'value'} eq "") { &html; }
|
||
|
||
# 別のページからこのＣＧＩへの投稿を排除する処理
|
||
$ref = $ENV{'HTTP_REFERER'};
|
||
$ref_url = $cgiurl; $ref_url =~ s/\~/.*/g;
|
||
if (!($ref =~ /$ref_url/i)) { &error(form); }
|
||
|
||
# 入力されたデータのチェック ##################################
|
||
if ($FORM{'bgcolor'} eq "") { &error(1); }
|
||
if ($FORM{'def'} eq "") { &error(1); }
|
||
if ($FORM{'name'} eq "") { $FORM{'name'} = ''; }
|
||
if ($FORM{'email'} =~ /,/) { &error(4); }
|
||
$FORM{'email'}=~ s/\"//g;
|
||
if ($FORM{'email'} ne "") { if (!($FORM{'email'} =~ /(.*)\@(.*)\.(.*)/)) { &error(3); }}
|
||
if ($FORM{'subject'} eq "") { $FORM{'subject'} = ' '; }
|
||
|
||
if ($FORM{'page'} eq "" || $FORM{'page'} eq "http://") { $FORM{'page'} = ''; }
|
||
else{
|
||
$FORM{'page'} =~ s/\s//g;$FORM{'page'} =~ s/\"//g;$FORM{'page'} =~ s/\'//g;
|
||
$FORM{'page'} =~ s/http\:\/\/http\:\/\//http\:\/\//g;
|
||
}
|
||
# 行数制限
|
||
if ($max_line) {
|
||
$value_size = ($FORM{'value'} =~ tr/\r/\r/) + 1; # \r の数を数える
|
||
if ($value_size > $max_line) { &error(1); }
|
||
}
|
||
# 文字数制限
|
||
if ($max_v) {
|
||
$value_size = length($FORM{'value'});
|
||
if ($value_size > $max_v) { &error(1); }
|
||
}
|
||
|
||
|
||
|
||
# プロテクトコードチェック
|
||
if ( $FORM{'protect'} ne '' ) {
|
||
local ( $ptime ) = time + $tim * 60 * 60;
|
||
local ( $pcheck ) = ( $FORM{'protect'} - $protect_c ) / $protect_b - $protect_a;
|
||
|
||
( $csec, $cmin, $chour, $cmday, $cmon, $cyear, $cwday, $cyday, $cisdat )
|
||
= localtime ( $pcheck );
|
||
$cyear += 1900;
|
||
$cmon++;
|
||
local ( $cnowdate ) = sprintf ( "%d/%02d/%02d(%s)%02d時%02d分%02d秒",
|
||
$cyear, $cmon, $cmday,
|
||
( '日', '月', '火', '水', '木', '金', '土' )[$cwday],
|
||
$chour, $cmin, $csec );
|
||
if (
|
||
( $csec < 0 ) || ( $csec > 60 ) ||
|
||
( $cmin < 0 ) || ( $cmin > 60 ) ||
|
||
( $chour < 0 ) || ( $chour > 24 ) ||
|
||
( ( $ptime - $pcheck ) > 1 * 60 * 60 ) ) { # １時間
|
||
&error ( 'xxx' );
|
||
}
|
||
} else {
|
||
&error ( 'xxx' );
|
||
}
|
||
|
||
# 過去ログのファイルサイズチェック
|
||
if ( ( -s $filedate ) > $maxoldlogsize ) {
|
||
&error (0);
|
||
}
|
||
|
||
# 投稿者名チェック
|
||
$formname = $FORM{'name'};
|
||
# if ($formname eq "$nameng"){ &error(xx); }
|
||
if ($formname eq "$pass"){$formname = $namez; $FORM{'email'} = $mailadd;}
|
||
else {
|
||
$formname =~ s/$namez/<small>しば<\/small>/g;
|
||
# $formname =~ s/しぱ/しは゜/g;
|
||
}
|
||
|
||
# 記録ファイルを読み出しオープンして、配列<@lines>に格納する
|
||
open (DB,"+<$file") || &error (0);
|
||
eval 'flock (DB, 2)';
|
||
@lines = <DB>;
|
||
|
||
# 最大保持記録数の処理
|
||
$i = 0;
|
||
foreach $line (@lines) {
|
||
$i++;
|
||
if ($i == $max) { last; }
|
||
push(@new,$line);
|
||
}
|
||
|
||
# 連続同一内容書き込みチェック
|
||
$i = 0; $j = 0;
|
||
while ( ( $i < $check ) && ($j == 0) ) {
|
||
($date0,$name0,$email0,$value0,$subject0,$hpage0,$himage0,$id0) = split(/\,/,$lines[$i]);
|
||
if ( $FORM{'value'} eq $value0 ) { $j = 1; }
|
||
# if ( $FORM{'image'} eq $himage0 ) { $j = 1; }
|
||
# if (substr($FORM{'value'},0,$checklength) eq substr($value0,0,$checklength)){ $j = 1; }
|
||
# if (substr($FORM{'value'},1-$checklength,$checklength) eq substr($value0,1-$checklength,$checklength)) { $j = 1; }
|
||
$i++;
|
||
}
|
||
|
||
# ID生成
|
||
if ( $lines[0] =~ /^.*,.*,.*,.*,.*,.*,.*,.*,(.*),.*,.*\n/ ) {
|
||
$postid = $1 + 1;
|
||
} else {
|
||
$postid = 1;
|
||
}
|
||
|
||
$postid_now=$postid ;
|
||
|
||
if ( $j == 1) { &error(0); }
|
||
|
||
|
||
if ( $j == 0 ) {
|
||
$value = "$date_now\,$formname\,$FORM{'email'}\,$FORM{'value'}\,$FORM{'subject'}\,$FORM{'page'}\,$FORM{'image'},$FORM{'code'},$postid,$FORM{'area'},$FORM{'areaname'}\n";
|
||
|
||
unshift(@new,$value);
|
||
|
||
seek (DB, 0, 0);
|
||
truncate (DB, 0);
|
||
print DB @new;
|
||
eval 'flock (DB, 8)';
|
||
close (DB);
|
||
|
||
|
||
# 最新投稿ファイル出力
|
||
########################
|
||
$emax=300;
|
||
|
||
# 記録ファイルを読み出しオープンして、配列<@lines>に格納する
|
||
open (DB,"+<$readfile") || &error (0);
|
||
eval 'flock (DB, 2)';
|
||
@lines = <DB>;
|
||
|
||
# 最大保持記録数の処理
|
||
$i = 0;
|
||
foreach $line (@lines) {
|
||
|
||
($date,$name,$email,$value,$subject,$hpage,$himage,$code,$postid,$area) = split(/\,/,$line);
|
||
|
||
$i++;
|
||
if ($i == $emax) { last; }
|
||
if ($FORM{'area'} eq $area ){ $del = 1; }
|
||
if ($del == 0) { push(@neo,$line);}
|
||
$del = 0;
|
||
}
|
||
|
||
$val = "$date_now\,$formname\,$FORM{'email'}\,$FORM{'value'}\,$FORM{'subject'}\,$FORM{'page'}\,$FORM{'image'},$FORM{'code'},$postid_now,$FORM{'area'},$FORM{'areaname'}\n";
|
||
|
||
unshift(@neo,$val);
|
||
|
||
seek (DB, 0, 0);
|
||
truncate (DB, 0);
|
||
print DB @neo;
|
||
eval 'flock (DB, 8)';
|
||
close (DB);
|
||
|
||
|
||
|
||
# 過去ログ出力
|
||
########################
|
||
$FORM{'value'} =~ s/\0/\,/g;
|
||
open(LOG,">>$filedate") || &error(0);
|
||
eval 'flock (LOG, 2)';
|
||
|
||
|
||
if (-z LOG) {
|
||
# ファイルが空の場合はHTMLヘッダを付ける
|
||
print LOG "<html>\n<body bgcolor=\"#$bgc\" text=\"#$textc\" link=\"#$linkc\" vlink=\"#$vlinkc\" alink=\"#$alinkc\">\n<hr>";
|
||
|
||
# 保存後５日を過ぎた過去ログファイルは削除
|
||
( $oldsec, $oldmin, $oldhour, $oldmday, $oldmonth, $oldyear, $oldwday, $oldyday, $oldisdst )
|
||
= localtime ( time + $tim - 10 * 60 * 60 * 24 );
|
||
$oldmonth += 1;
|
||
$oldlogfilename = sprintf ( "%s%d%02d%02d%s", $logfile, $oldyear, $oldmonth, $oldmday, $logfiledat );
|
||
unlink $oldlogfilename;
|
||
}
|
||
|
||
print LOG "<font size=+1 color=\"#$subjc\"><b>$FORM{'subject'}</b></font>";
|
||
# メールアドレスが記録されているデータにはリンクを付ける
|
||
if ($FORM{'email'} ne '') { print LOG " 投稿者：<b><a href=\"mailto:$FORM{'email'}\">$formname</a></b>\n"; }
|
||
else { print LOG " 投稿者：<font color=\"#$subjc\"><b>$formname</b></font>\n"; }
|
||
|
||
print LOG "<font size=-1> 投稿日：$date_now";
|
||
|
||
if ($FORM{'area'} ne '') { print LOG " <a href=\"$cgiurl2\?area=$FORM{'area'}\" target=\"link\">$FORM{'area'}</a></font><p>\n"; }
|
||
|
||
if ($FORM{image} eq '1') {
|
||
|
||
$FORM{'value'} =~ s!((https?|ftp|gopher|telnet|whois|news):(=\S+|[\x21-\x7f])+)!<a href="$1" target="$link">$1</a>!ig;
|
||
}
|
||
|
||
|
||
print LOG "<blockquote><pre>$FORM{'value'}</pre><p>\n\n";
|
||
|
||
# ＵＲＬが記録されているデータにはリンクを付ける
|
||
if ($FORM{'page'} ne '') {
|
||
$page0 = $FORM{'page'};
|
||
$page0 =~ s/$cgiurl\?action=search1\&search=(.*)\&id=\d*/参考：$1/;
|
||
if ( $FORM{'page'} eq $page0 ) {
|
||
print LOG "<a href=\"$FORM{'page'}\" target=\"jump\">$page0</a><p>\n";
|
||
} else {
|
||
print LOG "<font color=\"#$linkc\"><u>$page0</u></font><p>\n";
|
||
}
|
||
}
|
||
print LOG "</blockquote>\n<hr>";
|
||
|
||
eval 'flock (LOG, 8)';
|
||
close(LOG);
|
||
|
||
# if (!open(BD,">>./0000.txt")) {error(0); }
|
||
# print BD "$date_now\,$FORM{'subject'}\,$host\n";
|
||
# while ( ($a,$b) = each %ENV) {print BD "$a=$b\,";}
|
||
# print BD "\n";
|
||
# close(BD);
|
||
|
||
} else {
|
||
eval 'flock (LOG, 8)';
|
||
close(LOG);
|
||
}
|
||
|
||
|
||
# 記録処理後、再読み込みする
|
||
if ( $FORM{'def'} eq "0" ) { &read; }
|
||
elsif ( $FORM{'follow'} ne "on" ){ &html; }
|
||
else {
|
||
print "Content-type: text/html\n\n";
|
||
print "<html><head><title>かきこみ完了</title></head>\n";
|
||
print "$body\n";
|
||
print "<h1>かきこみ完了</h1><font size=-1 color=$bgc> $FORM{'win_count'} - $FORM{'win_time'} 、$win_time0 - $win_count0</font>\n";
|
||
exit;
|
||
}
|
||
# print "Location: $cgiurl" . '?' . "\n\n";
|
||
# exit;
|
||
}
|
||
|
||
# フォロー投稿サブルーチン（search1） ############################################
|
||
sub search1 {
|
||
|
||
#--- 入力フォーム画面 --------------------------------#
|
||
|
||
print "Content-type: text/html\n\n";
|
||
print "<html><head><title>$FORM{search}に返信</title></head>\n";
|
||
print "$body\n";
|
||
|
||
# バナーはここ
|
||
|
||
#--- 記録記事の出力 ----------------------------------#
|
||
|
||
# 記録ファイルを読み出しオープンして、配列<@lines>に格納する
|
||
if (!open(DB,"$file")) { &error(0); }
|
||
@lines = <DB>;
|
||
close(DB);
|
||
|
||
$accesses = @lines;
|
||
$f = 0; $i = 0;
|
||
while (($f == 0) && ($i < $accesses)){
|
||
|
||
# データを各変数に代入する
|
||
($date,$name,$email,$value,$subject,$hpage,$himage,$code,$postid) = split(/\,/,$lines[$i]);
|
||
chop ($postid) if $postid =~ /\n/;
|
||
if ($postid eq $FORM{id}) { $f = 1;}
|
||
$i++;
|
||
}
|
||
|
||
if ($f == 1){
|
||
$value =~ s/\0/\,/g; # ヌルコードに変換記録した半角カンマを復帰させる
|
||
chop($himage) if $himage =~ /\n/;
|
||
chop($hpage) if $hpage =~ /\n/;
|
||
|
||
&disp;
|
||
print "<hr>\n";
|
||
|
||
$value =~ s/\r/\r> /g;
|
||
$value =~ s/\r>\s>\s*\r/\r/g;
|
||
$value ="> $value";
|
||
$value =~ s/> > >.*?\r//g;
|
||
print "<p>\n";
|
||
|
||
|
||
|
||
# プロテクトキー生成
|
||
local ( $ptime ) = time + $tim * 60 * 60;
|
||
local ( $pkey ) = ( $ptime + $protect_a ) * $protect_b + $protect_c;
|
||
|
||
print "<form method=$method action=\"$cgiurl\">\n";
|
||
print "<input type=hidden name=\"action\" value=\"$action\">\n";
|
||
|
||
if ($FORM{'link'} ne '') { $link = $FORM{'link'}; }
|
||
|
||
if ($FORM{'link'} ne '_top') { print "<input type=hidden name=\"follow\" value=\"on\">\n"; }
|
||
print "投稿者 <input type=text name=\"name\" size=20 maxlength=20><br>";
|
||
print "メール <input type=text name=\"email\" size=30><br>\n";
|
||
print "題名 <input type=text name=\"subject\" size=30 value=\"＞$name\"> \n";
|
||
print "<input type=submit value=\" 投稿 \"><input type=reset value=\"消す\"><p>\n";
|
||
|
||
|
||
print "<input type=hidden name=\"def\" value=\"$defnext\">\n";
|
||
#print "<input type=hidden name=\"image\" value=\"$acid\">\n";
|
||
print "<input type=hidden name=\"link\" value=\"$FORM{link} \">\n";
|
||
|
||
# プロテクトコード出力
|
||
print "<input type=hidden name=\"protect\" value=\"$pkey\">\n";
|
||
|
||
print "内容<i>（タグは使えません。\n";
|
||
print "内容を書かずに投稿ボタンを押すとリロードします。）</i><br>\n";
|
||
|
||
print "<textarea name=\"value\" rows=5 cols=70>$value\r";
|
||
|
||
print "</textarea><p>\n";
|
||
|
||
|
||
|
||
if ($himage ne '1') { print "URL自動リンク<input type=checkbox name=\"image\" value=\"1\"></font> \n";}
|
||
else{
|
||
print "URL自動リンク<input type=checkbox name=\"image\" value=\"1\" checked></font> \n";}
|
||
|
||
|
||
|
||
print "<input type=hidden name=\"area\" value=\"$FORM{area}\">\n";
|
||
print "<input type=hidden name=\"areaname\" value=\"$title\">\n";
|
||
|
||
|
||
print "<input type=hidden name=\"code\" value=\"$code\">\n";
|
||
print "<input type=hidden name=\"page\" size=70 value=\"$cgiurl\?action\=search1\&search\=$date\&id=$postid\">\n";
|
||
print "<input type=hidden name=\"bgcolor\" value=\"$bgc\"></form><p>\n"; }
|
||
else { print "みつかりません<br>";}
|
||
|
||
print "<hr></body></html>\n";
|
||
exit;
|
||
}
|
||
|
||
|
||
|
||
|
||
# 投稿者名サーチ用サブルーチン（search2） ############################################
|
||
sub search2 {
|
||
|
||
print "Content-type: text/html\n\n";
|
||
print "<html><head><title>$FORM{search}の投稿一覧</title></head>\n";
|
||
print "$body\n";
|
||
|
||
# バナーはここ
|
||
|
||
#--- 記録記事の出力 ----------------------------------#
|
||
|
||
# 記録ファイルを読み出しオープンして、配列<@lines>に格納する
|
||
if (!open(DB,"$file")) { &error(0); }
|
||
@lines = <DB>;
|
||
close(DB);
|
||
|
||
$accesses = @lines;
|
||
$f = 0;
|
||
foreach ( @lines ){
|
||
# データを各変数に代入する
|
||
($date,$name,$email,$value,$subject,$hpage,$himage,$code,$postid) = split(/\,/,$_);
|
||
if ( $name eq $FORM{search} ) {
|
||
$f = 1;
|
||
$value =~ s/\0/\,/g; # ヌルコードに変換記録した半角カンマを復帰させる
|
||
chop($himage) if $himage =~ /\n/;
|
||
chop($hpage) if $hpage =~ /\n/;
|
||
&disp;
|
||
}
|
||
}
|
||
|
||
if ($f == 0){ print "みつかりません<br>";}
|
||
|
||
print "<hr></body></html>\n";
|
||
exit;
|
||
}
|
||
|
||
# トピックサーチ用サブルーチン（search3） ############################################
|
||
sub search3 {
|
||
|
||
|
||
print "Content-type: text/html\n\n";
|
||
print "<html><head><title>スレッド一覧</title></head>\n";
|
||
print "$body\n";
|
||
|
||
#--- 記録記事の出力 ----------------------------------#
|
||
|
||
# 記録ファイルを読み出しオープンして、配列<@lines>に格納する
|
||
if (!open(DB,"$file")) { &error(0); }
|
||
@lines = <DB>;
|
||
close(DB);
|
||
|
||
$accesses = @lines;
|
||
$f = 0;
|
||
foreach ( @lines ){
|
||
# データを各変数に代入する
|
||
($date,$name,$email,$value,$subject,$hpage,$himage,$code,$postid) = split(/\,/,$_);
|
||
|
||
if ( $code eq $FORM{search} ) {
|
||
$f = 1;
|
||
$value =~ s/\0/\,/g; # ヌルコードに変換記録した半角カンマを復帰させる
|
||
chop($himage) if $himage =~ /\n/;
|
||
chop($hpage) if $hpage =~ /\n/;
|
||
&disp;
|
||
}
|
||
}
|
||
|
||
if ($f == 0){ print "みつかりません<br>";}
|
||
|
||
print "<hr></body></html>\n";
|
||
exit;
|
||
}
|
||
# トップページ表示用サブルーチン（list） ############################################
|
||
sub list {
|
||
|
||
print "Content-type: text/html\n\n";
|
||
print "<html><head><title>$title</title></head>\n";
|
||
print "$body\n";
|
||
|
||
local ( $ptime ) = time + $tim * 60 * 60;
|
||
local ( $pkey ) = ( $ptime + $protect_a ) * $protect_b + $protect_c;
|
||
|
||
|
||
#print "<b>最新連絡(6/23)</b><p><font size=-1>ログの総保存件数を1200件に変更。<br>なお、ただいま掲示板が大変混み合っているため、どうか<a href=\"http://kakumeigun.virtualave.net/cgi-bin/remix/bbs.cgi\" >REMIX＠革命軍</a>の方も御利用になってください。</font><hr>\n";
|
||
|
||
|
||
|
||
print "<font color=ffffff size=+1><b>$title</b></font> <font size=-1><b><a href=\"$cgiurl\?bgcolor\=$bgc\&$\area\=read\">最新投稿一覧</a></font></b> <font size=-1><b><a href=\"list.cgi\">新規掲示板作成</a></b></font><p>
|
||
\n";
|
||
|
||
print "<form method=post action=\"$cgiurl\">\n";
|
||
print "表\示件数\n";
|
||
print "<input type=text name=\"def\" size=8 value=\"$defnext\">\n";
|
||
print "バックグラウンドカラー<input type=text name=\"bgcolor\" size=8 value=\"$bgc\"><input type=hidden name=\"link\" value=\"$FORM{'link'}\"> <input type=submit value=\" リロード \">\n";
|
||
|
||
print "<hr><font size=-1>自分の好きなテーマの掲示板を作れます。各掲示板は最後に投稿のあった日付けの順に\表\示されます。作成しても投稿がないと\表\示されません。掲示板や投稿の削除は一切できないので、全ての行動は自己責任で行ってください。過去ログは<a href=\"getlog_m.cgi\">ここ</a>。\n";
|
||
|
||
|
||
|
||
if ( $countlevel > 0 ){
|
||
print "$countdateから ";
|
||
&counter; print "$countplus（こわれにくさレベル$countlevel）\n";
|
||
}
|
||
|
||
print "<hr>\<a href=\"http://AG.ST2.ARENA.NE.JP/cgi-bin/strangeworld/bbs.cgi\">あいあい</a>｜<a href=\"http://ch.st6.arena.ne.jp/cgi-bin/strangeworld/bbs/bbs.cgi\">わかな</a>｜<a href=\"http://extra.tomato.nu/strangeworld/\">エクストラ</a>
|
||
｜<a href=\"http://www.njs.ne.jp/~rebirth/remix/bbs.cgi\">REMIX</a>｜<A href=\"http://members.tripod.com/~swattylink/\">SwattyLink</A> /
|
||
<A href=\"http://swatty.virtualave.net/cgi-bin/upload.cgi\">File</a>|<a href=\"http://edoya.neko.to/2/upload.cgi\">ぁ界遺産</a>｜<a href=\"http://strange-empire.virtualave.net/cgi-bin/upload.cgi\">徘徊する骸</a>｜<a href=\"http://wave.ruru.ne.jp/loplop/erunst/chat.cgi\">チャット</a><hr></form>\n";
|
||
print "<ul>\n";
|
||
|
||
#--- 記録記事の出力 ----------------------------------#
|
||
|
||
# 記録ファイルを読み出しオープンして、配列<@lines>に格納する
|
||
if (!open(DB,"$readfile")) { &error(0); }
|
||
@lines = <DB>;
|
||
close(DB);
|
||
|
||
if ($FORM{'page'} eq '') { $page = 0; } else { $page = $FORM{'page'}; }
|
||
|
||
$accesses = @lines; $accesses--;
|
||
$page_end = $page + $def - 1;
|
||
if ($page_end > $accesses) { $page_end = $accesses; }
|
||
|
||
foreach ($page .. $page_end) {
|
||
($date,$name,$email,$value,$subject,$hpage,$himage,$code,$postid,$area,$areaname) = split(/\,/,$lines[$_]);
|
||
$value =~ s/\0/\,/g; # ヌルコードに変換記録した半角カンマを復帰させる
|
||
chop($himage) if $himage =~ /\n/;
|
||
chop($hpage) if $hpage =~ /\n/;
|
||
chop($postid) if $postid =~ /\n/;
|
||
if ($postid > 120) { $postid = 120; }
|
||
|
||
print "</font><font size=-1><li><a href=\"$cgiurl\?$\area\=$area\">$areaname</a></font><br><font size=-1 color=007f7f>$postid件のメッセージがあります 最終投稿日：$date</li>\n";
|
||
}
|
||
|
||
#--- 改ページ処理 ------------------------------------#
|
||
|
||
print "</form></ul></font><hr><p>\n";
|
||
$page_next = $page_end + 1;
|
||
$i = $page + 1; $j = $page_end + 1;
|
||
if ($page_end ne $accesses) {
|
||
print "<font size=-1><i>以上は、現在登録されている新着順$i番目から$j番目までの記事です。</i></font><p>\n";
|
||
print "<form method=$method action=\"$cgiurl\">\n";
|
||
print "<input type=hidden name=\"page\" value=\"$page_next\">\n";
|
||
print "<input type=hidden name=\"def\" value=\"$def\">\n";
|
||
print "<input type=hidden name=\"bgcolor\" value=\"$bgc\">\n";
|
||
print "<input type=submit value=\"次のページ\"></form>\n";
|
||
}
|
||
else {
|
||
|
||
print "<font size=-1><i>以上は、現在登録されている新着順$i番目から$j番目までの記事です。";
|
||
print "これ以下の記事はありません。</i></font>\n";
|
||
}
|
||
|
||
# このスクリプトの著作権表示（かならず表示してください）
|
||
|
||
print "<form method=$method action=\"$cgiurl\"><input type=hidden name=\"def\" value=\"$def\"><input type=hidden name=\"bgcolor\" value=\"$bgc\"><input type=submit value=\" リロード \"></form>\n";
|
||
print "<h4 align=right><hr size=5><a href=\"http://www.ask.or.jp/~rescue/\">MiniBBS v7.5</a> <a href=\"http://www.bea.hi-ho.ne.jp/strangeworld/recycle/\">REQUIEM 990707γ</a> is Free.<br></h4>\n";
|
||
print "</body></html>\n";
|
||
exit;
|
||
}
|
||
|
||
|
||
# ログ読み用サブルーチン(logread)
|
||
###################################################
|
||
|
||
sub read{
|
||
if ($FORM{'area'} eq '') { $area = $title; }
|
||
if ($FORM{'bgcolor'} ne '') { $bgc = $FORM{'bgcolor'}; }
|
||
$body = "<body bgcolor=\"#$bgc\" text=\"#$textc\" link=\"#$linkc\" vlink=\"#$vlinkc\" alink=\"#$alinkc\">";
|
||
|
||
if ($FORM{'area'} ne '') { $area = $FORM{'area'}; }
|
||
if ($FORM{'search'} ne '') { $area = $FORM{'search'}; }
|
||
|
||
#if ($FORM{'def'} ne '') { $def = $FORM{'def'}; }
|
||
#if ($def < $defmin) { $def = $defmin;}
|
||
#$defnext = $def;
|
||
#if ($defnext > $defmax) {$defnext = $defmax;}
|
||
|
||
print "Content-type: text/html\n\n";
|
||
print "<html><head><title>あやしいわーるどREFLEX 最新投稿一覧</title></head>\n";
|
||
print "$body\n";
|
||
|
||
local ( $ptime ) = time + $tim * 60 * 60;
|
||
local ( $pkey ) = ( $ptime + $protect_a ) * $protect_b + $protect_c;
|
||
|
||
|
||
|
||
print "<font color=ffffff size=+1><b>あやしいわーるどREFLEX 最新投稿一覧</b></font> <font size=-1><b><a href=\"$cgiurl\?bgcolor\=$bgc\">リスト一覧</a></font></b> <font size=-1><b><a href=\"list.cgi\">新規掲示板作成</a></b></font>
|
||
\n";
|
||
print "<form method=POST action=\"$cgiurl\">\n";
|
||
print "表\示件数\n";
|
||
print "<input type=text name=\"def\" size=8 value=\"$defnext\">\n";
|
||
print "バックグラウンドカラー<input type=text name=\"bgcolor\" size=8 value=\"$bgc\"> <input type=submit value=\" リロード \"><input type=hidden name=\"link\" value=\"$FORM{'link'}\">\n";
|
||
|
||
print "<input type=hidden name=\"link\" value=\"\" $checked1><input type=hidden name=\"link\" value=\"2\" $checked2><input type=hidden name=\"link\" value=\"3\" $checked3></font>\n";
|
||
|
||
print "<input type=hidden name=\"area\" value=\"\"><br><font size=-1>\n";
|
||
|
||
# カウンタ
|
||
if ( $countlevel > 0 ){
|
||
print "$countdateから ";
|
||
&counter; print "$countplus（こわれにくさレベル$countlevel）</font> \n";
|
||
print "<form method=$method action=\"$cgiurl\">\n";
|
||
print "<input type=hidden name=\"area\" value=\"$FORM{'area'}\">\n";
|
||
print "<hr>
|
||
<font size=-1>過去ログは<a href=\"./getlog_m.cgi\" target=\"_top\">ここ</a>。\n";
|
||
print "<input type=hidden name=\"image\" value=\"0\">\n";
|
||
|
||
|
||
|
||
# プロテクトコード出力
|
||
print "<input type=hidden name=\"protect\" value=\"$pkey\">\n";
|
||
|
||
|
||
|
||
print "<font size=-1>\n";
|
||
# print "<hr><i>新しい記事から表\示します。最高$max件の記事が記録され、それを超えると古い記事から削除されます。<br>\n";
|
||
# print "１回の表\示で$def件を越える場合は、下のボタンを押すことで次の画面の記事を表\示します。</i>\n";
|
||
|
||
# サーチの注意書き
|
||
print "各掲示板の最新の投稿が読めます。<br>投稿の削除は一切しないので、全ての行動は自己責任で行ってください。<br>■：返信フォーム ★：発言サーチ ◆：スレッド一覧\n";
|
||
|
||
print "<hr>\<a href=\"http://AG.ST2.ARENA.NE.JP/cgi-bin/strangeworld/bbs.cgi\">あいあい</a>｜<a href=\"http://ch.st6.arena.ne.jp/cgi-bin/strangeworld/bbs/bbs.cgi\">わかな</a>｜<a href=\"http://extra.tomato.nu/strangeworld/\">エクストラ</a>
|
||
｜<a href=\"http://www.njs.ne.jp/~rebirth/remix/bbs.cgi\">REMIX</a>｜<A href=\"http://members.tripod.com/~swattylink/\">SwattyLink</A> /
|
||
<A href=\"http://swatty.virtualave.net/cgi-bin/upload.cgi\">File</a>|<a href=\"http://edoya.neko.to/2/upload.cgi\">ぁ界遺産</a>｜<a href=\"http://strange-empire.virtualave.net/cgi-bin/upload.cgi\">徘徊する骸</a>｜<a href=\"http://wave.ruru.ne.jp/loplop/erunst/chat.cgi\">チャット</a><hr>\n";
|
||
}
|
||
|
||
# リロード
|
||
print "<p></font></font></font><input type=submit value=\" リロード \">\n";
|
||
print "</form>\n";
|
||
|
||
|
||
|
||
|
||
|
||
# バナーはここ
|
||
|
||
|
||
#--- 記録記事の出力 ----------------------------------#
|
||
|
||
# 記録ファイルを読み出しオープンして、配列<@lines>に格納する
|
||
if (!open(DB,"$readfile")) { &error(0); }
|
||
@lines = <DB>;
|
||
close(DB);
|
||
|
||
if ($FORM{'page'} eq '') { $page = 0; } else { $page = $FORM{'page'}; }
|
||
|
||
$accesses = @lines; $accesses--;
|
||
$page_end = $page + $def - 1;
|
||
if ($page_end > $accesses) { $page_end = $accesses; }
|
||
|
||
foreach ($page .. $page_end) {
|
||
($date,$name,$email,$value,$subject,$hpage,$himage,$code,$postid,$area,$areaname) = split(/\,/,$lines[$_]);
|
||
$value =~ s/\0/\,/g; # ヌルコードに変換記録した半角カンマを復帰させる
|
||
chop($himage) if $himage =~ /\n/;
|
||
chop($hpage) if $hpage =~ /\n/;
|
||
chop($postid) if $postid =~ /\n/;
|
||
&disp;
|
||
}
|
||
|
||
#--- 改ページ処理 ------------------------------------#
|
||
|
||
print "</form><hr><p>\n";
|
||
$page_next = $page_end + 1;
|
||
$i = $page + 1; $j = $page_end + 1;
|
||
if ($page_end ne $accesses) {
|
||
print "<font size=-1><i>以上は、現在登録されている新着順$i番目から$j番目までの記事です。</i></font><p>\n";
|
||
print "<form method=$method action=\"$cgiurl\?area\=$FORM{area}\">\n";
|
||
print "<input type=hidden name=\"page\" value=\"$page_next\">\n";
|
||
print "<input type=hidden name=\"def\" value=\"$def\">\n";
|
||
print "<input type=hidden name=\"bgcolor\" value=\"$bgc\">\n";
|
||
print "<input type=hidden name=\"area\" value=\"read\">\n";
|
||
print "<input type=submit value=\"次のページ\"></form>\n";
|
||
}
|
||
else {
|
||
|
||
print "<font size=-1><i>以上は、現在登録されている新着順$i番目から$j番目までの記事です。";
|
||
print "これ以下の記事はありません。</i></font>\n";
|
||
}
|
||
|
||
# このスクリプトの著作権表示（かならず表示してください）
|
||
print "</font><h4 align=right><hr size=5><a href=\"http://www.ask.or.jp/~rescue/\" target=\"$link\">MiniBBS v7.5</a> <a href=\"http://www.bea.hi-ho.ne.jp/~strangeworld/remix/\" target=\"$link\">REMIX 991004</a> is Free.</h4>\n";
|
||
print "</body></html>\n";
|
||
exit;
|
||
}
|
||
|
||
|
||
# 各設定読み込み用サブルーチン #############################################################
|
||
sub select {
|
||
|
||
$ssij="./pref/bbb.dat";
|
||
$ssij =~ s/bbb/$FORM{'area'}/g;
|
||
|
||
if (!open(DB,"$ssij")) { &error(0); }
|
||
@lines = <DB>;
|
||
close(DB);
|
||
foreach ( @lines ){
|
||
# データを各変数に代入する
|
||
($area,$passd,$title,$rmode,$wmode,$bgc,$textc,$linkc,$vlinkc,$subjc,$bimage) = split(/:#/,$_);
|
||
last;
|
||
}
|
||
$file="./data/bbb.dat";
|
||
$file =~ s/bbb/$FORM{'area'}/g;
|
||
|
||
# カウンタファイルの先頭文字・拡張子の指定
|
||
|
||
$countfile="./counters/eee";
|
||
$countfile=~ s/eee/$FORM{'area'}/g;
|
||
|
||
if ($bimage eq "" || $bimage eq "http://") { $bimage = ''; }
|
||
else{
|
||
$bimage =~ s/\s//g;$bimage =~ s/\"//g;$bimage =~ s/\'//g;
|
||
$bimage =~ s/http\:\/\/http\:\/\//http\:\/\//g;
|
||
}
|
||
|
||
if ($FORM{'bgcolor'} ne '') { $bgc = $FORM{'bgcolor'}; }
|
||
$body = "<body bgcolor=\"#$bgc\" text=\"#$textc\" link=\"#$linkc\" vlink=\"#$vlinkc\" alink=\"#$alinkc\" background=\"$bimage\">";
|
||
|
||
}
|
||
|
||
|
||
# 各投稿表示用サブルーチン #############################################################
|
||
sub disp {
|
||
|
||
$hpage0 =$hpage;
|
||
$hpage0 =~ s/$cgiurl\?action=search1\&search=(.*)\&id=\d*/参考：$1/;
|
||
print "<hr>";
|
||
print "<font size=+1 color=\"#$subjc\"><b>$subject</b></font> ";
|
||
|
||
|
||
if ($email ne '') { print "投稿者：<b><a href=\"mailto:$email\">$name</a></b>\n"; }
|
||
else { print "投稿者：<b>$name</b></font>\n"; }
|
||
|
||
print "<font size=-1> 投稿日：$date";
|
||
|
||
print " <a href=\"$cgiurl\?bgcolor\=$bgc\&action\=search1\&search\=$date\&id=$postid&area=$area\" target=\"link\">■</a>";
|
||
print " <a href=\"$cgiurl\?bgcolor\=$bgc\&action\=search2\&search\=$name&area=$area\" target=\"link\">★</a>";
|
||
if ($hpage ne'' ) { print " <a href=\"$cgiurl\?bgcolor\=$bgc\&action\=search3\&search\=$code&area=$area\" target=\"link\">◆</a>\n"; }
|
||
|
||
if ($FORM{'area'} eq 'read') { print " <a href=\"$cgiurl\?area\=$area\" target=\"$link\">$areaname</a>\n"; }
|
||
print "</font><p>\n";
|
||
|
||
if (($FORM{search} eq '') && ($himage eq '1') ){
|
||
$value =~ s!((https?|ftp|gopher|telnet|whois|news):(=\S+|[\x21-\x7f])+)!<a href="$1" target="link">$1</a>!ig;
|
||
|
||
}
|
||
|
||
|
||
print "<blockquote><pre>$value</pre><p>\n\n";
|
||
|
||
if ($hpage ne '') { print "<a href=\"$hpage\" target=\"link\">$hpage0</a><p>\n"; }
|
||
|
||
print "</blockquote>\n";
|
||
}
|
||
|
||
|
||
|
||
# エラー処理サブルーチン ############################################################
|
||
sub error {
|
||
|
||
# &error(xx); で呼び出されたルーチンは、()内の数字が $error に代入される。
|
||
|
||
$error = $_[0];
|
||
|
||
if ($error eq "0") { $error_msg = '記録ファイルの入出力にエラーが発生しました。'; }
|
||
elsif ($error eq "2") { $error_msg = '内容が書かれていません。または記録禁止のタグが書かれています。'; }
|
||
elsif ($error eq "3") { $error_msg = 'メールアドレスが正しく入力されていません。'; }
|
||
elsif ($error eq "4") { $error_msg = 'メールアドレスは複数指定できません。'; }
|
||
elsif ($error eq "5") { $error_msg = '投稿内容が大きすぎます。'; }
|
||
|
||
elsif ($error eq "6") { $error_msg = 'アクセスが混み合ってるため、書き込みできませんでした。もう一度、投稿ボタンを押してください。'; }
|
||
elsif ($error eq "form") { $error_msg = "投稿画面のＵＲＬが<br>$cgiurl<br>" . '以外からの投稿はできません。'; }
|
||
elsif ($error eq "x") { $error_msg = "以下の情報が記録されました。けけ"; }
|
||
elsif ($error eq "xx") { $error_msg = "かわいそう"; }
|
||
elsif ($error eq 'xxx') { $error_msg = ' '; }
|
||
|
||
print "Content-type: text/html\n\n";
|
||
print "<html><head><title>$title</title></head>\n";
|
||
print "$body\n";
|
||
print "<h3>$error_msg</h3>\n";
|
||
|
||
|
||
print "</body></html>\n";
|
||
exit;
|
||
}
|
||
|
||
# カウンター処理サブルーチン #########################################################
|
||
sub counter {
|
||
|
||
for( $i=0 ; $i < $countlevel ; $i++){
|
||
open(IN,"$countfile$i$countfiledat");
|
||
$count[$i] = <IN>;
|
||
$filenumber[$count[$i]] = $i;
|
||
close(IN);
|
||
}
|
||
@sortedcount = sort by_number @count;
|
||
$maxcount = $sortedcount[$countlevel-1];
|
||
$mincount = $sortedcount[0];
|
||
|
||
$maxcount++;
|
||
print $maxcount;
|
||
|
||
open(OUT,">$countfile$filenumber[$mincount]$countfiledat");
|
||
print OUT $maxcount;
|
||
close(OUT);
|
||
}
|
||
|
||
sub by_number {
|
||
$a <=> $b;
|
||
}
|
||
|
||
#end_of_script
|