diff options
Diffstat (limited to 'bin/lastfm_export')
-rw-r--r-- | bin/lastfm_export | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/bin/lastfm_export b/bin/lastfm_export index eb721da..b40f7c7 100644 --- a/bin/lastfm_export +++ b/bin/lastfm_export @@ -58,13 +58,20 @@ my $count = 1; my $s = $exporter->tracks(from => $from); while (my $block = $s->next) { for my $item (@$block) { - $sth->execute( - $item->{artist}{'#text'}, - $item->{album}{'#text'}, - $item->{name}, - $item->{date}{uts}, - ); - $progress->update($count++) unless $quiet; + if ($item->{date}{uts}) { + $sth->execute( + $item->{artist}{'#text'}, + $item->{album}{'#text'}, + $item->{name}, + $item->{date}{uts}, + ); + $progress->update($count++) unless $quiet; + } + else { + $progress->message("skipping currently playing song: " + . "$item->{artist}{'#text'} - $item->{name}") + unless $quiet; + } } $dbh->commit; sleep 1; |