sub module_inventory { my @modules=qw/ Net::Ping Net::LDAP HTML::Template GnuPG::Fingerprint GnuPG::UserID GnuPG::Tie::ClearSign Date::Range Date::Manip Date::Calc Calendar::Simple CGI::Log CGI::LogCarp CGI::Cookie CGI::CoockieSerial CGI::EZForm CGI::FormBuilder GD CGI::Graph HTML::Calendar::Simple HTML::CalendarMonth HTML::Form HTML::TableLayout Spreadsheet::WriteExcel MIME::Lite MIME::Entity MIME::Tools MIME::Base64 Mail::Send Mail::Sendmail /; my $rstring=""; $rstring .= Tr(th("Module"),th("Status")); foreach my $mod(sort @modules) { eval " use $mod; " ; if ($@) { $rstring .= Tr(td($mod),td(b("Not Available"),$@)); } else { $rstring .= Tr(td($mod),td("OK")); } } $rstring .="
"; return $rstring; }