projects
/
app-musicexpo.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5be1651
)
URL-escape filenames
author
Marius Gavrilescu
<marius@ieval.ro>
Tue, 3 Sep 2013 07:41:51 +0000
(10:41 +0300)
committer
Marius Gavrilescu
<marius@ieval.ro>
Tue, 3 Sep 2013 07:41:51 +0000
(10:41 +0300)
lib/App/MusicExpo.pm
patch
|
blob
|
blame
|
history
diff --git
a/lib/App/MusicExpo.pm
b/lib/App/MusicExpo.pm
index adb8fc153c99faecc6509a96644cd6705eab656b..23489619410c1c031001ff98043f57724aaad897 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);
sub flacinfo{
my $file=$_[0];
my $flac=Audio::FLAC::Header->new($file);
- $file =
$prefix .
scalar fileparse $file;
+ $file = scalar fileparse $file;
freeze +{
format => 'FLAC',
freeze +{
format => 'FLAC',
@@
-49,14
+49,14
@@
sub flacinfo{
tracknumber => fix ($flac->tags('TRACKNUMBER') // '?'),
tracktotal => fix ($flac->tags('TRACKTOTAL') // '?'),
genre => fix ($flac->tags('GENRE') // '?'),
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);
}
}
sub mp3info{
my $file=$_[0];
my $mp3=MP3::Tag->new($file);
- $file =
$prefix .
scalar fileparse $file;
+ $file = scalar fileparse $file;
freeze +{
format => 'MP3',
freeze +{
format => 'MP3',
@@
-67,14
+67,14
@@
sub mp3info{
tracknumber => fix ($mp3->track1 || '?'),
tracktotal => fix ($mp3->track2 || '?'),
genre => fix ($mp3->genre) || '?',
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);
}
}
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',
freeze +{
format => 'Vorbis',
@@
-85,7
+85,7
@@
sub vorbisinfo{
tracknumber => fix ($ogg->comment('TRACKNUMBER') || '?'),
tracktotal => fix ($ogg->comment('TRACKTOTAL') || '?'),
genre => fix ($ogg->comment('GENRE')) || '?',
tracknumber => fix ($ogg->comment('TRACKNUMBER') || '?'),
tracktotal => fix ($ogg->comment('TRACKTOTAL') || '?'),
genre => fix ($ogg->comment('GENRE')) || '?',
-
path
=> $file,
+
file
=> $file,
}
}
}
}
@@
-120,11
+120,11
@@
sub run {
for (values %files) {
my @versions = @$_;
my %entry = (%{$versions[0]}, formats => []);
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
}
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;
}
print $ht->output;
}
This page took
0.011875 seconds
and
4
git commands to generate.