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);
      }
}