summaryrefslogtreecommitdiff
path: root/lib/App/Dthumb.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/App/Dthumb.pm')
-rwxr-xr-xlib/App/Dthumb.pm20
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 {