Gallery2: More renames

diff --git a/gal2/gal-dump-config b/gal2/gal-dump-config
new file mode 100755 (executable)
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 (executable)
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 (executable)
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 (executable)
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;
-}