Source listing of test.cgi.

source back launcher

#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use File::Basename;
print "Content-type: text/html\n\n";
$| = 1;
open (STDERR, ">&STDOUT");
$title="Display information about this web server.";
print "<HTML><HEADER><TITLE>$title</TITLE></HEADER><BODY>";
print "<FONT size=5 face=arial><H1>$title</H1>";
$thisfile = basename($0);
print "<A HREF=dispt.cgi?thissource=$0>source</A>  <A href=../launcher.html>launcher</A><BR><BR>";
if (!defined($referer = $ENV{HTTP_REFERER})) { $referer = "http://onwardoverland.com/index.html"; };
print "\$referer = $referer<BR>\n";
$position = rindex($referer, "//") + 2;
$filename = substr($referer, $position);
print "\$filename = $filename<BR>\n";
$position1 = rindex($filename, "/");
$filename = substr($filename, $position1);
print "\$filename = $filename<BR>\n";
print "\$thisfile = $thisfile<BR>\n";
print "\$0 = $0 <BR>\n";
print "message from $ENV{SERVER_ADDR} to $ENV{REMOTE_ADDR} :-<BR>\n";
$server = $ENV{SERVER_NAME};
print "SERVER_NAME = $server<BR>\n";
if ($server eq "onwardoverland.com"){
$lib = "/home/onwardov/public_html/lib/";
use lib "/home/onwardov/public_html/lib/";
}else{
$lib = "/home/pi/devhtml/lib/";
use lib "/home/pi/devhtml/lib/";}
print "\$lib = $lib <BR>\n";
# use lib $lib;
use Astro::MoonPhase;
use Number::Format;
for $var ( sort keys %ENV ) {
printf "%s = \"%s\"<BR>\r\n", $var, $ENV{$var};
}

print "<BR>Page created on Wednesday September 2nd 2020.<BR><BR></BODY></HTML>";

Page created on Wednesday September 2nd 2020.