232 lines
9 KiB
Plaintext
232 lines
9 KiB
Plaintext
|
#! /usr/local/bin/perl
|
|||
|
|
|
|||
|
|
;# <20><><EFBFBD><EFBFBD><EFBFBD>̃p<CC83>X<EFBFBD>̓v<CD83><76><EFBFBD>o<EFBFBD>C<EFBFBD>_<EFBFBD>ɂ<EFBFBD><C982><EFBFBD><EFBFBD>ĈႤ<C488>̂Œ<CC82><C592>ׂĐݒ肷<DD92><E882B7>
|
|||
|
|
;# (<28><><EFBFBD><EFBFBD><EFBFBD>͂<EFBFBD><CD82>̃X<CC83>N<EFBFBD><4E><EFBFBD>v<EFBFBD>g<EFBFBD>̍ŏ<CC8D><C58F>̂P<CC82>s<EFBFBD>ɂȂ<C982><C882><EFBFBD><EFBFBD>Ȃ炸<C882>A<EFBFBD><41><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɋ<EFBFBD><C98B>s<EFBFBD><73><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B)
|
|||
|
|
;# (<28><><EFBFBD>̐ݒ肪<DD92>K<EFBFBD>v<EFBFBD>Ȃ<EFBFBD><C882>T<EFBFBD>[<5B>o<EFBFBD><6F><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82>B<EFBFBD><42><EFBFBD>ʓI<CA93>ȏꍇ<C88F><EA8D87><EFBFBD>z<EFBFBD>肵<EFBFBD>ĉ<EFBFBD><C489><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482>܂<EFBFBD><DC82>B)
|
|||
|
|
;# (<28><><EFBFBD>ɁA<C981>v<EFBFBD><76><EFBFBD>o<EFBFBD>C<EFBFBD>_<EFBFBD><5F><EFBFBD><EFBFBD><EFBFBD>A<EFBFBD>i<EFBFBD>E<EFBFBD><45><EFBFBD>X<EFBFBD><58><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>B)
|
|||
|
|
;#
|
|||
|
|
;# <20>ȈՂa<D582>a<EFBFBD>r version 7.5<EFBFBD>i<EFBFBD>t<EFBFBD><EFBFBD><EFBFBD>[<5B>\<5C>t<EFBFBD>g<EFBFBD>j
|
|||
|
|
;#
|
|||
|
|
;# Script written by Kazu.Y
|
|||
|
|
;# Created on: 02/05/96
|
|||
|
|
;# Last Modified on: 11/06/97
|
|||
|
|
;# I can be reached at: rescue@ask.or.jp
|
|||
|
|
;# Scripts Found at: http://www.ask.or.jp/~rescue/
|
|||
|
|
;#
|
|||
|
|
;# <<3C><><EFBFBD>p<EFBFBD>K<EFBFBD><4B><EFBFBD>̔<EFBFBD><CC94><EFBFBD>>
|
|||
|
|
;# 1.<2E><><EFBFBD>̃X<CC83>N<EFBFBD><4E><EFBFBD>v<EFBFBD>g<EFBFBD>͎<EFBFBD><CD8E><EFBFBD><EFBFBD>Ŏg<C58E><67><EFBFBD><EFBFBD><EFBFBD>߂ɏ<DF82><C98F><EFBFBD><EFBFBD>Ȃ<EFBFBD><C882>Ɏ<EFBFBD><C98E>R<EFBFBD>ɉ<EFBFBD><C989><EFBFBD><EFBFBD><EFBFBD><EFBFBD>邱<EFBFBD>Ƃ<EFBFBD><C682>ł<EFBFBD><C582>܂<EFBFBD><DC82>B
|
|||
|
|
;# 2.<2E><><EFBFBD><EFBFBD><EFBFBD>̗L<CC97><4C><EFBFBD>ɂ<EFBFBD><C982><EFBFBD><EFBFBD><EFBFBD><EFBFBD>炸<EFBFBD>A<EFBFBD><41><EFBFBD>̃X<CC83>N<EFBFBD><4E><EFBFBD>v<EFBFBD>g<EFBFBD><67><EFBFBD>Ĕz<C494>z<EFBFBD><7A><EFBFBD>邱<EFBFBD>Ƃ͂ł<CD82><C582>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B
|
|||
|
|
;# 3.<2E><><EFBFBD>̃V<CC83>X<EFBFBD>e<EFBFBD><65><EFBFBD><EFBFBD><EFBFBD>L<EFBFBD><4C><EFBFBD>ő<EFBFBD><C591>l<EFBFBD>ɐݒu<DD92><75><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD><EFBFBD>肷<EFBFBD><E882B7><EFBFBD>s<EFBFBD>ׂ͖<D782><CD96>f<EFBFBD>ł͂ł<CD82><C582>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B
|
|||
|
|
|
|||
|
|
#--- <20>K<EFBFBD><4B><EFBFBD><EFBFBD><EFBFBD>Ȃ<EFBFBD><C882>̊<CC8A><C28B>ɍ<EFBFBD><C98D>킹<EFBFBD>ď<EFBFBD><C48F><EFBFBD><EFBFBD>ւ<EFBFBD><D682>鍀<EFBFBD><E98D80> --------------------------------------------#
|
|||
|
|
|
|||
|
|
# <20>폜<EFBFBD><ED8F9C><EFBFBD>[<5B>h<EFBFBD>ڍs<DA8D>p<EFBFBD>X<EFBFBD><58><EFBFBD>[<5B>h<EFBFBD>̐ݒ<CC90><DD92>i''<27><><EFBFBD>ɔC<C994>ӂ̃p<CC83>X<EFBFBD><58><EFBFBD>[<5B>h<EFBFBD><68><EFBFBD>L<EFBFBD>q<EFBFBD><71><EFBFBD><EFBFBD><EFBFBD>j
|
|||
|
|
$password = '<27>K<EFBFBD><4B><EFBFBD>Ɍ<EFBFBD><C98C>߂Ă<DF82>';
|
|||
|
|
|
|||
|
|
# <20>f<EFBFBD><66><EFBFBD>̖<C282><CC96>O
|
|||
|
|
$title = '<27>i<EFBFBD>f<EFBFBD><66><EFBFBD>̖<C282><CC96>O<EFBFBD>j<EFBFBD>폜<EFBFBD><ED8F9C><EFBFBD><EFBFBD>';
|
|||
|
|
|
|||
|
|
# <20><><EFBFBD>̃X<CC83>N<EFBFBD><4E><EFBFBD>v<EFBFBD>g<EFBFBD><67><EFBFBD>t<EFBFBD>q<EFBFBD>k<EFBFBD>Őݒ<C590><DD92>i<EFBFBD><69><EFBFBD><EFBFBD><EFBFBD>Ɍ<EFBFBD><C98C>߂Ăˁj
|
|||
|
|
$reload = 'delete.cgi';
|
|||
|
|
|
|||
|
|
#--- <20>K<EFBFBD>v<EFBFBD>ɉ<EFBFBD><C989><EFBFBD><EFBFBD>Đݒ肷<DD92>鍀<EFBFBD><E98D80> ------------------------------------------------------------#
|
|||
|
|
|
|||
|
|
#<23>@<40><><EFBFBD><EFBFBD><EFBFBD>F<EFBFBD><46><EFBFBD>w<EFBFBD>i<EFBFBD>Ȃǂ̐ݒ<CC90><DD92>i<EFBFBD>ʏ<EFBFBD><CA8F><EFBFBD><body><3E>^<5E>O<EFBFBD>j
|
|||
|
|
#<23>@<40>薼<EFBFBD>Ɠ<EFBFBD><C693>e<EFBFBD>ҐF<D290>̓X<CD83>N<EFBFBD><4E><EFBFBD>v<EFBFBD>g<EFBFBD><67><EFBFBD><EFBFBD><font color><3E>^<5E>O<EFBFBD><4F><EFBFBD>T<EFBFBD><54><EFBFBD>Đݒ肵<DD92>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>B
|
|||
|
|
$body = '<body bgcolor="#004040" text="#ffffff" link="#eeffee" vlink="#dddddd" alink="#ff0000">';
|
|||
|
|
|
|||
|
|
#<23>@<40><><EFBFBD>{<7B><><EFBFBD>R<EFBFBD>[<5B>h<EFBFBD>ϊ<EFBFBD><CF8A><EFBFBD><EFBFBD>C<EFBFBD>u<EFBFBD><75><EFBFBD><EFBFBD>
|
|||
|
|
# <20><><EFBFBD><EFBFBD> jcode.pl <20><> minibbs.cgi <20>ƈႤ<C688>f<EFBFBD>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67><EFBFBD>ɐݒu<DD92><75><EFBFBD><EFBFBD><EFBFBD>ꍇ<EFBFBD>͑<EFBFBD><CD91>ΓI<CE93>ɐݒ肷<DD92>邱<EFBFBD><E982B1>
|
|||
|
|
require './jcode.pl';
|
|||
|
|
|
|||
|
|
#<23>@<40><><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>
|
|||
|
|
# <20><><EFBFBD><EFBFBD> minibbs.dat <20><> minibbs.cgi <20>ƈႤ<C688>f<EFBFBD>B<EFBFBD><42><EFBFBD>N<EFBFBD>g<EFBFBD><67><EFBFBD>ɐݒu<DD92><75><EFBFBD><EFBFBD><EFBFBD>ꍇ<EFBFBD>͑<EFBFBD><CD91>ΓI<CE93>ɐݒ肷<DD92>邱<EFBFBD><E982B1>
|
|||
|
|
$file = './loveyou.dat';
|
|||
|
|
|
|||
|
|
# <20>C<EFBFBD>O<EFBFBD>T<EFBFBD>[<5B>o<EFBFBD><6F><EFBFBD>Ŏ<EFBFBD><C58E><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ꍇ<EFBFBD>͏C<CD8F><43><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD>
|
|||
|
|
# <20>C<EFBFBD>O<EFBFBD><4F><EFBFBD>ԂɁ{<7B>X<EFBFBD><58><EFBFBD>Ԃ<EFBFBD><D482><EFBFBD><EFBFBD>ꍇ<EFBFBD>@= localtime(time + 9*60*60);
|
|||
|
|
# <20>C<EFBFBD>O<EFBFBD><4F><EFBFBD>ԂɁ|<7C>X<EFBFBD><58><EFBFBD>Ԃ<EFBFBD><D482><EFBFBD><EFBFBD>ꍇ<EFBFBD>@= localtime(time - 9*60*60);
|
|||
|
|
# <20>i<EFBFBD>Q<EFBFBD>l<EFBFBD>jtime<6D>ɂ<EFBFBD>1970<37>N<EFBFBD><4E><EFBFBD><EFBFBD><EFBFBD>̕b<CC95><62><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482>܂<EFBFBD>
|
|||
|
|
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
|
|||
|
|
|
|||
|
|
# <20><><EFBFBD>͌`<60><><EFBFBD>̐ݒ<CC90><DD92>@<40>W<EFBFBD><57><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:post <20><><EFBFBD>̑<EFBFBD>:get
|
|||
|
|
# <20><><EFBFBD>e<EFBFBD>{<7B>^<5E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Method not implemented.. <20>Ƃ<EFBFBD><C682><EFBFBD><EFBFBD>G<EFBFBD><47><EFBFBD>[<5B><><EFBFBD>o<EFBFBD><6F><EFBFBD>ꍇ<EFBFBD><EA8D87> get <20>Ŏ<EFBFBD><C58E><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
$method = 'post';
|
|||
|
|
|
|||
|
|
###########################################################################################
|
|||
|
|
#
|
|||
|
|
# <20>E<EFBFBD>L<EFBFBD>^<5E>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD>ɂ͏<C982><CD8F><EFBFBD><EFBFBD>̓s<CC93><73><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>R<EFBFBD>[<5B>h<EFBFBD><68><EFBFBD>L<EFBFBD>^<5E><><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82>̂ŁA<C581><41><EFBFBD>ڕҏW<D28F>͂ł<CD82><C582>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B
|
|||
|
|
# <20>E<EFBFBD>X<EFBFBD>N<EFBFBD><4E><EFBFBD>v<EFBFBD>g<EFBFBD>̒<EFBFBD><CC92>g<EFBFBD><67><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ւ<EFBFBD><D682><EFBFBD><EFBFBD>ꍇ<EFBFBD>́Aperl<72><6C>CGI<47><49>HTML<4D>Ȃǂ̂<C782><CC82><EFBFBD><EFBFBD>Ȃ<EFBFBD><C882>̒m<CC92><6D><EFBFBD><EFBFBD><EFBFBD>K<EFBFBD>v<EFBFBD>ł<EFBFBD><C582>B
|
|||
|
|
# <20>E<EFBFBD>ݒu<DD92>Ɋւ<C98A><D682>鎿<EFBFBD><E98EBF><EFBFBD>̓`<60><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>W<EFBFBD>b<EFBFBD>f<EFBFBD>h<EFBFBD><68><EFBFBD>p<EFBFBD>f<EFBFBD><66><EFBFBD><EFBFBD><C282><EFBFBD><EFBFBD><EFBFBD><EFBFBD>p<EFBFBD><70><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>B<EFBFBD><42><EFBFBD><EFBFBD><EFBFBD>̎<EFBFBD><CC8E><EFBFBD><EFBFBD>͎܂<F382AF82><DC82><EFBFBD><EFBFBD>B
|
|||
|
|
# http://www2r.meshnet.or.jp/~rescue/webboard/
|
|||
|
|
#
|
|||
|
|
###########################################################################################
|
|||
|
|
|
|||
|
|
# <20><><EFBFBD>L<EFBFBD><4C>localtime<6D>Ŏ擾<C58E><E693BE><EFBFBD><EFBFBD>$mon<6F>ɂ<EFBFBD>0<EFBFBD><30><EFBFBD><EFBFBD>11<31>܂ł̐<C582><CC90><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̂ŏC<C58F><43><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
$month = ($mon + 1);
|
|||
|
|
|
|||
|
|
# <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Q<EFBFBD><51><EFBFBD>ɓ<EFBFBD><C993>ꂷ<EFBFBD>鏈<EFBFBD><E98F88><EFBFBD>i<EFBFBD>폜<EFBFBD><ED8F9C><EFBFBD><EFBFBD><EFBFBD>ɊW<D68C><57><EFBFBD><EFBFBD><EFBFBD>̂ŏ<CC82><C58F><EFBFBD><EFBFBD>ւ<EFBFBD><D682>Ȃ<EFBFBD><C882><EFBFBD><EFBFBD>Ɓj
|
|||
|
|
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>
|
|||
|
|
# $wday<61>ɂ<EFBFBD>0<EFBFBD><30><EFBFBD><EFBFBD>6<EFBFBD>܂ł̐<C582><CC90><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>j<EFBFBD><6A><EFBFBD>ɑΉ<C991><CE89><EFBFBD><EFBFBD>Ă<EFBFBD><C482><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<EFBFBD>i<EFBFBD>폜<EFBFBD><ED8F9C><EFBFBD><EFBFBD><EFBFBD>ɊW<D68C><57><EFBFBD><EFBFBD><EFBFBD>̂ŏ<CC82><C58F><EFBFBD><EFBFBD>ւ<EFBFBD><D682>Ȃ<EFBFBD><C882><EFBFBD><EFBFBD>Ɓj
|
|||
|
|
$date_now = "$month<74><68>$mday<61><79>($youbi)$hour<75><72>$min<69><6E>$sec<65>b";
|
|||
|
|
|
|||
|
|
# <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") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
|
|||
|
|
else { $buffer = $ENV{'QUERY_STRING'}; }
|
|||
|
|
|
|||
|
|
# $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<69>ɓ<EFBFBD><C993>ꂷ<EFBFBD><EA82B7>
|
|||
|
|
&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>̓f<CD83>[<5B>^<5E>̋L<CC8B>^<5E>ɉe<C989><65><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̂ŏ<CC82><C58F><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
|
|||
|
|
$value =~ s/</</g; $value =~ s/>/>/g;
|
|||
|
|
$value =~ s/\,//g;
|
|||
|
|
|
|||
|
|
if ($name eq "target") { push(@RM,$value); }
|
|||
|
|
else { $FORM{$name} = $value; }
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
# <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=remove <20><><EFBFBD><EFBFBD> pwd=<3D>ݒ<EFBFBD><DD92>p<EFBFBD>X<EFBFBD><58><EFBFBD>[<5B>h --> <20>폜<EFBFBD><ED8F9C><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ēʏ<C492><CA8F><EFBFBD><EFBFBD>ʂ<EFBFBD>
|
|||
|
|
# action=remove --> <20>폜<EFBFBD>L<EFBFBD><4C><EFBFBD>I<EFBFBD><49><EFBFBD><EFBFBD><EFBFBD>ʂ<EFBFBD>
|
|||
|
|
# 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 'remove' && $FORM{'pwd'} eq $password) { &remove2; &remove1; exit; }
|
|||
|
|
elsif ($FORM{'pwd'} eq $password) { &remove1; exit; }
|
|||
|
|
&html;
|
|||
|
|
|
|||
|
|
sub html {
|
|||
|
|
|
|||
|
|
#--- <20><><EFBFBD>̓t<CD83>H<EFBFBD>[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> --------------------------------#
|
|||
|
|
|
|||
|
|
# <20>b<EFBFBD>f<EFBFBD>h<EFBFBD>ŏo<C58F>͂<EFBFBD><CD82>ꂽ<EFBFBD>f<EFBFBD>[<5B>^<5E><><EFBFBD>g<EFBFBD>s<EFBFBD>l<EFBFBD>k<EFBFBD>Ƃ<EFBFBD><C682>ĔF<C494><46><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>w<EFBFBD>b<EFBFBD>_<EFBFBD>̏o<CC8F><6F>
|
|||
|
|
print "Content-type: text/html\n\n";
|
|||
|
|
|
|||
|
|
print "<html><head><title>$title</title></head>\n";
|
|||
|
|
print "<body text=#ffffff link=#eeffee alink=#ff0000 vlink=#dddddd bgcolor=#004040>\n";
|
|||
|
|
|
|||
|
|
|
|||
|
|
print "<font size=+1><b>$title</b></font><p>\n";
|
|||
|
|
|
|||
|
|
print "<form method=$method action=\"$reload\">\n";
|
|||
|
|
print "<hr size=5><p><3E>p<EFBFBD>X<EFBFBD><58><EFBFBD>[<5B>h <input type=password name=\"pwd\" size=10>\n";
|
|||
|
|
print "<input type=submit value=\"<22>Ǘ<EFBFBD><C797>ҍ폜\"></form>\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 "<h4 align=right><hr size=5><a href=\"http://www.ask.or.jp/~rescue/\" target=\"_top\">MiniBBS v7.5</a> is Free.</h4>\n";
|
|||
|
|
print "</body></html>\n";
|
|||
|
|
exit;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
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 "1") { $error_msg = '<27><><EFBFBD>e<EFBFBD>Җ<EFBFBD><D296><EFBFBD><EFBFBD>L<EFBFBD><4C><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482>܂<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 "tag") { $error_msg = '<27><><EFBFBD>p<EFBFBD><70><EFBFBD>ł<EFBFBD><C582>Ȃ<EFBFBD><C882>^<5E>O<EFBFBD><4F><EFBFBD>L<EFBFBD>q<EFBFBD><71><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482>܂<EFBFBD><DC82>̂œ<CC82><C593>e<EFBFBD>ł<EFBFBD><C582>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B'; }
|
|||
|
|
elsif ($error eq "form") { $error_msg = "<22><><EFBFBD>e<EFBFBD><65><EFBFBD>ʂ̂t<CC82>q<EFBFBD>k<EFBFBD><6B><br>$reload<br>" . '<27>ȊO<C88A><4F><EFBFBD><EFBFBD><EFBFBD>̓<EFBFBD><CC93>e<EFBFBD>͂ł<CD82><C582>܂<EFBFBD><DC82><EFBFBD><EFBFBD>B'; }
|
|||
|
|
|
|||
|
|
print "Content-type: text/html\n\n";
|
|||
|
|
print "<html><head><title>$title</title></head>\n";
|
|||
|
|
print "$body\n";
|
|||
|
|
print "<h3>$error_msg</h3>\n";
|
|||
|
|
print "</body></html>\n";
|
|||
|
|
exit;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
sub remove1 {
|
|||
|
|
|
|||
|
|
if (!open(DB,"$file")) { &error(0); }
|
|||
|
|
@lines = <DB>;
|
|||
|
|
close(DB);
|
|||
|
|
|
|||
|
|
print "Content-type: text/html\n\n";
|
|||
|
|
print "<html><head><title>$title</title></head>\n";
|
|||
|
|
print "<body text=#ffffff link=#eeffee alink=#ff0000 vlink=#dddddd bgcolor=#007f7f>\n";
|
|||
|
|
print "<font size=+2><b><3E>폜<EFBFBD><ED8F9C><EFBFBD>[<5B>h</b></font> [<a href=\"$reload\"><3E>߂<EFBFBD></a>] [<a href=\"bbs.cgi\"><3E>f<EFBFBD><66><EFBFBD>ɖ߂<C996></a>]<p>\n";
|
|||
|
|
|
|||
|
|
print "<form method=$method action=\"$reload\">\n";
|
|||
|
|
print "<input type=hidden name=\"action\" value=\"remove\">\n";
|
|||
|
|
print "<input type=hidden name=\"pwd\" value=\"$FORM{'pwd'}\">\n";
|
|||
|
|
print "<input type=submit value=\" <20>폜 \"><input type=reset value=\"<22><><EFBFBD>Z<EFBFBD>b<EFBFBD>g\"><br>\n";
|
|||
|
|
print "<pre>";
|
|||
|
|
print " <20>o<EFBFBD>^<5E><> <20><><EFBFBD>e<EFBFBD><65> <20>^<5E>C<EFBFBD>g<EFBFBD><67> <20><><EFBFBD>e<hr>\n";
|
|||
|
|
|
|||
|
|
foreach $line (@lines) {
|
|||
|
|
|
|||
|
|
($date,$name,$email,$value,$subject) = split(/\,/,$line);
|
|||
|
|
|
|||
|
|
$name =~ s/</</g; $name =~ s/>/>/g;
|
|||
|
|
$value =~ s/</</g; $value =~ s/>/>/g;
|
|||
|
|
$subject =~ s/</</g; $subject =~ s/>/>/g;
|
|||
|
|
|
|||
|
|
|
|||
|
|
$value =~ s/\0/\,/g;
|
|||
|
|
chop($subject) if $subject =~ /\n/;
|
|||
|
|
$value =~ s/<!--.*-->//ig; $value =~ s/</</ig; $value =~ s/>/>/ig; $value =~ s/\n/./g; $value =~ s/\r/./g;
|
|||
|
|
|
|||
|
|
$i1 = length($subject);
|
|||
|
|
if ($i1 > 20) { $subject = substr($subject,0,18); $subject = $subject . '..'; }
|
|||
|
|
elsif ($i1 < 20) { $blank = ' ' x (20 - $i1); $subject = $subject . $blank; }
|
|||
|
|
|
|||
|
|
$i2 = length($name);
|
|||
|
|
if ($i2 > 20) { $name = substr($name,0,18); $name = $name . '..'; }
|
|||
|
|
elsif ($i2 < 20) { $blank = ' ' x (20 - $i2); $name = $name . $blank; }
|
|||
|
|
|
|||
|
|
if (length($value) > 40) { $value = substr($value,0,40); }
|
|||
|
|
print "<input type=checkbox name=\"target\" value=\"$date\">";
|
|||
|
|
print "$date $name $subject $value \n";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
print "</pre><p>\n";
|
|||
|
|
print "</form><p>\n";
|
|||
|
|
print "</body></html>\n";
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
sub remove2 {
|
|||
|
|
|
|||
|
|
if (!open(DB,"$file")) { &error(0); }
|
|||
|
|
@lines = <DB>;
|
|||
|
|
close(DB);
|
|||
|
|
|
|||
|
|
foreach $line (@lines) {
|
|||
|
|
|
|||
|
|
($date,$name,$email,$value,$subject) = split(/\,/,$line);
|
|||
|
|
$del = 0;
|
|||
|
|
foreach $target (@RM) { if ($target eq $date) { $del = 1; } }
|
|||
|
|
if ($del == 0) { push(@new,$line); }
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (!open(DB,">$file")) { &error(0); }
|
|||
|
|
print DB @new;
|
|||
|
|
close(DB);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
#end_of_script
|