From 37e21a2515a4b80ee661a2422204cfc42faf927b Mon Sep 17 00:00:00 2001 From: Daniel Friesel 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 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'lib/App/Dthumb.pm') 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); -- cgit v1.2.3