musicexpo

   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 =head1 NAME
  11
  12 musicexpo - script which generates a HTML table of music tags
  13
  14 =head1 SYNOPSIS
  15
  16     # 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
  17     musicexpo a.mp3 b.flac
  18
  19     # Caches to 'cache.db', and the download links point to /download/a.flac, /download/b.flac, /download/c.flac
  20     musicexpo --cache 'cache.db' --prefix /download/ my/music/a.flac my/music/b.flac othermusic/c.flac
  21
  22     # Caches into /tmp/musicexpocache and uses directory/file.tmpl as template
  23     musicexpo --cache /tmp/musicexpocache --template directory/file.tmpl my-music/*.mp3
  24
  25 =head1 DESCRIPTION
  26
  27 musicexpo creates a HTML table from a list of songs.
  28
  29 The default template looks like:
  30
  31     | Title   | Artist  | Album           | Genre   | Track | Year | Type |
  32     |---------+---------+-----------------+---------+-------+------+------|
  33     | Cellule | Silence | L'autre endroit | Electro | 01/09 | 2005 | FLAC |
  34
  35 where the title is a download link.
  36
  37 =head1 OPTIONS
  38
  39 =over
  40
  41 =item B<--template> I<template>
  42
  43 Path to the HTML::Template::Compiled template used for generating the music table. If '' (empty), uses the default format. Is empty by default.
  44
  45 =item B<--prefix> I<prefix>
  46
  47 Prefix for download links. Defaults to '/music/'.
  48
  49 =item B<--cache> I<filename>
  50
  51 Path to the cache file. Created if it does not exist. If '' (empty), disables caching. Is empty by default.
  52
  53 =back
  54
  55 =head1 AUTHOR
  56
  57 Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
  58
  59 =head1 COPYRIGHT AND LICENSE
  60
  61 Copyright (C) 2013 by Marius Gavrilescu
  62
  63 This library is free software; you can redistribute it and/or modify
  64 it under the same terms as Perl itself, either Perl version 5.14.2 or,
  65 at your option, any later version of Perl 5 you may have available.
  66