<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl

$VERSION = '1.01';

# XPhotoAlbum - XML Photo Album Script
# Version 1.01
#
# Get docs and newest version from
#       http://www.neystadt.org/XPhotoAlbum/
#
# Copyright (c) 2002, John Neystadt &lt;http://www.neystadt.org/john/&gt;
# You may install this script on your site for free
# To obtain permision for redistribution or any other usage
#       contact john@neystadt.org.
#
# Drop me a line if you deploy this script on your site.

=head1 NAME

XPhotoAlbum.pl v1.01 - XML Photo Album Script

=cut

use XML::DOM;
use URI::Escape;

$UrlBase = '/cgi-bin/XPhotoAlbum.pl';

# Script error handling block

print "Content-Type: text/html\n\n";

BEGIN {
	sub _perlerror
	{
	    my $message = $_[0];

	    print &lt;&lt;EOR;
&lt;B&gt;Sorry, CGI internal perl error --
$message&lt;/B&gt;
EOR
	    exit (1);
	}

	$SIG{'__WARN__'}=\&amp;_perlerror;
	$SIG{'__DIE__'}=\&amp;_perlerror;
}

# end of script error handling

my $Parm = $ENV {QUERY_STRING};
$Parm =~ s/=\++/=/go;
$Parm =~ s/\++/ /go;
my %Params = split (/[=&amp;]/, $Parm);
if ($Params {'index'}) {
        $IndexFile = $Params {'index'};
} else {
        $IndexFile = '/john/album/index.xml';
}

my $parser = new XML::DOM::Parser;
my $doc = $parser-&gt;parsefile ('..' . $IndexFile);
         
my $album = $doc-&gt;getChildNodes ()-&gt;item (0);
        
my $PicturePath = $album-&gt;getAttribute ('PATH');
$PicturePath =~ s|[\\/]$||go;
$PicturePath .= '/'
	if $PicturePath;

print '&lt;HTML&gt;&lt;HEAD&gt;
	&lt;META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8"&gt;
	&lt;link rel="StyleSheet" href="', $album-&gt;getAttribute ('CSS'), '" type="text/css"&gt;
	&lt;TITLE&gt;', $album-&gt;getAttribute ('TITLE'), '&lt;/TITLE&gt;
&lt;/HEAD&gt;
';

if ($Params {'type'} eq 'plain') {
	PrintPlainAlbum ($album);
} elsif ($Params {'type'} eq 'IE') {
	PrintIEAlbum ($album);
} elsif ($Params {'type'} eq 'thumb') {
	PrintThumbAlbum ($album);
} else {
	PrintPic ($album, $Params {'id'});
}

print "&lt;/HTML&gt;";              

# *****

sub PrintPic {
        my ($album, $id) = @_;

	print '&lt;BODY bgcolor="#68838b" text="#000000"&gt;
';

        my $folder = $album-&gt;getChildNodes ()-&gt;item (1);
        my $children = $folder-&gt;getChildNodes ();
        
        my $picIndex = 0;
	my $prevId, $nextId, $lastId, $thePic;
        for (0..$children-&gt;getLength ()-1) {
                my $pic = $children-&gt;item ($_);
                next if $pic-&gt;getNodeName () ne 'PICTURE';

		my $picId = $pic-&gt;getAttribute ('id');

		next if !$picId;

		if ($thePic &amp;&amp; $id == $lastId) {
			$nextId = $picId;
			last;
		}

		if ($picId == $id) {
			$prevId = $lastId;
			$thePic = $pic;
		}

		$lastId = $picId;
	}

	my $Url = $UrlBase . '?index=' . $IndexFile . '&amp;type=';

	print "&lt;center&gt;\n";
	print '[ &lt;a href="', $Url, 'pic&amp;id=', $prevId, '"&gt;&amp;lt;&amp;lt;&lt;/a&gt; ]', "\n" if $prevId;
	print '[ &lt;a href="', $Url, 'thumb"&gt;Index&lt;/a&gt; ]', "\n";
	print '[ &lt;a href="', $Url, 'pic&amp;id=', $nextId, '"&gt;&amp;gt;&amp;gt;&lt;/a&gt; ]', "\n" if $nextId;
	print "&lt;hr&gt;\n";

        my $text = $thePic-&gt;getFirstChild ();
        if (defined ($text)) {
                $text = $text-&gt;getData ();
        } else {
                $text = '';
        }
	
	print "&lt;span class=PicAnnotation style='width:60%'&gt;", $text, "&lt;/span&gt;&lt;br&gt;";

	print '&lt;img src="', $PicturePath, $thePic-&gt;getAttribute ('HREF'), '" alt="', $thePic-&gt;getAttribute ('HREF'), '"&gt;
&lt;/center&gt;';

        PrintPlainFooter ($album);
        print "&lt;/BODY&gt;\n";
}

