Initial Commit
This commit is contained in:
5
database/cgi-bin/cgi.cgi
Normal file
5
database/cgi-bin/cgi.cgi
Normal file
@@ -0,0 +1,5 @@
|
||||
#!"\xampp\perl\bin\perl.exe"
|
||||
|
||||
print "Content-Type: text/html\n\n";
|
||||
|
||||
print "OK";
|
||||
10
database/cgi-bin/perltest.cgi
Normal file
10
database/cgi-bin/perltest.cgi
Normal file
@@ -0,0 +1,10 @@
|
||||
#!"\xampp\perl\bin\perl.exe"
|
||||
|
||||
print "Content-type: text/html\n\n";
|
||||
print '<html>';
|
||||
print '<head>';
|
||||
print '<meta name="author" content="Kay Vogelgesang">';
|
||||
print '<link href="/xampp/xampp.css" rel="stylesheet" type="text/css">';
|
||||
print '</head>';
|
||||
print "<body> <p><h1>GCI with MiniPerl</h1>";
|
||||
print "CGI with MiniPerl is ready ...</body></html>";
|
||||
12
database/cgi-bin/printenv.pl
Normal file
12
database/cgi-bin/printenv.pl
Normal file
@@ -0,0 +1,12 @@
|
||||
#!"\xampp\perl\bin\perl.exe"
|
||||
##
|
||||
## printenv -- demo CGI program which just prints its environment
|
||||
##
|
||||
|
||||
print "Content-type: text/plain; charset=iso-8859-1\n\n";
|
||||
foreach $var (sort(keys(%ENV))) {
|
||||
$val = $ENV{$var};
|
||||
$val =~ s|\n|\\n|g;
|
||||
$val =~ s|"|\\"|g;
|
||||
print "${var}=\"${val}\"\n";
|
||||
}
|
||||
Reference in New Issue
Block a user