gal2/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 strict;
   6 use warnings;
   7
   8 use UCW::Gallery;
   9 use Data::Dumper;
  10
  11 my $gal = UCW::Gallery->load_config();
  12
  13 for my $k (sort $gal->get_config_keys) {
  14         my $d = Data::Dumper->new([ $gal->get($k) ]);
  15         $d->Terse(1);
  16         print "$k=", $d->Dump;
  17 }