/) {
if ($max_msgs != 0) {
if ($msgs++ >= $max_msgs) {
last;
}
}
}
print OUT;
}
close(IN);
close(OUT);
}
#if ($ARGV[0] eq "reload") {
# rmdir("lock/wwwboard.loc");
# print "Location: $ENV{'SCRIPT_NAME'}\n";
# print "\n";
# exit(0);
#}
$arashika='
本ミニストリに対して問答無用に反対の立場を取る人々の閲覧を禁止します。このHPはそのような人に向けて書かれたものではありません。個人攻撃をするつもりはいっさいありません。もっぱら霊的な利益を受けようとする心の柔軟な人々のために公開されている私的スペースです。
';
$arashika2="This is a personal site for my specific purpose of sharing testimonies to spiritual and material blessings provided me with by God and teaching of His Word with true believers in the Bible and its sound teachings, so if you are interested in critcizing my ministry, please get out of here as soon as possible so that you can spend your precious time on minding your own business. If you continue to visit this and other pages included in my domain for critical purposes, your ID information will be registered in my server for security.:<\/font>
$evh
$evhh<\/font>";
$arashika3='
このHPの維持のために、あなたのサポートを感謝します。
Edyが現在ギフト停止となっており申し訳ございません。
ご意見・ご感想・ご質問はゲストブックよりお願いします。
';
#
# Print HTML document
#
#print "Content-type: text/html\n";
print "\n";
print "\n";
print "\n";
print ' ';
print "ミレニアム新着情報\n";
print "\n";
print "\n";
print "ミレニアム新着情報\n";
if ($return_url ne "") {
print "[戻る]
$arashika $arashika2 $arashika3
<\/font>";
}
$pte='すが、アラシ行為やHPと関係ない内容、理由のない、ただ印象や感覚で断罪し、反論の余地を与えないような批判、自説の一方的吹聴などマナー違反の投稿は禁止します';
print "
\n";
$subsoshi=<<'EOF';
EOF
if ($remote eq $netcafe){
$subsoshi2=$subsoshi;
}
print $subsoshi2;
unless($FORM{'FROM'} eq 'tomi2'){
open(IN, "wwwboard.dat");
while () {
$_ =~ s/\#Kuromaru\#/\・/g;####2006225
$_=~s/\&\;\#8212\;/\- /g;
$_=~s/\&\;shy\;/\-/g;
$_ =~ s/\&\;middot\;/・/g;
$_ =~ s/\·\;/・/g;
$_ =~ s/\&\#65279\;//g;
$_ =~ s/#ondo#C/℃/g;
$_ =~ s/\&\;ordm\;C/℃/g;
$_ =~ s/\&\#22323\;/?/g;
$_ =~ s/(tak0719\.)hp(\.infoseek)/\1web\2/g;
# $_=~s/(\"\>http\:\/\/.{10}).*(<\/a>)/\1\.\.\.\2/g;
print;
}
close(IN);
print "$nakanohito";
print "\n";
print "\n";
}
#
# File unlock
#
rmdir("lock/wwwboard.loc");
@zz=split/\n/,$value;
if ($FORM{'FROM'} eq 'tomi' or $tomi3 == 1) {
job(@zz);
}
elsif($FORM{'FROM'} eq 'tomi2'){
job2(@zz);
}
sub bbs {
$moment="../cgi-bin/moment";
$db= tie %hash, "DB_File", "$moment";
$time2=time;
$datum="$ENV{'REMOTE_ADDR'}".'`?'."$ENV{'HTTP_USER_AGENT'}";
$db->put($time2,$datum);
foreach (sort {$a<=>$b} keys %hash){
if ($_ < $time2 - 24*60*60){
$db -> del($_);
}
}
$ev=grep ($_ eq $datum ? 1:0, sort {$a<=>$b} values %hash);
if ($evh !~ /atena/){
&count_1;
}
$millnm='millnm@path.ne.jp';
$sendmail = '/usr/lib/sendmail';
$year=(localtime)[5];
$year=$year-100;
$month=(localtime)[4];
$month=$month+1;
$day=(localtime)[3];
$hour=(localtime)[2];
$min=(localtime)[1];
$sec=(localtime)[0];
unless ($evh =~ /Alexa Toolbar/ or $evh =~/hatena/ or $evh =~/MailFlash/ or $evhh=~/219\.214\.195\.127/){
unless ($sml eq 'OFF'){
open MAIL,"|$sendmail $millnm";
}
if ($kaki){
&print1;
}
sub print1 {
print MAIL <;
chomp $cnt;
flock AAA,8;
close AAA;
$cnt2=$cnt+1;
open AAA, ">$cfile";
flock AAA,2;
print AAA "$cnt2\n";
flock AAA,8;
close AAA;
}
sub job2{
local @zz=@_;
local $ttle=$zz[0];
local $textt=join"\n",@zz[1 .. $ww];
@ttlea=split/\#/,$ttle;
$index=0;
foreach (@ttlea){
$_=~s/\n|\s//g;
$_=~s/^.*?(\d\d\d\d\/)/\1/;
@ooi=split/\)/,$_;
$ooi[0]=$ooi[0].')';
$ooi[0]=~s/\(.*?\)//;
$o1=$ooi[1].'#'."$index";
$fff{$o1}=$o0;
$hhh{$ooi[1]}=$o1;
++$index;
}
open AAA, "./wwwboard.dat";
$index=0;
while (){
$ik[$index]=$_;
++$index;
}
close AAA;
$ik=join'',@ik;
$ik=~s/\n//g;
$ik=~s/(\))\s*(\d\d\:\d\d)/\1\2/g;
$ik=~s/(
)/\1###`/g;
@ika=split/\#\#\#\`/,$ik;
foreach $iko (@ika){
$iko=~s/(\))\s*(\d\d\:\d\d)/\1\2/g;
if (@ggg=grep($_=~s/\#\d$// && $iko=~/$_/ && $iko=~/$fff{$hhh{$_}}/ ? 1:0 , keys %fff)){
$iko='';
}
}
$kik=@ika;
@ika=@ika[0 .. 25];
@ika=grep($_ eq '' ? 0:1, @ika);
open AAA, ">./wwwboard.dat";
print AAA @ika;
close AAA;
open AAA, ">./wwwboard.tmp";
print AAA @ika;
close AAA;
open AAA, "./wwwboard.dat";
while(){
$_=~s/\&\;\#8212\;/\- /g;
$_=~s/\&\;shy\;/\-/g;
print;
}
#| tomii 2003/12/14(日) 12:56 |
}
sub job {
local @zz=@_;
local $ww=@zz;
local $ttle=$zz[0];
local $textt=join"\n",@zz[1 .. $ww];
if ($ttle eq '' or $ttle =~ /^\n$/ or $ttle =~ /^
$/ or $ttle=~/<.*>/ or $ttle=~/(\<\;).*(\>\;)/){
print "
No title"; exit;
}
#@rrr=split/2003\//,$textt;
#print $dod=substr $rrr[1], 0, 5;
#@ppo=split/\//,$dod;
unless ($tomi3){
open AAA, "../QAE/$QAE2";
}
$index=0;
while (){
$Ccc[$index]=$_;
++$index;
}
$Ccc=join'',@Ccc;
$Ccc=~s/\#Kuromaru\#/・/;
$Ccc =~ s/\&\#22323\;/?/g;
$Ccc =~ s/(tak0719\.)hp(\.infoseek)/\1web\2/g;
$tnm=$ttle;
srand(time ^ ($$ + ($$ << 15)));
$salt=int(rand(99));
$salt=substr $salt,0,2;
$tnm=crypt $tnm, $salt;
$salt=$salt + 2;
$tnm=crypt $tnm, $salt;
$nm9=int(rand (99));
$nm9=substr $nm9,3,2;
$tnm=substr $tnm,$nm9,8;
$tnm=~s/[\.\-]//g;
$tnm=~s/\//\l/g;
$tim=time;
$tim=substr $tim,-5;
$tnm="$tnm"."$tim";
@tnm=split//, $tnm;
@tnm=reverse @tnm;
$tnm=join'',@tnm;
$tnm=$tnm.$tim;
srand(time ^ ($$ + ($$ << 15)));
$salt=int(rand(99));
$salt=substr $salt,0,2;
$tnm=crypt $tnm, $salt;
$tnm=~s/[\.\-]//g;
$tnm=~s/\//\l/g;
$tnm=$tnm.$tim;
@files = <../QAE/*>;
foreach (@files){
$_=~s/\.\.\/QAE\///;
$_=~s/\.htm$//;
}
if(grep ($_ eq $tnm ? 1:0, @files)){
$tnm=$tnm.$tnm;
}
open FFF, ">../QAE/$tnm.htm";
&txt;
$tabletext=~s/#title#/$ttle/g;
$tabletext=~s/#Kuromaru#/\・/g;
$tabletext=~s/\&\;\#8212\;/\-/g;
$tabletext=~s/\&\;shy\;/\-/g;
$tabletext =~ s/\&\;middot\;/・/;
$tabletext =~ s/\·\;/・/;
$tabletext =~ s/\&\#65279\;//g;
$tabletext =~ s/#ondo#/o/g;
$tabletext =~ s/\&\#22323\;/?/g;
$tabletext =~ s/(tak0719\.)hp(\.infoseek)/\1web\2/g;
# $tabletext=~s/(\"\>http\:\/\/.{10}).*(<\/a>)/\1\.\.\.\2/g;
$textt3=$textt2=$textt;
$textt3=~s/((<|<)blockquote(>|>))/\1\n\-\-\-\-\-\-\-Quote\-\-\-\-\-\-\-\n/gi;
$textt3=~s/((<|<)\/blockquote(>|>))/\1\n\-\-\-\-\-\-\-Unquote\-\-\-\-\-\-\-\n/gi;
$textt=~s/\n/
/g;
$tabletext=~s/#text#/$textt/;
$year2=$year-100;
# $month=$ppo[0];
# $day=$ppo[1];
$tabletext=~s/#time#/20$year2年$month月$day日/;
$tabletext=~s/\n//g;
$textt2=~ s/(http:\/\/)([\w\/\.\~\_\?\-\=\&\#\;\.\,\%\+\:]*)/\1#\2<\/a>/g;
$textt2=~ s/(http:\/\/)#/\1/g;
$textt2 =~ s/\#Kuromaru\#/\・/g;####2006225
$textt2 =~s/\&\;\#8212\;/\-/g;
$textt2 =~s/\&\;shy\;/\-/g;
$textt2 =~ s/\&\;middot\;/・/;
$textt2 =~ s/\·\;/・/;
$textt2 =~ s/\&\#65279\;//g;
$textt2 =~ s/\&\#22323\;/?/g;
$textt2 =~ s/(tak0719\.)hp(\.infoseek)/\1web\2/g;
# $textt2=~s/(\"\>http\:\/\/.{10}).*(<\/a>)/\1\.\.\.\2/g;
&pip;
$tabletext=~ s/(http:\/\/)([\w\/\.\~\_\?\-\=\&\#\;\.\,\%\+\:]*)/\1#\2<\/a>/g;
$tabletext=~ s/(http:\/\/)#/\1/g;
$tabletext=~ s/(<)(\/*)(blockquote)(>)/<\2\3>/g;
$tabletext=~ s/<\/blockquote>\s*
\s*
/<\/blockquote>
/g;
$tabletext=~ s/(<\/blockquote>\s*)(
)(\s*)/\2\2/g;
$tabletext=~ s/()\s*(.*?)\s*(<\/blockquote>)/\1\2<\/font>\3/g;
$tabletext=~s/(http:)#(\/\/www\.path\.ne\.jp\/~millnm\/home\.html)/\1\2/;
$tabletext=~s/[^(<)]tomi[^(>)]\s20\d\d\/\d+\/\d+\(.+\)\s.+?\d\d//;
$kiki=' millnm@path.ne.jp';
$tabletext=~s/(<\/body>)/$kiki\1/i;
$tabletext =~ s/\#Kuromaru\#/\・/g;####2006225
$tabletext =~s/\&\;\#8212\;/\-/g;
$tabletext=~s/\&\;shy\;/\-/g;
$tabletext =~ s/\&\;middot\;/・/;
$tabletext =~ s/\·\;/・/;
$tabletext =~ s/\&\#65279\;//g;
$tabletext =~ s/\&\#22323\;/?/g;
$tabletext =~ s/(tak0719\.)hp(\.infoseek)/\1web\2/g;
#$tabletext=~s/(\"\>http\:\/\/.{10}).*(<\/a>)/\1\.\.\.\2/g;
print FFF $tabletext;
close FFF;
$table=<<"LLL";
$ttle
LLL
@ef=split/<\/P>/,$Ccc;
$Ccc=$ef[0]."$table".$ef[1];
open AAA, ">../QAE/$QAE2";
print AAA $Ccc;
close AAA;
}
sub txt{
$tabletext=<<"TTX";
#title# #title#
#text# #time# ホーム
TTX
}
sub pip {
require 'addresslist.pl';
$mosia='申し上げます';
&alist;
$yubin="本誌へのご意見、ご感想は、投稿者氏名等の個人情報を伏せたうえで、本誌上で紹介させて頂くことがございます。あらかじめご了承下さるようお願い$mosia。\n本メールマガジンは筆者(富井 健)により皆様のサポートにより運営されております。\nバックナンバー、内容紹介は、こちら↓をご利用ください。\n\n
http://www.path.ne.jp/~millnm/home.html
\n\n
========================\n\n
銀行振込口座 みずほ銀行 高田馬場支店 普1383128 トミイ タケシ\n
郵便貯金口座 記号10320 番号46958981 トミイ タケシ\n\n";
foreach ($ttle,$textt2,$textt3){
$_=~ s/(<)(\/*)(blockquote)(>)//g;
$_=~s/<//g;
$_=~s/"/"/g;
$_=~s/&/\&/g;
}
#@adresslist=('millnm@path.ne.jp');
$year=$year-100;
$localtime3="20$year年$month月$day日$hour時$min分$sec秒";
&jcode::convert(*localtime3, 'jis');
foreach $mailad (@adresslist){
unless ($tomi3 == 1){
open MAIL,"|$sendmail $mailad";
}
print MAIL <$aaw:<\/font> Banned IP:"; print $jjoin;
}
__END__
#, ‘名古屋’,‘61.193.251.87’, ‘東京’, ‘61.119.162.78’, ‘名古屋’, ‘61.114.193.34’, ‘東京’, ‘60.42.221.84’, ‘日本’, ‘60.42.17.84’, ‘日本’, ‘60.238.140.4’, ‘Misato’, ‘59.190.62.96’, ‘奈良’, ‘59.190.62.3’, ‘奈良’, ‘59.146.195.53’, ‘大阪’, ‘59.141.47.210’, ‘市川’, ‘59.106.88.246’, ‘佐倉’, ‘58.90.105.84’, ‘倉敷’, ‘58.70.20.19’, ‘大津’, ‘58.3.150.160’, ‘熊本’, ‘4.232.171.164’, ‘ｶﾘﾌｫﾙﾆｱﾀﾞｳﾆｰ’, ‘222.7.73.211’, ‘船橋’, ‘222.230.86.152’, ‘横浜’, ‘222.230.130.111’, ‘横浜’, ‘222.2.99.116’, ‘東京’, ‘222.15.92.182’, ‘藤沢’, ‘221.81.250.88’, ‘Hyogo’, ‘221.65.235.160’, ‘福岡’, ‘221.60.70.148’, ‘栃木大田原’, ‘221.34.236.134’, ‘長野飯田’, ‘221.188.249.47’, ‘京都’, ‘221.119.19.103’, ‘神戸’, ‘221.108.17.253’, ‘東京’, ‘220.98.211.241’, ‘大阪’, ‘220.55.22.87’, ‘久留米’, ‘220.4.164.6’, ‘足利’, ‘220.255.7.199’, ‘ｼﾝｶﾞﾎﾟｰﾙ’, ‘220.146.199.231’, ‘浜松’, ‘220.145.234.224’, ‘いわき’
,‘61.197.218.212’,‘東京’
|