X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FApp%2FMusicExpo.pm;h=c38d2b7f7b22ff56e6e884ab94be428f233f76a4;hb=447902f92b2e16faaa6116f8b6c43ea46d044d71;hp=0b3276cab35784406e1f29a145af1276d9362ea4;hpb=c08ff73c462c266921575086a149c1079e335a4d;p=app-musicexpo.git
diff --git a/lib/App/MusicExpo.pm b/lib/App/MusicExpo.pm
index 0b3276c..c38d2b7 100644
--- a/lib/App/MusicExpo.pm
+++ b/lib/App/MusicExpo.pm
@@ -3,7 +3,7 @@ use v5.14;
use strict;
use warnings;
-our $VERSION = '0.003003';
+our $VERSION = '0.005';
use Audio::FLAC::Header qw//;
use HTML::Template::Compiled qw//;
@@ -16,7 +16,6 @@ use DB_File qw//;
use File::Basename qw/fileparse/;
use Fcntl qw/O_RDWR O_CREAT/;
use Getopt::Long;
-use JSON::MaybeXS;
use Storable qw/thaw freeze/;
##################################################
@@ -124,6 +123,8 @@ sub normalizer{
"$_[0]|".(stat $_[0])[9]
}
+sub make_fragment{ join '-', map { lc =~ y/a-z0-9/_/csr } @_ }
+
sub run {
if ($cache) {
tie my %cache, 'DB_File', $cache, O_RDWR|O_CREAT, 0644;
@@ -160,13 +161,12 @@ sub run {
}
}
delete $entry{$_} for qw/format file/;
+ $entry{fragment} = make_fragment @entry{qw/artist title/};
push @files, \%entry
}
- my $json = JSON::MaybeXS->new(canonical => 1)->encode({files => \@files, prefix => $prefix});
- $json =~ s//>/g;
- $ht->param(files=>[sort { $a->{title} cmp $b->{title} } @files], prefix => $prefix, json => $json);
+ @files = sort { $a->{title} cmp $b->{title} } @files;
+ $ht->param(files => \@files, prefix => $prefix);
print $ht->output;
}
@@ -174,16 +174,17 @@ $default_template = <<'HTML';
Music
-
+
+
+
+
Title
Artist
Album
Genre
Track
Year
Type
-
/
+
/
-
-
HTML
1;
@@ -240,7 +241,7 @@ Marius Gavrilescu, Emarius@ieval.roE
=head1 COPYRIGHT AND LICENSE
-Copyright (C) 2013-2014 by Marius Gavrilescu
+Copyright (C) 2013-2015 by Marius Gavrilescu
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.14.2 or,