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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
package extrmp;
use strict;
use Globals;
use Globals qw(%PLATTERS);
use Globals qw($delim);
sub new {
my $self = {
mime => "application/vnd.rn-rn_music_package",
playlist => "<PACKAGE>\n".
"<ACTION>import,play,replace</ACTION>\n".
'<SERVER><LOCATION>%f</LOCATION></SERVER>',
count => 0};
bless ($self);
return $self;
}
sub desc {
return "RealOne Player";
}
sub header {
my $self = shift;
my ($artist, $album) = @_;
$self->{playlist} .= "<TITLE>".makeNice($album)."</TITLE>".
"<SERVER><LOCATION>%f</LOCATION></SERVER>".
"<TARGET>".makeNice($album)."</TARGET>".
"<TRACKLIST>\n";
}
sub track {
my $self = shift;
my ($folder, $trackartist, $album, $year, $track, $url, $platter) = @_;
my $artist = getArtistString($folder, $trackartist);
$self->{count}++;
$self->{playlist} .= "<TRACK>\n".
"<TRACKID>".$self->{count}."</TRACKID>\n".
"<TITLE>".makeNice($track)."</TITLE>\n".
"<ARTIST>".makeNice($artist)."</ARTIST>\n".
"<ALBUM>".makeNice($album)."</ALBUM>\n".
"<FILENAME>".makeTrackURL( $PLATTERS{$platter}, $url, $folder, $trackartist, $track )."</FILENAME>\n".
"</TRACK>\n";
}
sub dump {
my $self = shift;
return $self->{playlist}."</TRACKLIST></PACKAGE>";
}
return 1;
|
