diff options
| -rw-r--r-- | Changes | 1 | ||||
| -rw-r--r-- | bin/lastfm_export | 21 |
2 files changed, 15 insertions, 7 deletions
@@ -1,6 +1,7 @@ Revision history for LastFM-Export {{$NEXT}} + - Make the update process not fail when a song is currently playing. 0.01 2012-03-19 - Initial release 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; |