gal2/gal-metacat

   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 lib '/home/mj/web/gal2';
   9 use UCW::Gallery;
  10 use Data::Dumper;
  11
  12 @ARGV == 1 or die "Usage: $0 <meta-file>\n";
  13
  14 UCW::Gallery::LoadConfig;
  15 my $meta = UCW::Gallery::ReadMeta($ARGV[0]);
  16 print Dumper($meta);