From d66a389c77f7385ca3bfd9608b49a91e694b73d5 Mon Sep 17 00:00:00 2001
From: Petr Baudis <pasky@ucw.cz>
Date: Tue, 3 May 2011 20:11:54 +0200
Subject: [PATCH] brmd: Show stream URL only on IRC

---
 brmd/brmd.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/brmd/brmd.pl b/brmd/brmd.pl
index cc49005..bd0f504 100755
--- a/brmd/brmd.pl
+++ b/brmd/brmd.pl
@@ -91,7 +91,7 @@ sub status_str {
 }
 
 sub record_str {
-	$record ? "ON AIR\002 http://nat.brmlab.cz:8090/brmstream.asf" : 'OFF AIR';
+	$record ? 'ON AIR' : 'OFF AIR';
 }
 
 sub topic_update {
@@ -119,6 +119,7 @@ sub record_update {
 	my ($newrecord) = @_;
 	$record = $newrecord;
 	my $st = record_str();
+	$record and $st .= "\002 http://nat.brmlab.cz:8090/brmstream.asf";
 	$irc->yield (privmsg => $channel => "[brmvideo] update: \002$st" );
 }