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() --- MANIFEST | 4 ++-- lib/App/Dthumb.pm | 3 +-- lib/App/Dthumb/Data.pm.PL | 5 +++++ share/html_end | 3 --- share/html_end.dthumb | 3 +++ share/html_start | 16 ---------------- share/html_start.dthumb | 16 ++++++++++++++++ 7 files changed, 27 insertions(+), 23 deletions(-) delete mode 100644 share/html_end create mode 100644 share/html_end.dthumb delete mode 100644 share/html_start create mode 100644 share/html_start.dthumb diff --git a/MANIFEST b/MANIFEST index 7f8211a..cf22ce1 100644 --- a/MANIFEST +++ b/MANIFEST @@ -8,8 +8,8 @@ MANIFEST This list of files MANIFEST.SKIP README share/close.png -share/html_end -share/html_start +share/html_end.dthumb +share/html_start.dthumb share/loading.gif share/main.css share/next.png 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); diff --git a/share/html_end b/share/html_end deleted file mode 100644 index 9943ff0..0000000 --- a/share/html_end +++ /dev/null @@ -1,3 +0,0 @@ - - - diff --git a/share/html_end.dthumb b/share/html_end.dthumb new file mode 100644 index 0000000..9943ff0 --- /dev/null +++ b/share/html_end.dthumb @@ -0,0 +1,3 @@ + + + diff --git a/share/html_start b/share/html_start deleted file mode 100644 index baf8167..0000000 --- a/share/html_start +++ /dev/null @@ -1,16 +0,0 @@ - - - -  - - - - - - -

diff --git a/share/html_start.dthumb b/share/html_start.dthumb new file mode 100644 index 0000000..baf8167 --- /dev/null +++ b/share/html_start.dthumb @@ -0,0 +1,16 @@ + + + +  + + + + + + +

-- cgit v1.2.3