#!/usr/bin/perl

# thumbnail.pl, copyright Casey Muller
# a somewhat specialized image thumbnailing script

use POSIX;

$topdir = "/usr/media/images/digitalcamera/";
$tagdir = "/usr/media/images/tags/";

$recentfile = "/usr/media/web/generate/recentPhotos";
$locationmapfile = "/usr/media/web/generate/root/null-terminated/visuals/photography/map/map.rss";
$locationtripfile = "/usr/media/web/generate/root/null-terminated/visuals/photography/map/trip.rss";
$datelocfile = "/usr/media/images/dateloc";
$currentloc = "";
$locstarted = "present";

$prefix = "http://images.null-terminated.com/";
$encodedprefix = "http%3A%2F%2Fimages.null-terminated.com%2Fdigitalcamera%2F";
$formdir = "http://home.null-terminated.com:81/cgi-bin/";
$tagform = $formdir."suggesttag.pl";
$multitagform = $formdir."multitagsug.pl";
$thumbpath = "/visuals/photography/by-date/";
$thumbprefix = "http://null-terminated.com".$thumbpath;
$tagpath = "/visuals/photography/tags/";
$tagprefix = "http://null-terminated.com".$tagpath;

$imageproc = "-normalize -unsharp 3";
$sizes{"tiny"} = "-size 36x24 -resize 36x24 +profile \"*\" $imageproc";
#$sizes{"tiny"} = "-size 48x32 -resize 48x32 +profile \"*\" $imageproc";
$sizes{"thumb"} = "-size 320x240 -resize 320x240 +profile \"*\" $imageproc";
#$sizes{"thumb"} = "-size 480x320 -resize 480x320 +profile \"*\" $imageproc";
$sizes{"medium"} = "-size 1024x1200 -resize 1024x1200";

# load the location mappings
require 'encodedlocs.pl';

# open recent file
open(RECENT, '>', $recentfile);

# open date location file
open(DATELOC, '>', $datelocfile);

# open the main index
open(HTML, '>', $topdir."contactsheet.html");

print HTML <<HEADER;
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Once the images have loaded, mousing over them should reveal a larger thumbnail.
<div class="preview">
<img name="preview" src="2004_10_16/thumbIMG_1406.JPG" onLoad="restoreImg('preview');">
</div>
HEADER

$today = strftime "%Y-%m-%dT%H:%M:%SZ", gmtime();
open(RSS, '>', $topdir."allphotos.rss");
#open(RSS, '>', $topdir."photos.rss");
$photocount = 0;
$datecount = 0;

print RSS <<RSSHEADER;
<?xml version="1.0" encoding="utf-8"?>
<feed xmlns="http://www.w3.org/2005/Atom"
      xmlns:georss="http://www.georss.org/georss" 
      xmlns:gml="http://www.opengis.net/gml"
      xmlns:media="http://search.yahoo.com/mrss/">
  <title type="text">null-terminated photography</title>
  <link rel="alternate" type="text/html" href="http://null-terminated.com/visuals/photography"/>
  <updated>$today</updated>
  <author>
    <name>Casey Muller</name>
    <email>atomfeed\@nullterminated.com</email>
  </author>
RSSHEADER

system("cp", $topdir."allphotos.rss", $locationmapfile);
system("cp", $topdir."allphotos.rss", $locationtripfile);
system("cp", $topdir."allphotos.rss", $topdir."allphotodates.rss");

open(DATERSS, '>>', $topdir."allphotodates.rss");

use File::Find;
use Image::EXIF;

$exif = new Image::EXIF;

