#!/usr/local/bin/perl ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); @wday_array = ('日','月','火','水','木','金','土'); $date_now = sprintf("%04d年%01d月%01d日(%s)%02d時%02d分%02d秒",$year +1900,$mon +1,$mday,$wday_array[$wday],$hour,$min,$sec); $hhmm = sprintf("%02d:%02d",$hour,$min); $tim = 9; $pmon=$mon; $ppmon=$pmon+1; require 'jcode.pl'; $log="./puta.dat"; $kakolog="./kako.dat"; $COPYRIGHT='
[戻る]'."\n"; $COPYRIGHT2='
'."\n"; if($ENV{'QUERY_STRING'}){ ($value=$ENV{'QUERY_STRING'}) =~ s/[\n\r\+ ]//g; $value =~ s/%(\w\w)/pack("C", hex($1))/eg; $value =~ s/<\;/g; &jcode'convert(*value,'sjis'); $value=substr($value,2,200); ($uname)=split(/:/,$value); undef($value); $uname =~ s/[ ]//g; } &GetFormdata; if($FORM{'a'}){ ########################### #メール送信 ########################### ############ #初期設定 ############ #####メールアドレス保存ファイル名 $MailAddFile='sinmailadd.csv'; #####Sendmailへのパス $SendmailCmnd='/usr/lib/sendmail'; #####送信元メールアドレス管理者のメールアドレスを入れる。 $AdminMail='m-sakura@muc.biglobe.ne.jp'; #####jcode.plのパス require 'jcode.pl'; #####パスワード #$password=''; ############ #初期設定ここまで ############ &Send; } print <<"EOL"; Content-type: text/html EOL open(IN,$log); @olds=@henji
\n"; } else { @henji = "検索結果:該当するものはありませんでした。"; print "@henji
\n"; } } if ($FORM{'a'}) { (@kkk) = split(/・/,$kako[0]); foreach $kkk(@kkk) { if ($uname !~ /(?)$/) { if ($kkk =~ /?/) { push(@ans,"・$kkk");} } else { if ($kkk !~ /。/) { if ($kkk !~ /?/) { push(@ans,"・$kkk"); } } } } $ccc = substr($uname,0,4); @henji = "☆ニャン子で~す:"; @henji2 = "追加登録しました:"; srand(time); @aaa = @ans; @eee = @aaa; (@fff) = split(/・/,$olds[0]); foreach $fff(@fff) { if ($fff =~ m/$ccc/) { push(@bbb,"・$fff");} } if ($bbb[0] ne "") { @henji = "関連情報だよ~:"; push(@henji,"@bbb"); } else { foreach $eee(@eee) { if ($eee =~ m/$ccc/) { push(@bbb,"$eee");} } if ($bbb[0] ne "") { @bbbb = split(/・/,splice(@bbb,rand @bbb,1)); push(@henji,"@bbbb"); } else { @bbbb = split(/・/,splice(@aaa,rand @aaa,1)); push(@henji,"@bbbb");} } (@mmm) = split(/>/,$olds[0]); foreach $mmm(@mmm) { $mmm =~ s/r/r>/g; } if (@mmm[200] ne "") { pop(@mmm);} if ($uname =~ /。/||$uname =~ /。/) { $new="・$uname($ppmon/$mday)@henji
\n";} } print "@olds\n"; print $COPYRIGHT,"\n"; print $COPYRIGHT2,"