mitsudori/strangeworld-mirror
1
0
Fork 0
Code Issues Pull requests Actions Projects Releases Wiki Activity
strangeworld-mirror/@hi-ho/bbs.cgi

948 lines
30 KiB
Plaintext
Raw 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><EFBFBD><EFBFBD>ݒ<EFBFBD> #
#----------------#
# <20>f<EFBFBD><66><EFBFBD>‚̖<C282><CC96>O --------------------------
$title = '<27><><EFBFBD>₵<EFBFBD><E282B5><EFBFBD><EFBFBD><EFBFBD>[<5B><><EFBFBD>ǁ<EFBFBD><C781>͂<EFBFBD><CD82>ف[';
# <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';
# --- <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 = 0;
# <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 =300;
# --- <20>t<EFBFBD>q<EFBFBD>k ----------------------------------------------
# <20><><EFBFBD>̃X<CC83>N<EFBFBD><4E><EFBFBD>v<EFBFBD>g
$cgiurl = 'bbs.cgi';
# <20>A<EFBFBD><41><EFBFBD><EFBFBD>
$mailadd = 'goodby@strangers.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><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݍő<DD8D><C591><EFBFBD>
$maxlength = 1024*16;
#<23><><EFBFBD>e<EFBFBD><65><EFBFBD>e<EFBFBD><65><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
$max_v = 8000;
#<23><><EFBFBD>e<EFBFBD><65><EFBFBD>e<EFBFBD>s<EFBFBD><73><EFBFBD>i<EFBFBD><69><EFBFBD>̕<EFBFBD><CC95><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƃ̌<C682><CC8C>ˍ<EFBFBD><CB8D><EFBFBD><EFBFBD><EFBFBD><EFBFBD>l<EFBFBD><6C><EFBFBD>āj
$max_line = 120;
# <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><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>݌<EFBFBD><DD8C><EFBFBD><EFBFBD>̍ő<CC8D><C591>o<EFBFBD>^<5E><><EFBFBD>̐ݒ<CC90>
$max = '300';
# ------------------------------------ <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/6/20';
# <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><><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$mday$logfiledat";
# <20>悭<EFBFBD>킩<EFBFBD><ED82A9><EFBFBD>Ȃ<EFBFBD><C882>ϐ<EFBFBD>
$gesu = $ENV{'REMOTE_PORT'};
# <20><><EFBFBD>e<EFBFBD><65><EFBFBD><EFBFBD>action<6F><6E>
$action = "regist";
# <20>lj<EFBFBD><C789>΍<EFBFBD> -------------------------------
# <20>O<EFBFBD><4F><EFBFBD><EFBFBD><EFBFBD>e<EFBFBD>h<EFBFBD>~<7E>R<EFBFBD>[<5B>h
$protect_a = 9987; # 4<><34>
$protect_b = 55; # 2<><32>
$protect_c = 112; # 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>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');
#<23><><EFBFBD>s<EFBFBD>A<EFBFBD>ł̂<C582><CC82><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>i<EFBFBD>R<EFBFBD>s<EFBFBD>ȏ㉽<C88F><E389BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɉ<EFBFBD><C989>s<EFBFBD>݂̂̕<DD82><CC95><EFBFBD><EFBFBD>͉<EFBFBD><CD89>s<EFBFBD><73><EFBFBD><EFBFBD><EFBFBD>j
#<23>X<EFBFBD>y<EFBFBD>[<5B>X<EFBFBD>{<7B><><EFBFBD>s<EFBFBD>̘A<CC98>ł<EFBFBD><C582><EFBFBD><EFBFBD><EFBFBD><EFBFBD>i<EFBFBD><69><EFBFBD>L<EFBFBD><4C><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>邽<EFBFBD>߂ɃX<C983>y<EFBFBD>[<5B>X<EFBFBD><58><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ĉ<EFBFBD><C489>s<EFBFBD><73><EFBFBD>鈫<EFBFBD>Y<EFBFBD>̏ꍇ<CC8F>j
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 =~ /\<5C>@\r\<5C>@\r/) { $value =~ s/\<5C>@\r\<5C>@\r//g; }
if ($value =~ / \r/) { $value =~ s/ \r/\r/g; }
if ($value =~ /\<5C>@\r/) { $value =~ s/\<5C>@\r/\r/g; }
if ($value =~ /\r\r\r\r/) { $value =~ s/\r\r\r\r//g; }
# <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;
}
# <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>|<7C>b<EFBFBD>v<EFBFBD>A<EFBFBD>b<EFBFBD>v<EFBFBD>E<EFBFBD>C<EFBFBD><43><EFBFBD>h<EFBFBD>E<EFBFBD>̌<EFBFBD><CC8C><EFBFBD> ########################################################
#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'; }
# <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{'def'} eq '0') && ($FORM{'value'} ne '')) { &regist; }
if ($FORM{'def'} eq '0') { &read; }
if ($FORM{'action'} eq "$action") { &regist; }
if ($FORM{'action'} eq 'search1') { &search1; }
if ($FORM{'action'} eq 'search2') { &search2; }
if ($FORM{'action'} eq 'search3') { &search3; }
&html;
# <20><><EFBFBD>C<EFBFBD><43><EFBFBD>\<5C><><EFBFBD>T<EFBFBD>u<EFBFBD><75><EFBFBD>[<5B>`<60><> #######################################################
sub html {
# <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 "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>
print "<font size=+1><b>$title</b></font>\n";
print "<font size=-1><3E>@<b><a href=\"http://www.geocities.com/Tokyo/Subway/1282/front.html\" target=\"_top\"><3E><><EFBFBD><EFBFBD><EFBFBD>点<EFBFBD>y<EFBFBD>[<5B>W</a></b></font> \n";
print " <font size=-1><b><a href=\"http://freehosting1.at.webjump.com/sw/swatty-webjump/\" target=\"_top\"><3E>X<EFBFBD><58><EFBFBD>e<EFBFBD>B</a></b></font>\n";
#print "<font size=-1><b><a href=\"mailto:$mailadd\"><3E>A<EFBFBD><41><EFBFBD><EFBFBD></a></b></font>\n";
print "<form method=$method action=\"$cgiurl\">\n";
print "<input type=hidden name=\"action\" value=\"$action\">\n";
print "<22><><EFBFBD>e<EFBFBD><65> <input type=text name=\"name\" size=20 maxlength=40 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 maxlength=60> \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>[<input type=text name=\"bgcolor\" size=6 value=\"$bgc\"><input type=hidden name=\"link\" value=\"$FORM{'link'}\">\n";
print "URL<52><4C><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>N<input type=checkbox name=\"image\" value=\"1\" checked></font> \n";
print "<input type=hidden name=\"code\" value=\"$sec$min\@$pkey.com\">\n";
print "<input type=hidden name=\"win_time\" value=\"$month$mday$hour$min$sec\">\n";
print "<p><font size=-1><3E>ŋ߂̉ߋ<CC89><DF8B><EFBFBD><EFBFBD>O<EFBFBD><4F><a href=\"./getlog.cgi\" target=\"_top\"><3E><><EFBFBD><EFBFBD></a><3E>B\n";
#<23>J<EFBFBD>E<EFBFBD><45><EFBFBD>^<5E>[
if ( $countlevel > 0 ){
print "<font size=-1>$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>\n"; }
print "<input type=hidden name=\"win_count\" value=\"$maxcount\">\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 "<br><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";
print "<hr><a href=\"http://extra.onlineexpress.net/cgi-bin/strangeworld/bbs.cgi\"><3E>G<EFBFBD>N<EFBFBD>X<EFBFBD>g<EFBFBD><67></a><3E>A<a href=\"http://www.kinsan.ne.jp/~miki/strangeworld/bbs.cgi\"><3E><><EFBFBD>񂳂<EFBFBD></a><3E>A <a href=\"http://famille.onlineexpress.net/cgi-bin/strangeworld/bbs.cgi\"><3E>ӂ<EFBFBD><D382>݁[<5B><></a><3E>A<a href=\"http://www.bea.hi-ho.ne.jp/cgi-bin/user/strangeworld/bbs.cgi\"><3E>͂<EFBFBD><CD82>ف[</a> | <a href=\"http://www4.famille.ne.jp/~haruna/remix/bbs.cgi\">REMIX</a><3E>A<a href=\"http://kakumeigun.onlineexpress.net/cgi-bin/relax/bbs.cgi\">RELAX</a> | <a href=\"http://edoya.neko.to/2/upload.cgi\"><3E><><EFBFBD>E<EFBFBD><45><EFBFBD>Y</a><3E>A<a href=\"http://saturdaytears.virtualave.net/cgi-bin/upload.cgi\"><3E>p<EFBFBD>j<EFBFBD><6A><EFBFBD><EFBFBD><EFBFBD>[</a>\n";
# <20>T<EFBFBD>[<5B>`<60>̒<EFBFBD><CC92>ӏ<EFBFBD><D38F><EFBFBD>
print "<hr><3E>ő<EFBFBD>\<5C>\\<5C><><EFBFBD>F$max<61><78><EFBFBD>@<40><><EFBFBD>F<EFBFBD>ԐM<D490>@<40><><EFBFBD>F<EFBFBD><46><EFBFBD>e<EFBFBD>Ҍ<EFBFBD><D28C><EFBFBD><EFBFBD>@<40><><EFBFBD>F<EFBFBD>X<EFBFBD><58><EFBFBD>b<EFBFBD>h<EFBFBD><68><EFBFBD><EFBFBD><EFBFBD>@\<5C>\\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>0<EFBFBD><30><EFBFBD>F<EFBFBD><46><EFBFBD><EFBFBD>\<5C>\\<5C><><hr><3E><><EFBFBD>̌f<CC8C><66><EFBFBD>‚Ɋւ<C98A><D682>邠<EFBFBD><E982A0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><73><EFBFBD>͑S<CD91>Ď<EFBFBD><C48E><EFBFBD><EFBFBD>ŐӔC<D394><43><EFBFBD>Ƃ<EFBFBD><C682>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>B\n";
# <09><><EFBFBD><EFBFBD><EFBFBD>[<5B>h
print "<p></font></font><input type=submit value=\"<22><><EFBFBD>e<EFBFBD>^<5E><><EFBFBD><EFBFBD><EFBFBD>[<5B>h\">\n";
print "</form>\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>
open(DB,"$file");
@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) = 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=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 "<form method=$method action=\"$cgiurl\"><input type=hidden name=\"def\" value=\"$def\"><input type=hidden name=\"bgcolor\" value=\"$bgc\"><input type=submit value=\"<22>@<40><><EFBFBD><EFBFBD><EFBFBD>[<5B>h<EFBFBD>@\"></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<30><37></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{'win_time'} eq "") { &error(1); }
if ($FORM{'win_count'} 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'} = '<27>@'; }
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>s<EFBFBD><73><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if ($max_line) {
$value_size = ($FORM{'value'} =~ tr/\r/\r/) + 1; # \r <20>̐<EFBFBD><CC90>𐔂<EFBFBD><F0909482><EFBFBD>
if ($value_size > $max_line) { &error(1); }
}
# <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if ($max_v) {
$value_size = length($FORM{'value'});
if ($value_size > $max_v) { &error(1); }
}
# <20>J<EFBFBD>E<EFBFBD><45><EFBFBD>^<5E>[<5B><><EFBFBD><EFBFBD>
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];
if ( $FORM{'win_count'} > $maxcount ) { &repeat; }
# <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><EFBFBD><\/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>;
# <20>ő<EFBFBD><C591>ێ<EFBFBD><DB8E>L<EFBFBD>^<5E><><EFBFBD>̏<EFBFBD><CC8F><EFBFBD>
$i = 0;
foreach $line (@lines) {
$i++;
if ($i == $max) { last; }
push(@new,$line);
}
# <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,$postid0,$win_time0,$win_count0) = split(/\,/,$lines[$i]);
if ( $FORM{'value'} eq $value0 ) { $j = 2;}
# if ( $FORM{'win_count'} eq $win_count0 ) { $j = 1; }
# if (( $FORM{'win_count'} > $win_count0 ) &&($FORM{'win_time'} < $win_time0 )){ $j = 1;}
# if (( $FORM{'win_count'} < $win_count0 ) && ($FORM{'win_time'} > $win_time0)){ $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 == 1) { &repeat; }
if ( $j == 0 ) {
$value = "$date_now\,$formname\,$FORM{'email'}\,$FORM{'value'}\,$FORM{'subject'}\,$FORM{'page'}\,$FORM{'image'},$FORM{'code'},$postid,$FORM{'win_time'},$FORM{'win_count'}\n";
unshift(@new,$value);
seek (DB, 0, 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) {
# <20>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̏ꍇ<CC8F><EA8D87>HTML<4D>w<EFBFBD>b<EFBFBD>_<EFBFBD><5F><EFBFBD>t<EFBFBD><74><EFBFBD><EFBFBD>
print LOG "<html>\n<body bgcolor=\"#$bgc\" text=\"#$textc\" link=\"#$linkc\" vlink=\"#$vlinkc\" alink=\"#$alinkc\">\n<hr>";
# <20>ۑ<EFBFBD><DB91><EFBFBD><EFBFBD>T<EFBFBD><54><EFBFBD><EFBFBD><EFBFBD>߂<EFBFBD><DF82><EFBFBD><EFBFBD>ߋ<EFBFBD><DF8B><EFBFBD><EFBFBD>O<EFBFBD>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD>͍폜
( $oldsec, $oldmin, $oldhour, $oldmday, $oldmonth, $oldyear, $oldwday, $oldyday, $oldisdst )
= localtime ( time + $tim - 3 * 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>";
# <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";
print LOG "</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";
# <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{'def'} eq "0" ) { &read; }
elsif ( $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>
open(DB,"$file");
@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 =~ s/\r&gt;\s&gt;\s*\r/\r/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";
# <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";
print "</textarea><p>\n";
if ($himage ne '1') { print "URL<52><4C><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>N<input type=checkbox name=\"image\" value=\"1\"></font> \n";}
else{
print "URL<52><4C><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>N<input type=checkbox name=\"image\" value=\"1\" checked></font> \n";}
#<23>J<EFBFBD>E<EFBFBD><45><EFBFBD>^<5E>[
if ( $countlevel > 0 ){
print "<font size=-1 color=$bgc>$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>\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=\"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>$FORM{search}<7D>̓<EFBFBD><CC93>e<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>
open(DB,"$file");
@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>g<EFBFBD>s<EFBFBD>b<EFBFBD>N<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>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>
open(DB,"$file");
@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 ( $code 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><><EFBFBD>O<EFBFBD>ǂݕ\<5C><><EFBFBD>T<EFBFBD>u<EFBFBD><75><EFBFBD>[<5B>`<60><> #######################################################
sub read {
# <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 "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>
print "<font size=+1><b>$title</b></font><3E>@\n";
print "<font size=-1><b><a href=\"http://www.geocities.com/Tokyo/Subway/1282/front.html\" target=\"_top\"><3E><><EFBFBD><EFBFBD><EFBFBD>点<EFBFBD>y<EFBFBD>[<5B>W</a></b></font> \n";
print " <font size=-1><b><a href=\"http://freehosting1.at.webjump.com/sw/swatty-webjump/\" target=\"_top\"><3E>X<EFBFBD><58><EFBFBD>e<EFBFBD>B</a></b></font>\n";
#print "<font size=-1><b><a href=\"mailto:$mailadd\"><3E>A<EFBFBD><41><EFBFBD><EFBFBD></a></b></font>\n";
print "<form method=$method action=\"$cgiurl\">\n";
print "<input type=hidden name=\"action\" value=\"$action\">\n";
print "<22><><EFBFBD>e<EFBFBD><65> <input type=text name=\"name\" size=20 maxlength=40 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 maxlength=60> \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>[<input type=text name=\"bgcolor\" size=6 value=\"$bgc\"><input type=hidden name=\"link\" value=\"$FORM{'link'}\">\n";
#$month<74><68>$mday<61><79>($youbi)$hour<75><72>$min<69><6E>$sec<65>b
print "<input type=hidden name=\"win_time\" value=\"$month$mday$hour$min$sec\">\n";
print "URL<52><4C><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>N<input type=checkbox name=\"image\" value=\"1\" checked></font> \n";
print "<input type=hidden name=\"code\" value=\"$sec$min\@$pkey.com\">\n";
print "<p><font size=-1><3E>ŋ߂̉ߋ<CC89><DF8B><EFBFBD><EFBFBD>O<EFBFBD><4F><a href=\"./getlog.cgi\" target=\"_top\"><3E><><EFBFBD><EFBFBD></a><3E>B\n";
#<23>J<EFBFBD>E<EFBFBD><45><EFBFBD>^<5E>[
if ( $countlevel > 0 ){
print "<font size=-1>$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>\n"; }
print "<input type=hidden name=\"win_count\" value=\"$maxcount\">\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 "<br><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";
print "<hr><a href=\"http://extra.onlineexpress.net/cgi-bin/strangeworld/bbs.cgi\"><3E>G<EFBFBD>N<EFBFBD>X<EFBFBD>g<EFBFBD><67></a><3E>A<a href=\"http://www.kinsan.ne.jp/~miki/strangeworld/bbs.cgi\"><3E><><EFBFBD>񂳂<EFBFBD></a><3E>A <a href=\"http://famille.onlineexpress.net/cgi-bin/strangeworld/bbs.cgi\"><3E>ӂ<EFBFBD><D382>݁[<5B><></a><3E>A<a href=\"http://www.bea.hi-ho.ne.jp/cgi-bin/user/strangeworld/bbs.cgi\"><3E>͂<EFBFBD><CD82>ف[</a> | <a href=\"http://www4.famille.ne.jp/~haruna/remix/bbs.cgi\">REMIX</a><3E>A<a href=\"http://kakumeigun.onlineexpress.net/cgi-bin/relax/bbs.cgi\">RELAX</a> | <a href=\"http://edoya.neko.to/2/upload.cgi\"><3E><><EFBFBD>E<EFBFBD><45><EFBFBD>Y</a><3E>A<a href=\"http://saturdaytears.virtualave.net/cgi-bin/upload.cgi\"><3E>p<EFBFBD>j<EFBFBD><6A><EFBFBD><EFBFBD><EFBFBD>[</a>\n";
# <20>T<EFBFBD>[<5B>`<60>̒<EFBFBD><CC92>ӏ<EFBFBD><D38F><EFBFBD>
print "<hr><3E>ő<EFBFBD>\<5C>\\<5C><><EFBFBD>F$max<61><78><EFBFBD>@<40><><EFBFBD>F<EFBFBD>ԐM<D490>@<40><><EFBFBD>F<EFBFBD><46><EFBFBD>e<EFBFBD>Ҍ<EFBFBD><D28C><EFBFBD><EFBFBD>@<40><><EFBFBD>F<EFBFBD>X<EFBFBD><58><EFBFBD>b<EFBFBD>h<EFBFBD><68><EFBFBD><EFBFBD><EFBFBD>@\<5C>\\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>0<EFBFBD><30><EFBFBD>F<EFBFBD><46><EFBFBD>ǃ<EFBFBD><C783>b<EFBFBD>Z<EFBFBD>[<5B>W<hr><3E><><EFBFBD>e<EFBFBD>̍폜<CC8D>͂<EFBFBD><CD82>Ȃ<EFBFBD><C882>̂ŁA<C581><41><EFBFBD>̌f<CC8C><66><EFBFBD>‚Ɋւ<C98A><D682>邠<EFBFBD><E982A0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><73><EFBFBD>͎<EFBFBD><CD8E><EFBFBD><EFBFBD>ŐӔC<D394><43><EFBFBD>Ƃ<EFBFBD><C682>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>B\n";
# <09><><EFBFBD><EFBFBD><EFBFBD>[<5B>h
print "<p></font></font><input type=submit value=\"<22><><EFBFBD>e<EFBFBD>^<5E><><EFBFBD><EFBFBD><EFBFBD>[<5B>h\">\n";
print "</form>\n";
#--- <20>L<EFBFBD>^<5E>L<EFBFBD><4C><EFBFBD>̏o<CC8F><6F> ----------------------------------#
# $date=#$month<74><68>$mday<61><79>($youbi)$hour<75><72>$min<69><6E>$sec<65>b
#
# <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");
@lines = <DB>;
close(DB);
#$FORM{'win_time'}=~ s/0//o;
$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(/\,/,$_);
$date_s = $date;
$date=~ s/<2F><>|<7C><>|\(|\)|<7C><>|<7C><>|<7C>b|<7C><>|<7C><>|<7C><>|<7C><>|<7C>y//g;
#$date=~ s/0//o;
if ( $FORM{'win_time'} <= $date ) {
$f = $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/;
$date = $date_s;
&disp;
}
else { last; }
}
$g = $f;
if ( $f eq 0 ) {print "<hr><p><font size=-1><i><3E><><EFBFBD>ǃ<EFBFBD><C783>b<EFBFBD>Z<EFBFBD>[<5B>W<EFBFBD>͂<EFBFBD><CD82><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B</i></font><p>";}
else {print "<hr><p><font size=-1><i>$g<><67><EFBFBD>̃<EFBFBD><CC83>b<EFBFBD>Z<EFBFBD>[<5B>W<EFBFBD><57><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82>B</i></font><p>";}
# <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 method=$method action=\"$cgiurl\"><input type=hidden name=\"def\" value=\"$def\"><input type=hidden name=\"bgcolor\" value=\"$bgc\"><input type=hidden name=\"win_time\" value=\"$month$mday$hour$min$sec\"><input type=submit value=\"<22>@<40><><EFBFBD><EFBFBD><EFBFBD>[<5B>h<EFBFBD>@\"></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<30><37></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/;
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 ($hpage ne'' ) { print "<22>@<a href=\"$cgiurl\?bgcolor\=$bgc\&action\=search3\&search\=$code\" target=\"link\"><3E><></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";
}
# <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 "6") { $error_msg = '<27>A<EFBFBD>N<EFBFBD>Z<EFBFBD>X<EFBFBD><58><EFBFBD><EFBFBD><EFBFBD>ݍ<EFBFBD><DD8D><EFBFBD><EFBFBD>Ă邽<C482>߁A<DF81><41><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>݂ł<DD82><C582>܂<EFBFBD><DC82><EFBFBD><EFBFBD>ł<EFBFBD><C582><EFBFBD><EFBFBD>B<EFBFBD><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>x<EFBFBD>A<EFBFBD><41><EFBFBD>e<EFBFBD>{<7B>^<5E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>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>\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