find { preprocess => sub {
    # calculate the path
    $dir = substr $File::Find::dir, length($topdir);
    print HTML "<p><a href=\"$dir\">$prefix$dir</a></p>\n";
    # open the directory-level html file
    if($dir =~ /_\d\d$/) {
	print "checking $File::Find::dir\n";
	open(DIR, '>', "$File::Find::dir/index.html");
	print DIR "<form action=\"$multitagform\" method=\"post\">\n";
	print DIR "<input type=\"hidden\" name=\"dir\" value=\"$dir\"/>\n";
	if(/(\d+)_(\d+)_(\d+)/) {
            $dirsummary = "Photography from $2/$3/$1";
            $rssdate = "$1-$2-$3T12:00:00-08:00";
	} else {
	    $dirsummary = "Photography from $dir";
            $rssdate = $today;
	}

        print DIR "<em>$dirsummary</em>\n\n";

        $datersscounter = 0;
	print DATERSS <<RSSBLOCK;
  <entry>
    <title>$dirsummary</title>
    <link rel="alternate" type="text/html" 
     href="$thumbprefix$dir"/>
    <id>$dir</id>
    <published>$rssdate</published>
    <updated>$rssdate</updated>
    <link rel="license" type="text/html" href="http://creativecommons.org/licenses/by-nc-sa/2.5/" />
    <summary type="html">
      <![CDATA[
RSSBLOCK
	#images sorted by date
	@_ = sort @_;

	for($i = 0; $i < $#_; $i++) {
	    # construct a couple of next/pref arrays
	    if($i < $#_ - 1) {
		$_ = $_[$i+1];
		if(/\.[Jj][Pp][Gg]$/
		   and !/^tiny/ and !/^thumb/ and !/^medium/) {
		    $nextimage{$_[$i]} = $_;
		}
	    }
	    if($i > 0) {
		$_ = $_[$i-1];
		if(/\.[Jj][Pp][Gg]$/
		   and !/^tiny/ and !/^thumb/ and !/^medium/) {
		    $previmage{$_[$i]} = $_;
		}
	    }
	}

	return @_;
    } else {
	#directories sorted by reverse date
	reverse sort @_;
    }
}, wanted => sub {
    /^\./ && return;
    if(/\.[Jj][Pp][Gg]$/ and !/^tiny/ and !/^thumb/ and !/^medium/) {
	$name = $_;

	# get the exif data
	$#settings = -1;

	$exif->file_name($File::Find::name);
	$info = $exif->get_camera_info();
	$lens = $info->{"Lens Size"};

	$info = $exif->get_image_info();
	$exposure = $info->{"Exposure Time"};
	push @settings, $exposure;

	$aperture = $info->{"Lens Aperture"};
	push @settings, $aperture;

	$focal = $info->{"Focal Length"};
	if($lens == "") {
	    # fixed primes don't have a lens
	    $lens = $focal;
	}
	push @settings, "lens".$lens;
	$iso = $info->{"ISO Speed Rating"};
	push @settings, "iso".$iso;

	$created = $info->{"Image Created"};
	# clean up this crap
	$created =~ s/(\d+):(\d+):(\d+) +(\d+):(\d+):(\d+)/$1-$2-$3T$4:$5:$6-08:00/;
	$distance = $info->{"Subject Distance"};
	@commenttags = split('\|', $info->{"Comment"});
	if($#commenttags < 0) {
	    # no comments or tags
	    $comment = "";
	    $titlecomment = "";
	    $#commenttags = -1;
	    $#tags = -1;
	    $tagurls = "";
	    $alltagurls = "";
	} else {
	    $comment = shift @commenttags;
	    if(length $comment > 0) {
		$titlecomment = " title=\"$comment\"";
	    } else {
		$titlecomment = "";
	    }

	    if($#commenttags > -1) {
		# get user tags
		$tagurls = "<p>";
		$fulltagurls = "<p>";
		$tagcats = "";
		$mediacats = "";
		$alltagurls = "<p>";
		@tags = split ' ', $commenttags[0];
	    } else {
		$#tags = -1;
	    }

	    # make tags for the technical settings
	    foreach $faketag (@settings) {
		# remove the whitespace
		$faketag =~ s/ //g;
		# and trailing zeros
		$faketag =~ s/\.00//g;
		if($faketag ne "") {
		    # mark this as a tech tag if it exists
		    $techtags{$faketag} = "yes";
		    push @tags, $faketag;
		}
	    }

            $loctag = "unknown";
	    foreach $tag (@tags) {
		$tag = lc $tag;
		($safetag = $tag) =~ s#/#-#g;
                # a location tag?

                if(exists $locationtag{$tag}) {
                    $loctag = $tag;
                }

		# do we need a new file
		if(!exists $tagfiles{$tag}) {
		    print "creating file for tag: $tag ($safetag)\n";
		    open($tagfiles{$tag}, '>', $tagdir.$safetag.".html");
		    print { $tagfiles{$tag} } <<HTMLBLOCK;
<div class="tagheader"><h1><a href="index.html">tag</a>: $tag</h1></div>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Once the images have loaded, mousing over them should reveal a larger thumbnail.
<div class="preview">
<img name="preview" src="$thumbpath$dir/thumb$name" onLoad="restoreImg('preview');">
</div>

HTMLBLOCK

		    # keep track of the latest pic
		    $lastpicture{$tag} = "$thumbpath$dir/tiny$name";
                }
		# add ourselves
		print { $tagfiles{$tag} } "<a onmouseover=\"changeImg('preview','$thumbpath$dir/thumb$name');\" href=\"$thumbpath$dir/index.html#$name\"><img class=\"tinythumb\" src=\"$thumbpath$dir/tiny$name\"$titlecomment></a>\n";

		$alltagurls .= " (<a href=\"$tagpath$safetag.html\" rel=\"tag\">$tag</a>)";
		if(!exists $techtags{$tag}) {
		    $tagurls .= " (<a href=\"$tagpath$safetag.html\" rel=\"tag\">$tag</a>)";
		    $fulltagurls .= " (<a href=\"$tagprefix$safetag.html\" rel=\"tag\">$tag</a>)";
		    $tagcats .= "<category term=\"$tag\"/>";
		    $mediacats .= "$tag,";
		}
		# increment the counters
		$tagcount{$tag}++;
	    }
	    $fulltagurls .= "</p>";
            $tagcats .= "<category term=\"facebook:album=null-terminated\"/>";

            if($loctag ne "") {
                if(length $locationlist{$loctag} < 1000) {
                    $locationlist{$loctag} .= "<a href=\"$thumbprefix$dir/index.html#$name\"><img class=\"tinythumb\" src=\"$thumbprefix$dir/tiny$name\"$titlecomment></a>";
                    if(length $locationlist{$loctag} >= 1000) {
                        $locationlist{$loctag} .= "<a href=\"$tagprefix$loctag.html\">see more $loctag</a>";
		    }
		}
                if($loctag ne $currentloc) {
                    # new location
		    print DATELOC "$loctag: $dir - $locstarted\n";
                    if($datersscounter > 1) {
                        print DATERSS "<p>Possible aspect change in target: $loctag</p>\n";
                        $datersscounter = 1;
                    }
                    push @mapcoords, $loctag;
		    $currentloc = $loctag;
                    $locstarted = $dir;
                }
	    }
	}

	foreach(keys(%sizes)) {
	    if(!-e "$File::Find::dir/$_$name") {
		print "$name ($_) in $File::Find::dir\n";
		system("convert $sizes{$_} $File::Find::name $File::Find::dir/$_$name");
	    }
	}

	if(1 || !-e "$File::Find::dir/$name.html") {
#	if(!-e "$File::Find::dir/$name.html") {
	    open(FILE, '>', "$File::Find::dir/$name.html");
            $encodedurl = "$encodedprefix$dir/$name";
            $encodedurl =~ s!/!%2F!g;
            #http%3A%2F%2Fbigfiles.null-terminated.com%2Fdigitalcamera%2F2005_07_05%2FIMG_3251.JPG
	    print FILE "<div class=\"medium\">Get a <a href=\"http://www.zazzle.com/api/create?at=238504738178357341&pd=239182143736938651&CoverImage=$encodedurl\">postcard</a> or <a href=\"http://www.zazzle.com/api/create?at=238504738178357341&pd=235039457060540807&CoverImage=$encodedurl\">t-shirt</a>! Want to <a href=\"http://null-terminated.com/visuals/photography/use.html\">use this image another way</a>?<br/><br/>\n<a href=\"$prefix$dir/$name\"><img class=\"thumbnail\" src=\"$prefix$dir/medium$name\"$titlecomment></a><p>$comment</p><p>Basic settings: $exposure $aperture @ ISO $iso with $focal from lens ($lens) focused on $distance at $created</p>$alltagurls</p>\n";

		    print FILE <<HTMLBLOCK;
  <p>
    <span id="pretag"><a href="$tagform?file=$dir/$name" onClick="return hideAndShow('pretag', 'posttag');">add tags</a></span>
    <span id="posttag" style="display: none;">
      <form action="$tagform" method="post">
      <label for="tags">Enter space seperated list of new tags:</label>
      <input onFocus="show('submit');" onKeyPress="return submitOnEnter(this, event);" type="text" name="tags"/>
      <input type="hidden" name="file" value="$dir/$name"/>
      <span id="submit" style="display: none;">
        <input type="submit" value="Suggest tags"/>
      </span>
      </form>
    </span>
  </p></div>


HTMLBLOCK

	    # previous and next links
	    print FILE "Navigate:\n";
	    if(exists $previmage{$name}) {
		print FILE "<a href=\"$previmage{$name}.html\"><img class=\"tinythumb\" src=\"tiny$previmage{$name}\" title=\"$previmage{$name}\">prev</a>\n";
	    }
	    print FILE "<a href=\"index.html\">index</a>\n";
	    if(exists $nextimage{$name}) {
		print FILE "<a href=\"$nextimage{$name}.html\">next<img class=\"tinythumb\" src=\"tiny$nextimage{$name}\" title=\"$nextimage{$name}\"></a>\n";
	    }
	    print FILE "\n";

	    print FILE "Non-<a href=\"http://www.coralcdn.org\">coralized</a> links: <a href=\"$prefix$dir/medium$name?coral-no-serve\">medium</a> and <a href=\"$prefix$dir/$name?coral-no-serve\">large</a> (try these in case of problems).\n\n";

	    print FILE "<h2>Full EXIF data:</h2>\n";
	    $info = $exif->get_all_info();
	    foreach(sort keys %$info) {
		uc;
		print FILE "<h3>$_</h3>\n";
		$subinfo = $info->{$_};
		foreach(keys %$subinfo) {
		    print FILE "$_ = ".$subinfo->{$_}."<br/>\n";
		}
	    }
	    close FILE;
	}
	
	print HTML "<a onmouseover=\"changeImg('preview','$dir/thumb$name');\" href=\"$dir/index.html#$name\"><img class=\"tinythumb\" src=\"$dir/tiny$name\"$titlecomment></a>\n";

	if($photocount < 20) {
	    print RECENT "<a href=\"$thumbprefix$dir/index.html#$name\"><img class=\"tinythumb\" src=\"$thumbprefix$dir/tiny$name\"$titlecomment></a>\n";
	}

	print DIR <<HTMLBLOCK;
	<div class="thumbnail"><a name="$name" href="$name.html"><img class="thumbnail" src="thumb$name"$titlecomment></a>
    <span class="pretag">
    <p>$comment</p><p>$exposure $aperture @ $focal</p>$tagurls
    <a href="$tagform?file=$dir/$name" onClick="return hideAndShowAllClass('pretag', 'posttag');">add</a></span>
    <span class="posttag" style="display: none;">
      <br/>
      <span id="presubmit$name">
        <label for="$name">Suggest new tags:</label>
      </span>
      <span id="postsubmit$name" style="display: none;">
        <input type="submit" value="Suggest all on page"/>
      </span>
      <input onFocus="hideAndShow('presubmit$name', 'postsubmit$name');" onKeyPress="return submitOnEnter(this, event);" type="text" name="$name"/>
      $tagurls</p>
    </span>
  </p></div>

HTMLBLOCK
        if($datersscounter++ < 2) {

          print DATERSS <<RSSBLOCK;
<p><a href="$thumbprefix$dir/$name.html"><img src="$thumbprefix$dir/thumb$name"/></a></p>
RSSBLOCK
        }

	$date = $dir;
	$date =~ s/_/-/g; 
	print RSS <<RSSBLOCK;
  <entry>
    <title>$name</title>
    <link rel="alternate" type="text/html" 
     href="$thumbprefix$dir/$name.html"/>
    <id>$dir/$name</id>
    <published>$created</published>
    <updated>$created</updated>
    <summary type="html">
      <![CDATA[
        <a href="$thumbprefix$dir/$name.html">
        <img src="$thumbprefix$dir/thumb$name"/></a>
        <p>$exposure $aperture @ ISO $iso with $focal from lens ($lens) focused on $distance at $created</p>$fulltagurls
      ]]>
    </summary>
    <georss:where>
       <gml:Point>
          <gml:pos>$locationtag{$loctag}</gml:pos>
       </gml:Point>
    </georss:where>
    <link rel="license" type="text/html" href="http://creativecommons.org/licenses/by-nc-sa/2.5/" />
    <link rel="enclosure" type="image/jpeg" href="$prefix$dir/$name" />
    <content type='image/jpeg' src='$prefix$dir/$name'/>
    <link rel='alternate' type='text/html' href='$thumbprefix$dir/$name.html'/>
    <media:group>
      <media:title type='plain'>$name</media:title>
      <media:description type='plain'>$name</media:description>
      <media:keywords>$mediacats</media:keywords>
      <media:content url='$prefix$dir/$name' type='image/jpeg' medium='image'/>
      <media:thumbnail url='$thumbprefix$dir/thumb$name'/>
      <media:credit>atomfeed\@nullterminated.com</media:credit>
    </media:group>
    $tagcats
  </entry>
RSSBLOCK
	if($photocount++ == 50) {
	    system("cp", $topdir."allphotos.rss", $topdir."photos.rss");
	    open(SMALLRSS, '>>', $topdir."photos.rss");
	    print SMALLRSS "</feed>\n";
	    close SMALLRSS;
	}
    }
}, postprocess => sub {
    close DIR;

    print DATERSS <<RSSBLOCK;
<p><a href="$thumbprefix$dir">See all photos from this day</a></p>
      ]]>
    </summary>
  </entry>
RSSBLOCK

    if($datecount++ == 20) {
	system("cp", $topdir."allphotodates.rss", $topdir."photodates.rss");
	open(SMALLDATERSS, '>>', $topdir."photodates.rss");
	print SMALLDATERSS "</feed>\n";
	close SMALLDATERSS;
    }

}}, $topdir;

