From 37e21a2515a4b80ee661a2422204cfc42faf927b Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Wed, 2 Mar 2011 18:26:50 +0100
Subject: App::Dthumb::Data: Add list_archived() to simplify App::Dthumb
 create_files()

---
 lib/App/Dthumb.pm         | 3 +--
 lib/App/Dthumb/Data.pm.PL | 5 +++++
 2 files changed, 6 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/App/Dthumb.pm b/lib/App/Dthumb.pm
index fc21059..365eaba 100755
--- a/lib/App/Dthumb.pm
+++ b/lib/App/Dthumb.pm
@@ -216,8 +216,7 @@ sub create_files {
 			mkdir($datadir);
 		}
 
-		for my $file (qw(close.png loading.gif main.css next.png pause.png
-				play.png previous.png shadowbox.css shadowbox.js)) {
+		for my $file ($self->{data}->list_archived()) {
 			open(my $fh, '>', "${datadir}/${file}");
 			print {$fh} $self->{data}->get($file);
 			close($fh);
diff --git a/lib/App/Dthumb/Data.pm.PL b/lib/App/Dthumb/Data.pm.PL
index c430c0a..0e602ef 100644
--- a/lib/App/Dthumb/Data.pm.PL
+++ b/lib/App/Dthumb/Data.pm.PL
@@ -59,6 +59,11 @@ sub set_vars {
 	$self->{replace} = \%vars;
 }
 
+sub list_archived {
+	my ($self) = @_;
+	return grep { ! /\.dthumb$/ } $self->section_data_names();
+}
+
 sub get {
 	my ($self, $name) = @_;
 	my $data = $self->section_data($name);
-- 
cgit v1.2.3