diff options
author | Daniel Friesel <derf@finalrewind.org> | 2011-03-02 18:26:50 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2011-03-02 18:26:50 +0100 |
commit | 37e21a2515a4b80ee661a2422204cfc42faf927b (patch) | |
tree | 4b8abde98325ef7638b6feb45bb70273abbdf937 /lib/App/Dthumb.pm | |
parent | 48da68f614a9da1b7f91b50a3e4c6655009e211e (diff) |
App::Dthumb::Data: Add list_archived() to simplify App::Dthumb create_files()
Diffstat (limited to 'lib/App/Dthumb.pm')
-rwxr-xr-x | lib/App/Dthumb.pm | 3 |
1 files changed, 1 insertions, 2 deletions
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); |