Diff -- /var/www/vhosts/3dshawn.com/site1/cgi-bin/test/test.cgi
Diff
/var/www/vhosts/3dshawn.com/site1/cgi-bin/test/test.cgi
added on local at 2026-07-10 18:37:44
Added
+32
lines
Removed
-0
lines
Context
0
unchanged
Blobs
from
to 3117bf3ce1f3
to 3117bf3ce1f3
Unified diff
Naive LCS-based line diff. Additions in emerald, deletions in rose. Both sides decompressed live from BLOB_STORE.| 1 | #!/usr/bin/perl | |
| 2 | ||
| 3 | print <<HTML; | |
| 4 | Content-type: text/html | |
| 5 | ||
| 6 | <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> | |
| 7 | <html> | |
| 8 | <head> | |
| 9 | <title></title> | |
| 10 | <meta http-equiv="Content-Type" content="text/html"> | |
| 11 | <link rel="stylesheet" type="text/css" href="../../css/style.css"> | |
| 12 | </head> | |
| 13 | <body> | |
| 14 | <table cellspacing="0" cellpadding="0" border="0"> | |
| 15 | <tr class="subhead" align="Left"><th>Name</th><th>Value</th></tr> | |
| 16 | HTML | |
| 17 | ||
| 18 | my $class; | |
| 19 | ||
| 20 | foreach (sort keys %ENV) { | |
| 21 | next unless /^HTTP_|^REQUEST_/; | |
| 22 | $class = ($class ne 'normal')? 'normal': 'alt'; | |
| 23 | print <<HTML; | |
| 24 | <tr class="$class"><td valign="top">$_</td><td>$ENV{$_}</td></tr> | |
| 25 | HTML | |
| 26 | } | |
| 27 | ||
| 28 | print <<HTML; | |
| 29 | </table> | |
| 30 | </body> | |
| 31 | </html> | |
| 32 | HTML |