26 lines
619 B
Perl
26 lines
619 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
use CGI;
|
||
|
|
|
||
|
|
$cgi = CGI->new();
|
||
|
|
print $cgi->header();
|
||
|
|
print $cgi->start_html(-title=>'8-Ball',-BGCOLOR=>'white');
|
||
|
|
print "<h1>Your Answer</h1>\n";
|
||
|
|
#print "Your query was: @ARGV<p>\n";
|
||
|
|
print "The data you passed was:<p>\n";
|
||
|
|
@param_names = $cgi->param();
|
||
|
|
foreach $p (@param_names) {
|
||
|
|
$value = $cgi->param($p);
|
||
|
|
print "Param $p = $value<p>\n";
|
||
|
|
}
|
||
|
|
print "Sorry, ask again later.<p>\n";
|
||
|
|
print $cgi->end_html();
|
||
|
|
<html>
|
||
|
|
<head>
|
||
|
|
<title>Command-Line CGI</title>
|
||
|
|
</head>
|
||
|
|
<body>
|
||
|
|
Ask the
|
||
|
|
<A HREF="/cgi-bin/cmdline.cgi?name1=value1&name2=value2">
|
||
|
|
param</A>
|
||
|
|
</body>
|
||
|
|
</html>
|