2 # UCW Gallery: Show configuration variables
3 # (c) 2004--2012 Martin Mares <mj@ucw.cz>
13 my $gal = UCW::Gallery->load_config();
15 for my $k (sort $gal->get_config_keys) {
16 my $d = Data::Dumper->new([ $gal->get($k) ]);
18 print "$k=", $d->Dump;