summaryrefslogtreecommitdiffstats
path: root/clerk_rating_client
diff options
context:
space:
mode:
authorRasmus Steinke <rasi@xssn.at>2017-09-24 12:03:07 +0200
committerRasmus Steinke <rasi@xssn.at>2017-09-24 12:03:07 +0200
commitb80b6f8b27c02b88fb5e92248b780ff5586a309f (patch)
treeadf476cc630b966d6f9b4fcb3617383d763043ae /clerk_rating_client
parentb0d06806a493b464554ade91b9342dbd1f575543 (diff)
downloadperl-app-clerk-b80b6f8b27c02b88fb5e92248b780ff5586a309f.tar.gz
perl-app-clerk-b80b6f8b27c02b88fb5e92248b780ff5586a309f.tar.xz
update
Diffstat (limited to 'clerk_rating_client')
-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);