#!/usr/bin/perl $thumbdir = "thumbnails/"; $descfile = "desc.txt"; open FILE, ">index.html" || die "Can't open index.html: $!\n"; @title = `cat "$descfile"`; print FILE "@title" ; print FILE "" ; print FILE "" ; print FILE "\n"; `rm -rf "$thumbdir"`; @list = `ls *.JPG *.jpg`; for( $i = 0; defined $list[$i]; $i++ ) { chomp $list[$i]; if( $i % 4 == 0 ) { print FILE ""; } print FILE ""; # print FILE ""; @exifinfo = `jhead "$list[$i]"`; print FILE ""; if( $i % 2 == 1 ) { print FILE ""; } print FILE "\n"; } print FILE "
"; print FILE "\n"; `jhead -autorot "$list[$i]" > /dev/null`; mkdir("$thumbdir"); $foo = `jhead -st /dev/null "$list[$i]" 2>&1 | grep -c "contains no thumb"`; if( $foo == 1 ) { `cp "$list[$i]" "$thumbdir"`; `cd "$thumbdir" ; mogrify -geometry 160x160 "$list[$i]"`; } else { `jhead -st "$thumbdir/$list[$i]" "$list[$i]"`; } print FILE "\n"; # print FILE "\n"; print FILE "
@exifinfo
"; close FILE;