mitsudori/strangeworld-mirror
1
0
Fork 0
Code Issues Pull requests Actions Projects Releases Wiki Activity
strangeworld-mirror/[1999-05-04 - present] REMIX/bbs.txt

1105 lines
36 KiB
Plaintext
Raw Permalink Normal View History

new file: @hi-ho/bbs.cgi 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
2024-12-02 19:52:30 +00:00
#! /usr/local/bin/perl
# -------------------------------------------- <20>‹<EFBFBD><C28B>ݒ<EFBFBD> --------------------------------------------
#
# ---------------------------------------------- <20>\<5C><> ----------------------------------------------
# <20>f<EFBFBD><66><EFBFBD>‚̖<C282><CC96>O --------------------------
$title = '<27><><EFBFBD>₵<EFBFBD><E282B5><EFBFBD><EFBFBD><EFBFBD>[<5B><><EFBFBD><EFBFBD>REMIX';
# <20><><EFBFBD><EFBFBD><EFBFBD>F<EFBFBD><46><EFBFBD>w<EFBFBD>i<EFBFBD>Ȃǂ̐ݒ<CC90>
# body<64><79>
$bgc = '004040';
$textc = 'ffffff';
$linkc = 'eeffee';
$vlinkc = 'dddddd';
$alinkc = 'ff0000';
# <20>薼<EFBFBD>̐F
$subjc = 'ffffee';
$link = 'link';
# --- <20>\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> --------------------------------------------
# <20>P<EFBFBD>y<EFBFBD>[<5B>W<EFBFBD>ɕ\<5C><><EFBFBD><EFBFBD><EFBFBD>錏<EFBFBD><E98C8F><EFBFBD>̃f<CC83>t<EFBFBD>H<EFBFBD><48><EFBFBD>g<EFBFBD>l
$def = 30;
# <20>P<EFBFBD>y<EFBFBD>[<5B>W<EFBFBD>ɕ\<5C><><EFBFBD><EFBFBD><EFBFBD>錏<EFBFBD><E98C8F><EFBFBD>̍ŏ<CC8D><C58F>l
$defmin = 1;
# <20><><EFBFBD>̌<EFBFBD><CC8C><EFBFBD><EFBFBD>ȏ<EFBFBD><C88F>Ń<EFBFBD><C583><EFBFBD><EFBFBD>[<5B>h<EFBFBD>^<5E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>݂<EFBFBD><DD82><EFBFBD><EFBFBD>Ƃ<EFBFBD><C682>ɂ͎<C982><CD8E>͂<EFBFBD><CD82>̌<EFBFBD><CC8C><EFBFBD><EFBFBD>ɂ<EFBFBD><C982><EFBFBD><EFBFBD>B
$defmax =800;
# --- <20>t<EFBFBD>q<EFBFBD>k ----------------------------------------------
# <20><><EFBFBD>̃X<CC83>N<EFBFBD><4E><EFBFBD>v<EFBFBD>g
$cgiurl = 'http://www4.famille.ne.jp/~haruna/remix/bbs.cgi';
$cgiurf = 'bbs3.cgi';
# <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>‚̃X<CC83>N<EFBFBD><4E><EFBFBD>v<EFBFBD>g
# <20>A<EFBFBD><41><EFBFBD><EFBFBD>
$mailadd = 'magmania@shiba.com';
# <20><><EFBFBD>O<EFBFBD>̂t<CC82>q<EFBFBD>k
$loglog0 = 'log';
$loglog1 = 'http://';
# ---------------------------------------- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>݃`<60>F<EFBFBD>b<EFBFBD>N ----------------------------------------
# <20>Ǘ<EFBFBD><C797>l<EFBFBD><6C><EFBFBD>O<EFBFBD>`<60>F<EFBFBD>b<EFBFBD>N<EFBFBD>E<EFBFBD><45><EFBFBD>[<5B><><EFBFBD>A<EFBFBD>h<EFBFBD><68><EFBFBD>X<EFBFBD>E<EFBFBD>p<EFBFBD>X<EFBFBD><58><EFBFBD>[<5B>h
$namez = '<27><><EFBFBD><EFBFBD>';
$pass = 'chiba';
# <20>m<EFBFBD>f<EFBFBD><66><EFBFBD>O<EFBFBD>i<EFBFBD><69><EFBFBD>̖<EFBFBD><CC96>O<EFBFBD>œ<EFBFBD><C593>e<EFBFBD><65><EFBFBD><EFBFBD><EFBFBD>ƃu<C683><75><EFBFBD>E<EFBFBD>U<EFBFBD><55><EFBFBD>N<EFBFBD><4E><EFBFBD>b<EFBFBD>V<EFBFBD><56><EFBFBD>A<EFBFBD>A<EFBFBD>A<EFBFBD>̂͂<CC82><CD82>Ȃ񂾂<C882><F182BE82>ǁA<C781>Ȃ<EFBFBD><C882><EFBFBD><EFBFBD>G<EFBFBD><47><EFBFBD>[<5B><><EFBFBD>o<EFBFBD><6F><EFBFBD>̂<EFBFBD>#<23><><EFBFBD>O<EFBFBD><4F><EFBFBD>Ȃ<EFBFBD><C882>łˁi<CB81>͂<EFBFBD><CD82>Ɓj
#$nameng = "<22>‚΂<C282>";
# <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݍő<DD8D><C591><EFBFBD>
$maxlength = 1024*16;
# <20><><EFBFBD>d<EFBFBD><64><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>݃`<60>F<EFBFBD>b<EFBFBD>N<EFBFBD><4E><EFBFBD><EFBFBD>
$check = 10;
# <20><><EFBFBD>d<EFBFBD><64><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>݃`<60>F<EFBFBD>b<EFBFBD>N<EFBFBD>o<EFBFBD>C<EFBFBD>g<EFBFBD><67>
$checklength = 10;
# <20>S<EFBFBD>̂̏<CC82><CC8F><EFBFBD><EFBFBD><EFBFBD><EFBFBD>݌<EFBFBD><DD8C><EFBFBD><EFBFBD>̍ő<CC8D><C591>o<EFBFBD>^<5E><><EFBFBD>̐ݒ<CC90>
$max = 800;
# <20>X<C281>̌f<CC8C><66><EFBFBD>‚̏<C282><CC8F><EFBFBD><EFBFBD><EFBFBD><EFBFBD>݌<EFBFBD><DD8C><EFBFBD><EFBFBD>̍ő<CC8D><C591>o<EFBFBD>^<5E><><EFBFBD>̐ݒ<CC90>
$topicmax=75;
# ------------------------------------ <20>f<EFBFBD>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67><EFBFBD>E<EFBFBD>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD> ------------------------------------
# <20><><EFBFBD>{<7B><><EFBFBD>R<EFBFBD>[<5B>h<EFBFBD>ϊ<EFBFBD><CF8A><EFBFBD><EFBFBD>C<EFBFBD>u<EFBFBD><75><EFBFBD><EFBFBD>jocde.pl<70>̃p<CC83>X
require './jcode.pl';
# <20><><EFBFBD>e<EFBFBD><65><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD><EFBFBD>L<EFBFBD>^<5E>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD>̃p<CC83>X<EFBFBD><58><EFBFBD>ݒ<EFBFBD>
$file = './loveyou.dat';
# <20>ʓr<CA93>Ƃ郍<C682>O<EFBFBD>̃t<CC83>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD>擪<EFBFBD><E693AA><EFBFBD><EFBFBD><EFBFBD>E<EFBFBD>g<EFBFBD><67><EFBFBD>q<EFBFBD>̎w<CC8E><77>
$logfile = "./log/";
$logfiledat = ".html";
# -------------------------------------------- <20>J<EFBFBD>E<EFBFBD><45><EFBFBD>^ --------------------------------------------
# <20>J<EFBFBD>E<EFBFBD><45><EFBFBD>^<5E>v<EFBFBD><76><EFBFBD>X<EFBFBD>l
$countplus = "";
# <20>J<EFBFBD>E<EFBFBD><45><EFBFBD>^<5E>J<EFBFBD>n<EFBFBD><6E>
$countdate = '99/5/4';
# <20>J<EFBFBD>E<EFBFBD><45><EFBFBD>^<5E>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD>̐擪<CC90><E693AA><EFBFBD><EFBFBD><EFBFBD>E<EFBFBD>g<EFBFBD><67><EFBFBD>q<EFBFBD>̎w<CC8E><77>
$countfile = './count/count';
$countfiledat = '.txt';
# <20>J<EFBFBD>E<EFBFBD><45><EFBFBD>^<5E><><EFBFBD>x<EFBFBD>i<EFBFBD>O<EFBFBD>̂Ƃ<CC82><C682>͎g<CD8E>p<EFBFBD><70><EFBFBD>Ȃ<EFBFBD><C882>j
$countlevel = 3;
# --------------------------------------------- <20><><EFBFBD>̑<EFBFBD> ---------------------------------------------
# <20><><EFBFBD><EFBFBD>
$tim =0*3600;
# <20><><EFBFBD>͌`<60><><EFBFBD>̐ݒ<CC90>
$method = 'post';
# <20>lj<EFBFBD><C789>΍<EFBFBD> -------------------------------
# <20>O<EFBFBD><4F><EFBFBD><EFBFBD><EFBFBD>e<EFBFBD>h<EFBFBD>~<7E>R<EFBFBD>[<5B>h
$protect_a = 1312; # 4<><34>
$protect_b = 25; # 2<><32>
$protect_c = 418; # 3<><33>
# <20>ߋ<EFBFBD><DF8B><EFBFBD><EFBFBD>O<EFBFBD>̍ő<CC8D><C591>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD>T<EFBFBD>C<EFBFBD>Y
$maxoldlogsize = 3 * 1024 * 1024; # 3MB
###########################################################################################
# <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time + $tim );
$month = ($mon + 1);
# <20><><EFBFBD><EFBFBD><EFBFBD>̃[<5B><><EFBFBD>T<EFBFBD>v<EFBFBD><76><EFBFBD>X
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"; }
# <20>j<EFBFBD><6A><EFBFBD>ϊ<EFBFBD><CF8A><EFBFBD><EFBFBD><EFBFBD>
$y0="<22><>"; $y1="<22><>"; $y2="<22><>"; $y3="<22><>"; $y4="<22><>"; $y5="<22><>"; $y6="<22>y";
$youbi = ($y0,$y1,$y2,$y3,$y4,$y5,$y6) [$wday];
# <20><><EFBFBD><EFBFBD><EFBFBD>t<EFBFBD>H<EFBFBD>[<5B>}<7D>b<EFBFBD>g
$date_now = "$month<74><68>$mday<61><79>($youbi)$hour<75><72>$min<69><6E>$sec<65>b";
# <20><><EFBFBD>O<EFBFBD>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD>擾
$filedate = "$logfile$year$month$logfiledat";
$gesu = $ENV{'REMOTE_PORT'};
# <20><><EFBFBD>e<EFBFBD><65><EFBFBD><EFBFBD>action<6F><6E>
$action = "regist";
# <20>t<EFBFBD>H<EFBFBD>[<5B><><EFBFBD><EFBFBD><EFBFBD>͂<EFBFBD><CD82>ꂽ<EFBFBD>f<EFBFBD>[<5B>^<5E><>$buffer<65>Ɋi<C98A>[<5B><><EFBFBD><EFBFBD><EFBFBD>iget<65><74>post<73><74><EFBFBD>ɂ<EFBFBD><C982><EFBFBD><EFBFBD>Ď擾<C48E><E693BE><EFBFBD>@<40><><EFBFBD>قȂ<D982><C882>j
#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<65>Ɋi<C98A>[<5B><><EFBFBD>ꂽFORM<52>`<60><><EFBFBD>̃f<CC83>[<5B>^<5E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>o<EFBFBD><6F>
@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;
# <20>L<EFBFBD>^<5E><><EFBFBD><EFBFBD><EFBFBD>f<EFBFBD>[<5B>^<5E><>sjis
&jcode'convert(*value,'sjis');
# <20><><EFBFBD><EFBFBD><EFBFBD>̓s<CC93><73><EFBFBD><EFBFBD><EFBFBD>̏<EFBFBD><CC8F><EFBFBD>
$value =~ s/\n//g; # <20><><EFBFBD>s<EFBFBD><73><EFBFBD><EFBFBD><EFBFBD>͏<EFBFBD><CD8F><EFBFBD>
if ($name eq 'value') { $value =~ s/&/&amp\;/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/</&lt\;/g; $value =~ s/>/&gt\;/g;
$FORM{$name} = $value;
}
$p =0;
$pastmonth =$month -1;
$pastyear =$year;
if ( $pastmonth <= 0 ){
$pastmonth = $pastmonth + 12;
$pastyear=$year -1;
}
# <20>\<5C><><EFBFBD>y<EFBFBD>[<5B>W<EFBFBD><57><EFBFBD>̌<EFBFBD><CC8C><EFBFBD> ##################################################
if ($FORM{'def'} ne '') { $def = $FORM{'def'}; }
if ($def < $defmin) { $def = $defmin;}
$defnext = $def;
if ($defnext > $defmax) {$defnext = $defmax;}
# <20>\<5C><><EFBFBD>F<EFBFBD>̌<EFBFBD><CC8C><EFBFBD> ########################################################
if ($FORM{'bgcolor'} ne '') { $bgc = $FORM{'bgcolor'}; }
$body = "<body bgcolor=\"#$bgc\" text=\"#$textc\" link=\"#$linkc\" vlink=\"#$vlinkc\" alink=\"#$alinkc\">";
# <20>S<EFBFBD>̗̂<CC82><CC97><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>肷<EFBFBD><E882B7><EFBFBD>iaction<6F><6E>pwd<77>̓t<CD83>H<EFBFBD>[<5B><><EFBFBD><EFBFBD><EFBFBD>͂<EFBFBD><CD82>ꂽ<EFBFBD>f<EFBFBD>[<5B>^<5E><><EFBFBD>i<EFBFBD>[<5B><><EFBFBD>閼<EFBFBD>O<EFBFBD>j
########################################################
# action=regist --> <20>L<EFBFBD><4C><EFBFBD>L<EFBFBD>^<5E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ēʏ<C492><CA8F><EFBFBD><EFBFBD>ʂ<EFBFBD>
# <20><><EFBFBD>̑<EFBFBD> --> <20>ʏ<EFBFBD><CA8F><EFBFBD><EFBFBD>ʂ<EFBFBD>
if ($FORM{'action'} eq "$action") { &regist; }
if ($FORM{'action'} eq 'search1') { &search1; }
if ($FORM{'action'} eq 'search2') { &search2; }
if ($FORM{'action'} eq 'search3') { &search3; }
if ($FORM{'code'} eq 'read') { &read; }
if ($FORM{'code'} eq '') { &top }
&html;
# <20><><EFBFBD>C<EFBFBD><43><EFBFBD>\<5C><><EFBFBD>T<EFBFBD>u<EFBFBD><75><EFBFBD>[<5B>`<60><> #######################################################
sub html {
if ($FORM{'code'} eq '') { $code = $title; }
if ($FORM{'bgcolor'} ne '') { $bgc = $FORM{'bgcolor'}; }
$body = "<body bgcolor=\"#$bgc\" text=\"#$textc\" link=\"#$linkc\" vlink=\"#$vlinkc\" alink=\"#$alinkc\">";
if ($FORM{'code'} ne '') { $code = $FORM{'code'}; }
if ($FORM{'search'} ne '') { $code = $FORM{'search'}; }
print "Content-type: text/html\n\n";
print "<html><head><title>$code</title></head>\n";
print "$body\n";
local ( $ptime ) = time + $tim * 60 * 60;
local ( $pkey ) = ( $ptime + $protect_a ) * $protect_b + $protect_c;
print "<form method=$method action=\"$cgiurl\?code\=$code\">\n";
print "<font color=ffffff size=+1>
<b>$code</b></font><3E>@<font size=-1><b><a href=\"$cgiurl\"><3E>g<EFBFBD>b<EFBFBD>v<EFBFBD>y<EFBFBD>[<5B>W</a></b></font><3E>@<font size=-1><b><a href=\"http://www.geocities.com/Tokyo/Subway/1282/front.html\"><3E><><EFBFBD><EFBFBD><EFBFBD>点<EFBFBD>y<EFBFBD>[<5B>W</a></b></font><p>
\n";
print "<input type=hidden name=\"action\" value=\"$action\">\n";
print "<22><><EFBFBD>e<EFBFBD><65> <input type=text name=\"name\" size=20 maxlength=20 value=\"$FORM{'name'}\"><br>";
print "<22><><EFBFBD>[<5B><> <input type=text name=\"email\" size=30><br>\n";
print "<22>薼<EFBFBD>@ <input type=text name=\"subject\" size=30> \n";
print "<input type=submit value=\"<22><><EFBFBD>e<EFBFBD>^<5E><><EFBFBD><EFBFBD><EFBFBD>[<5B>h\"><input type=reset value=\"<22><><EFBFBD><EFBFBD>\"><p><3E><><EFBFBD>e<i><3E>i<EFBFBD>^<5E>O<EFBFBD>͎g<CD8E><67><EFBFBD>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B<EFBFBD><42><EFBFBD>e<EFBFBD><65><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɓ<EFBFBD><C993>e<EFBFBD>{<7B>^<5E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƃ<EFBFBD><C683><EFBFBD><EFBFBD>[<5B>h<EFBFBD>ɂȂ<C982><C882>܂<EFBFBD><DC82>B<EFBFBD>j</i><br><textarea name=\"value\" rows=5 cols=70></textarea><input type=hidden name=\"page\" size=70 value=\"http://\"><p>\n";
print "<22>\\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\n";
print "<input type=text name=\"def\" size=8 value=\"$defnext\">\n";
print "<22>o<EFBFBD>b<EFBFBD>N<EFBFBD>O<EFBFBD><4F><EFBFBD>E<EFBFBD><45><EFBFBD>h<EFBFBD>J<EFBFBD><4A><EFBFBD>[\n";
print "<input type=text name=\"bgcolor\" size=6 value=\"$bgc\">\n";
print "<p>\n";
print "<font size=-1>\n";
print "<22>ŋ߂̉ߋ<CC89><DF8B><EFBFBD><EFBFBD>O<EFBFBD><4F><a href=\"getlog_m.cgi\?action\=\getlog\&logfile\=$year$month.html\&day1\=01\&hour1\=00&day2\=31\&hour2=24\&searchmode=bbs\&keyword\=$code\"><3E><><EFBFBD><EFBFBD></a><3E><><a href=\"getlog_m.cgi\?action\=\getlog\&logfile\=$pastyear$p$pastmonth.html\&day1\=01\&hour1\=00&day2\=31\&hour2=24\&searchmode=bbs\&keyword\=$code\"><3E><><EFBFBD><EFBFBD></a><3E>B<br><3E><><EFBFBD>e<EFBFBD><65><EFBFBD>f<EFBFBD><66><EFBFBD>‚̍폜<CC8D>͈<EFBFBD><CD88>؂ł<D882><C582>Ȃ<EFBFBD><C882>̂ŁA<C581>S<EFBFBD>Ă̍s<CC8D><73><EFBFBD>͎<EFBFBD><CD8E>ȐӔC<D394>ōs<C58D><73><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>B<br><3E>ő<EFBFBD>\<5C>\\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>F$topicmax<61><78><EFBFBD>@<40>@<40><><EFBFBD>F<EFBFBD>ԐM<D490>t<EFBFBD>H<EFBFBD>[<5B><><EFBFBD>@<40><><EFBFBD>F<EFBFBD><46><EFBFBD><EFBFBD><EFBFBD>T<EFBFBD>[<5B>`<60>@<40><><EFBFBD>F<EFBFBD>X<EFBFBD><58><EFBFBD>b<EFBFBD>h<EFBFBD>ꗗ\n";
print "<input type=hidden name=\"code\" value=\"$code\"><input type=hidden name=\"image\" value=\"http://$sec$hour$min\@$gesu.off\"><input type=hidden name=\"link\" value=\" $FORM{'link'}\">\n";
# <20>v<EFBFBD><76><EFBFBD>e<EFBFBD>N<EFBFBD>g<EFBFBD>R<EFBFBD>[<5B>h<EFBFBD>o<EFBFBD><6F>
print "<input type=hidden name=\"protect\" value=\"$pkey\">\n";
# <09><><EFBFBD><EFBFBD><EFBFBD>[<5B>h
print "</font></font>
<p><input type=submit value=\"<22><><EFBFBD>e<EFBFBD>^<5E><><EFBFBD><EFBFBD><EFBFBD>[<5B>h\">\n";
print "</form>\n";
# <20>o<EFBFBD>i<EFBFBD>[<5B>͂<EFBFBD><CD82><EFBFBD>
#--- <20>L<EFBFBD>^<5E>L<EFBFBD><4C><EFBFBD>̏o<CC8F><6F> ----------------------------------#
# <20>L<EFBFBD>^<5E>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD>ǂݏo<DD8F><6F><EFBFBD>I<EFBFBD>[<5B>v<EFBFBD><76><EFBFBD><EFBFBD><EFBFBD>āA<C481>z<EFBFBD><7A><@lines><3E>Ɋi<C98A>[<5B><><EFBFBD><EFBFBD>
if (!open(DB,"$file")) { &error(0); }
@lines = <DB>;
close(DB);
if ($FORM{'page'} eq '') { $page = 0; } else { $page = $FORM{'page'}; }
if ($FORM{'page'} eq 'http://') { $page = 0; }
if ($f eq '') { $f = -1; }
if ($FORM{'g'} eq '') { $g = 1; } else { $g = $FORM{'g'}; }
########
###
foreach ( @lines ){
# <20>f<EFBFBD>[<5B>^<5E><><EFBFBD>e<EFBFBD>ϐ<EFBFBD><CF90>ɑ<EFBFBD><C991><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
($date,$name,$email,$value,$subject,$hpage,$himage,$kode,$postid) = split(/\,/,$_);
if ( $kode eq $FORM{'code'} ) {
$f = $f+1;
}
}
###
#$accesses = @lines; $accesses--;
$page_end = $page + $def -1;
$page_final = $page_end +1;
if ($page_end > $f) { $page_end = $f; }
foreach ( @lines ){
# <20>f<EFBFBD>[<5B>^<5E><><EFBFBD>e<EFBFBD>ϐ<EFBFBD><CF90>ɑ<EFBFBD><C991><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
($date,$name,$email,$value,$subject,$hpage,$himage,$kode,$postid) = split(/\,/,$_);
if (( $g < $page ) || ($g > $page_final )){ $parano = 1; }
if (( $kode eq $FORM{'code'} ) && ($parano ne 1))
{
$value =~ s/\0/\,/g; # <20>k<EFBFBD><6B><EFBFBD>R<EFBFBD>[<5B>h<EFBFBD>ɕϊ<C995><CF8A>L<EFBFBD>^<5E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>p<EFBFBD>J<EFBFBD><4A><EFBFBD>}<7D>𕜋A<F0959C8B><41><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
chop($himage) if $himage =~ /\n/;
chop($hpage) if $hpage =~ /\n/;
chop($postid) if $postid =~ /\n/;
&disp;
}
if ( $kode eq $FORM{'code'} ){
$g = $g+1;
$parano=0;
}
}
#########
#$accesses = @lines; $accesses--;
$page_end = $page + $def - 1;
if ($page_end > $f) { $page_end = $f; }
#--- <20><><EFBFBD>y<EFBFBD>[<5B>W<EFBFBD><57><EFBFBD><EFBFBD> ------------------------------------#
print "</form><hr><p>\n";
$page_next = $page_end + 1;
$i = $page + 1; $j = $page_end + 1;
if ($page_end ne $f) {
print "<font size=-1><i><3E>ȏ<EFBFBD><C88F>́A<CD81><41><EFBFBD>ݓo<DD93>^<5E><><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD>V<EFBFBD><56><EFBFBD><EFBFBD>$i<>Ԗڂ<D496><DA82><EFBFBD>$j<>Ԗڂ܂ł̋L<CC8B><4C><EFBFBD>ł<EFBFBD><C582>B</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=\"code\" value=\"$code\">\n";
print "<input type=hidden name=\"bgcolor\" value=\"$bgc\">\n";
print "<input type=submit value=\"<22><><EFBFBD>̃y<CC83>[<5B>W\"></form>\n";
}
else {
print "<font size=-1><i><3E>ȏ<EFBFBD><C88F>́A<CD81><41><EFBFBD>ݓo<DD93>^<5E><><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD>V<EFBFBD><56><EFBFBD><EFBFBD>$i<>Ԗڂ<D496><DA82><EFBFBD>$j<>Ԗڂ܂ł̋L<CC8B><4C><EFBFBD>ł<EFBFBD><C582>B";
print "<22><><EFBFBD><EFBFBD><EFBFBD>ȉ<EFBFBD><C889>̋L<CC8B><4C><EFBFBD>͂<EFBFBD><CD82><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B</i></font>\n";
}
#print "<form action=\"$cgiurl\"><input type=submit value=\"<22>g<EFBFBD>b<EFBFBD>v<EFBFBD>y<EFBFBD>[<5B>W<EFBFBD><57>\">\n";
# <20><><EFBFBD>̃X<CC83>N<EFBFBD><4E><EFBFBD>v<EFBFBD>g<EFBFBD>̒<EFBFBD><CC92>쌠<EFBFBD>\<5C><><EFBFBD>i<EFBFBD><69><EFBFBD>Ȃ炸<C882>\<5C><><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>j
print "</form><p></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 990620</a> is Free.</h4>\n";
print "</body></html>\n";
exit;
}
# <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݏ<EFBFBD><DD8F><EFBFBD><EFBFBD>T<EFBFBD>u<EFBFBD><75><EFBFBD>[<5B>`<60><> ############################################################
sub regist {
# <20><><EFBFBD>e<EFBFBD><65><EFBFBD>X<EFBFBD>y<EFBFBD>[<5B>X<EFBFBD>Ȃ烊<C882><E7838A><EFBFBD>[<5B>h
if ($FORM{'value'} eq "") { &html; }
# <20>ʂ̃y<CC83>[<5B>W<EFBFBD><57><EFBFBD>炱<EFBFBD>̂b<CC82>f<EFBFBD>h<EFBFBD>ւ̓<D682><CC93>e<EFBFBD><65><EFBFBD>r<EFBFBD><72><EFBFBD><EFBFBD><EFBFBD>鏈<EFBFBD><E98F88>
#$ref = $ENV{'HTTP_REFERER'};
#$ref_url = $cgiurl; $ref_url =~ s/\~/.*/g;
#if (!($ref =~ /$ref_url/i)) { &error(form); }
# <20><><EFBFBD>͂<EFBFBD><CD82>ꂽ<EFBFBD>f<EFBFBD>[<5B>^<5E>̃`<60>F<EFBFBD>b<EFBFBD>N ##################################
if ($FORM{'bgcolor'} eq "") { &error(1); }
if ($FORM{'def'} eq "") { &error(1); }
if ($FORM{'name'} eq "") { $FORM{'name'} = ''; }
if ($FORM{'code'} eq "") { $FORM{'code'} = $FORM{'topic'} ; }
if ($FORM{'image'} eq "") { &error(1); }
if ($FORM{'email'} =~ /,/) { &error(4); }
if ($FORM{'email'} ne "") { if (!($FORM{'email'} =~ /(.*)\@(.*)\.(.*)/)) { &error(3); }}
if ($FORM{'subject'} eq "") { $FORM{'subject'} = '<27>@'; }
if ($FORM{'image'} eq "" || $FORM{'image'} eq "http://") { $FORM{'image'} = ''; }
elsif ( $FORM{'image'} =~ /g$/i || $FORM{'image'} =~ /f$/i || $FORM{'image'} =~ /p$/i ){
$FORM{'image'} =~ s/\s//g;$FORM{'image'} =~ s/\"//g;$FORM{'image'} =~ s/\'//g;
$FORM{'image'} =~ s/http\:\/\/http\:\/\//http\:\/\//g;
}
else{ $FORM{'image'} = ''; }
if ( $FORM{'image'} =~ /\?/ ){ $FORM{'image'} = ''; }
if ( $FORM{'image'} =~ /\=/ ){ $FORM{'image'} = ''; }
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;
}
# <20>v<EFBFBD><76><EFBFBD>e<EFBFBD>N<EFBFBD>g<EFBFBD>R<EFBFBD>[<5B>h<EFBFBD>`<60>F<EFBFBD>b<EFBFBD>N
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<32><64>%02d<32><64>%02d<32>b",
$cyear, $cmon, $cmday,
( '<27><>', '<27><>', '<27><>', '<27><>', '<27><>', '<27><>', '<27>y' )[$cwday],
$chour, $cmin, $csec );
if (
( $csec < 0 ) || ( $csec > 60 ) ||
( $cmin < 0 ) || ( $cmin > 60 ) ||
( $chour < 0 ) || ( $chour > 24 ) ||
( ( $ptime - $pcheck ) > 1 * 60 * 60 ) ) { # <20>P<EFBFBD><50><EFBFBD><EFBFBD>
&error ( 'xxx' );
}
} else {
&error ( 'xxx' );
}
# <20>ߋ<EFBFBD><DF8B><EFBFBD><EFBFBD>O<EFBFBD>̃t<CC83>@<40>C<EFBFBD><43><EFBFBD>T<EFBFBD>C<EFBFBD>Y<EFBFBD>`<60>F<EFBFBD>b<EFBFBD>N
if ( ( -s $filedate ) > $maxoldlogsize ) {
&error (0);
}
# <20><><EFBFBD>e<EFBFBD>Җ<EFBFBD><D296>`<60>F<EFBFBD>b<EFBFBD>N ##########################
$formname = $FORM{'name'};
# if ($formname eq "$nameng"){ &error(xx); }
if ($formname eq "$pass"){$formname = $namez; $FORM{'email'} = $mailadd;}
else {
$formname =~ s/$namez/<small><3E><><EFBFBD>́K<\/small>/g;
# $formname =~ s/<2F><><EFBFBD><EFBFBD>/<2F><><EFBFBD>́K/g;
}
# <20>L<EFBFBD>^<5E>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD>ǂݏo<DD8F><6F><EFBFBD>I<EFBFBD>[<5B>v<EFBFBD><76><EFBFBD><EFBFBD><EFBFBD>āA<C481>z<EFBFBD><7A><@lines><3E>Ɋi<C98A>[<5B><><EFBFBD><EFBFBD>
open (DB,"+<$file") || &error (0);
eval 'flock (DB, 2)';
@lines = <DB>;
#<23>X<C281>̌f<CC8C><66><EFBFBD>‚<EFBFBD><C282>ƂɋK<C98B>茏<EFBFBD><E88C8F><EFBFBD>𒴂<EFBFBD><F092B482><EFBFBD><EFBFBD>L<EFBFBD><4C><EFBFBD><EFBFBD><EFBFBD>폜
# <20>S<EFBFBD><53><EFBFBD>e<EFBFBD>ŋK<C58B>茏<EFBFBD><E88C8F><EFBFBD>𒴂<EFBFBD><F092B482><EFBFBD><EFBFBD>L<EFBFBD><4C><EFBFBD><EFBFBD><EFBFBD>폜
############################
$i = 0;
$f = 0;
$del = 0;
foreach $line (@lines) {
($date,$name,$email,$value,$subject,$hpage,$himage,$kode,$postid) = split(/\,/,$line);
$i++;
if ( $FORM{'code'} eq $kode ) {$f++ ; }
if ($i == $max) { last; }
if (( $FORM{'code'} eq $kode )&&($f== $topicmax) )
{ $del = 1;
$f=0;
}
if ($del == 0) { push(@new,$line);}
$del = 0;
}
#####################
# <20>A<EFBFBD><41><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>e<EFBFBD><65><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>݃`<60>F<EFBFBD>b<EFBFBD>N
$i = 0; $j = 0;
while ( ( $i < $check ) && ($j == 0) ) {
($date0,$name0,$email0,$value0,$subject0,$hpage0,$himage0,$code0) = 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<49><44><EFBFBD><EFBFBD>
if ( $lines[0] =~ /^.*,.*,.*,.*,.*,.*,.*,.*,(.*)\n/ ) {
$postid = $1 + 1;
} else {
$postid = 1;
}
if ( $j == 0 ) {
$value = "$date_now\,$formname\,$FORM{'email'}\,$FORM{'value'}\,$FORM{'subject'}\,$FORM{'page'}\,$FORM{'image'},$FORM{'code'},$postid\n";
unshift(@new,$value);
seek (DB, 0, 0);
truncate (DB, 0);
print DB @new;
eval 'flock (DB, 8)';
close (DB);
# <20>ߋ<EFBFBD><DF8B><EFBFBD><EFBFBD>O<EFBFBD>o<EFBFBD><6F>
$FORM{'value'} =~ s/\0/\,/g;
open(LOG,">>$filedate") || &error(0);
eval 'flock (LOG, 2)';
if (-z LOG) {
print LOG "<html>\n<body bgcolor=\"#$bgc\" text=\"#$textc\" link=\"#$linkc\" vlink=\"#$vlinkc\" alink=\"#$alinkc\">\n<hr>";
}
print LOG "<font size=+1 color=\"#$subjc\"><b>$FORM{'subject'}</b></font>";
# <20><><EFBFBD>[<5B><><EFBFBD>A<EFBFBD>h<EFBFBD><68><EFBFBD>X<EFBFBD><58><EFBFBD>L<EFBFBD>^<5E><><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD>f<EFBFBD>[<5B>^<5E>ɂ̓<C982><CD83><EFBFBD><EFBFBD>N<EFBFBD><4E><EFBFBD>t<EFBFBD><74><EFBFBD><EFBFBD>
if ($FORM{'email'} ne '') { print LOG "<22>@<40><><EFBFBD>e<EFBFBD>ҁF<b><a href=\"mailto:$FORM{'email'}\">$formname</a></b>\n"; }
else { print LOG "<22>@<40><><EFBFBD>e<EFBFBD>ҁF<font color=\"#$subjc\"><b>$formname</b></font>\n"; }
print LOG "<font size=-1><3E>@<40><><EFBFBD>e<EFBFBD><65><EFBFBD>F$date_now";
if ($FORM{'code'} ne '') { print LOG "<22>@<a href=\"$cgiurl\?code=$FORM{'code'}\" target=\"link\">$FORM{'code'}</a></font><p>\n"; }
$FORM{'value'} =~ s/(https?|ftp|gopher|telnet|whois|news):\/\/([\w|\!\#\$\%\&\'\(\)\=\-\^\`\\\|\@\~\[\{\]\}\;\+\:\*\,\.\?\/]+)/<a href=\"$1:\/\/$2\" target=\"$jump\">$1:\/\/$2<\/a>/g;
print LOG "</font><blockquote><pre>$FORM{'value'}</pre><p>\n\n";
# <20>t<EFBFBD>q<EFBFBD>k<EFBFBD><6B><EFBFBD>L<EFBFBD>^<5E><><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD>f<EFBFBD>[<5B>^<5E>ɂ̓<C982><CD83><EFBFBD><EFBFBD>N<EFBFBD><4E><EFBFBD>t<EFBFBD><74><EFBFBD><EFBFBD>
if ($FORM{'page'} ne '') {
$page0 = $FORM{'page'};
$page0 =~ s/$cgiurl\?action=search1\&search=(.*)\&id=\d*/<2F>Q<EFBFBD>l<EFBFBD>F$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);
}
# <20>L<EFBFBD>^<5E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>A<EFBFBD>ēǂݍ<C782><DD8D>݂<EFBFBD><DD82><EFBFBD>
if ( $FORM{'follow'} ne "on" ) { &html; }
else {
print "Content-type: text/html\n\n";
print "<html><head><title><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>݊<EFBFBD><DD8A><EFBFBD></title></head>\n";
print "$body\n";
print "<h1><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>݊<EFBFBD><DD8A><EFBFBD></h1>\n";
exit;
}
# print "Location: $cgiurl" . '?' . "\n\n";
# exit;
}
# <20>t<EFBFBD>H<EFBFBD><48><EFBFBD>[<5B><><EFBFBD>e<EFBFBD>T<EFBFBD>u<EFBFBD><75><EFBFBD>[<5B>`<60><><EFBFBD>isearch1<68>j ############################################
sub search1 {
#--- <20><><EFBFBD>̓t<CD83>H<EFBFBD>[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> --------------------------------#
print "Content-type: text/html\n\n";
print "<html><head><title>$FORM{search}<7D>ɕԐM</title></head>\n";
print "$body\n";
# <20>o<EFBFBD>i<EFBFBD>[<5B>͂<EFBFBD><CD82><EFBFBD>
#--- <20>L<EFBFBD>^<5E>L<EFBFBD><4C><EFBFBD>̏o<CC8F><6F> ----------------------------------#
# <20>L<EFBFBD>^<5E>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD>ǂݏo<DD8F><6F><EFBFBD>I<EFBFBD>[<5B>v<EFBFBD><76><EFBFBD><EFBFBD><EFBFBD>āA<C481>z<EFBFBD><7A><@lines><3E>Ɋi<C98A>[<5B><><EFBFBD><EFBFBD>
if (!open(DB,"$file")) { &error(0); }
@lines = <DB>;
close(DB);
$accesses = @lines;
$f = 0; $i = 0;
while (($f == 0) && ($i < $accesses)){
# <20>f<EFBFBD>[<5B>^<5E><><EFBFBD>e<EFBFBD>ϐ<EFBFBD><CF90>ɑ<EFBFBD><C991><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
($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; # <20>k<EFBFBD><6B><EFBFBD>R<EFBFBD>[<5B>h<EFBFBD>ɕϊ<C995><CF8A>L<EFBFBD>^<5E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>p<EFBFBD>J<EFBFBD><4A><EFBFBD>}<7D>𕜋A<F0959C8B><41><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
chop($himage) if $himage =~ /\n/;
chop($hpage) if $hpage =~ /\n/;
&disp;
print "<hr>\n";
$value =~ s/\r/\r&gt; /g;
$value ="&gt; $value";
$value =~ s/&gt; &gt; &gt;.*?\r//g;
print "<p>\n";
# <20>v<EFBFBD><76><EFBFBD>e<EFBFBD>N<EFBFBD>g<EFBFBD>L<EFBFBD>[<5B><><EFBFBD><EFBFBD>
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 "<22><><EFBFBD>e<EFBFBD><65> <input type=text name=\"name\" size=20 maxlength=20><br>";
print "<22><><EFBFBD>[<5B><> <input type=text name=\"email\" size=30><br>\n";
print "<22>薼<EFBFBD>@ <input type=text name=\"subject\" size=30 value=\"<22><>$name\"> \n";
print "<input type=submit value=\" <20><><EFBFBD>e \"><input type=reset value=\"<22><><EFBFBD><EFBFBD>\"><p>\n";
print "<input type=hidden name=\"def\" value=\"$defnext\">\n";
print "<input type=hidden name=\"image\" value=\"$himage\">\n";
print "<input type=hidden name=\"link\" value=\"$FORM{link} \">\n";
# <20>v<EFBFBD><76><EFBFBD>e<EFBFBD>N<EFBFBD>g<EFBFBD>R<EFBFBD>[<5B>h<EFBFBD>o<EFBFBD><6F>
print "<input type=hidden name=\"protect\" value=\"$pkey\">\n";
print "<22><><EFBFBD>e<i><3E>i<EFBFBD>^<5E>O<EFBFBD>͎g<CD8E><67><EFBFBD>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B\n";
print "<22><><EFBFBD>e<EFBFBD><65><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɓ<EFBFBD><C993>e<EFBFBD>{<7B>^<5E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƃ<EFBFBD><C683><EFBFBD><EFBFBD>[<5B>h<EFBFBD>ɂȂ<C982><C882>܂<EFBFBD><DC82>B<EFBFBD>j</i><br>\n";
print "<textarea name=\"value\" rows=5 cols=70>$value\r";
# if ($hpage ne '') { print ">\r> $hpage\r"; }
print "</textarea><p>\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 "<22>݂‚<DD82><C282><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD><br>";}
print "<hr></body></html>\n";
exit;
}
# <20><><EFBFBD>e<EFBFBD>Җ<EFBFBD><D296>T<EFBFBD>[<5B>`<60>p<EFBFBD>T<EFBFBD>u<EFBFBD><75><EFBFBD>[<5B>`<60><><EFBFBD>isearch2<68>j ############################################
sub search2 {
print "Content-type: text/html\n\n";
print "<html><head><title>$title</title></head>\n";
print "$body\n";
# <20>o<EFBFBD>i<EFBFBD>[<5B>͂<EFBFBD><CD82><EFBFBD>
#--- <20>L<EFBFBD>^<5E>L<EFBFBD><4C><EFBFBD>̏o<CC8F><6F> ----------------------------------#
# <20>L<EFBFBD>^<5E>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD>ǂݏo<DD8F><6F><EFBFBD>I<EFBFBD>[<5B>v<EFBFBD><76><EFBFBD><EFBFBD><EFBFBD>āA<C481>z<EFBFBD><7A><@lines><3E>Ɋi<C98A>[<5B><><EFBFBD><EFBFBD>
if (!open(DB,"$file")) { &error(0); }
@lines = <DB>;
close(DB);
$accesses = @lines;
$f = 0;
foreach ( @lines ){
# <20>f<EFBFBD>[<5B>^<5E><><EFBFBD>e<EFBFBD>ϐ<EFBFBD><CF90>ɑ<EFBFBD><C991><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
($date,$name,$email,$value,$subject,$hpage,$himage,$code,$postid) = split(/\,/,$_);
if ( $name eq $FORM{search} ) {
$f = 1;
$value =~ s/\0/\,/g; # <20>k<EFBFBD><6B><EFBFBD>R<EFBFBD>[<5B>h<EFBFBD>ɕϊ<C995><CF8A>L<EFBFBD>^<5E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>p<EFBFBD>J<EFBFBD><4A><EFBFBD>}<7D>𕜋A<F0959C8B><41><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
chop($himage) if $himage =~ /\n/;
chop($hpage) if $hpage =~ /\n/;
&disp;
}
}
if ($f == 0){ print "<22>݂‚<DD82><C282><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD><br>";}
print "<hr></body></html>\n";
exit;
}
# <20>X<EFBFBD><58><EFBFBD>b<EFBFBD>h<EFBFBD>T<EFBFBD>[<5B>`<60>p<EFBFBD>T<EFBFBD>u<EFBFBD><75><EFBFBD>[<5B>`<60><><EFBFBD>isearch3<68>j ############################################
sub search3 {
print "Content-type: text/html\n\n";
print "<html><head><title><3E>X<EFBFBD><58><EFBFBD>b<EFBFBD>h<EFBFBD>ꗗ</title></head>\n";
print "$body\n";
# <20>o<EFBFBD>i<EFBFBD>[<5B>͂<EFBFBD><CD82><EFBFBD>
#--- <20>L<EFBFBD>^<5E>L<EFBFBD><4C><EFBFBD>̏o<CC8F><6F> ----------------------------------#
# <20>L<EFBFBD>^<5E>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD>ǂݏo<DD8F><6F><EFBFBD>I<EFBFBD>[<5B>v<EFBFBD><76><EFBFBD><EFBFBD><EFBFBD>āA<C481>z<EFBFBD><7A><@lines><3E>Ɋi<C98A>[<5B><><EFBFBD><EFBFBD>
if (!open(DB,"$file")) { &error(0); }
@lines = <DB>;
close(DB);
$accesses = @lines;
$f = 0;
foreach ( @lines ){
# <20>f<EFBFBD>[<5B>^<5E><><EFBFBD>e<EFBFBD>ϐ<EFBFBD><CF90>ɑ<EFBFBD><C991><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
($date,$name,$email,$value,$subject,$hpage,$himage,$code,$postid) = split(/\,/,$_);
chop($himage) if $himage =~ /\n/;
chop($hpage) if $hpage =~ /\n/;
$himage =~ s/p:/p/g;
if ( $himage eq $FORM{search} ) {
$f = 1;
$value =~ s/\0/\,/g; # <20>k<EFBFBD><6B><EFBFBD>R<EFBFBD>[<5B>h<EFBFBD>ɕϊ<C995><CF8A>L<EFBFBD>^<5E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>p<EFBFBD>J<EFBFBD><4A><EFBFBD>}<7D>𕜋A<F0959C8B><41><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
&disp;
}
}
if ($f == 0){ print "<22>݂‚<DD82><C282><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD>$himage<67><65>$FORM{search} <br>";}
print "<hr></body></html>\n";
exit;
}
# <20>g<EFBFBD>b<EFBFBD>v<EFBFBD>y<EFBFBD>[<5B>W<EFBFBD>\<5C><><EFBFBD>p<EFBFBD>T<EFBFBD>u<EFBFBD><75><EFBFBD>[<5B>`<60><><EFBFBD>itop<6F>j ############################################
sub top {
if ($FORM{'bgcolor'} ne '') { $bgc = $FORM{'bgcolor'}; }
if ($FORM{'code'} ne '') { $bgc = $FORM{'bgcolor'}; }
$body = "<body bgcolor=\"#$bgc\" text=\"#$textc\" link=\"#$linkc\" vlink=\"#$vlinkc\" alink=\"#$alinkc\">";
if ($FORM{'code'} eq '') { $code = $title; }
if ($FORM{'search'} ne '') { $code = $FORM{'search'}; }
print "Content-type: text/html\n\n";
print "<html><head><title>$code</title></head>\n";
print "$body\n";
local ( $ptime ) = time + $tim * 60 * 60;
local ( $pkey ) = ( $ptime + $protect_a ) * $protect_b + $protect_c;
#print "<b><3E>ŐV<C590>A<EFBFBD><41></b><p><font size=-1></font><hr>\n";
print "<form method=get action=\"location.cgi\"><table border=0 cellpadding=1 cellspacing=1 width=100%>
<tr><td><font color=ffffff size=+1><b>$code</b></font><3E>@<40>@<40>@<40>@<SELECT NAME=url>
<OPTION VALUE=\"http://www.geocities.com/Tokyo/Subway/1282/front.html\" >
<EFBFBD><EFBFBD><EFBFBD>m<EFBFBD>点<EFBFBD>y<EFBFBD>[<5B>W
<OPTION VALUE=\"http://members.tripod.com/denpaoyaji/rebirth/\" >
<EFBFBD>~<7E><><EFBFBD>[
<OPTION VALUE=\"\" >
------------
<OPTION VALUE=\"http://www4.famille.ne.jp/~haruna/requiem/bbs.cgi\" >
REQUIEM
<OPTION VALUE=\"http://strange99.hypermart.net/bbs.cgi\" >
<EFBFBD>ޔ<EFBFBD><EFBFBD>p<EFBFBD>n<EFBFBD>C<EFBFBD>p<EFBFBD>[
<OPTION VALUE=\"\" >
------------
<OPTION VALUE=\"http://www4.famille.ne.jp/~haruna/remix/bbs.cgi\" >
REMIX
<OPTION VALUE=\"http://kakumeigun.virtualave.net/cgi-bin/remix/bbs.cgi\" >
REMIX<EFBFBD><EFBFBD><EFBFBD>v<EFBFBD><EFBFBD><EFBFBD>R
<OPTION VALUE=\"\" >
------------
<OPTION VALUE=\"http://aruchan.hypermart.net/cgi-bin/bbs.cgi\" >
1999<EFBFBD>N
<OPTION VALUE=\"http://agtop.virtualave.net/cgi-bin/bbs.cgi\" >
<EFBFBD>˂<EFBFBD>
<OPTION VALUE=\"http://www4.famille.ne.jp/~kuzuha/strangeworld/bbs2.cgi\" >
<EFBFBD>͂<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<OPTION VALUE=\"http://www4.famille.ne.jp/~kuzuha/strangeworld/bbs3.cgi\" >
<EFBFBD><EFBFBD><EFBFBD>߁<EFBFBD>
<OPTION VALUE=\"http://geocities.hypermart.net/cgi-bin/bbs.cgi\" >
<EFBFBD><EFBFBD><EFBFBD>n
<OPTION VALUE=\"http://kourakuen.virtualave.net/cgi-bin/kourakuen.cgi\" >
<EFBFBD><EFBFBD><EFBFBD>y<EFBFBD><EFBFBD><EFBFBD>z<EFBFBD>[<5B><>
<OPTION VALUE=\"http://www.jca.ax.apc.org/ariake/cgi-bin/bbs.cgi\" >
<EFBFBD>L<EFBFBD><EFBFBD>
<OPTION VALUE=\"http://logshonin.virtualave.net/cgi-bin/pikachu/pikachu.cgi\" >
<EFBFBD>҂<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<OPTION VALUE=\"http://server6.hypermart.net/maripapa/cgi-bin/manko.cgi\" >
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>u
<OPTION VALUE=\"\" >
------------
<OPTION VALUE=\"http://freehosting1.at.webjump.com/sw/swatty-webjump/\" >
SwattyLinkWalk
<OPTION VALUE=\"http://members.tripod.com/~eyeline/strange-niyalink.htm\" >
<EFBFBD>j<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>N
<OPTION VALUE=\"http://www.geocities.com/Tokyo/Dojo/5886/\" >
<EFBFBD><EFBFBD><EFBFBD>O<EFBFBD><EFBFBD><EFBFBD>l
<OPTION VALUE=\"\" >
------------
<OPTION VALUE=\"http://edoya.neko.to/\" >
<EFBFBD><EFBFBD><EFBFBD>E<EFBFBD><EFBFBD><EFBFBD>Y
</SELECT> <INPUT type=submit VALUE=\"<22>]<5D><>\"></td><tr></table></form>
\n";
print "<form method=$method action=\"$cgiurl\"><3E>f<EFBFBD><66><EFBFBD>‚̖<C282><CC96>O<EFBFBD>@<input type=text name=\"code\" size=30 maxlength=30><3E>@<input type=submit value=\"<22>V<EFBFBD>K<EFBFBD>쐬<EFBFBD>^<5E><><EFBFBD><EFBFBD><EFBFBD>[<5B>h\"></form>\n";
print "<hr><font size=-1><3E><><EFBFBD><EFBFBD><EFBFBD>̍D<CC8D><44><EFBFBD>ȃe<C883>[<5B>}<7D>̌f<CC8C><66><EFBFBD>‚<EFBFBD><C282><EFBFBD><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82>B<EFBFBD>e<EFBFBD>f<EFBFBD><66><EFBFBD>‚͍Ō<CD8D><C58C>ɓ<EFBFBD><C993>e<EFBFBD>̂<EFBFBD><CC82><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>t<EFBFBD><74><EFBFBD>̏<EFBFBD><CC8F><EFBFBD>\<5C>\\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82>B<EFBFBD>쐬<EFBFBD><EC90AC><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD>e<EFBFBD><65><EFBFBD>Ȃ<EFBFBD><C882><EFBFBD>\<5C>\\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B<EFBFBD>f<EFBFBD><66><EFBFBD>‚Ⓤ<C282>e<EFBFBD>̍폜<CC8D>͈<EFBFBD><CD88>؂ł<D882><C582>Ȃ<EFBFBD><C882>̂ŁA<C581>S<EFBFBD>Ă̍s<CC8D><73><EFBFBD>͎<EFBFBD><CD8E>ȐӔC<D394>ōs<C58D><73><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>B<br><3E>ߋ<EFBFBD><DF8B><EFBFBD><EFBFBD>O<EFBFBD><4F><a href=\"getlog_m.cgi\"><3E><><EFBFBD><EFBFBD></a><3E>B<EFBFBD>ŐV<C590><56><EFBFBD>e<EFBFBD>ꗗ<EFBFBD><EA9797><a href=\"$cgiurl\?bgcolor\=$bgc\&$\c\ode\=read\"><3E><><EFBFBD><EFBFBD></a><3E>B\n";
if ( $countlevel > 0 ){
print "$countdate<74><65><EFBFBD><EFBFBD> ";
&counter; print "$countplus<75>i<EFBFBD><69><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɂ<EFBFBD><C982><EFBFBD><EFBFBD><EFBFBD><EFBFBD>x<EFBFBD><78>$countlevel<65>j<hr><blockquote>\n";
}
#--- <20>L<EFBFBD>^<5E>L<EFBFBD><4C><EFBFBD>̏o<CC8F><6F> ----------------------------------#
# <20>L<EFBFBD>^<5E>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD>ǂݏo<DD8F><6F><EFBFBD>I<EFBFBD>[<5B>v<EFBFBD><76><EFBFBD><EFBFBD><EFBFBD>āA<C481>z<EFBFBD><7A><@lines><3E>Ɋi<C98A>[<5B><><EFBFBD><EFBFBD>
if (!open(DB,"$file")) { &error(0); }
@lines = <DB>;
close(DB);
$accesses = @lines;
$f = 0;
$bbscount = 1;
$logcount = 0;
foreach ( @lines ){
# <20>f<EFBFBD>[<5B>^<5E><><EFBFBD>e<EFBFBD>ϐ<EFBFBD><CF90>ɑ<EFBFBD><C991><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
($date,$name,$email,$value,$subject,$hpage,$himage,$kode,$postid) = split(/\,/,$_);
if ( $kode ne $bbsname{$kode} ) {
$bbs{$bbscount}=$kode;
$date{$bbscount}=$date;
$logs{$kode}=1;
$bbscount = $bbscount + 1;
$bbsname{$kode}=$kode;
}
else {
$logs{$kode}=$logs{$kode}+1; }
$logcount = $logcount + 1;
}
########
print "<center><table border=0 CELLSPACING=2 CELLPADDING=0><tr><td nowrap><3E>^<5E>C<EFBFBD>g<EFBFBD><67></td><td nowrap><3E>@<40>L<EFBFBD><4C><EFBFBD>o<EFBFBD>^<5E><><EFBFBD><EFBFBD></td><td nowrap><3E>@<40>@<40>ŏI<C58F><49><EFBFBD>e<EFBFBD><65></td></tr><tr><td nowrap>\n";
$k = 0;
while ($k < $bbscount) {
$free = $bbs{$k};
print "<a href=\"$cgiurl\?$\code\=$bbs{$k}\">$bbs{$k}</a></font><font size=+0><3E>@</font><br>\n";
$k=$k+1;
}
print "</td><td nowrap><center>\n";
$k = 0;
while ($k < $bbscount) {
$free = $bbs{$k};
print "<font>$logs{$free} </font></font><font size=+0><3E>@</font><br>\n";
$k=$k+1;
}
print "</center></td><td nowrap>\n";
$k = 0;
while ($k < $bbscount) {
print "<font size=-2>$date{$k}</font><font size=+0><3E>@</font><br>\n";
$k=$k+1;
}
print "</tr></td></table></center>\n";
# <20><><EFBFBD>̃X<CC83>N<EFBFBD><4E><EFBFBD>v<EFBFBD>g<EFBFBD>̒<EFBFBD><CC92>쌠<EFBFBD>\<5C><><EFBFBD>i<EFBFBD><69><EFBFBD>Ȃ炸<C882>\<5C><><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>j
print "</blockquote></center><hr><font size=-1><i><3E>ȏ<EFBFBD><C88F>́A<CD81><41><EFBFBD>ݓo<DD93>^<5E><><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD>V<EFBFBD><56><EFBFBD><EFBFBD>$bbscount\<5C>‚̌f<CC8C><66><EFBFBD>‚ł<C282><C582>B<EFBFBD>L<EFBFBD><4C><EFBFBD>͍<EFBFBD><CD8D>v$logcount\<5C><><EFBFBD><EFBFBD><EFBFBD>ۑ<EFBFBD><DB91><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482>܂<EFBFBD><DC82>B
</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 990620</a> is Free.</h4>\n";
print "</body></html>\n";
exit;
}
# <20><><EFBFBD>O<EFBFBD>ǂݗp<DD97>T<EFBFBD>u<EFBFBD><75><EFBFBD>[<5B>`<60><>(logread)
###################################################
sub read{
if ($FORM{'code'} eq '') { $code = $title; }
if ($FORM{'bgcolor'} ne '') { $bgc = $FORM{'bgcolor'}; }
$body = "<body bgcolor=\"#$bgc\" text=\"#$textc\" link=\"#$linkc\" vlink=\"#$vlinkc\" alink=\"#$alinkc\">";
if ($FORM{'code'} ne '') { $code = $FORM{'code'}; }
if ($FORM{'search'} ne '') { $code = $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><3E><><EFBFBD>₵<EFBFBD><E282B5><EFBFBD><EFBFBD><EFBFBD>[<5B><><EFBFBD><EFBFBD>REMIX<49>@<40>ŐV<C590><56><EFBFBD>e<EFBFBD>ꗗ</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><3E><><EFBFBD>₵<EFBFBD><E282B5><EFBFBD><EFBFBD><EFBFBD>[<5B><><EFBFBD><EFBFBD>REMIX<49>@<40>ŐV<C590><56><EFBFBD>e<EFBFBD>ꗗ</b></font><3E>@<40>@
\n";
print "<form method=$method action=\"$cgiurl\">\n";
print "<22>\\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\n";
print "<input type=text name=\"def\" size=8 value=\"$defnext\">\n";
print "<22>o<EFBFBD>b<EFBFBD>N<EFBFBD>O<EFBFBD><4F><EFBFBD>E<EFBFBD><45><EFBFBD>h<EFBFBD>J<EFBFBD><4A><EFBFBD>[<input type=text name=\"bgcolor\" size=6 value=\"$bgc\"><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=\"code\" value=\"\"><p>\n";
# <20>J<EFBFBD>E<EFBFBD><45><EFBFBD>^
if ( $countlevel > 0 ){
print "$countdate<74><65><EFBFBD><EFBFBD> ";
&counter; print "$countplus<75>i<EFBFBD><69><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɂ<EFBFBD><C982><EFBFBD><EFBFBD><EFBFBD><EFBFBD>x<EFBFBD><78>$countlevel<65>j</font><3E>@\n";
print "<22>@<input type=submit value=\"<22><><EFBFBD>X<EFBFBD>g<EFBFBD>ɖ߂<C996>\"></form>\n";
print "<form method=$method action=\"$cgiurl\">\n";
print "<input type=hidden name=\"code\" value=\"$FORM{'code'}\">\n";
print "<hr>
<font size=-1><3E>ߋ<EFBFBD><DF8B><EFBFBD><EFBFBD>O<EFBFBD><4F><a href=\"./getlog.cgi\" target=\"_top\"><3E><><EFBFBD><EFBFBD></a><3E>B\n";
print "<input type=hidden name=\"image\" value=\"0\">\n";
# <20>v<EFBFBD><76><EFBFBD>e<EFBFBD>N<EFBFBD>g<EFBFBD>R<EFBFBD>[<5B>h<EFBFBD>o<EFBFBD><6F>
print "<input type=hidden name=\"protect\" value=\"$pkey\">\n";
print "<font size=-1>\n";
# print "<hr><i><3E>V<EFBFBD><56><EFBFBD><EFBFBD><EFBFBD>L<EFBFBD><4C><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\\<5C><><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82>B<EFBFBD>ō<EFBFBD>$max<61><78><EFBFBD>̋L<CC8B><4C><EFBFBD><EFBFBD><EFBFBD>L<EFBFBD>^<5E><><EFBFBD><EFBFBD><EFBFBD>A<EFBFBD><41><EFBFBD><EFBFBD><EFBFBD>𒴂<EFBFBD><F092B482><EFBFBD><EFBFBD>ƌÂ<C68C><C382>L<EFBFBD><4C><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>폜<EFBFBD><ED8F9C><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82>B<br>\n";
# print "<22>P<EFBFBD><50><EFBFBD>̕\\<5C><><EFBFBD><EFBFBD>$def<65><66><EFBFBD><EFBFBD><EFBFBD>z<EFBFBD><7A><EFBFBD><EFBFBD><EFBFBD>ꍇ<EFBFBD>́A<CD81><41><EFBFBD>̃{<7B>^<5E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƂŎ<C682><C58E>̉<EFBFBD><CC89>ʂ̋L<CC8B><4C><EFBFBD><EFBFBD><EFBFBD>\\<5C><><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82>B</i>\n";
# <20>T<EFBFBD>[<5B>`<60>̒<EFBFBD><CC92>ӏ<EFBFBD><D38F><EFBFBD>
print "<22><><EFBFBD>e<EFBFBD>̍폜<CC8D>͈<EFBFBD><CD88>؂<EFBFBD><D882>Ȃ<EFBFBD><C882>̂ŁA<C581>S<EFBFBD>Ă̍s<CC8D><73><EFBFBD>͎<EFBFBD><CD8E>ȐӔC<D394>ōs<C58D><73><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>B<br><3E><><EFBFBD>F<EFBFBD>ԐM<D490>t<EFBFBD>H<EFBFBD>[<5B><><EFBFBD>@<40><><EFBFBD>F<EFBFBD><46><EFBFBD><EFBFBD><EFBFBD>T<EFBFBD>[<5B>`<60>@<40><><EFBFBD>F<EFBFBD>X<EFBFBD><58><EFBFBD>b<EFBFBD>h<EFBFBD>ꗗ\n";
}
# <09><><EFBFBD><EFBFBD><EFBFBD>[<5B>h
print "<p></font></font><input type=submit value=\"<22><><EFBFBD><EFBFBD><EFBFBD>[<5B>h\">\n";
print "</form>\n";
# <20>o<EFBFBD>i<EFBFBD>[<5B>͂<EFBFBD><CD82><EFBFBD>
#--- <20>L<EFBFBD>^<5E>L<EFBFBD><4C><EFBFBD>̏o<CC8F><6F> ----------------------------------#
# <20>L<EFBFBD>^<5E>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD>ǂݏo<DD8F><6F><EFBFBD>I<EFBFBD>[<5B>v<EFBFBD><76><EFBFBD><EFBFBD><EFBFBD>āA<C481>z<EFBFBD><7A><@lines><3E>Ɋi<C98A>[<5B><><EFBFBD><EFBFBD>
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,$kode,$postid) = split(/\,/,$lines[$_]);
$value =~ s/\0/\,/g; # <20>k<EFBFBD><6B><EFBFBD>R<EFBFBD>[<5B>h<EFBFBD>ɕϊ<C995><CF8A>L<EFBFBD>^<5E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>p<EFBFBD>J<EFBFBD><4A><EFBFBD>}<7D>𕜋A<F0959C8B><41><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
chop($himage) if $himage =~ /\n/;
chop($hpage) if $hpage =~ /\n/;
chop($postid) if $postid =~ /\n/;
&disp;
}
#--- <20><><EFBFBD>y<EFBFBD>[<5B>W<EFBFBD><57><EFBFBD><EFBFBD> ------------------------------------#
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><3E>ȏ<EFBFBD><C88F>́A<CD81><41><EFBFBD>ݓo<DD93>^<5E><><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD>V<EFBFBD><56><EFBFBD><EFBFBD>$i<>Ԗڂ<D496><DA82><EFBFBD>$j<>Ԗڂ܂ł̋L<CC8B><4C><EFBFBD>ł<EFBFBD><C582>B</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=hidden name=\"code\" value=\"read\">\n";
print "<input type=submit value=\"<22><><EFBFBD>̃y<CC83>[<5B>W\"></form>\n";
}
else {
print "<font size=-1><i><3E>ȏ<EFBFBD><C88F>́A<CD81><41><EFBFBD>ݓo<DD93>^<5E><><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD>V<EFBFBD><56><EFBFBD><EFBFBD>$i<>Ԗڂ<D496><DA82><EFBFBD>$j<>Ԗڂ܂ł̋L<CC8B><4C><EFBFBD>ł<EFBFBD><C582>B";
print "<22><><EFBFBD><EFBFBD><EFBFBD>ȉ<EFBFBD><C889>̋L<CC8B><4C><EFBFBD>͂<EFBFBD><CD82><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B</i></font>\n";
}
# <20><><EFBFBD>̃X<CC83>N<EFBFBD><4E><EFBFBD>v<EFBFBD>g<EFBFBD>̒<EFBFBD><CC92>쌠<EFBFBD>\<5C><><EFBFBD>i<EFBFBD><69><EFBFBD>Ȃ炸<C882>\<5C><><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>j
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 990620</a> is Free.</h4>\n";
print "</body></html>\n";
exit;
}
# <20>e<EFBFBD><65><EFBFBD>e<EFBFBD>\<5C><><EFBFBD>p<EFBFBD>T<EFBFBD>u<EFBFBD><75><EFBFBD>[<5B>`<60><> #############################################################
sub disp {
$hpage0 =$hpage;
$hpage0 =~ s/$cgiurl\?action=search1\&search=(.*)\&id=\d*/<2F>Q<EFBFBD>l<EFBFBD>F$1/;
$hpage0 =~ s/$cgiurf\?action=search1\&search=(.*)\&id=\d*/<2F>Q<EFBFBD>l<EFBFBD>F$1/;
print "<hr>";
print "<font size=+1 color=\"#$subjc\"><b>$subject</b></font><3E>@";
if ($email ne '') { print "<22><><EFBFBD>e<EFBFBD>ҁF<b><a href=\"mailto:$email\">$name</a></b>\n"; }
else { print "<22><><EFBFBD>e<EFBFBD>ҁF<b>$name</b></font>\n"; }
print "<font size=-1><3E>@<40><><EFBFBD>e<EFBFBD><65><EFBFBD>F$date";
print "<22>@<a href=\"$cgiurl\?bgcolor\=$bgc\&action\=search1\&search\=$date\&id=$postid\" target=\"$link\"><3E><></a>";
print "<22>@<a href=\"$cgiurl\?bgcolor\=$bgc\&action\=search2\&search\=$name\" target=\"$link\"><3E><></a>";
if (($himage ne'') && ($hpage ne'' )){ print "<22>@<a href=\"$cgiurl\?bgcolor\=$bgc\&action\=search3\&search\=$himage\" target=\"$link\"><3E><></a>\n"; }
if ($FORM{'code'} eq 'read') { print "<22>@<a href=\"$cgiurl\?bgcolor\=$bgc\&$\c\ode\=$kode\" target=\"$link\">$kode</a>\n"; }
print "</font><p>\n";
if ($FORM{search} eq '') {
$value =~ s/(https?|ftp|gopher|telnet|whois|news):\/\/([\w|\!\#\$\%\&\'\(\)\=\-\^\`\\\|\@\~\[\{\]\}\;\+\:\*\,\.\?\/]+)/<a href=\"$1:\/\/$2\" target=\"$link\">$1:\/\/$2<\/a>/g;
}
print "<blockquote><pre>$value</pre><p>\n\n";
if ($hpage ne '') { print "<a href=\"$hpage\" target=\"$link\">$hpage0</a><p>\n"; }
print "</blockquote>\n";
}
# <20>G<EFBFBD><47><EFBFBD>[<5B><><EFBFBD><EFBFBD><EFBFBD>T<EFBFBD>u<EFBFBD><75><EFBFBD>[<5B>`<60><> ############################################################
sub error {
# &error(xx); <20>ŌĂяo<D18F><6F><EFBFBD>ꂽ<EFBFBD><EA82BD><EFBFBD>[<5B>`<60><><EFBFBD>́A()<29><><EFBFBD>̐<EFBFBD><CC90><EFBFBD><EFBFBD><EFBFBD> $error <20>ɑ<EFBFBD><C991><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>B
$error = $_[0];
if ($error eq "0") { $error_msg = '<27>L<EFBFBD>^<5E>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD>̓<EFBFBD><CC93>o<EFBFBD>͂ɃG<C983><47><EFBFBD>[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B'; }
elsif ($error eq "2") { $error_msg = '<27><><EFBFBD>e<EFBFBD><65><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B<EFBFBD>܂<EFBFBD><DC82>͋L<CD8B>^<5E>֎~<7E>̃^<5E>O<EFBFBD><4F><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482>܂<EFBFBD><DC82>B'; }
elsif ($error eq "3") { $error_msg = '<27><><EFBFBD>[<5B><><EFBFBD>A<EFBFBD>h<EFBFBD><68><EFBFBD>X<EFBFBD><58><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>͂<EFBFBD><CD82><EFBFBD><EFBFBD>Ă<EFBFBD><C482>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B'; }
elsif ($error eq "4") { $error_msg = '<27><><EFBFBD>[<5B><><EFBFBD>A<EFBFBD>h<EFBFBD><68><EFBFBD>X<EFBFBD>͕<EFBFBD><CD95><EFBFBD><EFBFBD>w<EFBFBD><77><EFBFBD>ł<EFBFBD><C582>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B'; }
elsif ($error eq "5") { $error_msg = '<27><><EFBFBD>e<EFBFBD><65><EFBFBD>e<EFBFBD><65><EFBFBD>傫<EFBFBD><E582AB><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82>B'; }
elsif ($error eq "form") { $error_msg = "<22><><EFBFBD>e<EFBFBD><65><EFBFBD>ʂ̂t<CC82>q<EFBFBD>k<EFBFBD><6B><br>$cgiurl<br>" . '<27>ȊO<C88A><4F><EFBFBD><EFBFBD><EFBFBD>̓<EFBFBD><CC93>e<EFBFBD>͂ł<CD82><C582>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B'; }
elsif ($error eq "x") { $error_msg = "<22>ȉ<EFBFBD><C889>̏<EFBFBD><CC8F>񂪋L<F182AA8B>^<5E><><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B<EFBFBD><42><EFBFBD><EFBFBD>"; }
elsif ($error eq "xx") { $error_msg = "<22><><EFBFBD>킢<EFBFBD><ED82A2><EFBFBD><EFBFBD>"; }
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";
if ($error eq "x") {
while ( ($a,$b) = each %ENV) {
print "$a=$b<br><br>\n";
}
}
if ($error eq "xx") {
print "<table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td>\n";
print "<table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td>\n";
print "<table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td>\n";
print "<table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td>\n";
print "<table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td>\n";
print "<table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td><table><tr><td>\n";
print "</td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table>\n";
print "</td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table>\n";
print "</td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table>\n";
print "</td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table>\n";
print "</td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table>\n";
print "</td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table>\n";
}
print "</body></html>\n";
exit;
}
# <20>J<EFBFBD>E<EFBFBD><45><EFBFBD>^<5E>[<5B><><EFBFBD><EFBFBD><EFBFBD>T<EFBFBD>u<EFBFBD><75><EFBFBD>[<5B>`<60><> #########################################################
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
Reference in a new issue Copy permalink