#!/usr/bin/perl
$project_title = 'Travel to Primislje 2009';
$homepage_url = 'http://irational.org/vahida/primislje';
$homepage ='Travel to Primislje';
$thumb = "./thumb"; # directory where thumbnails are stored
$catalog = "catalog.html"; # catalog html page
$thumbquality = 70; # Thumbnail image quality, range 0 - 100
$thumbwidth =300; # Thumbnail width
$thumbheight = 200; # Thumbnail height
$max_columns = '4';
$im_convert = "/usr/bin/convert"; # Path to Imagemagick "convert"
($second, $minute, $hour, $currentdayofmonth, $month, $year, $weekday, $dayofyear, $IsDST)= localtime(time);
$currentmonth=$month+1;
$year=$year+'1900';
$currentdayofmonth=sprintf("%.2u",$currentdayofmonth);
$currentmonth=sprintf("%.2u",$currentmonth);
$date=$currentdayofmonth . '/' . $currentmonth . '/' . $year;
# get list of files
@files = `ls ./ -1`; # get list of images
$n=0;
foreach $file (@files) {
chomp($file);
if ($file =~ /jpg|JPG|jpeg|gif|GIF/) {push (@images,$file); }
}
# output catalog html
# verify thumbnail directory exists
if (!(-d $thumb)) {mkdir $thumb, 0777; }
# create missing thumb nails
foreach $image (@images) {
if (!(-f "$thumb/$image")) {
# print "making $thumb/$image
\n";
print "making $thumb/$image\n";
$arguments = "-geometry $thumbwidth" ."x"."$thumbheight -quality $thumbquality $image $thumb/$image";
$results=`$im_convert $arguments`;
}
}
open(CATALOG,">$catalog") || die "Can't open: $catalog\n";
print CATALOG "\n";
print CATALOG "\n";
print CATALOG "$project_title\n";
foreach $image (@images) {
chomp ($image);
($title,$extension) = split(/\./, $image);
$title=~ s/\_|-/ /g;
$title=~ s/[0-9]//g;
(@temp_keywords)=split(/ /,$title);
foreach $temp (@temp_keywords) {
if (!$found{$temp}) {push (@keywords,$temp); $found{$temp}='1'; }
}
}
print CATALOG "\n";
print CATALOG "\n";
print CATALOG "\n";
print CATALOG "\n\n";
print CATALOG " \n\n";
print CATALOG "
$project_title\n\n";
print CATALOG "
\n\n";
$column_count='0';
print CATALOG "\n";
print CATALOG "\n";
foreach $image (@images) {
chomp ($image);
($title,$extension) = split(/\./, $image);
$title=~ s/\_|-/ /g;
$title=~ s/[0-9]//g;
print CATALOG "![\"$title\"](\"$thumb/$image\")
| \n";
$column_count++;
if ($column_count >= $max_columns) {$column_count='0'; print CATALOG "
\n"; }
}
print CATALOG "
\n";
print CATALOG "
\n";
print CATALOG "\n$homepage\n\n";
#print CATALOG "$date\n
";
print CATALOG "\n";
print CATALOG "\n";
close (CATALOG);
exit;