PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Gegenstück zu phpinfo()



Abraxas
04.09.03, 14:17
Hallo zusammen!

Gibt es eigentlich eine Möglichkeit mit einem Perl-Skript die Konfiguration von Perl und mod_perl komplett anzuzeigen? Für PHP gibt´s da ja den Befehl phpinfo()...

Kip
04.09.03, 14:29
Original geschrieben von Abraxas
Für PHP gibt´s da ja den Befehl phpinfo()...

... und für so Fragen gibts Google ;) Ne, Spass beiseite, mich hats auch mal interessiert und das hab ich bei google dazu gefunden - vielleicht hilfts dir ja weiter:



#! /usr/bin/perl -w
use strict;
use File::Find;

# html-header schreiben
print ("Content-type: text/html\n\n");
print <<EOH;
<HTML>
<HEAD>
<meta name="MSSmartTagsPreventParsing" content="TRUE">
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
<META NAME="robots" CONTENT="noindex">
</HEAD>
<BODY bgcolor="#FFDD00" text="#000000">
EOH
;

# Betriebssystem und Perl-Informationen herausfinden
print "Operating system: ", $^O, "<BR>\n";
print "Perl-Location: ", `which perl`, "<BR>\n";
print "Perl-Version: " , `perl -v`, "<BR>\n";
print "Sendmail-Location: ", `which sendmail`, "<BR>\n";
print "Date-Location: ", `which date`, "<BR>\n";
print "<HR>";
print "PATH: @INC\n";
print "<HR>";

# installierte Module auflisten
foreach my $dir (@INC){
find sub {
print "$File::Find::name<BR>\n" if /\.pm$/;
}, $dir;
}
print "<HR>";

# Environment-Variablen auslesen
foreach (keys %ENV){
print ("$_ => $ENV{$_}<BR>\n");
}
print "<HR>";

# HTML-Footer schreiben
print <<EOF;
</BODY>
</HTML>
EOF
;


Quelle (http://www.fabiani.net/tips/perl/enhanced/cgi.shtml)

Abraxas
04.09.03, 15:04
cool - Danke!

...hatte allerdings auch schon bei Google geschaut, aber nicht das richtige gefunden.