#!/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);