#!/usr/bin/perl
#
# Module Checker ver.0.01
# by t-nishida@mvh.biglobe.ne.jp 2003/07/07
#
@MODULES = ('Jcode', 'CGI', 'GD');
print "Content-type:text/html; charset=Shift_JIS\n\n";
print "Module Checker
";
foreach $modname(@MODULES){
eval "use $modname;";
print "Module = $modname
";
print "Exist = ";
if($@){ print "NO"; }else{ print "YES"; }
print "
Version = ";
if($@){ print "N/A"; }else{ eval "print \$${modname}::VERSION;"; }
print "
ErrorMsg = $@
";
}
print "";