diff options
Diffstat (limited to 'clerk_rating_client')
-rwxr-xr-x | clerk_rating_client | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/clerk_rating_client b/clerk_rating_client index f846f3e..7d6f32d 100755 --- a/clerk_rating_client +++ b/clerk_rating_client @@ -4,7 +4,7 @@ binmode(STDOUT, ":utf8"); use v5.10; use warnings; use Array::Utils qw(:all); -#use DDP; +use DDP; use Try::Tiny; use Config::Simple; use File::Spec; @@ -40,16 +40,14 @@ sub main { } sub subscribe_ratings_channel { - try { $mpd->close(); }; - $mpd->{socket}->close; $mpd->subscribe('rating'); } sub track_rating { while(1) { - subscribe_ratings_channel(); $mpd->idle('message'); my @blub = $mpd->read_messages; + p @blub; foreach (@blub) { my $string = $_->{message}; my @array = split("\t", $string); |