]> iEval git - app-gallery.git/blob - gallery.pl
Initial commit
[app-gallery.git] / 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.
This page took 0.06182 seconds and 4 git commands to generate.