# ***

sub PrintThumbAlbum {
        my ($album) = @_;
        print '&lt;BODY bgcolor="#68838b" text="#000000"&gt;

&lt;center&gt;
&lt;h1&gt;', $album-&gt;getAttribute ('TITLE'), '&lt;/h1&gt;
&lt;/center&gt;

&lt;hr&gt;

&lt;center&gt;
&lt;table border=0 cellspacing=0 cellpadding=5 width="100%"&gt;

';

	my $Columns = $album-&gt;getAttribute ('COLUMNS');
	$Columns = 8 if $Columns &lt; 1;

	my $folder = $album-&gt;getChildNodes ()-&gt;item (1);
	my $children = $folder-&gt;getChildNodes ();

	my $picIndex = 0;
	for (0..$children-&gt;getLength ()-1) {
		my $pic = $children-&gt;item ($_);
		next if $pic-&gt;getNodeName () ne 'PICTURE';

		if ($picIndex % $Columns == 0) {
			if ($picIndex != 0) {
				print "&lt;/tr&gt;\n";
			}

			print "&lt;tr&gt;\n";
		}

		my $Thumb = $PicturePath . 'thumb/' . $pic-&gt;getAttribute ('HREF');
		$Thumb =~ s/(\....)$/_thumb\1/o;

		print '
&lt;td width=', 100 / ($Columns+2), '% valign=top&gt;';

		my $text = $pic-&gt;getFirstChild ();
		if (defined ($text)) {
			$text = $text-&gt;getData ();
		} else {
			$text = '';
		}

		print '&lt;center&gt;
&lt;a href="', $UrlBase, '?type=pic&amp;index=' . $IndexFile . '&amp;id=' . $pic-&gt;getAttribute ('id'), '"&gt;&lt;img
src="', 
	$Thumb, '" hspace=0 vspace=0 border=0 
	ALT="', $pic-&gt;getAttribute ('HREF'), '"&gt;&lt;/a&gt;&lt;br&gt;
&lt;span class=ThumbAnnotation&gt;', $text, '&lt;/span&gt;
&lt;/center&gt;' if !$pic-&gt;getAttribute ('SKIP');
		print '&lt;/td&gt;
';

		$picIndex++;
	}        

	print "&lt;/table&gt;&lt;/center&gt;\n\n";
	PrintPlainFooter ($album); 
	print "&lt;/BODY&gt;\n";
}

# *****

sub PrintPlainAlbum {
	my ($album) = @_;
	print "&lt;BODY&gt;\n";

	PrintPlainFolders ($album, 0);
	PrintPlainFooter ($album);

	print "&lt;/BODY&gt;\n";
}

sub PrintPlainFolders {
	my ($folder, $level) = @_;

	my $title = $folder-&gt;getAttribute ('TITLE');
	if (!$level) {
		print '&lt;H1&gt;';
	} else {
		print '&lt;dt&gt;&lt;font size="+', 3-$level, '"&gt;';
	}

	print $title;

	if (!$level) {
		print '&lt;/H1&gt;';
	} else {
		print '&lt;/font&gt;&lt;/dt&gt;&lt;dd&gt;';
	}

	# Any annotation?
	my $children = $folder-&gt;getChildNodes ();
	for (0..$children-&gt;getLength ()-1) {
		my $child = $children-&gt;item ($_);
		print "\n", $child-&gt;getFirstChild ()-&gt;getData (), "\n"
			if $child-&gt;getNodeName eq 'ANNOTATION';
	}
	print "&lt;/ul&gt;\n" if $TagOpened;

	# Now the pictures
	PrintPlainPictures ($folder);
        
	# Now the sub folders
	my $TagOpened = 0;
        for (0..$children-&gt;getLength ()-1) {
                my $child = $children-&gt;item ($_);
		next if $child-&gt;getNodeName ne 'FOLDER';

		print "&lt;dl&gt;\n" if !$TagOpened;
		$TagOpened = 1;

		PrintPlainFolders ($child, $level+1);
        }
	print "&lt;/dl&gt;\n" if $TagOpened;

	print "&lt;/dd&gt;" if $level;
}       


