#!/usr/bin/perl $sendmail1 =`whereis sendmail`; $plocation =`whereis perl`; @pathsys = split(/;/,$ENV{'PATH'}); @sendmail = split(/ /,$sendmail1); $sm=1 if ($sendmail[1] ne ""); if (eval "require LWP::Simple;"){ $LWPCHECK="OK"; } else { $LWPCHECK="not found"; $ko=1;} if (eval "require CGI;"){ $CGICHECK="OK"; } else { $CGICHECK="not found"; $ko=1;} if (eval "require Net::SMTP;"){ $SMTPCHECK="OK"; $sm=1; } else { $SMTPCHECK="not found"; } if (-e $pathsys[1].'\Blat.exe') { $BLATCHECK="OK"; $sm=1; }else { $BLATCHECK="not found"; } if (-e $pathsys[1].'\Sendmail.exe') { $WINSMAILCHECK="OK"; $sm=1; }else { $WINSMAILCHECK="not found"; } $sendmail="not found" if ($sendmail eq ""); if ($sm eq "1" && $ko ne "1"){ $results="System check complete. You may install the software";}else{ $results="WARNING - Perl modules and/or and mail programs NOT available. See details.";} print "Content-Type: text/html\n\n"; print qq(

Operating System: $^O

PERL CHECK
Perl Location:	$^X
Perl Version:	$]
CGI Perl Module:	$CGICHECK
LWP Perl Module:	$LWPCHECK

MAIL PROGRAM CHECK (at least 1 must be "OK")
Unix Sendmail:	$sendmail[1]
Net SMTP:	$SMTPCHECK
Blat.exe:	$BLATCHECK
Windows Sendmail.exe:	$WINSMAILCHECK

); while (($key,$value) = each %ENV) { print qq(); } print qq(

VARIABLES
$key:	$value

RESULTS: $results

);