From 8e2c5ff58217311fa8500a5267a72fc90cc01ec0 Mon Sep 17 00:00:00 2001
From: Eugene Crosser <crosser@average.org>
Date: Thu, 10 Jan 2013 13:27:48 +0000
Subject: [PATCH] half-tested way to include an image to the index page.

---
 mkgallery.pl | 23 +++++++++++++++++++++--
 1 file changed, 21 insertions(+), 2 deletions(-)

diff --git a/mkgallery.pl b/mkgallery.pl
index f5b6186..1132a7f 100755
--- a/mkgallery.pl
+++ b/mkgallery.pl
@@ -356,7 +356,9 @@ sub edittitle {
 	my $self = shift;
 	my $fullpath = $self->{-fullpath};
 	my $title;
+	my $titleimage;
 	my $T;
+	my $TI;
 	if (open($T,'<'.$fullpath.'/.title')) {
 		binmode($T, ":utf8");
 		$title = <$T>;
@@ -379,6 +381,14 @@ sub edittitle {
 		$title=$self->{-relpath};
 	}
 	$self->{-title}=$title;
+	if (open($TI,'<'.$fullpath.'/.titleimage')) {
+		binmode($TI, ":utf8");
+		$titleimage = <$TI>;
+		$titleimage =~ s/[\r\n]*$//;
+		close($TI);
+		#print STDERR "found title image \"",$titleimage,"\"\n";
+		$self->{-titleimage}=$titleimage;
+	}
 	print "title in $fullpath is $title\n" if ($debug);
 }
 
@@ -566,6 +576,7 @@ sub startindex {
 
 	my $inc = $self->{-inc}.$incdir.'/';
 	my $title = $self->{-title};
+	my $titleimage = $self->{-titleimage};	
 	print $IND start_html(-title => $title,
 			-encoding=>"utf-8",
 			-style=>[
@@ -597,6 +608,7 @@ sub startindex {
 			-version	=> $version,
 			-depth		=> $self->{-depth},
 			-title		=> $title,
+			-titleimage	=> $titleimage,
 			-path		=> $self->{-fullpath},
 			-breadcrumbs	=> "breadcrumbs unimplemented",
 		);
@@ -605,8 +617,14 @@ sub startindex {
 		print STDERR "could not open ",
 			$self->{-toppath}.'/'.$incdir.'/header.pl',
 			" ($!), reverting to default header";
-		print $IND a({-href=>"../index.html"},"UP"),"\n",
-			h1({-class=>'title'},$title),"\n",
+		print $IND a({-href=>"../index.html"},"UP"),"\n";
+		if ($titleimage) {
+			print $IND img({-src=>$titleimage,
+					-class=>'titleimage',
+					-alt=>'Title Image'}),"\n";
+		}
+		print $IND h1({-class=>'title'},$title),
+			br({-clear=>'all'}),"\n";
 	}
 }
 
@@ -626,6 +644,7 @@ sub endindex {
 			-version	=> $version,
 			-depth		=> $self->{-depth},
 			-title		=> $self->{-title},
+			-titleimage	=> $self->{-titleimage},
 			-breadcrumbs	=> "breadcrumbs unimplemented",
 		);
 		print $IND eval $prm,"\n";
-- 
2.39.2