#!/usr/bin/perl
#
# dcopAMAROK
# Amarok DCOP now-playing announce script
# (c) 2005 Gregor Jehle <gjehle@gmail.com>
#

package AMAROK;

IRC::register ("dcopAMAROK", "1.0", "", "");
IRC::add_command_handler("mp3", "AMAROK::amarok_handler");

sub amarok_handler {
  $title = `dcop amarok player nowPlaying`;
  $url = `dcop amarok player encodedURL`;
  $album = `dcop amarok player album`;
  chomp($title); chomp($url); chomp($album);
  $title =~ s/_[^_]*_[^_]*_/ - /;
  if($url =~ /^http:/) { IRC::command("np: $title ($album)"); }
  else { IRC::command("np: $title"); }
  return 1;
}