# Songbird Nowplaying Script for xChat IRC client. This script only works on Linux and Windows. You may edit it for Mac OS X.
#
#This requires the XChat IRC client to be installed (www.xchat.org/) and the Songbird (http://www.getsongbird.com/) media player.
#Once you have both installed, install the Live Tweeter addon for Songbird.
#In Songbird, click tools, addons, Live Tweeter, then options. Click the Messenger tab at the top and enable the text file.
#Create an empty text document and place it wherever you wish. 
#This script may need to be changed depending on where you place the text file (change either line 31 or 33).
#Run xChat and load this script. To display what Songbird is playing, type /sb and press enter. 
#"Songbird is now playing: "artist" - "song" " will be displayed. If you'd like to change this, edit the info in the parantheses on line 45.
#If you would like it to display your name using the /me command, replace "say" on line 45 with "me" (without quotes).
#You can type /sbhelp in xChat to get help with commands.

my $song_file = '';

use strict;
use warnings;
use File::Glob ();
use Xchat qw(:all);

register( "Songbird Announcer",
    "0.2", "Announces the current playing song information from Songbird" );

prnt( "Use \cB/sb\cB or \cB/songbird\cB to announce current song" );
prnt( "\cB/sbhelp\cB shows help" );

hook_command( "sb",       \&songbird );
hook_command( "songbird", \&songbird );
hook_command( "sbhelp",   \&sbhelp );

if( $^O eq 'MSWin32' ) {
    $song_file ||= 'C:\Program Files\Songbird\song.txt';
} else {
    $song_file ||= glob( '~/.songbird2/song.txt' );

    if( $song_file =~ /^~/ ) {
        $song_file = bsd_glob( $song_file );
    }
}

sub songbird {
    if ( open my $song_fh, "<", $song_file ) {
        chomp( my $song = <$song_fh> );
        close $song_fh;

        command( "say «Now playing in Songbird» " . $song );
    } else {
        prnt "Unable to open song file '$song_file': $!";
    }
}

sub sbhelp {
    prnt( "::::::::::::::::: \cBCommands\cB :::::::::::::::::::::::::" );
    prnt( "##\cB /sb\cB or\cB /songbird\cB announce current song         ##" );
    prnt( "##\cB /sb\cB or\cB /songbird\cB                               ##"
    );
    prnt( "##\cB /sbhelp\cB to show help                           ##" );
}