Diff -- /var/www/vhosts/3dshawn.com/crm.3dshawn.com/test/perl/test.pl
Diff
/var/www/vhosts/3dshawn.com/crm.3dshawn.com/test/perl/test.pl
added on local at 2026-07-01 15:03:19
Added
+0
lines
Removed
-0
lines
Context
34
unchanged
Blobs
from b1726f5146b7
to b1726f5146b7
to b1726f5146b7
Unified diff
Naive LCS-based line diff. Additions in emerald, deletions in rose. Both sides decompressed live from BLOB_STORE.| 1 | 1 | # Copyright 1999-2017. Parallels IP Holdings GmbH. All Rights Reserved. |
| 2 | 2 | use ExtUtils::Installed; |
| 3 | 3 | my ($inst) = ExtUtils::Installed->new(); |
| 4 | 4 | my (@modules) = $inst->modules(); |
| 5 | 5 | |
| 6 | 6 | print <<HTML; |
| 7 | 7 | Content-type: text/html |
| 8 | 8 | |
| 9 | 9 | <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" |
| 10 | 10 | "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> |
| 11 | 11 | <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> |
| 12 | 12 | <head> |
| 13 | 13 | <title></title> |
| 14 | 14 | <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> |
| 15 | 15 | <link rel="stylesheet" type="text/css" href="../../css/style.css" /> |
| 16 | 16 | </head> |
| 17 | 17 | <body class="test-data"> |
| 18 | 18 | <table cellspacing="0" cellpadding="0" border="0"> |
| 19 | 19 | <tr class="subhead" align="Left"><th>Name</th><th>Value</th></tr> |
| 20 | 20 | HTML |
| 21 | 21 | |
| 22 | 22 | for my $i ($[ .. $#modules) { |
| 23 | 23 | my $version = $inst->version($modules[$i]) || "???"; |
| 24 | 24 | my $class = ($i % 2) ? "alt" : "normal"; |
| 25 | 25 | print <<HTML; |
| 26 | 26 | <tr class="$class"><td valign="top">$modules[$i]</td><td>$version</td></tr> |
| 27 | 27 | HTML |
| 28 | 28 | } |
| 29 | 29 | |
| 30 | 30 | print <<HTML; |
| 31 | 31 | </table> |
| 32 | 32 | </body> |
| 33 | 33 | </html> |
| 34 | 34 | HTML |