$title - page $page

#!/usr/local/bin/perl use POSIX; $ver = "0.3"; $indexprefix = "index"; $thumbdir = "thumb"; $numrow = 5; $numcol = 5; $height = 100; $title = "Thumb v$ver Contact Sheet"; $tableopt = "width=\"100\%\""; $bodyopt = "bgcolor=\"\#ffffff\""; open(HTML, ">$indexprefix.html"); if (!(-e $thumbdir) || !(-d $thumbdir)) { print "making $thumbdir directory...\n"; `mkdir thumb`; } $total = $#ARGV+1; $current = 1; $page = 1; $row = 1; $num = 1; $totalpages = ceil($total / ($numrow * $numcol)); sub top { print HTML "$title - page $page\n"; if($bodyopt ne ""){ print HTML "\n" } else { print HTML "\n"; } } sub tableopen { if($tableopt ne ""){ print HTML "\n"; } else { print HTML "

\n"; } } sub tableclose { print HTML "

\n"; } sub rowstart { print HTML ""; } sub rowend { print HTML ""; } ⊤ &tableopen; &rowstart; foreach $i (sort(@ARGV)) { $info = ""; $i =~ /(.*)\.(.*)/; $format = $2; $base = $1; if(($format eq "jpg") || ($format eq "jpeg") || ($format eq "JPG")) { $dprog = 'djpeg'; } else { $dprog = 'anytopnm'; } open(INFO, "$dprog $i | pnmfile 2>/dev/null |"); $info = ; close(INFO); $info =~ /(\d*) by (\d*)/; $w = $1; $h = $2; ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime, $blksize,$blocks) = stat($i); $kb = int($size / 1024); print "($current/$total)\t$base.$format\t($w"."x"."$h)\n"; if(!(-e "$thumbdir/$base.gif")) { `$dprog $i | pnmscale -xysize $height $height | ppmquant 256 2>/dev/null | ppmtogif > $thumbdir/$base.gif 2>/dev/null`; } print HTML "

$base.$format ($w"."x"."$h/$kb"."kb)\n"; $num++; $current++; if($num > $numcol) { &rowend; &rowstart; $num = 1; $row++; print "[ ]\tmoving to row $row\n" unless $row > $numrow; } if($row > $numrow) { &tableclose; &end; close(HTML); $page++; open(HTML, ">$indexprefix-$page.html"); ⊤ &tableopen; &rowstart; $row = 1; print "[ ]\tmoving to page $page\n"; } } print HTML "\n"; &end; sub end { print HTML <

EOF &pageindex; print HTML < index generated by thumb v$ver EOF } sub pageindex { print HTML "
"; if($page == 1) { print HTML "[prev]"; } elsif ($page == 2) { print HTML "[prev]"; } else { print HTML "[prev]"; } for($i=1;$i<=$totalpages;$i++) { if($i == 1) { if($page == $i) { print HTML "[$i]"; } else { print HTML "[$i]"; } } elsif ($i == $page) { print HTML "[$i]"; } else { print HTML "[$i]"; } } if($page == $totalpages) { print HTML "[next]"; } else { print HTML "[next]"; } print HTML "
\n"; }