From: Martin Mares <mj@ucw.cz>
Date: Wed, 26 Dec 2012 18:31:42 +0000 (+0100)
Subject: Gallery2: More renames
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=9616a1f03e8290d15f0d15def6c8fb6d4e9420bf;p=gallery.git

Gallery2: More renames
---

diff --git a/gal2/gal-dump-config b/gal2/gal-dump-config
new file mode 100755
index 0000000..1432c2e
--- /dev/null
+++ b/gal2/gal-dump-config
@@ -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;
+use Data::Dumper;
+
+my $gal = UCW::Gallery->load_config();
+
+for my $k (sort $gal->get_config_keys) {
+	my $d = Data::Dumper->new([ $gal->get($k) ]);
+	$d->Terse(1);
+	print "$k=", $d->Dump;
+}
diff --git a/gal2/gal-dump-meta b/gal2/gal-dump-meta
new file mode 100755
index 0000000..78e3f85
--- /dev/null
+++ b/gal2/gal-dump-meta
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+# UCW Gallery: Dump meta-data
+# (c) 2004--2012 Martin Mares <mj@ucw.cz>
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib $FindBin::Bin;
+use UCW::Gallery;
+use Data::Dumper;
+
+@ARGV == 1 or die "Usage: $0 <meta-file>\n";
+
+UCW::Gallery::LoadConfig;
+my $meta = UCW::Gallery::ReadMeta($ARGV[0]);
+print Dumper($meta);
diff --git a/gal2/gal-metacat b/gal2/gal-metacat
deleted file mode 100755
index 78e3f85..0000000
--- a/gal2/gal-metacat
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/usr/bin/perl
-# UCW Gallery: Dump meta-data
-# (c) 2004--2012 Martin Mares <mj@ucw.cz>
-
-use strict;
-use warnings;
-
-use FindBin;
-use lib $FindBin::Bin;
-use UCW::Gallery;
-use Data::Dumper;
-
-@ARGV == 1 or die "Usage: $0 <meta-file>\n";
-
-UCW::Gallery::LoadConfig;
-my $meta = UCW::Gallery::ReadMeta($ARGV[0]);
-print Dumper($meta);
diff --git a/gal2/gal-show-cf b/gal2/gal-show-cf
deleted file mode 100755
index 1432c2e..0000000
--- a/gal2/gal-show-cf
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/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;
-use Data::Dumper;
-
-my $gal = UCW::Gallery->load_config();
-
-for my $k (sort $gal->get_config_keys) {
-	my $d = Data::Dumper->new([ $gal->get($k) ]);
-	$d->Terse(1);
-	print "$k=", $d->Dump;
-}