sub PrintPlainPictures {
	my ($folder) = @_;

        my $children = $folder-&gt;getChildNodes ();

	my $TagOpened = 0;
        for (0..$children-&gt;getLength ()-1) {
                my $child = $children-&gt;item ($_);
                next if $child-&gt;getNodeName () ne 'PICTURE';

		print "&lt;ul&gt;\n" if !$TagOpened;
		$TagOpened = 1;

                print "\t" x 3, '&lt;li&gt;&lt;a href="', $PicturePath, $child-&gt;getAttribute ('HREF'), '"&gt;', 
			$child-&gt;getFirstChild ()-&gt;getData (), "&lt;/a&gt;&lt;/li&gt;\n";
        }
	print "&lt;/ul&gt;\n" if $TagOpened;
}

sub PrintPlainFooter {
        my ($album) = @_;

	print "&lt;HR&gt;\n";
        
        if (open (fhFooter, $album-&gt;getAttribute ('FOOTER'))) {
                print &lt;fhFooter&gt;;
                close fhFooter;
        } else {
                print "Can't open footer file (", $album-&gt;getAttribute ('FOOTER'), ")!";
        }
}                       

# *****

sub PrintIEAlbum {
	my ($album) = @_;

	print &lt;&lt;"EOF";
&lt;XML id=XmlAlbum src="$IndexFile"&gt;&lt;/XML&gt;
&lt;script language="JavaScript"&gt;
	var PicturePath = "$PicturePath";
EOF

	print &lt;&lt;'EOF';
	MinimizedFoldersWidth = 16;
        MinimizedFoldersHeight = 40;

	var bInited = false;
	var bPictureLoaded = false;
	var bFolderLoaded = false;

	function Resize () {
		footer.style.pixelTop = document.body.clientHeight-footer.offsetHeight;
		pictures.style.pixelWidth = folders.style.pixelWidth = foldersDivider.style.pixelWidth = 
			document.body.clientWidth / 3;
		folders.style.pixelHeight = document.body.clientHeight * 2/3;
		foldersDivider.style.pixelTop = document.body.clientHeight * 2/3;
		pictures.style.pixelTop = document.body.clientHeight * 2/3 + foldersDivider.offsetHeight;
		pictures.style.pixelHeight = document.body.clientHeight-document.body.clientHeight * 2/3 -
			footer.offsetHeight-foldersDivider.offsetHeight;
		image.style.pixelLeft = document.body.clientWidth / 3;
		image.style.pixelWidth = document.body.clientWidth - document.body.clientWidth / 3;
		image.style.pixelHeight = document.body.clientHeight-footer.offsetHeight;

		pictures.style.visibility = 'visible';
		folders.style.visibility = 'visible';
		foldersDivider.style.visibility = 'visible';
		image.style.visibility = 'visible';
		footer.style.visibility = 'visible';

		bInited = true;
	}

	var activeFolder = null;

	function SetFolder (folder) {
		if (folder == activeFolder) return;
		if (activeFolder != null)
			activeFolder.style.display = 'none';
		activeFolder = folder;
		if (activeFolder != null)
			activeFolder.style.display = '';

		bFolderLoaded = true;
	}

	function ShowImage1 (url, width, height, title, nextImage, PrevImage) {
		thePicture.src = PicturePath+url;
		theTitle.innerHTML = unescape (title);

		//if (width != '') thePicture.Width = width;
		//if (width != '') thePicture.Height = height;

		bPictureLoaded = true;
	}

	function ShowImage (ImageId) {
		var album = XmlAlbum.documentElement;

		ImageId = ImageId.valueOf ();

		try {
			var pic = album.selectSingleNode ("//PICTURE[@HREF='" + ImageId + "']");

			if (!pic)
			{
				alert ("No such picture in the album!");
				return;
			}

			ImageXsl.selectSingleNode ("//xsl:variable[@name='PicturePath']").text =
				PicturePath;

			image.innerHTML =
				pic.transformNode(ImageXsl);
		} catch (e) { // older Explorer is installed that does not support XSL as we need.
			thePicture.src = PicturePath+ImageId;
		}
		bPictureLoaded = true;
	}

	var
		DynamicImageActive = false;
		DynamicFoldersActive = false;
		CurrentFoldersWith = 0;

	function DynamicResize () {
		if (!bInited) return;

		// Picture
		if (bPictureLoaded) {
			if ((event.clientX &gt; document.body.clientWidth / 3) &amp;&amp; !DynamicImageActive) {
				DynamicImageActive = true;

				pictures.style.pixelWidth = folders.style.pixelWidth = foldersDivider.style.pixelWidth = currentFoldersWidth =
					MinimizedFoldersWidth;
				image.style.pixelLeft = MinimizedFoldersWidth;
				image.style.pixelWidth = document.body.clientWidth - MinimizedFoldersWidth;
			} 
		
			if ((event.clientX &lt; MinimizedFoldersWidth) &amp;&amp; DynamicImageActive) {
				DynamicImageActive = false;

				pictures.style.pixelWidth = folders.style.pixelWidth = foldersDivider.style.pixelWidth = currentFoldersWidth =
					document.body.clientWidth / 3;
				image.style.pixelLeft = document.body.clientWidth / 3;
				image.style.pixelWidth = document.body.clientWidth - document.body.clientWidth / 3;
			}
		}

                // Folders
                if (!bFolderLoaded) return;

                if (DynamicImageActive || 
				((event.clientY &gt; document.body.clientHeight * 2/3) &amp;&amp; !DynamicFoldersActive)) {
                        DynamicFoldersActive = true;
                        
                        folders.style.pixelHeight = MinimizedFoldersHeight;
                        foldersDivider.style.pixelTop = MinimizedFoldersHeight;
                        pictures.style.pixelTop = MinimizedFoldersHeight + foldersDivider.offsetHeight;
                        pictures.style.pixelHeight = document.body.clientHeight-MinimizedFoldersHeight -
                                footer.offsetHeight-foldersDivider.offsetHeight;
                }       
                
                if (!DynamicImageActive &amp;&amp; 
				((event.clientY &lt; MinimizedFoldersHeight) &amp;&amp; DynamicFoldersActive)) {
                        DynamicFoldersActive = false;
                        
                        folders.style.pixelHeight = document.body.clientHeight * 2/3;
                        foldersDivider.style.pixelTop = document.body.clientHeight * 2/3;
                        pictures.style.pixelTop = document.body.clientHeight * 2/3 + foldersDivider.offsetHeight;
                        pictures.style.pixelHeight = document.body.clientHeight-document.body.clientHeight * 2/3 -
                                footer.offsetHeight-foldersDivider.offsetHeight;
                }
	}
&lt;/script&gt;

&lt;XML id=ImageXsl&gt;
	&lt;xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"&gt;
	&lt;xsl:variable name="PicturePath"&gt;This will be set from JavaScript&lt;/xsl:variable&gt;
	&lt;xsl:template match="PICTURE"&gt;
		&lt;center&gt;&lt;table cellpading="0" cellspacing="0" height="100%"&gt;
			&lt;tr&gt;&lt;td valign="center"&gt;&lt;center&gt;
				&lt;xsl:variable name="PrevPic" select="preceding::PICTURE[position() = 1]"/&gt;
				&lt;xsl:variable name="NextPic" select="following::PICTURE"/&gt;

				&lt;xsl:if test="$PrevPic/@HREF"&gt;
					[&lt;a&gt;&lt;xsl:attribute name="HREF"&gt;
						&lt;xsl:value-of select="concat ($PicturePath, $PrevPic/@HREF)"/&gt;
					&lt;/xsl:attribute&gt;&lt;xsl:attribute name="onClick"&gt;
						ShowImage ("&lt;xsl:value-of select="$PrevPic/@HREF"/&gt;"); return false;
					&lt;/xsl:attribute&gt;&amp;lt;&amp;lt;&lt;/a&gt;]
				&lt;/xsl:if&gt;
				&lt;xsl:if test="$NextPic/@HREF"&gt;
					[&lt;a&gt;&lt;xsl:attribute name="href"&gt;
						&lt;xsl:value-of select="concat ($PicturePath, $NextPic/@HREF)"/&gt;
					&lt;/xsl:attribute&gt;&lt;xsl:attribute name="onClick"&gt;
						ShowImage ("&lt;xsl:value-of select="$NextPic/@HREF"/&gt;"); return false;
					&lt;/xsl:attribute&gt;&amp;gt;&amp;gt;&lt;/a&gt;]
				&lt;/xsl:if&gt;
				&lt;hr/&gt;
				&lt;SPAN class="PicAnnotation" style="WIDTH: 100%"&gt;
					&lt;xsl:for-each select="ancestor::FOLDER"&gt;
						&lt;xsl:value-of select="@TITLE"/&gt; :
					&lt;/xsl:for-each&gt;
					&lt;p/&gt;
					&lt;xsl:value-of select="./text()"/&gt;
				&lt;/SPAN&gt;&lt;br/&gt;
				&lt;img&gt;
					&lt;xsl:attribute name="src"&gt;
						&lt;xsl:value-of select="concat ($PicturePath, ./@HREF)"/&gt;
					&lt;/xsl:attribute&gt;
				&lt;/img&gt;
			&lt;/center&gt;&lt;/td&gt;&lt;/tr&gt;
		&lt;/table&gt;&lt;/center&gt;
	&lt;/xsl:template&gt;
	&lt;/xsl:stylesheet&gt;
&lt;/XML&gt;

&lt;BODY onLoad="Resize ();" onResize="Resize ();" onMouseMove="DynamicResize ();"&gt;
EOF
	PrintDivFolders ($album);
	PrintDivPictures ($album);
	PrintDivImage ($album);
	PrintDivFooter ($album);

	print "\n&lt;/BODY&gt;\n";
}

