From 482dcd5475ab8f572cf097db8e09bc72d37fb0af Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Wed, 26 Dec 2012 14:07:07 +0100
Subject: [PATCH] Gallery2: Added gal-show-cf

---
 gal2/gal-show-cf | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 gal2/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;
+}
-- 
2.39.2