gal2/gal-show-cf

   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 FindBin;
   9 use lib $FindBin::Bin;
  10 use UCW::Gallery qw(%CF);
  11 use Data::Dumper;
  12
  13 UCW::Gallery::LoadConfig;
  14
  15 for my $k (sort keys %CF) {
  16         my $d = Data::Dumper->new([ $CF{$k} ]);
  17         $d->Terse(1);
  18         print "$k=", $d->Dump;
  19 }