| 1 | #!/usr/bin/perl -w |
| 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. |