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 }