#!/usr/bin/perl $base="http://math.univ-lyon1.fr/~logicum/photos/"; if ($#ARGV < 3) { print "usage: perl build.pl <#columns>\n"; exit; } $path=shift; $sizeBig=shift; $sizeSmall=shift; $width=shift; while ($orig = <$path/orig/*>) { $big = $orig; $small = $orig; $big =~ s/\/orig\//\/big\//; $small =~ s/\/orig\//\/small\//; print STDERR "."; system sprintf("convert -thumbnail $sizeBig"."x$sizeBig $orig $big\n"); system sprintf("convert -thumbnail $sizeSmall"."x$sizeSmall $orig $small\n"); } print STDERR "\n"; $i=0; open(F,">$path/raw.html"); print F "

$path

\n"; print F "\n"; while ($small = <$path/small/*>) { $big = $small; $big =~ s/\/small\//\/big\//; if ($i == 0) { print F "\n"; } ++$i; print F "\n"; if ($i >= $width) { print F "\n"; $i=0; } } print F "

"; $img = "

"; if (-e $big) { print F "$img"; } else { print F $img; } print F "

\n"; print F "\n"; close(F);