start working on !track bot

diff --git a/scripts/mqr-track.pl b/scripts/mqr-track.pl
new file mode 100755 (executable)
index 0000000..65e5888
--- /dev/null
+++ b/scripts/mqr-track.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use AnyEvent::Redis;
+use Data::Dump qw(dump);
+
+my $sub = AnyEvent::Redis->new( host => $ENV{REDIS_HOST}, port => $ENV{REDIS_PORT} );
+
+my $track;
+
+my $sub_cv = $sub->psubscribe('*', sub {
+       my($message, $chan) = @_;
+       warn "$chan | $message\n";
+       if ( $message =~ m/^!track\s*(.+)/ ) {
+               $track->{$chan}->{$1}++;
+               warn "# track ",dump($track);
+       }
+});
+
+AnyEvent->condvar->recv;
+