]> mj.ucw.cz Git - gallery.git/blob - bin/gal-dump-config
gal-mj-digikam: Use image title
[gallery.git] / bin / gal-dump-config
1 #!/usr/bin/perl
2 # UCW Gallery: Show configuration variables
3 # (c) 2004--2012 Martin Mares <mj@ucw.cz>
4
5 use common::sense;
6
7 use UCW::Gallery;
8 use Data::Dumper;
9
10 my $gal = UCW::Gallery->load_config();
11
12 for my $k (sort $gal->get_config_keys) {
13         my $d = Data::Dumper->new([ $gal->get($k) ]);
14         $d->Terse(1);
15         print "$k=", $d->Dump;
16 }