From ed59bdf9f4c03624f8b2a06c79bea9860e02cefe Mon Sep 17 00:00:00 2001
From: Petr Baudis <pasky@ucw.cz>
Date: Tue, 3 May 2011 20:27:54 +0200
Subject: [PATCH] brmd: Update stream status in topic too

---
 brmd/brmd.pl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/brmd/brmd.pl b/brmd/brmd.pl
index 68be333..d003666 100755
--- a/brmd/brmd.pl
+++ b/brmd/brmd.pl
@@ -109,6 +109,11 @@ sub topic_update {
 	} else {
 		$newtopic =~ s/BRMLAB OPEN/BRMLAB CLOSED/g;
 	}
+	if ($record) {
+		$newtopic =~ s#OFF AIR#ON AIR (http://nat.brmlab.cz:8090/brmstream.asf)#g;
+	} else {
+		$newtopic =~ s#ON AIR.*? \|#OFF AIR |#g;
+	}
 	if ($newtopic ne $topic) {
 		$topic = $newtopic;
 		$irc->yield (topic => $channel => $topic );