#!/usr/bin/perl 
#
#
# version 0.1
# Based on Dyskord's basic XMMS Xchat plugin script (schimmelpunk@gmx.net)
# This script is subject to the GPL v2 (or any later version at your
# discretion). Improvements or suggestions can be mailed to
# gotleenucks AT gmail DOT com.
# Optimisations and debuggin by resp. bruenig and avarus

Xchat::register("Borromini's sonata script", "0.2", "", "");
Xchat::print"type /sonata to show only the current song";
Xchat::print"type /sonatadetail to show more detailed info about the current song";
Xchat::hook_command("sonata", "sonata");
Xchat::hook_command("sonatadetail", "sonatadetail");

sub sonata
{
  $song = `sonata info | grep Titel | sed -e "s/^Titel: //"`;
  chomp($song);

   IRC::command("/me is listening to: $song");
}

sub sonatadetail
{
  $detail = `sonata info | sed "s/^[A-Z].*: /DELIM/" | tr -d "\n" | awk -F"DELIM" '{print \$3 " - " \$2 " - " \$4 " [" \$10 " kbps - " \$9 "]"}'`;
  chomp($detail);

   IRC::command("/me is listening to: $detail");
}