| Server IP : 72.52.161.74 / Your IP : 216.73.217.108 Web Server : Apache System : Linux host.fullhousewebmarketing.com 3.10.0-1160.144.1.el7.tuxcare.els8.x86_64 #1 SMP Sun Jul 5 17:25:39 UTC 2026 x86_64 User : tcfcfd_admin ( 10045) PHP Version : 8.1.34 Disable Function : opcache_get_status MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /var/www/vhosts/thecenterforchildandfamilydevelopment.com/httpdocs/test/perl/ |
Upload File : |
# Copyright 1999-2016. Parallels IP Holdings GmbH. All Rights Reserved.
use ExtUtils::Installed;
my ($inst) = ExtUtils::Installed->new();
my (@modules) = $inst->modules();
print <<HTML;
Content-type: text/html
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" type="text/css" href="../../css/style.css" />
</head>
<body class="test-data">
<table cellspacing="0" cellpadding="0" border="0">
<tr class="subhead" align="Left"><th>Name</th><th>Value</th></tr>
HTML
for my $i ($[ .. $#modules) {
my $version = $inst->version($modules[$i]) || "???";
my $class = ($i % 2) ? "alt" : "normal";
print <<HTML;
<tr class="$class"><td valign="top">$modules[$i]</td><td>$version</td></tr>
HTML
}
print <<HTML;
</table>
</body>
</html>
HTML