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

my $gal = UCW::Gallery->load_config;
my $meta = $gal->read_meta($ARGV[0]);
print Dumper($meta);