X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=scripts%2Fmqr-subscribe.pl;h=9744349ce926c5088351ebf82cf196f5839221fc;hb=4d9fdd31adf3759f561888045759b8d7bf5234ed;hp=a7d232fce9ccc5ee1b58adddb8d08e02930c9e4b;hpb=c87f6afb78feb01b99372d62f93b54b089a3ef89;p=MQR.git diff --git a/scripts/mqr-subscribe.pl b/scripts/mqr-subscribe.pl index a7d232f..9744349 100755 --- a/scripts/mqr-subscribe.pl +++ b/scripts/mqr-subscribe.pl @@ -3,12 +3,9 @@ use warnings; use strict; use AnyEvent::Redis; -our ( $redis_host, $redis_port ); -require 'config.pl'; - my $channel = $ARGV[0] || die "usage: $0 channel\n"; -my $sub = AnyEvent::Redis->new( host => $redis_host, port => $redis_port ); +my $sub = AnyEvent::Redis->new( host => $ENV{REDIS_HOST}, port => $ENV{REDIS_PORT} ); my $sub_cv = $sub->psubscribe($channel, sub { my($message, $chan) = @_;