From 32138324c61fef614eeef8cf21750cd30c574ef4 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Sun, 23 Dec 2012 23:46:58 +0100
Subject: [PATCH] Gallery2: A simple script for dumping meta-data

---
 gal2/gal-metacat | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100755 gal2/gal-metacat

diff --git a/gal2/gal-metacat b/gal2/gal-metacat
new file mode 100755
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);
-- 
2.39.2