# *******

my $FolderNum = 0;

sub PrintDivFolders {
	my ($album) = @_;

	print '&lt;div class=Folders id=folders
	style="position:absolute; background-color: AZURE; top:0; left:0; overflow:auto; visibility:hidden"&gt;', "\n";
	PrintFolders ($album, -1);
	print '&lt;/div&gt;&lt;div id=foldersDivider
	style="position:absolute; background-color: DIMGRAY; left:0; height:3; overflow:hidden; visibility:hidden"&gt;&lt;/div&gt;', "\n";
}

sub PrintDivPictures {
	my ($album) = @_;

        print '&lt;div class=Pictures id=pictures
		style="position:absolute; background-color: ALICEBLUE; left:0; overflow:auto; visibility:hidden"&gt;', "\n";
	PrintPictures ($album);
        print '&lt;/div&gt;';
}

sub PrintDivImage {
        my ($album) = @_;
	print '&lt;div class=Image id=image
		style="position:absolute; background-color: BEIGE; top:0; overflow:auto; visibility:hidden"&gt;&lt;center&gt;&lt;table
		cellpading=0 cellspacing=0 height="100%"&gt;&lt;tr&gt;&lt;td valign=center&gt;&lt;center&gt;
		&lt;SPAN id=theTitle class=PicAnnotation style="WIDTH: 100%"&gt;&lt;/SPAN&gt;&lt;BR&gt;
		&lt;img id=thePicture src="/john/album/none.gif"&gt;&lt;/center&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;&lt;/center&gt;&lt;/div&gt;', "\n";
}

