has $min_album_interval :reader = parse_duration('5h');
has $min_song_interval :reader = parse_duration('13d');
has $min_artist_interval :reader = parse_duration('1h 15m');
has $min_album_interval :reader = parse_duration('5h');
has $min_song_interval :reader = parse_duration('13d');
has $min_artist_interval :reader = parse_duration('1h 15m');
method parse_command_line {
Getopt::Long::GetOptions(
'log-level=s' => \$log_level,
method parse_command_line {
Getopt::Long::GetOptions(
'log-level=s' => \$log_level,
'skip-db-update!' => \$skip_db_update,
'tql|target-queue-length=n' => \$target_queue_length,
'mpd-host=s' => \$mpd_host,
'mpd-port=s' => \$mpd_port,
'db-path=s' => \$db_path,
'db-user=s' => \$db_user,
'skip-db-update!' => \$skip_db_update,
'tql|target-queue-length=n' => \$target_queue_length,
'mpd-host=s' => \$mpd_host,
'mpd-port=s' => \$mpd_port,
'db-path=s' => \$db_path,
'db-user=s' => \$db_user,
$opt->db_user, $opt->db_password,
{ RaiseError => 1, AutoCommit => 1 } );
$opt->db_user, $opt->db_password,
{ RaiseError => 1, AutoCommit => 1 } );
my @result;
my $sth = $db->prepare_cached(<<SQL);
SELECT s.path, s.artist, s.album
my @result;
my $sth = $db->prepare_cached(<<SQL);
SELECT s.path, s.artist, s.album
- $self->opt->min_song_interval,
- $self->opt->min_artist_interval,
- $self->opt->min_album_interval,
+ $opt->min_song_interval,
+ $opt->min_artist_interval,
+ $opt->min_album_interval,
-$feeder->opt->dump, exit if $feeder->opt->dump_config;
-
-$feeder->queue_songs(1), exit if $feeder->opt->single;
-
-# FIXME: handle blacklist manipulation
+sub usage {
+ die "Usage: mpd-feeder [option...] [command]\n";
+}
-$feeder->mpd->on(
- playlist => sub {
- $feeder->queue_songs;
+ if ( $cmd eq 'one-shot' ) {
+ $feeder->queue_songs(undef, sub { exit });
+ $feeder->mpd->loop->run;
+ }
+ elsif ( $cmd eq 'single' ) {
+ $feeder->queue_songs(1, sub { exit });
+ $feeder->mpd->loop->run;
+ }
+ else {
+ die "Unknown command '$cmd'";