diff options
Diffstat (limited to 'lib/App/Dthumb.pm')
-rwxr-xr-x | lib/App/Dthumb.pm | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/lib/App/Dthumb.pm b/lib/App/Dthumb.pm index 2425800..0ec0ce3 100755 --- a/lib/App/Dthumb.pm +++ b/lib/App/Dthumb.pm @@ -37,6 +37,7 @@ sub new { $ref->{config}->{file_index} = 'index.xhtml'; $ref->{config}->{file_lightbox} = 'lightbox.js'; $ref->{config}->{dir_thumbs} = '.thumbs'; + $ref->{config}->{dir_data} = '.dthumb'; return bless($ref, $obj); } @@ -84,15 +85,32 @@ sub read_directories { sub create_files { my ($self) = @_; my $thumbdir = $self->{config}->{dir_thumbs}; + my $datadir = $self->{config}->{dir_data}; my $fh; if (not -d $thumbdir) { mkdir($thumbdir); } - open($fh, '>', 'lightbox.js'); + if (not -d $datadir) { + mkdir($datadir); + } + + open($fh, '>', "${datadir}/lightbox.js"); print {$fh} $self->{data}->lightbox(); close($fh); + + open($fh, '>', "${datadir}/overlay.png"); + print {$fh} $self->{data}->overlay_png(); + close($fh); + + open($fh, '>', "${datadir}/loading.gif"); + print {$fh} $self->{data}->loading_gif(); + close($fh); + + open($fh, '>', "${datadir}/close.gif"); + print {$fh} $self->{data}->close_gif(); + close($fh); } sub delete_old_thumbnails { |