SystemyAngelFirezSystem
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
p($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
p($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
p($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
p($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
p($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
p($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
$jcode;
$cl = $ENV{"CONTENT_LENGTH"};
if( $cl > 0 ){
read(STDIN, $qs, $cl );
}
else{
$qs = $ENV{"QUERY_STRING"};
}
@contents = split(/&/,$qs);
foreach
$i (0 .. $#contents) {
local($key,$text)= split(/=/,$contents[$i]);
$text =~ s/\+/ /g;
$text =~ s/%(..)/pack("c",hex($1))/ge;
$text =~ s/[\r\n]/\n/g;
$text =~ s/\%/%25/ig;
$text =~ s/\&/%26/ig;
$text =~ s/\?/%3f/ig;
$text =~ s/\+/%2b/ig;
if
($key eq 'article'){while(1){if (!(chomp($article))){last;}}}
$text =~ s/\n/%0D/g;
&jcode::convert(\$text,'sjis');
$readpage = $text if $key eq 'readpage';
$resnum = $text if $key eq 'resnum';
$delnum = $text if $key eq 'delnum';
$act = $text if $key eq 'act';
$name = $text if $key eq 'name';
$url =
$text if $key eq 'url';
$mail = $text if $key eq 'mail';
$title
= $text if $key eq 'title';
$article = $text if $key eq 'article';
$delkey =
$text if $key eq 'key';
}
$readpage||=0;
$resnum||=0;
$delnum||=0;
($sec,$min,$hour,$day,$month,$year,$wday) = gmtime(time() + 32400);
$month++;
$year+=1900;
if
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")
"0123456789abcdefghijklmnopqrstuvwxyzABCDEGHIJKLMNOPQRSTUVWXYZ./";
my $a2
= substr($a1,int(rand(64)),1).substr($a1,int(rand(64)),1);
my $cryptpass = crypt
($delkey,$a2);
my $bfnum = 0;
my $flag = 0;
my (@temp2,@temp3,$newtime,$newart,$writenum)
;
open(IO,"+<$logfile");
while(){
@temp3 = split(/<>/,$_);
if (($temp3[0] == $resnum)
&& ($flag == 0)){
$flag = 1;
}
elsif (($temp3[0] != $resnum) &&
($flag == 1)){
$writenum = $bfnum+1;
push(@temp2,"$resnum<>$writenum<>$name<>
<><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".time()."<>$ip/$host<>\n");
$flag = 2;
}
push(@temp2,$_);
if ($temp3[9] > $newtime){
$newtime = $temp3[9];
$newart = $temp3[8];
}
$bfnum = $temp3[1];
}
if (($flag == 0) || ($newart eq
{
close(IO);
&dataoutput;
}
elsif ($flag == 1){
$writenum||=$bfnum+1;
push
(@temp2,"$resnum<>$writenum<>$name<><><>$cryptpass<>$year/$month/$day $hour:$min<><>$article<>".
time()."<>$ip/$host<>\n");
}
truncate(IO,0);
seek(IO,0,0);
print IO @temp2;
close (IO)
;
$buffer = "resreturn=\[$writenum\] $year/$month/$day $hour:$min $name%0d$article%0d%0d&"
;
print "Set-Cookie:dname=$name; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
print "Set-Cookie
:dkey=$delkey; expires=Thu, 1-Jan-2030 00:00:00 GMT;\n";
&dataoutput;
}
($min < 10){$min = "0$min";}
if ($hour < 10){$hour = "0$hour";}
if ($day < 10)
{$day = "0$day";}
if ($mon < 10){$mon = "0$mon";}
$ip = $ENV{'REMOTE_ADDR'}
;
$host = gethostbyaddr(pack("C4", split(/\./, $ip)), 2);
$host ||=
$ENV{'REMOTE_HOST'};
$host ||= $ip;
$buffer = "";
if ($act eq "artwrite")
{&artwrite;}
elsif ($act eq "reswrite"){&reswrite;}
elsif ($act eq "delete")
{&delete;}
else{&artlist;}
exit;
{&reswrite;}
elsif ($act eq "delete")