jow-/dir-index.cgi

## dir-index.cgi
#!/usr/bin/perl

use strict;
use warnings;

use Fcntl ':mode';

my $phys = $ENV{'DOCUMENT_ROOT'};
my $virt = '/'.$ENV{'PATH_INFO'};

my @hidden = (
	qr!^/releases/\d\d\.\d\d-SNAPSHOT/?$!,
	qr!^/releases/faillogs/?$!,
	qr!^/packages-\d\d\.\d\d/?$!
);

print "Content-type:text/html\n\n";
print '<html><head><style type="text/css">';

print <<EOT;
html, body {
	margin: 0;
	padding: 0;
	height: 100%;
}

body {
	color: #333;
	padding-top: 2em;
	font-family: Helvetica,Arial,sans-serif;
	width: 90%;
	min-width: 700px;
	max-width: 1100px;
	margin: auto;
	font-size: 120%;
	background-color: #ddd;
}

h1 {
	font-size: 120%;
	line-height: 1em;
}

table {
	width: 100%;
	box-shadow: 0 0 0.5em #999;
	margin: 0;
	border: none !important;
	margin-bottom: 2em;
	border-collapse: collapse;
	border-spacing: 0;
}

th {
	background: #000;
	background: -webkit-linear-gradient(top, #444, #000);
	background: -moz-linear-gradient(top, #444, #000);
	background: -ms-linear-gradient(top, #444, #000);
	background: -o-linear-gradient(top, #444, #000);
	background: linear-gradient(top, #444, #000);
	font-size: 14px;
	line-height: 24px;
	border: none;
	text-align: left;
	color: #fff;
}

tr {
	background: rgba(255, 255, 255, 0.8);
}

tr:hover {
	background: rgba(255, 255, 255, 0.6);
}

th, td {
	font-size: 14px;
	height: 20px;
	vertical-align: middle;
	white-space: nowrap;
	padding: 0.2em 0.5em;
	border: 1px solid #ccc;
}

a:link, a:visited {
	color: #337ab7;
	font-weight: bold;
	text-decoration: none;
}

a:hover, a:active, a:focus {
	color: #23527c;
	text-decoration: underline;
}

.s {
	text-align: right;
	width: 15%;
}

.d {
	text-align: center;
	width: 15%;
}

EOT

print '</style>';
printf "<title>Index of %s</title></head><body><h1>Index of %s</h1>\n", $virt, $virt;
print "<hr><table>";
print '<tr><th class="n">File Name</th><th class="s">File Size</th><th class="d">Date</th></tr>';
print "\n";

my $hidden_re = join '|', @hidden;
   $hidden_re = qr/$hidden_re/o;

my @entries;

if (opendir(D, $phys)) {
	while (defined(my $entry = readdir D)) {
		my $vpath = $virt . $entry;
		next if $entry eq '.' || $vpath =~ $hidden_re;
		push @entries, $phys . $entry;
	}
	closedir D;
}

@entries = sort {
	my $d1 = !-d $a;
	my $d2 = !-d $b;
	return (($d1 <=> $d2) || ($a cmp $b));
} @entries;

sub htmlenc {
	my $s = shift;

	if (defined($s) && length($s)) {
		$s =~ s!([<>"])!sprintf '&#%u;', $1!eg;
	}

	return $s;
}

foreach my $entry (@entries) {
	my ($basename) = $entry =~ m!([^/]+)$!;

	print "<tr>";

	my @s = stat $entry;
	my $link = (-l $entry)
		? sprintf('<var> -&#62; %s</var>', htmlenc(readlink($entry)))
		: '';

	if (S_ISDIR($s[2])) {
		printf '<td class="n"><a href="%s">%s</a>/%s</td>',
			htmlenc($basename),
			htmlenc($basename),
			$link;
		printf '<td class="s">-</td>';
		printf '<td class="d">%s</td>', scalar localtime $s[9];
	}
	else {
		printf '<td class="n"><a href="%s">%s</a>%s</td>',
			htmlenc($basename),
			htmlenc($basename),
			$link;
		printf '<td class="s">%.1f KB</td>', $s[7] / 1024;
		printf '<td class="d">%s</td>', scalar localtime $s[9];
	}

	print "</tr>\n";
}

print "</table>";
print "</body></html>";
	#!/usr/bin/perl

	use strict;
	use warnings;

	use Fcntl ':mode';

	my $phys = $ENV{'DOCUMENT_ROOT'};
	my $virt = '/'.$ENV{'PATH_INFO'};

	my @hidden = (
	qr!^/releases/\d\d\.\d\d-SNAPSHOT/?$!,
	qr!^/releases/faillogs/?$!,
	qr!^/packages-\d\d\.\d\d/?$!
	);

	print "Content-type:text/html\n\n";
	print '<html><head><style type="text/css">';

	print <<EOT;
	html, body {
	margin: 0;
	padding: 0;
	height: 100%;
	}

	body {
	color: #333;
	padding-top: 2em;
	font-family: Helvetica,Arial,sans-serif;
	width: 90%;
	min-width: 700px;
	max-width: 1100px;
	margin: auto;
	font-size: 120%;
	background-color: #ddd;
	}

	h1 {
	font-size: 120%;
	line-height: 1em;
	}

	table {
	width: 100%;
	box-shadow: 0 0 0.5em #999;
	margin: 0;
	border: none !important;
	margin-bottom: 2em;
	border-collapse: collapse;
	border-spacing: 0;
	}

	th {
	background: #000;
	background: -webkit-linear-gradient(top, #444, #000);
	background: -moz-linear-gradient(top, #444, #000);
	background: -ms-linear-gradient(top, #444, #000);
	background: -o-linear-gradient(top, #444, #000);
	background: linear-gradient(top, #444, #000);
	font-size: 14px;
	line-height: 24px;
	border: none;
	text-align: left;
	color: #fff;
	}

	tr {
	background: rgba(255, 255, 255, 0.8);
	}

	tr:hover {
	background: rgba(255, 255, 255, 0.6);
	}

	th, td {
	font-size: 14px;
	height: 20px;
	vertical-align: middle;
	white-space: nowrap;
	padding: 0.2em 0.5em;
	border: 1px solid #ccc;
	}

	a:link, a:visited {
	color: #337ab7;
	font-weight: bold;
	text-decoration: none;
	}

	a:hover, a:active, a:focus {
	color: #23527c;
	text-decoration: underline;
	}

	.s {
	text-align: right;
	width: 15%;
	}

	.d {
	text-align: center;
	width: 15%;
	}

	EOT

	print '</style>';
	printf "<title>Index of %s</title></head><body><h1>Index of %s</h1>\n", $virt, $virt;
	print "<hr><table>";
	print '<tr><th class="n">File Name</th><th class="s">File Size</th><th class="d">Date</th></tr>';
	print "\n";

	my $hidden_re = join '\|', @hidden;
	$hidden_re = qr/$hidden_re/o;

	my @entries;

	if (opendir(D, $phys)) {
	while (defined(my $entry = readdir D)) {
	my $vpath = $virt . $entry;
	next if $entry eq '.' \|\| $vpath =~ $hidden_re;
	push @entries, $phys . $entry;
	}
	closedir D;
	}

	@entries = sort {
	my $d1 = !-d $a;
	my $d2 = !-d $b;
	return (($d1 <=> $d2) \|\| ($a cmp $b));
	} @entries;

	sub htmlenc {
	my $s = shift;

	if (defined($s) && length($s)) {
	$s =~ s!([<>"])!sprintf '&#%u;', $1!eg;
	}

	return $s;
	}

	foreach my $entry (@entries) {
	my ($basename) = $entry =~ m!([^/]+)$!;

	print "<tr>";

	my @s = stat $entry;
	my $link = (-l $entry)
	? sprintf('<var> -> %s</var>', htmlenc(readlink($entry)))
	: '';

	if (S_ISDIR($s[2])) {
	printf '<td class="n"><a href="%s">%s</a>/%s</td>',
	htmlenc($basename),
	htmlenc($basename),
	$link;
	printf '<td class="s">-</td>';
	printf '<td class="d">%s</td>', scalar localtime $s[9];
	}
	else {
	printf '<td class="n"><a href="%s">%s</a>%s</td>',
	htmlenc($basename),
	htmlenc($basename),
	$link;
	printf '<td class="s">%.1f KB</td>', $s[7] / 1024;
	printf '<td class="d">%s</td>', scalar localtime $s[9];
	}

	print "</tr>\n";
	}

	print "</table>";
	print "</body></html>";