|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/toc/cgi-bin/ |
Upload File : |
#!/usr/bin/perl
# a little test cgi program
$color='black';
$cgi_arg = $ENV{'QUERY_STRING'};
if ($cgi_arg =~ /color=(.*)/) { $color = $1; }
$date = localtime(time);
print <<__END__;
Content-type: text/html
<HTML><HEAD><TITLE>The time is now</TITLE></HEAD>
<BODY><H3>The time is now:</H3>
<FONT COLOR="$color">
<CENTER><H1>$date</H1></CENTER>
</FONT></BODY></HTML>
__END__