use strict;
use warnings;

# this holds all of the lines output by pianobar.
my @input = <STDIN>;

# lines parsed into hash.
my %data;

# file we want to write output to
my $file = '/home/ulterior/pandora.log';

# assembled CSV line.
my $line;

# last line of logfile.
my $lastline;

# remove newlines from end of all values in array.
chomp @input;

# build hash from contents of array.
foreach my $var (@input)
{
 (my $key, my $value) = split(/\=/, $var);
 $data{$key} = $value;
}

# check to see if all the field we want are defined.
if (defined($data{title}) &&
    defined($data{artist}) &&
    defined($data{album})  &&
    defined($data{songStationName})) 
{
# compose csv line with/without album art.
 if (defined($data{coverArt}))
 {
  $line = '"'.$data{title}.'","'.$data{album}.'","'.$data{artist}.'","'.$data{songStationName}.'","'.$data{coverArt}.'"'."\n";
 } else 
   {
    $line = '"'.$data{title}.'","'.$data{album}.'","'.$data{artist}.'","'.$data{songStationName}.'"'."\n";
   }
}
# check to see if log file exists.
if (-e $file)
{
# check to see if the last line is the same to avoid duplication.
 $lastline = qx/tail -n 1 $file/;
 if ($line eq $lastline)
 {
  exit(0);
 } 
# write csv line to file.
 else {
      open(HANDLE, ">>", $file);
      print(HANDLE "$line");
      close(HANDLE);
      }
} 

##</code><code>##

artist=Bastille
title=Pompeii
album=Pompeii (Remixes) 
coverArt=http://cont-2.p-cdn.com/images/public/amz/9/5/3/6/800026359_500W_500H.jpg
stationName=QuickMix
songStationName=Major Tom Radio
pRet=1
pRetStr=Everything is fine :)
wRet=1
wRetStr=Everything's fine :)
songDuration=214
songPlayed=214
rating=0
detailUrl=http://www.pandora.com/bastille/pompeii-remixes/pompeii?dc=232&ad=1:23:1:47805::0:msn:0:0:581:307:IN:18167:0:0:0:0:6:0
stationCount=74
station0=28 Days Radio
station1=And so on...