sub PrintDivFooter {
	my ($album) = @_;
	
	print '&lt;div class=Footer id=footer
		style="position:absolute; left:0; background-color: WHITE; visibility:hidden"&gt;', "\n";
	if (open (fhFooter, $album-&gt;getAttribute ('FOOTER'))) {
		print &lt;fhFooter&gt;;
		close fhFooter;
	} else {
		print "Can't open footer file (", $album-&gt;getAttribute ('FOOTER'), ")!";
	}

	print "&lt;/div&gt;";
}

# *******

sub PrintFolders {
	my ($folder, $level) = @_;

	my $title = $folder-&gt;getAttribute ('TITLE');
	print "\t" x $level, '&lt;table cellpading=0 cellspacing=0&gt;&lt;tr&gt;&lt;td&gt;', '&amp;nbsp;' x (($level-1)*5), '&lt;/td&gt;&lt;td&gt;&lt;a href=""', 
		" onclick='SetFolder(", folder, ($FolderId {$folder} = $FolderNum++),
		, "); return false;'&gt;$title&lt;/a&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;\n"
			if ++$level;

	my $children = $folder-&gt;getChildNodes ();
	for (0..$children-&gt;getLength ()-1) {
		my $child = $children-&gt;item ($_);
		PrintFolders ($child, $level)
			if $child-&gt;getNodeName eq 'FOLDER';
		}
}

$Pic = 0;

