gal2/bin/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 UCW::Gallery;
   9 use Data::Dumper;
  10
  11 @ARGV == 1 or die "Usage: $0 <meta-file>\n";
  12
  13 my $gal = UCW::Gallery->load_config;
  14 my $meta = $gal->read_meta($ARGV[0]);
  15 print Dumper($meta);