The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

DCOP::Amarok::Playlist - Perl extension to speak to an amaroK player object via system's DCOP.

SYNOPSIS

        use DCOP::Amarok::Playlist;
        $playlist = DCOP::Amarok::Playlist->new();

        $playlist->togglePlaylist();
        print $playlist->getActiveIndex();

DESCRIPTION

This module is a quick hack to get an interface between perl and Kde's DCOP, since Kde3.4's perl bindings are disabled. This suite talks to 'dcop'. DCOP::Amarok::Playlist talks directly to the playlist object of amaroK.

EXPORT

None by default.

METHODS

new()

Constructor. No arguments needed. If the program will be run remotely, the need for 'user => "myusername"' arises.

interfaces()

Returns a list of the interfaces.

functions()

Returns a list of the functions.

getActiveIndex()

Returns the number of the active index.

getTotalTrackCount()

Returns the total number of tracks in the playlist.

saveCurrentPlaylist()

Makes the object save the present list. Returns the path.

addMedia($URL)

Adds new media.

addMediaList()

Adds new media.

clearPlaylist()
playByIndex($index)

Plays the song in the $index position.

playMedia($uri)

Play a specific object.

popupMessage($msg)

Pops up $msg in screen. TODO: $msg has to escape white spaces with '\'. e.g. "Hi\\\ there"; e.g2. 'I\ am\ here'

removeCurrentTrack()

Removes current track from playlist

repopulate()

Repopulate playlist.

saveM3uRelative($path)

Saves the M3U file with a relavtive path.

saveM3uAbsolute($path)

Saves the M3U file with an absolut path.

setStopAfterCurrent()

Enable StopAfterCurrent track.

notStopAfterCurrent()

Disable StopAfterCurrent track.

shortStatusMessage($msg)

Display $msg in the status bar.

shufflePlaylist()

Shuffle playlist.

togglePlaylist()

Show/Hide playlist.

AUTHOR

Juan C. Muller, <jcmuller@gmail.com>

COPYRIGHT AND LICENSE

Copyright 2005 by Juan C. Muller

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

2 POD Errors

The following errors were encountered while parsing the POD:

Around line 37:

'=item' outside of any '=over'

Around line 288:

You forgot a '=back' before '=head1'