There have been
URI: /countertest.html
Name: countertest.html
0[an error occurred while processing this directive]
1[an error occurred while processing this directive]
2[an error occurred while processing this directive]
3#!/usr/local/bin/perl
print "hello";
4#!/usr/local/bin/perl
print "hello";
5[an error occurred while processing this directive]
6[an error occurred while processing this directive]
7[an error occurred while processing this directive]
8[an error occurred while processing this directive]
9[an error occurred while processing this directive]
A[an error occurred while processing this directive]
B[an error occurred while processing this directive]
C[an error occurred while processing this directive]
D[an error occurred while processing this directive]
E[an error occurred while processing this directive]
F#!/usr/local/bin/perl
$new = 0;
$err = 0;
if ( $ENV{'REQUEST_METHOD'} eq "GET")
{
$in = $ENV{'QUERY_STRING'};
}
else
{
$in = ;
}
@pairs = split(/&/, $in);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%(..)/pack("C", hex($1))/eg;
push (@args, $value);
}
open (MY_DATA, "$args[0]") or $err = 1;
if ($err == 0)
{
@old = ;
close MY_DATA;
foreach $current (@old)
{
$new = $current + 1;
}
print "$new";
if ($args[0] =~ /^([-\@\w.]+)$/)
{
$args[0] = $1;
if (open (MY_DATA, ">$args[0]"))
{
print MY_DATA "$new";
close MY_DATA;
}
else
{
$err = 2;
}
}
else
{
$err = 3;
}
}
if ($err)
{
print("Unknown($err)");
}
G#!/usr/local/bin/perl
$new = 0;
$err = 0;
if ( $ENV{'REQUEST_METHOD'} eq "GET")
{
$in = $ENV{'QUERY_STRING'};
}
else
{
$in = ;
}
@pairs = split(/&/, $in);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%(..)/pack("C", hex($1))/eg;
push (@args, $value);
}
open (MY_DATA, "$args[0]") or $err = 1;
if ($err == 0)
{
@old = ;
close MY_DATA;
foreach $current (@old)
{
$new = $current + 1;
}
print "$new";
if ($args[0] =~ /^([-\@\w.]+)$/)
{
$args[0] = $1;
if (open (MY_DATA, ">$args[0]"))
{
print MY_DATA "$new";
close MY_DATA;
}
else
{
$err = 2;
}
}
else
{
$err = 3;
}
}
if ($err)
{
print("Unknown($err)");
}
H[an error occurred while processing this directive]
I[an error occurred while processing this directive]
J[an error occurred while processing this directive]
K[an error occurred while processing this directive]
L[an error occurred while processing this directive]
M[an error occurred while processing this directive]
N[an error occurred while processing this directive]
O[an error occurred while processing this directive]
P[an error occurred while processing this directive]
Q[an error occurred while processing this directive]
R#!/usr/local/bin/perl
$new = 0;
$err = 0;
print "Content-type: text/html";
print "\n\r\n\r";
printf "\n\n\n\n\n\n";
if ( $ENV{'REQUEST_METHOD'} eq "GET")
{
$in = $ENV{'QUERY_STRING'};
}
else
{
$in = ;
}
@pairs = split(/&/, $in);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%(..)/pack("C", hex($1))/eg;
push (@args, $value);
}
open (MY_DATA, "$args[0]") or $err = 1;
if ($err == 0)
{
@old = ;
close MY_DATA;
foreach $current (@old)
{
$new = $current + 1;
}
print "$new";
if ($args[0] =~ /^([-\@\w.]+)$/)
{
$args[0] = $1;
if (open (MY_DATA, ">$args[0]"))
{
print MY_DATA "$new";
close MY_DATA;
}
else
{
$err = 2;
}
}
else
{
$err = 3;
}
}
if ($err)
{
print("Unknown($err)");
}
print "\n\n";
print "\n";
S#!/usr/local/bin/perl
$new = 0;
$err = 0;
print "Content-type: text/html";
print "\n\r\n\r";
printf "\n\n\n\n\n\n";
if ( $ENV{'REQUEST_METHOD'} eq "GET")
{
$in = $ENV{'QUERY_STRING'};
}
else
{
$in = ;
}
@pairs = split(/&/, $in);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%(..)/pack("C", hex($1))/eg;
push (@args, $value);
}
open (MY_DATA, "$args[0]") or $err = 1;
if ($err == 0)
{
@old = ;
close MY_DATA;
foreach $current (@old)
{
$new = $current + 1;
}
print "$new";
if ($args[0] =~ /^([-\@\w.]+)$/)
{
$args[0] = $1;
if (open (MY_DATA, ">$args[0]"))
{
print MY_DATA "$new";
close MY_DATA;
}
else
{
$err = 2;
}
}
else
{
$err = 3;
}
}
if ($err)
{
print("Unknown($err)");
}
print "\n\n";
print "\n";
T[an error occurred while processing this directive]
U[an error occurred while processing this directive]
V[an error occurred while processing this directive]
W[an error occurred while processing this directive]
X[an error occurred while processing this directive]
Y[an error occurred while processing this directive]
Z[an error occurred while processing this directive]
visitors to this page.
"For NASA, space is still a high priority." - Dan Quayle
Test