From bd0120cdb2e371e620999d749cba741287da3094 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Mon, 28 Feb 2011 20:02:49 +0100
Subject: Make HTML document title configurable via -t/--title option

---
 lib/App/Dthumb/Data.pm.PL | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'lib/App/Dthumb')

diff --git a/lib/App/Dthumb/Data.pm.PL b/lib/App/Dthumb/Data.pm.PL
index c1f1ed2..a686c6d 100644
--- a/lib/App/Dthumb/Data.pm.PL
+++ b/lib/App/Dthumb/Data.pm.PL
@@ -54,6 +54,11 @@ sub new {
 	return bless($ref, $obj);
 }
 
+sub set_vars {
+	my ($self, %vars) = @_;
+	$self->{replace} = \%vars;
+}
+
 sub get {
 	my ($self, $name) = @_;
 	my $data = $self->section_data($name);
@@ -65,6 +70,15 @@ sub get {
 	if ($name =~ qr{ \. (png | gif) $ }ox) {
 		return decode_base64(${$data});
 	}
+
+	while (my ($key, $value) = each %{$self->{replace}}) {
+		${$data} =~ s{
+			( \<\!-- | /\* )
+				\s+ \$ $key \s+
+			( --\> | \*/ )
+		}{$value}gx;
+	}
+
 	return ${$data};
 }
 
-- 
cgit v1.2.3