print also url of videostream

This commit is contained in:
Pavol Rusnak 2011-05-03 16:25:31 +02:00
parent 3332d4ab8c
commit 37aa870429

View file

@ -91,7 +91,7 @@ sub status_str {
} }
sub record_str { sub record_str {
$record ? 'ON AIR' : 'OFF AIR'; $record ? "ON AIR\002 http://nat.brmlab.cz:8090/brmstream.asf" : 'OFF AIR';
} }
sub topic_update { sub topic_update {
@ -119,7 +119,7 @@ sub record_update {
my ($newrecord) = @_; my ($newrecord) = @_;
$record = $newrecord; $record = $newrecord;
my $st = record_str(); my $st = record_str();
$irc->yield (privmsg => $channel => "[brmvideo] update (TODO): \002$st" ); $irc->yield (privmsg => $channel => "[brmvideo] update: \002$st" );
} }