gal2/gal-dump-meta

   1 #!/usr/bin/perl
   2 # UCW Gallery: Dump meta-data
   3 # (c) 2004--2012 Martin Mares <mj@ucw.cz>
   4
   5 use strict;
   6 use warnings;
   7
   8 use FindBin;
   9 use lib $FindBin::Bin;
  10 use UCW::Gallery;
  11 use Data::Dumper;
  12
  13 @ARGV == 1 or die "Usage: $0 <meta-file>\n";
  14
  15 my $gal = UCW::Gallery->load_config;
  16 my $meta = $gal->read_meta($ARGV[0]);
  17 print Dumper($meta);