sites/rochesterbanquets.com/httpdocs/rer-jan16/test/perl/test.pl

   1 use ExtUtils::Installed;
   2 my ($inst) = ExtUtils::Installed->new();
   3 my (@modules) = $inst->modules();
   4
   5 print <<HTML;
   6 Content-type: text/html
   7
   8 <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
   9 <html>
  10 <head>
  11 <title></title>
  12 <meta http-equiv="Content-Type" content="text/html">
  13 <link rel="stylesheet" type="text/css" href="../../css/style.css">
  14 </head>
  15 <body>
  16 <table cellspacing="0" cellpadding="0" border="0">
  17 <tr class="subhead" align="Left"><th>Name</th><th>Value</th></tr>
  18 HTML
  19
  20 for my $i ($[ .. $#modules) {
  21    my $version = $inst->version($modules[$i]) || "???";
  22    my $class = ($i % 2) ? "alt" : "normal";
  23    print <<HTML;
  24 <tr class="$class"><td valign="top">$modules[$i]</td><td>$version</td></tr>
  25 HTML
  26 }
  27
  28 print <<HTML;
  29 </table>
  30 </body>
  31 </html>
  32 HTML