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

use strict;
use warnings;

use FindBin;
use lib $FindBin::Bin;
use UCW::Gallery qw(%CF);
use Data::Dumper;

UCW::Gallery::LoadConfig;

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