use strict;
use warnings;
+use Storable;
+
BEGIN {
# Standard Perl module stuff
use Exporter();
our $th;
BEGIN {
- $CF{"Title"} = "An Unnamed Gallery",
- $CF{"HeadExtras"} = "",
- $CF{"TopExtras"} = "",
- $CF{"BotExtras"} = "",
- $CF{"ParentURL"} = "../",
- $CF{"BackURL"} = "",
- $CF{"FwdURL"} = "",
- $CF{"ImageSubpages"} = 1,
- $CF{"AllowArchives"} = 1,
- $CF{"PhotoUrlPrefix"} = "",
- $CF{"ThumbUrlPrefix"} = "",
- $CF{"MetaDataDir"} = ".",
- $CF{"PhotoDir"} = ".",
+ $CF{'Title'} = 'An Unnamed Gallery',
+ $CF{'HeadExtras'} = "",
+ $CF{'TopExtras'} = "",
+ $CF{'BotExtras'} = "",
+ $CF{'ParentURL'} = '../',
+ $CF{'BackURL'} = "",
+ $CF{'FwdURL'} = "",
+ $CF{'ImageSubpages'} = 1,
+ $CF{'AllowArchives'} = 1,
+ $CF{'PhotoUrlPrefix'} = "",
+ $CF{'ThumbUrlPrefix'} = "",
+ $CF{'MetaDataDir'} = '.',
+ $CF{'PhotoDir'} = '.',
$CF{'ScanDefaultTransform'} = 'n';
$CF{'OrigDir'} = '.';
$CF{'PhotoDir'} = 'photo';
- $CF{"CacheDir"} = "cache",
+ $CF{'CacheDir'} = "cache",
+ $CF{'PhotoMaxWidth'} = 1024,
+ $CF{'PhotoMaxHeight'} = 1024,
}
sub LoadConfig() {
return \@images;
}
+sub WriteMeta($$) {
+ my ($file, $meta) = @_;
+ open META, '>', "$file.new" or die "Cannot create $file.new: $!\n";
+ Storable::nstore_fd($meta, \*META);
+ close META;
+ rename "$file.new", $file or die "Cannot rename $file.new to $file: $!\n";
+}
+
+sub ReadMeta($) {
+ my ($file) = @_;
+ open META, '<', $file or die "Cannot read $file: $!\n";
+ my $meta = Storable::fd_retrieve(\*META) or die "Cannot parse $file\n";
+ close META;
+ return $meta;
+}
+
1;