$CF{'ThumbUrlPrefix'} = "",
$CF{'MetaDataDir'} = '.',
$CF{'PhotoDir'} = '.',
$CF{'ThumbUrlPrefix'} = "",
$CF{'MetaDataDir'} = '.',
$CF{'PhotoDir'} = '.',
$CF{'PhotoMaxWidth'} = 1024,
$CF{'PhotoMaxHeight'} = 1024,
$CF{'PhotoMaxWidth'} = 1024,
$CF{'PhotoMaxHeight'} = 1024,
sub WriteList($$) {
my ($file, $images) = @_;
open LIST, '>', "$file.new" or die "Cannot create $file.new: $!\n";
sub WriteList($$) {
my ($file, $images) = @_;
open LIST, '>', "$file.new" or die "Cannot create $file.new: $!\n";