Gallery2: A simple script for dumping meta-data

diff --git a/gal2/gal-metacat b/gal2/gal-metacat
new file mode 100755 (executable)
index 0000000..44889af
--- /dev/null
+++ b/gal2/gal-metacat
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+# UCW Gallery: Dump meta-data
+# (c) 2004--2012 Martin Mares <mj@ucw.cz>
+
+use strict;
+use warnings;
+
+use lib '/home/mj/web/gal2';
+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);