Diff

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

added on local at 2026-06-10 20:27:51

Added

+32

lines

Removed

-0

lines

Context

unchanged

Blobs

from
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