From: Martin Mares <mj@ucw.cz>
Date: Wed, 26 Dec 2012 13:07:07 +0000 (+0100)
Subject: Gallery2: Added gal-show-cf
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=482dcd5475ab8f572cf097db8e09bc72d37fb0af;p=gallery.git

Gallery2: Added gal-show-cf
---

diff --git a/gal2/gal-show-cf b/gal2/gal-show-cf
new file mode 100755
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;
+}