##### Winamp -> LiveJournal #####
# winamp2lj.pl
#
# Author: Joshua Thomas (jthomas @ poweronemedia dot com)
# Version: 0.01
# Platform: Win32
# Copyright: GNU Public License (http://www.gnu.org)
#
# This script will make the top entry in your LiveJournal reflect 
# the music playing in your Winamp. It is smart enough to detect 
# when you're skipping around or not listening to anything.
#
# Requires: Modified Winamp::Control (added password option)
#   (http://cowbert.2y.net/~ibanix/winamp-control-0.02-new.tar)
#
# LJ::Simple, and Winamp httpQ plugin also required.
# httpQ was last seen at: http://www.kostaa.com/winamp
# Install the modules. Activate the plugin, chose a password and port.
# Edit variables (below) to reflect settings, and let 'er rip.
# 
# Great canidate to run as a NT/2K/XP service via FireDaemon.
# 
###################################

use strict;
use warnings;

use LJ::Simple;
use Winamp::Control;

# These three should reflect settings in the httpQ module
my $host = "localhost";
my $port = 4800;
my $pass = "somepassword";

# How often to update
my $interval = 10;

# How far to look back to delete entry
# Shouldn't have to mess with this unless you update really often
my $lookback = 3;
my $before = undef;
my @opts = ( $lookback, $before );

# undef = never timeout
# anything else = die if can't talk to server after X seconds

# my $timeout = 60;
# $LJ::Simple::Timeout = $timeout;
undef $LJ::Simple::timeout;

my %Entries=();
my %new_entry=();

# LJ connection
# Change to reflect your LJ username/password
my $lj = new LJ::Simple ( {
        user => "MyUserNameHere",
        pass => "MyPasswordHere",
        pics => 0,
        moods => 0,
} );


# Winamp control
my $winamp = Winamp::Control->new( host => $host, port => $port, pass 
+=> $pass ) || die "Could not connect: $!\n";

my $skipping_entry = "<i>Skipping Around....</i>\n";
my $not_playing_entry = "<i>Music is Off!</i>\n";
my $subject = "<b>Current Music</b>";

LOOP: while (sleep $interval) {

    # Get old post if any
    (defined $lj->GetEntries(\%Entries,undef,"lastn",@opts)) || die "$
+0: Failed to get entries - $LJ::Simple::error\n";

    # If we find a match (after startup, we should!), delete
    foreach my $Entry (values %Entries) {
        my $subj=$lj->GetSubject($Entry);
        if ($subj eq $subject) { 
            my ($item_id,$anum,$html_id)=$lj->GetItemId($Entry);
            $lj->DeleteEntry($item_id) || die "$0: Failed to delete jo
+urnal entry - $LJ::Simple::error\n";
            print "Deleted old entry #: $item_id\n";
        }
    }
     
    # Now we can slurp relevant Winamp info
    my $id3title = $winamp->getid3tag_songname();
    my $id3artist = $winamp->getid3tag_artist();
    my $id3album = $winamp->getid3tag_album();
    my $id3year = $winamp->getid3tag_year();
    my $id3genre = $winamp->getid3tag_genre();
    my $id3comment = $winamp->getid3tag_comment();

    my $current_title = $winamp->getcurrenttitle();

    my $is_playing = $winamp->isplaying();

    my $pos = $winamp->getoutputtime( a => 0); 
    $pos /= 1000;

    # Build output for LJ
    my $text_title_only = "Song: \t<i>$current_title</i>\n";
    $text_title_only .= "<i>Extended info not available</i>";

    my $text_id3_tags = "Title: \t<i>$id3title</i>\n";
    $text_id3_tags .= "Artist: \t<i>$id3artist</i>\n";
    $text_id3_tags .= "Album: \t<i>$id3album</i>\n";
    $text_id3_tags .= "Year: \t<i>$id3year</i>\n";
    $text_id3_tags .= "Genre: \t<i>$id3genre</i>\n";
    $text_id3_tags .= "Comment: \t<i>$id3comment</i>";

    # LJ entry header
    $lj->NewEntry(\%new_entry) || die "$0: Failed to prepare new post 
+- $LJ::Simple::error\n";

    # Pick our entry text depending on what's going on
    # Order of these is important!
    $lj->SetEntry(\%new_entry, $text_title_only) if not ($id3title);
    $lj->SetEntry(\%new_entry, $text_id3_tags) if ($id3title);
    $lj->SetEntry(\%new_entry, $skipping_entry) if ($pos < 10);
    $lj->SetEntry(\%new_entry, $not_playing_entry) if ($is_playing != 
+1);

    # Set subject
    $lj->SetSubject(\%new_entry, $subject) || die "$0: Bad set subject
+ line\n";

    # Uncomment this to make the post private. Really just for debuggi
+ng.
    # $lj->SetProtectPrivate(\%new_entry) || die "$0: Failed to protec
+t via private - $LJ::Simple::error\n";

    # Post it, sucka
    my ($item_id, $anum, $html_id) = $lj->PostEntry(\%new_entry);
    defined $item_id || die "$0: Failed to submit new journal entry - 
+$LJ::Simple::error\n";

    print "I posted new entry #: $item_id\n";
}
[download]