my %p;
for my $p ("artist", "album", "title")
{ $p{$p} = cmd "part", $track, "display", $p; }
my %p;
for my $p ("artist", "album", "title")
{ $p{$p} = cmd "part", $track, "display", $p; }
for (;;) {
open my $log, "-|", "disorder", "log";
for (;;) {
open my $log, "-|", "disorder", "log";
- if ($what eq "state") {
+ if ($what eq "volume" && $startp) {
+ $startp = 0;
+ notify "DisOrder state", "Connected: $startinfo";
+ now_playing;
+ } elsif ($what eq "state") {
if ($st eq "disable_random") { $msg = "random play disabled"; }
elsif ($st eq "enable_random") { $msg = "random play enabled"; }
elsif ($st eq "disable_play") { $msg = "playing disabled"; }
elsif ($st eq "enable_play") { $msg = "playing enabled"; }
elsif ($st eq "pause") { $msg = "paused"; }
if ($st eq "disable_random") { $msg = "random play disabled"; }
elsif ($st eq "enable_random") { $msg = "random play enabled"; }
elsif ($st eq "disable_play") { $msg = "playing disabled"; }
elsif ($st eq "enable_play") { $msg = "playing enabled"; }
elsif ($st eq "pause") { $msg = "paused"; }
- notify "DisOrder state", ucfirst $msg;
+ if (!$startp) {
+ notify "DisOrder state", ucfirst $msg;
+ now_playing if $np;
+ } else {
+ if (defined $startinfo) { $startinfo .= "; " . $msg; }
+ else { $startinfo = $msg; }