#!/usr/bin/perl
# UCW Gallery: Show configuration variables
# (c) 2004--2012 Martin Mares <mj@ucw.cz>

use strict;
use warnings;

use UCW::Gallery;
use Data::Dumper;

my $gal = UCW::Gallery->load_config();

for my $k (sort $gal->get_config_keys) {
	my $d = Data::Dumper->new([ $gal->get($k) ]);
	$d->Terse(1);
	print "$k=", $d->Dump;
}