gallery.pl

   1 #!/usr/bin/perl -w
   2 use v5.14;
   3
   4 use App::Gallery;
   5 use Getopt::Long;
   6
   7 my %args;
   8
   9 GetOptions (
  10         'out|o=s' => \$args{out},
  11         'tmpl=s' => \$args{tmpl},
  12         'title=s' => \$args{title},
  13         'width=i' => \$args{width},
  14         'height=i' => \$args{height},
  15 );
  16
  17 die "Argument --out PATH is mandatory\n" unless $args{out};
  18
  19 App::Gallery->run(\%args, @ARGV);
  20
  21 __END__
  22
  23 =encoding utf-8
  24
  25 =head1 NAME
  26
  27 gallery.pl - very basic image gallery script
  28
  29 =head1 SYNOPSIS
  30
  31   gallery.pl --out DIR [--tmpl TEMPLATE]
  32     [--width PIXELS] [--height PIXELS] [--title TITLE] IMAGE...
  33
  34 =head1 DESCRIPTION
  35
  36 gallery.pl creates basic image galleries. Pass an output directory and
  37 a list of images to the script. The images will be hard linked into
  38 the directory (or copied if hard linking fails), then thumbnails will
  39 be created for the images, and finally an F<index.html> file linking
  40 to all the images will be created in the directory.
  41
  42 =head1 OPTIONS
  43
  44 =over
  45
  46 =item B<--out> I<path>
  47
  48 Directory to create everything in. Created if it does not exist. Mandatory.
  49
  50 =item B<--tmpl> I<template>
  51
  52 Path to template file, in HTML::Template::Compiled format.
  53
  54 =item B<--width> I<width>
  55
  56 Maximum width of thumbnails, in pixels. Defaults to 600.
  57
  58 =item B<--height> I<height>
  59
  60 Maximum height of thumbnails, in pixels. Defaults to 600.
  61
  62 =item B<--title> I<title>
  63
  64 Title of HTML page. Defaults to 'Gallery'.
  65
  66 =back
  67
  68 =head1 AUTHOR
  69
  70 Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
  71
  72 =head1 COPYRIGHT AND LICENSE
  73
  74 Copyright (C) 2017 by Marius Gavrilescu
  75
  76 This library is free software; you can redistribute it and/or modify
  77 it under the same terms as Perl itself, either Perl version 5.14.2 or,
  78 at your option, any later version of Perl 5 you may have available.