#!/usr/bin/perl
#
#
$| = 1; print "Content-type: text/html\n\n";
use Image::Size;
chomp($pwd = `pwd`);
opendir(D, "./");
while ($file = readdir D) {
next if ($file =~ /^\./);
if (-d $file) {
push(@dirs, $file);
next;
}
next if ($file eq "tmp.gif");
next if ($file !~ /(gif|jpg|png|xbm|jpeg)$/i);
push(@imgs, $file);
$size = (-s $file);
$size{$file} = $size;
($width{$file}, $height{$file}) = imgsize($file);
}
closedir D;
@imgs = sort(@imgs);
$cols = 5;
$count = 0;
$table = "";
foreach $d (@dirs) {
$url = "$d/img.cgi" if (-e "$d/img.cgi");
$url = "$d" if (!-e "$d/img.cgi");
$table .= "![](\"/icons/folder.gif\")
$d | ";
$count++;
if ($count > $cols) {
$table .= "
";
$count = 0;
}
}
foreach $i (@imgs) {
$width = $width{$i} || 100;
$height = $height{$i} || 100;
$colors = $colors{$i} || "unknown";
$size = $size{$i};
$size = $size / 1024;
$size = sprintf("%0.1f", $size);
if (($width > 150) || ($height > 150)) {
while (($width > 150) || ($height > 150)) {
$width = $width / 2;
$height = $height / 2;
}
}
# if ($width > 100) {
# while ($width > 100) {
# $width = $width / 2;
# $height = $height / 2;
# }
# }
$table .= "![](\"$i\") ";
$table .= "
$i
${size}k" if ($in{'info'});
$table .= " | ";
$count++;
if ($count > $cols) {
$table .= "
";
$count = 0;
}
}
$table .= "
";
print <Thumbnails for $pwd