close HTML;

print RSS "</feed>\n";
close RSS;

print DATERSS "</feed>\n";
close DATERSS;

open(TAGS, '>', $tagdir."index.html");
print TAGS "Content tags:\n";

foreach(keys %tagfiles) {
    if(!exists $techtags{$_}) {
	if($tagcount{$_} > $maxtagcount) {
	    $maxtagcount = $tagcount{$_};
	}
	if($tagcount{$_} < $mintagcount) {
	    $mintagcount = $tagcount{$_};
	}
    }
}

foreach(sort keys %tagfiles) {
    ($safetag = $_) =~ s#/#-#g;
    # size is 0 to 1
    $size = ($tagcount{$_} - $mintagcount) / ($maxtagcount - $mintagcount);
    # interpolate
    $fontsize = $size * 36 + 9;
    $imagesize = int($size * 12 + 12);

    $taghtml = "<a href=\"$safetag.html\" style=\"font-size: ".$fontsize."px;\"><img class=\"tinythumb\" src=\"$lastpicture{$_}\" height=\"$imagesize\">$_</a>($tagcount{$_}) \n";
    print "last: $lastpicture{$_}\n";
    if(exists $techtags{$_}) {
	print "tech ";
	$techhtml .= $taghtml;
    } else {
	print TAGS $taghtml;
    }
    print "$_ = $tagcount{$_}\n";
    close $tagfiles{$_};
}

