#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
# MOFcart v2.5.10.21.03 SIMPLE TEST FILE #
# Prg ->
use Cwd;
$vars{'root_cgi'} = cwd;
if (-w "$vars{'root_cgi'}") {
$vars{'root_cgi_write'} = "$vars{'root_cgi_write'} is Writable";
} else {
$vars{'root_cgi_write'} = "POSSIBLE PROBLEM: $vars{'root_cgi_write'} NOT Writable";
}
$vars{'root_http'} = 'http://' . $ENV{HTTP_HOST};
$vars{'LocalTime'} = (localtime(time));
$vars{'GMTime'} = (gmtime(time));
$vars{'OS_PERL'} = ($^O);
$vars{'OS'} = $ENV{'OS'};
$vars{'PWD'} = $ENV{'PWD'};
$vars{'HTTPS'} = $ENV{'HTTPS'};
$vars{'PATH_INFO'} = $ENV{'PATH_INFO'};
$vars{'LOCAL_ADDR'} = $ENV{'LOCAL_ADDR'};
$vars{'SCRIPT_NAME'} = $ENV{'SCRIPT_NAME'};
$vars{'REMOTE_ADDR'} = $ENV{'REMOTE_ADDR'};
$vars{'REMOTE_HOST'} = $ENV{'REMOTE_HOST'};
$vars{'SERVER_NAME'} = $ENV{'SERVER_NAME'};
$vars{'COMPUTERNAME'} = $ENV{'COMPUTERNAME'};
$vars{'DOCUMENT_ROOT'} = $ENV{'DOCUMENT_ROOT'};
$vars{'HTTP_USER_AGENT'} = $ENV{'HTTP_USER_AGENT'};
$vars{'SERVER_SOFTWARE'} = $ENV{'SERVER_SOFTWARE'};
$vars{'PATH_TRANSLATED'} = $ENV{'PATH_TRANSLATED'};
$vars{'GATEWAY_INTERFACE'} = $ENV{'GATEWAY_INTERFACE'};
print "Content-Type: text/html\n\n";
print "Testing ...
";
print "Basic CGI Server Test
";
print " ";
while (($key, $val) = each (%vars)) {
print "- $key, $val \n";
}
print "
";
print "Happy Ordering
";
print "Merchant OrderForm v2.5 \© Copyright MerchantPal.com \n";
print " \n\n";