#!/usr/bin/perl

################################################################
#                                                              #
#           Enviroment Script von Silvio Ludin           #
#                                                              #
#                                                              #
#                        http://www.perlscripts.ch                    #
#                                                              #
#                                                              #
#                           Readme-Datei                       #
#                                                              #
#             Dieser Eintrag darf nicht entfernt werden.       #
#       Der Inhalt der Daten darf nur mit Absprache mit mir    #
#               geaendert werden (webmaster@perlscripts.ch).           #
#             Falls ihr das Script auf eurer HP einsetzt       #
#              wuerde ich mich ueber eine Mail freuen.         #
#  Das Script zum Download anzubieten oder weiterzuverkaufen   #
#                         ist auch verboten.                   #
################################################################

# Den Pfad zu Perl anpassen,  Rechte auf 755 und schon gehts los

use File::Find;

$sendmail	=`whereis sendmail`;
@sendmail = split(" ",$sendmail);
print "Content-type: text/html\n\n";   

print "<center><br><b>- Perl-Info -</b><br><br>";
print "  <table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" bgcolor=\"#000000\">";
print "                    <tr>";
print "                      <td>";
print "                        <table width=\"100%\" border=\"0\" cellspacing=\"1\" cellpadding=\"2\">";
print "                          <tr bgcolor=\"#FFFFFF\">"; 
print "                        <td><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\"> ";
print "                              <div>";




print "<b>Pfad zu Sendmail:</b><br>";

foreach $sendm(@sendmail){
	print "$sendm<br>\n";
}

print "<b><br>Umgebungsvariablen:</b><br>";

foreach $env(keys %ENV){
	print "<b>$env: </b>\n"; 
	print "$ENV{$env}<br>\n"; 
}

print "<br><center><font face=\"verdana\" size=\"1\">&copy; 2001 by <a href=\"http://www.perlscripts.ch\">Silvio Ludin</a></center><br>";
print "</div>";
print "                          </font>";
print "                            </td>";
print "                          </tr>";
                          
print "                        </table>";
print "</center>";