summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xclerk_rating_client6
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);