Gallery2: Added gal-show-cf

diff --git a/gal2/gal-show-cf b/gal2/gal-show-cf
new file mode 100755 (executable)
index 0000000..c39e98c
--- /dev/null
+++ b/gal2/gal-show-cf
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+# UCW Gallery: Show configuration variables
+# (c) 2004--2012 Martin Mares <mj@ucw.cz>
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib $FindBin::Bin;
+use UCW::Gallery qw(%CF);
+use Data::Dumper;
+
+UCW::Gallery::LoadConfig;
+
+for my $k (sort keys %CF) {
+       my $d = Data::Dumper->new([ $CF{$k} ]);
+       $d->Terse(1);
+       print "$k=", $d->Dump;
+}