musicexpo

   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.