From: Eugene Crosser <crosser@average.org>
Date: Thu, 4 Sep 2008 06:06:26 +0000 (+0000)
Subject: add html customizaton template
X-Git-Tag: 2.00~12
X-Git-Url: http://www.average.org/gitweb/?p=mkgallery.git;a=commitdiff_plain;h=3364d219ce6156f74854698a7ecda95c6d45c00d

add html customizaton template
---

diff --git a/include/chrome.pm b/include/chrome.pm
new file mode 100644
index 0000000..e27fb5b
--- /dev/null
+++ b/include/chrome.pm
@@ -0,0 +1,52 @@
+#!/usr/bin/perl
+# $Id$
+#
+# customizable class to generate html around the gallery index
+
+package Chrome;
+
+use strict;
+
+# Boilerplate. Do not change this (unless you know better).
+
+sub new {
+	my $this=shift;
+	my $self;
+	my $parm=shift;
+	if (ref($this)) {
+		die "$this::new should not be called as instance method";
+	} else {
+		$self={
+			-title		=> $parm->{-title},
+			-depth		=> $parm->{-depth},
+			-breadcrumbs	=> $parm->{-breadcrumbs},
+		};
+	}
+	bless $self,$this;
+	return $self;
+}
+
+# Public methods. Replace this with what suits you.
+
+sub header {
+	my $self=shift;
+	return $self{-depth}?
+		"<div class=\"uplink\"><a href=\"../index.html\">UP</a></div>":
+		"".
+		"<h1 class=\"title\">$self{-title}</h1>";
+}
+
+sub axheader {
+	my $self=shift;
+	return "<h2 class=\"alisthdr\">Albums</h2>";
+}
+
+sub ixheader {
+	my $self=shift;
+	return "<h2 class=\"ilisthdr\">Images</h2>";
+}
+
+sub footer {
+	my $self=shift;
+	return "<hr class=\"footer\" />";
+}