# open location files
open(MAPRSS, '>>', $locationmapfile);

# write the locationsf
foreach(sort keys %locationlist) {
    print MAPRSS <<RSSBLOCK;
  <entry>
    <title>$_</title>
    <link rel="alternate" type="text/html" 
     href="$tagprefix$_.html"/>
    <id>$_</id>
    <published>$today</published>
    <updated>$today</updated>
    <summary type="html">
      <![CDATA[
        $locationlist{$_}
      ]]>
    </summary>
    <georss:where>
       <gml:Point>
          <gml:pos>$locationtag{$_}</gml:pos>
       </gml:Point>
    </georss:where>
  </entry>
RSSBLOCK

}

# footer
print MAPRSS "</feed>\n";
close MAPRSS;

print TAGS "\n\nOr look at the <a href=\"technicaltags.html\">technical tags</a>.\n";
close TAGS;

open(TAGS, '>', $tagdir."technicaltags.html");
print TAGS "\n\nTechnical <a href=\"index.html\">tags</a>:\n$techhtml";
close TAGS;


open(TRIPRSS, '>>', $locationtripfile);
for($i=0; $i<$#mapcoords; $i++) {
  print TRIPRSS <<RSSBLOCK;
  <entry>
    <title>$mapcoords[$i] to $mapcoords[$i+1]</title>
    <link rel="alternate" type="text/html" 
     href="$tagprefix$mapcoords[$i].html"/>
    <id>$mapcoords[$i]</id>
    <published>$today</published>
    <updated>$today</updated>
    <summary type="html">
      <![CDATA[
        $mapcoords[$i] to $mapcoords[$i+1]
      ]]>
    </summary>
    <georss:where>
      <gml:LineString>
         <gml:posList>
         $locationtag{$mapcoords[$i]} $locationtag{$mapcoords[$i+1]}
         </gml:posList>
      </gml:LineString>
    </georss:where>
  </entry>
RSSBLOCK
}
print TRIPRSS "</feed>\n";
close TRIPRSS;