#!/usr/bin/perl
#SERVER REQUIREMENTS
#################################################################
# In order to run PerlDiver v1.1: #
# #
# 1) Your web server must have the ability to run cgi #
# programs. #
# #
# 2) You must have the ability to change permissions on #
# the cgi program. #
# #
# 3) PERL 4 or higher on your web server. #
# #
# 4) The File:Find perl module installed on your server. #
# If you're not sure if this is installed, please #
# contact your server administrator. #
# #
# INSTALLATION INSTRUCTIONS #
# #
# To install and run PerlDiver v1.1: #
# #
# 1) If /usr/bin/perl is your path to perl, nothing needs #
# to be done to the perldiver.cgi file itself. #
# #
# If your path to perl is not /usr/bin/perl, change #
# the first line of perldiver.cgi to your path to #
# perl. Simply upload perldiver.cgi into your #
# cgi-bin, or other executable directory in ASCII #
# format. #
# #
# If you don't know your path to perl, and have telnet #
# access, telnet to your account and type: #
# whereis perl #
# #
# There, you will see a list of locations the server #
# looks in (and finds) the perl executable, separated #
# by spaces. Pick one, and type it in the first line #
# of perldiver.cgi. #
# #
# 2) Upload perldiver.cgi in ASCII format to your #
# cgi-bin or other executable directory. #
# #
# 2) Change permissions on the file to 755 (NOTE: some #
# web servers may require permissions of 775 or #
# higher for the program to run. If in doubt, check #
# with your server administrator. #
# #
# 3) Run the program in your browser. #
#################################################################
################ DO NOT CHANGE ANYTHING BELOW ###################
$sendmail =`whereis sendmail`;
$plocation =`whereis perl`;@perlloc = split(" ",$plocation);
@mailloc = split(" ",$sendmail);
$font = '<FONT FACE="Verdana, sans serif" SIZE=2>';
&vars;
print "Content-type: text/html\n\n";
print qq~<HTML><HEAD><TITLE>$program $version</TITLE></HEAD><body bgcolor="#FFFFFF" ALINK="#FDB900" LINK="#BF0425" VLINK="#1200FD" TOPMARGIN=0 LEFTMARGIN=0 RIGHTMARGIN=0><TABLE WIDTH=100% BGCOLOR="#FDB900" CELLPADDING=2 CELLSPACING=0 BORDER=0><TR><TD>
<BR> </TD></TR></TABLE><HR COLOR="#BF0425" SIZE=2><P ALIGN=CENTER><FONT FACE="Courier New,mono" SIZE=3 COLOR="#BF0425"><B>
$dev<BR><FONT SIZE=6>$program $version</FONT></FONT></P></B><P><DIV ALIGN=CENTER><TABLE WIDTH=100% BGCOLOR="#FDB900" CELLPADDING=2 CELLSPACING=0 BORDER=0><TR><TH>$font<FONT SIZE=4>Server-Programm-Pfade</FONT></TD></TR></TABLE><P><TABLE BORDER=0 CELLPADDING=3 WIDTH=95%> <TR><TD BGCOLOR="$bgcolor" WIDTH=35%>${font}<B>Perl Executable:</B></TD><TD WIDTH=65%>${font}$^X</TD></TR> <TR><TD BGCOLOR="$bgcolor">
${font}<B>Perl Version:</B></TD> <TD>${font}$]</TD></TR> <TR><TD BGCOLOR="$bgcolor">${font}<B>PERL compiler version OS:</B></TD> <TD>${font}$^O</TD></TR> <TR><TD BGCOLOR="$bgcolor">${font}<B>GID</B>: <FONT SIZE=1>(steht hier etwas, bist du nicht an einer maschine welche die Mitgliedschaft in mehreren gleichen Gruppen unterstützt)</FONT></TD> <TD>${font}$<</TD></TR> <TR><TD VALIGN=TOP BGCOLOR="$bgcolor">${font}<B>Location von Perl:</B></TD> <TD>${font}~;
foreach $loc(@perlloc)
{
print "$loc<BR>\n";
}
print qq~</TD></TR> <TR><TD VALIGN=TOP BGCOLOR="$bgcolor">${font}<B>Location von Sendmail:</B></TD> <TD>${font}~;
foreach $ml(@mailloc)
{
print "$ml<BR>\n";
}
print qq~</TD></TR> <TR><TD VALIGN=TOP BGCOLOR="$bgcolor">${font} <B>Directory locations searched for perl executables</B></TD><TD>$font~;
foreach $item(@INC)
{
print "$item <BR>\n";
}
print qq~</TD></TR></TABLE><P><TABLE WIDTH=100% BGCOLOR="#FDB900" CELLPADDING=2 CELLSPACING=0 BORDER=0><TR><TH>$font<FONT SIZE=4>Umgebungs-Variables</FONT></TD></TR></TABLE><P><TABLE BORDER=0 CELLPADDING=3 WIDTH=95%>~;
foreach $fieldname(keys %ENV)
{
print qq~ <TR><TD BGCOLOR="$bgcolor" WIDTH=35%><B>${font
}
$fieldname</B></TD> <TD WIDTH=65%>${font}$ENV{$fieldname}</TD></TR>~;
}
print qq~</TABLE><P><TABLE WIDTH=100% BGCOLOR="#FDB900" CELLPADDING=2 CELLSPACING=0 BORDER=0><TR><TH>$font<FONT SIZE=4>Installierte Module</FONT></TD></TR></TABLE><P><TABLE BORDER=0 CELLPADDING=3 WIDTH=100%>~;find(\&wanted,@INC);$modcount = 0;foreach $line(@foundmods)
{
$match = lc($line); if ($found{$line}[0] >0) {$found{$line} = [$found{$line}[0]+1,$match]} else {$found{$line} = ["1",$match];$modcount++}}@foundmods = sort count keys(%found);sub count {return $found{$a}[1] cmp $found{$b}[1]}$third = $modcount/3;$count=0;print "<TR><TD WIDTH=33% VALIGN=TOP><TABLE BORDER=0 CELLPADDING=1>";foreach $mod(@foundmods){ chomp $mod; $count++; if ($count <= $third){ print qq~<TR><TD>${font}$mod</TD></TR>~; } else {push (@mod1,$mod)}}print "</TABLE></TD><TD WIDTH=33% VALIGN=TOP><TABLE BORDER=0 CELLPADDING=1>";$count = 0;foreach $mod1(@mod1){ chomp $mod1; $count++; if ($count <= $third){ print qq~<TR><TD>${font}$mod1</TD></TR>~; } else {push (@mod2,$mod1)}}print "</TABLE></TD><TD WIDTH=33% VALIGN=TOP><TABLE BORDER=0 CELLPADDING=1>";$count = 0;foreach $mod2(@mod2){ chomp $mod2; $count++; if ($count <= $third){ print qq~<TR><TD>${font}$mod2</TD></TR>~; }}print qq~</TABLE></TD></TR></TABLE><P><HR COLOR="#BF0425" SIZE=2>${font}<FONT SIZE=1><TABLE WIDTH=100% BGCOLOR="#FDB900" CELLPADDING=0 CELLSPACING=0 BORDER=0><TR><TD> </TD></TR></TABLE></BODY></HTML>~;exit;sub vars {$dev="Der ultimative Helfer";use File::Find;$bgcolor = "GHOSTWHITE";$program="Server-Info";$version="1.0";}sub wanted { $count = 0; if ($File::Find::name =~ /\.pm$/){ open(MODFILE,$File::Find::name) || return; while(<MODFILE>){ if (/^ *package +(\S+);/){ push (@foundmods, $1); last; } } }}
Was passiert, wenn du auf Perl-Module testen klickst?? Poste mal bitte die Meldung die ausgegeben wird. Langsam glaube ich nämlich, das bei dir kein perl geht
