From c179473a95db2ee56858ab01ca7b18402e860170 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 19 Mar 2012 01:09:46 -0500
Subject: stop using moosex::getopt

---
 bin/lastfm_export | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'bin')

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) {
-- 
cgit v1.2.3-54-g00ecf