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