#!/usr/bin/perl

#
# from a list of files with comments, generate an html index page, and subsequent sectional pages
#
# author: lumchan open parens a t close parens gmail.com
#

$index="index.html";
$list="list";
$imageprefix="image";
$imagesuffix="html";
# as many colours as there are pages!
@colors=("yellow", "green", "cyan", "pink", "lime", "orange", "red", "gray", "lightblue", "magenta", "gold", "black", "blue");
@colortabs=("green", "cyan", "pink", "lime", "orange", "red", "gray", "salmon", "gold", "magenta", "yellow", "white", "silver");
if( -e "$index" )	{
	system ( "rm $index" );
}


# need to count how many pages we'll have first..
$listCount=0;
open LISTFILE, "$list";
	while(<LISTFILE>)	{
		if( /END/ )	{
			$listCount++;
		}
	}
close LISTFILE;

# start doing magic
open LISTFILE, "$list";
open INDEXFILE, ">>$index";
print INDEXFILE "<p><hr size=1 width=100><center><font size=5>Images from Adult Dance Camps in Virginia</font><hr size=1 width=100>";

# clear existing files
$k=0;
$i=0;
$m=1;
while( <LISTFILE> )	{
	if( /END/ )	{

		if( $i > 0 )	{
			$nextfile="$imageprefix$m.$imagesuffix";
			$k=$i-1;
			$previousfile="$imageprefix$k.$imagesuffix";
			$m++;
		}
		else	{
			$k++;
			$m++;
			$nextfile="$imageprefix$m.$imagesuffix";
			$previousfile="";
		}

		# current file html content
		$newfile="$imageprefix$i.$imagesuffix";
		if( -e "$newfile" )	{
			system( "rm $newfile" );
		}
		open NEWFILE, ">>$newfile";
		print NEWFILE "<center><p><a href=\"index.html\"><font size=5>Back to index</font></a>&nbsp;&nbsp;&nbsp;";
		
		if( -e $previousfile )	{
			print NEWFILE "<a href=\"$previousfile\"><font size=5>Previous</font></a>&nbsp;&nbsp;&nbsp";
		}

		if( -e $nextfile )	{
			print NEWFILE "<a href=\"$nextfile\"><font size=5>Next</font></a>";
		}
		print NEWFILE "<p><table cellspacing=1 cellpadding=5 border=0 bgcolor=\"$colors[$i]\" width=600><tr>";
		print INDEXFILE "<table cellspacing=1 cellpadding=5 border=0><tr>";

		print INDEXFILE "<td width=100 bgcolor=$colors[$i]><a href=\"$newfile\">$newfile<\/a></td><tr>";
		for($j=0;$j<@contents;$j++)	{
			print NEWFILE "<td><img alt=$comments[$j]
					title=$comments[$j]
					 src=\"$contents[$j]\"></td><td>
					<table cellpadding=1
						cellspacing=4
						border=0 bgcolor=$colortabs[$j]>
						<td>$comments[$j]</td></table></td><tr>\n";
		}
		print NEWFILE "</table>";
		print NEWFILE "<center><p><a href=\"index.html\"><font size=5>Back to index</font></a>&nbsp;&nbsp;&nbsp;";
		if( -e $previousfile )	{
			print NEWFILE "<a href=\"$previousfile\"><font size=5>Previous</font></a>&nbsp;&nbsp;&nbsp";
		}
		if( -e $nextfile )	{
			print NEWFILE "<a href=\"$nextfile\"><font size=5>Next</font></a>";
		}
		close NEWFILE;
		$i++; #increment counter for which image file
		for($j=0;$j<@contents;$j++)	{
			delete $contents[$j]; #cleanup
			delete $comments[$j]; #cleanup
		}
	}
	else	{
		chomp;
		($filename, $comment) = split /\|/;
		push @contents, $filename;
		push @comments, $comment;
	}
}
close LISTFILE;
print INDEXFILE "</table><p><hr size=1 width=100><a href=\"genpage.pl.txt\">Perl source code</a>
	I wrote to generate this from a
		<a href=\"list.txt\">list</a> of files.
		<p><a href=\"../index.html\">Way back home..</a><p></center>";
close INDEXFILE;