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;