Diff

/var/www/vhosts/3dshawn.com/admin.3dshawn.com/cgi-bin/test/test.cgi

added on local at 2026-06-21 23:16:00

Added

lines

Removed

-0

lines

Context

unchanged

Blobs

from 3117bf3ce1f3
to 3117bf3ce1f3

Unified diff

Naive LCS-based line diff. Additions in emerald, deletions in rose. Both sides decompressed live from BLOB_STORE.

1	1	#!/usr/bin/perl
2	2
3	3	print <<HTML;
4	4	Content-type: text/html
5	5
6	6	<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
7	7	<html>
8	8	<head>
9	9	<title></title>
10	10	<meta http-equiv="Content-Type" content="text/html">
11	11	<link rel="stylesheet" type="text/css" href="../../css/style.css">
12	12	</head>
13	13	<body>
14	14	<table cellspacing="0" cellpadding="0" border="0">
15	15	<tr class="subhead" align="Left"><th>Name</th><th>Value</th></tr>
16	16	HTML
17	17
18	18	my $class;
19	19
20	20	foreach (sort keys %ENV) {
21	21	next unless /^HTTP_\|^REQUEST_/;
22	22	$class = ($class ne 'normal')? 'normal': 'alt';
23	23	print <<HTML;
24	24	<tr class="$class"><td valign="top">$_</td><td>$ENV{$_}</td></tr>
25	25	HTML
26	26	}
27	27
28	28	print <<HTML;
29	29	</table>
30	30	</body>
31	31	</html>
32	32	HTML