brmlab/brmdoor
4
0
Fork 0
mirror of https://github.com/brmlab/brmdoor.git synced 2025-06-08 11:44:01 +02:00
Code Issues Projects Releases Packages Wiki Activity

brmd IRC: Sync topic with internal state on connect

Browse source
This commit is contained in:
Petr Baudis 2011-03-11 03:02:56 +01:00
parent c2aae50ca5
commit f3ecbebb0e
1 changed files with 18 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

30
brmd.pl
View file

@ -79,6 +79,19 @@ sub record_str {
$record ? 'ON AIR' : 'OFF AIR'; $record ? 'ON AIR' : 'OFF AIR';
} }
sub topic_update {
my $newtopic = $topic;
if ($status) {
$newtopic =~ s/BRMLAB CLOSED/BRMLAB OPEN/g;
} else {
$newtopic =~ s/BRMLAB OPEN/BRMLAB CLOSED/g;
}
if ($newtopic ne $topic) {
$topic = $newtopic;
$irc->yield (topic => $channel => $topic );
}
}
## Brmdoor ## Brmdoor
@ -91,16 +104,7 @@ sub brmdoor_input {
$status = $cur_status; $status = $cur_status;
my $st = status_str(); my $st = status_str();
$irc->yield (privmsg => $channel => "[brmstatus] update: \002$st" ); $irc->yield (privmsg => $channel => "[brmstatus] update: \002$st" );
my $newtopic = $topic; topic_update();
if ($status) {
$newtopic =~ s/BRMLAB CLOSED/BRMLAB OPEN/g;
} else {
$newtopic =~ s/BRMLAB OPEN/BRMLAB CLOSED/g;
}
if ($newtopic ne $topic) {
$topic = $newtopic;
$irc->yield (topic => $channel => $topic );
}
} }
if ($cur_record != $record) { if ($cur_record != $record) {
$record = $cur_record; $record = $cur_record;
@ -253,12 +257,14 @@ sub irc_public {
sub irc_332 { sub irc_332 {
my ($sender, $server, $str, $data) = @_[SENDER, ARG0 .. ARG2]; my ($sender, $server, $str, $data) = @_[SENDER, ARG0 .. ARG2];
$topic = $data->[1]; $topic = $data->[1];
print "new topic: $topic\n" print "new topic: $topic\n";
topic_update();
} }
sub irc_topic { sub irc_topic {
my ($sender, $who, $where, $what) = @_[SENDER, ARG0 .. ARG2]; my ($sender, $who, $where, $what) = @_[SENDER, ARG0 .. ARG2];
my $channel = $where; my $channel = $where;
$topic = $what; $topic = $what;
print "new topic: $topic\n" print "new topic: $topic\n";
topic_update();
} }