diff options
Diffstat (limited to 'bin/lastfm_export')
-rw-r--r-- | bin/lastfm_export | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/bin/lastfm_export b/bin/lastfm_export index 2e56809..eb721da 100644 --- a/bin/lastfm_export +++ b/bin/lastfm_export @@ -9,12 +9,14 @@ use Getopt::Long qw(:config pass_through); use LastFM::Export; use Term::ProgressBar; -my ($dsn, $quiet); +my ($dsn, $user, $quiet); GetOptions( - 'dsn=s' => \$dsn, - 'quiet' => \$quiet, + 'dsn=s' => \$dsn, + 'user=s' => \$user, + 'quiet' => \$quiet, ); die "--dsn is required" unless $dsn; +die "--user is required" unless $user; my $dbh = DBI->connect($dsn, '', '', { RaiseError => 1, AutoCommit => 0 }); my $from = 0; @@ -32,7 +34,7 @@ else { ($from) = $dbh->selectrow_array('SELECT timestamp FROM tracks ORDER BY timestamp DESC LIMIT 1'); } -my $exporter = LastFM::Export->new_with_options; +my $exporter = LastFM::Export->new(user => $user); my $track_count = $exporter->track_count(from => $from); if (!$track_count) { |