cgi-bin/playlists/extm3u.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

package extm3u;

use Globals;
use Globals qw(%PLATTERS);
use strict;
use Globals qw($delim);

sub new {
    my $self = {
        mime   => "audio/x-mpegurl",
        playlist => "#EXTM3U\n" };
    bless ($self);
    return $self;
}

sub desc {
    return "Standard format for mp3 playlists";
    }
    
sub header {
}

sub track {
    my $self = shift;
    my ($folder, $trackartist, $album, $year, $track, $url, $platter) = @_;
    my $artist = getArtistString($folder, $trackartist);
    $self->{playlist} .= 
        "#EXTINF:180,".makeNice($artist)." - ".makeNice($track)."\n".makeTrackURL( $PLATTERS{$platter}, $url, $folder, $trackartist, $track )."\n";
    }
    
sub dump {
    my $self = shift;
    return $self->{playlist};
    }

return 1;