Module listing [Archive] - Web Hosting Talk

The Prohacker

07-30-2001, 03:52 PM

Make a cgi file in your cgi-bin, and chmod it, and dump this as the contents:

#!/usr/bin/perl

print "Content-type: text/html\n\n";
print <<HTML;
<html>
<head>
<title>Perl Check</title>
</head>
<BODY BGCOLOR="#999999" TEXT="#000000" LINK="#000000" VLINK="#000000" ALINK="#000000">
<center>
<table bgcolor="#000000" cellpadding="0" cellspacing="0" width="600" border="0">
<tr>
<th>
<table bgcolor="#000000" cellpadding="4" cellspacing="1" width="600" border="0">
<tr>
<th bgcolor="#666666"><font color="#FFFFFF">Perl Check</th>
</tr>
<tr>
<th bgcolor="#999999">
<form>
<textarea name="" rows="10" cols="80" style="background-color: #999999 ; font-size: 8pt; color: #000000 ; font-family: Verdana">
HTML

print "Perl Version: $]\n\n";

$mail_prog = "/usr/lib/sendmail";
$result = &find_mail ($mail_prog);
if (! $result) {
$mail_prog = "/usr/sbin/sendmail";
$result = &find_mail ($mail_prog);
if (! $result) {
$mail_prog = "/var/qmail/bin/qmail-inject";
$result = &find_mail ($mail_prog);
if (! $result) { $mail_prog = "Unknown"; }
}
}

print "Server Mail Program Path: $mail_prog\n\n";

foreach $item (keys %ENV) { print "$item = $ENV{$item}\n";}
$curr_dir = `pwd`;
print "\nCurrent Directory: $curr_dir\n";

print "Installed Modules:\n";
print "==================\n";

use File::Find;
my (@mod, %done, $dir);

find (\&get_module, grep { -r and -d } @INC);
@mod = grep (!$done{$_}++, @mod);
foreach $dir (sort { length $b <=> length $a } @INC) {
foreach (@mod) { next if s,^\Q$dir,,; }
}
foreach (@mod) { s,^/(.*)\.pm$,$1,; s,/,::,g; print "$_\n"; }
print "\nNumber Modules Installed: $#mod";

print <<HTML;
</textarea>
</form>
</th>
</tr>
</table>
</th>
</tr>
</table>
</center>

</body>
</html>
HTML
exit;
sub find_mail {

my $path = shift (@_);

unless (-e "$path") { return 0; }
return 1;
}

sub get_module {

/^.*\.pm$/ && /$ARGV[0]/i && push @mod, $File::Find::name;
}
exit;