sub PrintPictures {
        my ($folder) = @_;
        my $children = $folder-&gt;getChildNodes ();

	# expand sub-folders
        for (0..$children-&gt;getLength ()-1) {
                my $child = $children-&gt;item ($_);
                PrintPictures ($child)
                        if $child-&gt;getNodeName eq 'FOLDER';
        }

	# Now print the pictures

	print '&lt;div class=Folder id=folder' . $FolderId {$folder} . ' style="display:none"&gt;
		&lt;table&gt;';

	# Annotation
	for (0..$children-&gt;getLength ()-1) {
		my $child = $children-&gt;item ($_);
		next if $child-&gt;getNodeName () ne 'ANNOTATION';

		print '&lt;tr&gt;&lt;td colspan=2 valign=top&gt;', $child-&gt;getFirstChild ()-&gt;getData (), "&lt;/td&gt;&lt;/tr&gt;\n";
	}

	# The pictures
	my $PicCount = 0;
	for (0..$children-&gt;getLength ()-1) {
                my $child = $children-&gt;item ($_);
		next if $child-&gt;getNodeName () ne 'PICTURE';

		$PicCount++;
		$Pic = !$Pic;

		print '&lt;tr&gt;&lt;td valign=top&gt;&lt;img src="/pic/r-bul.gif"&gt;&lt;/td&gt;&lt;td&gt;&lt;a href="', 
			$PicturePath, $child-&gt;getAttribute ('HREF'), '" ',
			"onClick='ShowImage (",
				'"', $child-&gt;getAttribute ('HREF'), '"); return false;', "'&gt;",
			$child-&gt;getFirstChild ()-&gt;getData (), "&lt;/a&gt;&lt;/td&gt;&lt;/tr&gt;\n";
        }

	print "&lt;/table&gt;\n";

	print "No pictures in this folder."
		if !$PicCount;

	print "&lt;/div&gt;\n";
}

__END__

=head1 DESCRIPTION

This simple script can be used for organizing web photo album. The script can be used for online or Off-Line
photo album generation. It does not provides web interface for picture uploading, thumbnail generation or web 
authoring of the album. Those tasks you will have to do using standard image processing tools and ftp. However it generates
rather nice browsable photo album.

Those are XPhotoAlbum features:

=over

=item *

Support threee different alum viewing modes:

=over

=item 1

Three pane DHTML (client side) browsing.

=item 2

Thumbnail based album.

=item 3

Plain text outline for outdated browsers.

=back

=item *

Generate album dynamically from index XML file

=item *

Support dynamic clients side album

=item *

For the 1st two modes are supported only with Internet Explorer.

=item *

Plain text album is supported on all browsers.

=item *

Support international (Unicode based) text within album.

=back

=head1 USAGE

=over

=item 1

Put the script in your cgi-bin directory.

=item 2

Edit the script to set script parameters to your configuration

=over

=item *

$UrlBase = '/cgi-bin/XPhotoAlbum.pl'; # path to the album script from web server root.

=back

=item 3

Refer to the script as:
I&lt;http://www.youserver.here/cgi-bin/XPhotoAlbum.pl?index=B&lt;/album/index.xml&gt;&amp;type=B&lt;type&gt;&gt; to be translated.

=over 

=item *

B&lt;/album/index.xml&gt; - is relative url to the XML file with the album index.

=item *

B&lt;type&gt; - is one of the three album types:

=over

=item a.

B&lt;IE&gt; - Three pane DHTML (client side) browsing (Internet Explorer only).

=item b.

B&lt;thumb&gt; - Thumbnail based album (Internet Explorer only).

=item c.

B&lt;plain&gt; - Plain text outline (all browsers).

=back

=back

=back

=head1 XML Index File Format

Please see the examples below to understand the format of the files.
However one nuance must be noticed regarding the thumbnail image files.
Thumbnails shiuld be placed in the directory B&lt;thumb/&gt; under image path. Thumbnail image names are derrived 
from regular images names appending B&lt;_thumb&gt; before file extension. For example
for file B&lt;~john/Image.JPG&gt; thumbnils is sought under B&lt;~john/thumb/Image_thumb.JPG&gt;.

=head1 CAVEATS

Send your feedback...

=head1 TIPS AND TRICKS

Send your feedback...

=head1 EXAMPLES

Please see http://www.neystadt.org/ for three instances of the albums using this technology.
Particulary examples of the XML index files are located at:

    http://www.neystadt.org/gal/birth/index.xml
    http://www.neystadt.org/john/album/index.xml 
    http://www.neystadt.org/leonid/album.xml

=head1 PREREQUISITES

This script requires the C&lt;URI::Escape&gt;, C&lt;XML::DOM&gt; 
modules available from CPAN (http://www.cpan.org)

=pod OSNAMES

All UNIXes, Windows NT

=pod SCRIPT CATEGORIES

Web

=pod README

This simple script can be used for organizing web photo album. The script can be used for online or Off-Line
photo album generation. It does not provides web interface for picture uploading, thumbnail generation or web 
authoring of the album. Those tasks you will have to do using standard image processing tools and ftp. However it generates
rather nice browsable photo album.

=cut
</pre></body></html>