#!/usr/local/bin/perl
use strict;
use CGI qw(:standard);
use HTML::Entities;
my $module = param('module');
print header(
-type => "text/html",
-charset => "ISO-8859-1",
);
print <<"_HTML_";
Module Checker
Module Checker
_HTML_
if ($module) {
$module =~ s!::!/!g;
eval {
require "$module.pm";
};
$module =~ s!/!::!g;
if ($@) {
print qq!Failed to load "$module".
\n!;
} else {
my $ver = $module->VERSION;
print qq!Succeed to load "$module v$ver".
\n!;
if (open(FH, "perldoc $module |")) {
print qq!!;
print encode_entities($_, '<>&"') foreach ;
print qq!
\n!;
close(FH);
}
}
} else {
print qq!Input module name and submit.
\n!;
}
print <<"_HTML_";
_HTML_
exit;