From b80b6f8b27c02b88fb5e92248b780ff5586a309f Mon Sep 17 00:00:00 2001 From: Rasmus Steinke Date: Sun, 24 Sep 2017 12:03:07 +0200 Subject: update --- clerk_rating_client | 6 ++---- 1 file 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); -- cgit v1.2.3-24-g4f1b