]>
Commit | Line | Data |
---|---|---|
1 | #!/usr/bin/perl -wT -CSDA | |
2 | use v5.14; | |
3 | ||
4 | use App::MusicExpo; | |
5 | ||
6 | App::MusicExpo->run; | |
7 | ||
8 | __END__ | |
9 | ||
10 | =encoding utf-8 | |
11 | ||
12 | =head1 NAME | |
13 | ||
14 | musicexpo - script which generates a HTML table of music tags | |
15 | ||
16 | =head1 SYNOPSIS | |
17 | ||
18 | # Creates a table with the songs a.mp3 and b.flac using the default template and without caching. The download links point to /music/a.mp3 and /music/b.mp3 | |
19 | musicexpo a.mp3 b.flac | |
20 | ||
21 | # Caches to 'cache.db', and the download links point to /download/a.flac, /download/b.flac, /download/c.flac | |
22 | musicexpo --cache 'cache.db' --prefix /download/ my/music/a.flac my/music/b.flac othermusic/c.flac | |
23 | ||
24 | # Caches into /tmp/musicexpocache and uses directory/file.tmpl as template | |
25 | musicexpo --cache /tmp/musicexpocache --template directory/file.tmpl my-music/*.mp3 | |
26 | ||
27 | =head1 DESCRIPTION | |
28 | ||
29 | musicexpo creates a HTML table from a list of songs. | |
30 | ||
31 | The default template looks like: | |
32 | ||
33 | | Title | Artist | Album | Genre | Track | Year | Type | | |
34 | |---------+---------+-----------------+---------+-------+------+------| | |
35 | | Cellule | Silence | L'autre endroit | Electro | 01/09 | 2005 | FLAC | | |
36 | ||
37 | where the title is a download link. If you have multiple files with the same | |
38 | basename (such as C<cellule.flac> and C<cellule.ogg>), they will be treated | |
39 | as two versions of the same file, so a row will be created with two download | |
40 | links, one for each format. | |
41 | ||
42 | =head1 OPTIONS | |
43 | ||
44 | =over | |
45 | ||
46 | =item B<--template> I<template> | |
47 | ||
48 | Path to the HTML::Template::Compiled template used for generating the music table. If '' (empty), uses the default format. Is empty by default. | |
49 | ||
50 | =item B<--prefix> I<prefix> | |
51 | ||
52 | Prefix for download links. Defaults to '/music/'. | |
53 | ||
54 | =item B<--cache> I<filename> | |
55 | ||
56 | Path to the cache file. Created if it does not exist. If '' (empty), disables caching. Is empty by default. | |
57 | ||
58 | =back | |
59 | ||
60 | =head1 AUTHOR | |
61 | ||
62 | Marius Gavrilescu, E<lt>marius@ieval.roE<gt> | |
63 | ||
64 | =head1 COPYRIGHT AND LICENSE | |
65 | ||
66 | Copyright (C) 2013 by Marius Gavrilescu | |
67 | ||
68 | This library is free software; you can redistribute it and/or modify | |
69 | it under the same terms as Perl itself, either Perl version 5.14.2 or, | |
70 | at your option, any later version of Perl 5 you may have available. |