From: Martin Mares <mj@ucw.cz>
Date: Sun, 23 Dec 2012 22:46:58 +0000 (+0100)
Subject: Gallery2: A simple script for dumping meta-data
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=32138324c61fef614eeef8cf21750cd30c574ef4;p=gallery.git

Gallery2: A simple script for dumping meta-data
---

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);