#!/usr/bin/perl
# xmms.pl
# run in cron with an entry like
# */10 10-18 * * 1-5 /home/plarp/bin/xmms.pl
use Xmms::Remote;
use MP3::Tag;
use Proc::ProcessTable;
use strict;
use Data::Dumper; # DEBUG
# see if xmms is running
my $t = new Proc::ProcessTable;
my $p;
my $xmms_running = undef;
foreach $p ( @{$t->table} ){
if ($p->cmndline =~ /xmms/i) {
$xmms_running = 1;
last;
}
}
exit unless ($xmms_running);
my $remote = new Xmms::Remote;
my $file = ($remote->get_playlist_file)[0];
my $mp3 = MP3::Tag->new($file);
my $writefile = '/tmp/whatmp3.html';
my $songstuff;
if (-f $file) {
my ($song, $track, $artist, $album) = $mp3->autoinfo();
$songstuff = "$artist: $song";
} else { $songstuff = 'nothing'; }
open(TMP, '>' . $writefile);
print TMP "What mp3 am I listening to?\n";
print TMP "What mp3 am I listening to?
\n";
print TMP "
$songstuff";
close(TMP);
chdir('/tmp');
system('scp -q whatmp3.html user@yourhoust.com:/www/website.com/htdocs/whatmp3.html');
unlink($writefile);