Update documentation

[app-musicexpo.git] / lib / App / MusicExpo.pm

diff --git a/lib/App/MusicExpo.pm b/lib/App/MusicExpo.pm
index adb8fc153c99faecc6509a96644cd6705eab656b..f75af3afab361f8f5aba470d516455846812b99f 100644 (file)
--- a/lib/App/MusicExpo.pm
+++ b/lib/App/MusicExpo.pm
@@ -38,7 +38,7 @@ sub fix{
 sub flacinfo{
   my $file=$_[0];
   my $flac=Audio::FLAC::Header->new($file);
-  $file = $prefix . scalar fileparse $file;
+  $file = scalar fileparse $file;
 
   freeze +{
        format => 'FLAC',
@@ -49,14 +49,14 @@ sub flacinfo{
        tracknumber => fix ($flac->tags('TRACKNUMBER') // '?'),
        tracktotal => fix ($flac->tags('TRACKTOTAL') // '?'),
        genre => fix ($flac->tags('GENRE') // '?'),
-       path => $file,
+       file => $file,
   }
 }
 
 sub mp3info{
   my $file=$_[0];
   my $mp3=MP3::Tag->new($file);
-  $file = $prefix . scalar fileparse $file;
+  $file = scalar fileparse $file;
 
   freeze +{
        format => 'MP3',
@@ -67,14 +67,14 @@ sub mp3info{
        tracknumber => fix ($mp3->track1 || '?'),
        tracktotal => fix ($mp3->track2 || '?'),
        genre => fix ($mp3->genre) || '?',
-       path => $file,
+       file => $file,
   }
 }
 
 sub vorbisinfo{
   my $file=$_[0];
   my $ogg=Ogg::Vorbis::Header::PurePerl->new($file);
-  $file = $prefix . scalar fileparse $file;
+  $file = scalar fileparse $file;
 
   freeze +{
        format => 'Vorbis',
@@ -85,7 +85,7 @@ sub vorbisinfo{
        tracknumber => fix ($ogg->comment('TRACKNUMBER') || '?'),
        tracktotal => fix ($ogg->comment('TRACKTOTAL') || '?'),
        genre => fix ($ogg->comment('GENRE')) || '?',
-       path => $file,
+       file => $file,
   }
 }
 
@@ -113,6 +113,7 @@ sub run {
 
   my $ht=HTML::Template::Compiled->new(
        default_escape => 'HTML',
+       global_vars => 2,
        $template eq '' ? (scalarref => \$default_template) : (filename => $template),
   );
 
@@ -120,11 +121,11 @@ sub run {
   for (values %files) {
        my @versions = @$_;
        my %entry = (%{$versions[0]}, formats => []);
-       push $entry{formats}, {format => $_->{format}, path => $_->{path}} for @versions;
+       push $entry{formats}, {format => $_->{format}, file => $_->{file}} for @versions;
        push @files, \%entry
   }
 
-  $ht->param(files=>[sort { $a->{title} cmp $b->{title} } @files]);
+  $ht->param(files=>[sort { $a->{title} cmp $b->{title} } @files], prefix => $prefix);
   print $ht->output;
 }
 
@@ -138,7 +139,7 @@ $default_template = <<'HTML';
 <thead>
 <tr><th>Title<th>Artist<th>Album<th>Genre<th>Track<th>Year<th>Type
 <tbody><tmpl_loop files>
-<tr><td><a href="<tmpl_var ESCAPE=URL path>"><tmpl_var title></a><td><tmpl_var artist><td><tmpl_var album><td><tmpl_var genre><td><tmpl_var tracknumber>/<tmpl_var tracktotal><td><tmpl_var year><td><tmpl_var format></tmpl_loop>
+<tr><td><a href=<tmpl_var title><td><tmpl_var artist><td><tmpl_var album><td><tmpl_var genre><td><tmpl_var tracknumber>/<tmpl_var tracktotal><td><tmpl_var year><td><tmpl_loop formats><a href="<tmpl_var ...prefix><tmpl_var ESCAPE=URL file>"><tmpl_var format></a> </tmpl_loop></tmpl_loop>
 </table>
 HTML
 
@@ -165,7 +166,10 @@ The default template looks like:
     |---------+---------+-----------------+---------+-------+------+------|
     | Cellule | Silence | L'autre endroit | Electro | 01/09 | 2005 | FLAC |
 
-where the title is a download link.
+where the type is a download link. If you have multiple files with the same
+basename (such as C<cellule.flac> and C<cellule.ogg>), they will be treated
+as two versions of the same file, so a row will be created with two download
+links, one for each format.
 
 =head1 OPTIONS