From c3052ebecf6385e715b7dbda3d1c59f46dfb2279 Mon Sep 17 00:00:00 2001
From: Petr Baudis <pasky@ucw.cz>
Date: Tue, 26 Apr 2011 23:18:39 +0200
Subject: [PATCH] brmd: Factor out status_update(), record_update()

---
 brmd/brmd.pl | 24 +++++++++++++++++-------
 1 file changed, 17 insertions(+), 7 deletions(-)

diff --git a/brmd/brmd.pl b/brmd/brmd.pl
index 900c6fe..1838b05 100755
--- a/brmd/brmd.pl
+++ b/brmd/brmd.pl
@@ -103,6 +103,21 @@ sub topic_update {
 	}
 }
 
+sub status_update {
+	my ($newstatus) = @_;
+	$status = $newstatus;
+	my $st = status_str();
+	$irc->yield (privmsg => $channel => "[brmstatus] update: \002$st" );
+	topic_update();
+}
+
+sub record_update {
+	my ($newrecord) = @_;
+	$record = $newrecord;
+	my $st = record_str();
+	$irc->yield (privmsg => $channel => "[brmvideo] update (TODO): \002$st" );
+}
+
 
 ## Brmdoor serial
 
@@ -128,15 +143,10 @@ sub serial_input {
 	$input =~ /^(\d) (\d) (.*)$/ or return;
 	my ($cur_status, $cur_record, $brm) = ($1, $2, $3);
 	if ($cur_status != $status) {
-		$status = $cur_status;
-		my $st = status_str();
-		$irc->yield (privmsg => $channel => "[brmstatus] update: \002$st" );
-		topic_update();
+		status_update($cur_status);
 	}
 	if ($cur_record != $record) {
-		$record = $cur_record;
-		my $st = record_str();
-		$irc->yield (privmsg => $channel => "[brmvideo] update (TODO): \002$st" );
+		record_update($cur_record);
 	}
 	if ($brm =~ s/^CARD //) {
 		print "from brmdoor: $input\n";