#!/usr/bin/perl
+# $Id$
+
+# Recursively create image gallery index and slideshow wrappings.
+# Makes use of (slightly modified) "lightbox" Javascript/CSS as published
+# at http://www.huddletogether.com/projects/lightbox/
+
+# Copyright (c) 2006 Eugene G. Crosser
+
+# This software is provided 'as-is', without any express or implied
+# warranty. In no event will the authors be held liable for any damages
+# arising from the use of this software.
+#
+# Permission is granted to anyone to use this software for any purpose,
+# including commercial applications, and to alter it and redistribute it
+# freely, subject to the following restrictions:
+#
+# 1. The origin of this software must not be misrepresented; you must not
+# claim that you wrote the original software. If you use this software
+# in a product, an acknowledgment in the product documentation would be
+# appreciated but is not required.
+# 2. Altered source versions must be plainly marked as such, and must not be
+# misrepresented as being the original software.
+# 3. This notice may not be removed or altered from any source distribution.
+
use strict;
use Carp;
use POSIX qw/getcwd/;
-script=>[{-code=>"var incPrefix='$inc';"},
{-src=>$inc."gallery.js"},
{-src=>$inc."lightbox.js"}]),"\n";
- print a({-href=>"../"},"UP");
+ print a({-href=>"../index.html"},"UP");
print start_center,"\n";
print h1($title),"\n";
# write HTML footer
print br({-clear=>"all"}),"\n";
+ print a({-href=>".html/".$piclist[0]."-slide.html"},"Slideshow");
print hr,"\n" if ($haspics);
print end_center,"\n";
print end_html,"\n";
my ($base,$title)=@_;
print Tr({-bgcolor=>"#c0c0c0"},
- td(a({-href=>$base."/"},$base)),
- td(a({-href=>$base."/"},$title))),"\n";
+ td(a({-href=>$base."/index.html"},$base)),
+ td(a({-href=>$base."/index.html"},$title))),"\n";
}
sub processfile {
if ($pbase) {
$pref=sprintf("%s-%s.html",$pbase,$refresh);
} else {
- $pref="../";
+ $pref="../index.html";
}
if ($nbase) {
$nref=sprintf("%s-%s.html",$nbase,$refresh);
} else {
- $nref="../";
+ $nref="../index.html";
+ }
+ my $toggle;
+ my $toggleref;
+ if ($refresh eq 'slide') {
+ $toggle='Stop!';
+ $toggleref=sprintf("%s-static.html",$base);
+ } else {
+ $toggle='Play->';
+ $toggleref=sprintf("%s-slide.html",$base);
}
my $tdir=sprintf "%s/%s/.html",$start,$dir;
$title=$base unless ($title);
if ($refresh eq 'slide') {
print start_html(-title=>$title,
+ -bgcolor=>"#808080",
-head=>meta({-http_equiv=>'Refresh',
-content=>"3; url=$nref"})),"\n";
} else {
- print start_html(-title=>$title),"\n";
+ print start_html(-title=>$title,
+ -bgcolor=>"#808080"),"\n";
}
- print img({-src=>"../.640/".$base});
+ print start_center,"\n";
+ print h1($title);
+ print a({-href=>"../index.html"},"Index")," | ";
+ print a({-href=>$pref},"<<Prev")," | ";
+ print a({-href=>$toggleref},$toggle)," | ";
+ print a({-href=>$nref},"Next>>");
+ print p;
+ print img({-src=>"../.640/".$base}),"\n";
+ print end_center,"\n";
print end_html,"\n";
close(STDOUT);
}