brmlab/brmdoor
4
0
Fork 0
mirror of https://github.com/brmlab/brmdoor.git synced 2025-06-07 19:24: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';
}
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
@ -91,16 +104,7 @@ sub brmdoor_input {
$status = $cur_status;
my $st = status_str();
$irc->yield (privmsg => $channel => "[brmstatus] update: \002$st" );
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 );
}
topic_update();
}
if ($cur_record != $record) {
$record = $cur_record;
@ -253,12 +257,14 @@ sub irc_public {
sub irc_332 {
my ($sender, $server, $str, $data) = @_[SENDER, ARG0 .. ARG2];
$topic = $data->[1];
print "new topic: $topic\n"
print "new topic: $topic\n";
topic_update();
}
sub irc_topic {
my ($sender, $who, $where, $what) = @_[SENDER, ARG0 .. ARG2];
my $channel = $where;
$topic = $what;
print "new topic: $topic\n"
print "new topic: $topic\n";
topic_update();
}