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

brmd notify_door_open: Move alert logic from IRC to main session

Browse source
This commit is contained in:
Petr Baudis 2011-10-19 01:38:41 +02:00
parent f8503ab86f
commit 6c815a96a3
1 changed files with 12 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

21
brmd/brmd.pl
View file

@ -96,7 +96,15 @@ sub dooropen_update {
my ($self, $newdooropen) = @_[OBJECT, ARG0];
$dooropen = $newdooropen;
my $st = dooropen_str();
$poe_kernel->post( $irc, 'notify_door_open', $st );
my $closed_timeout = 60;
my $unlock_timeout = 30;
my $alert = ($dooropen == 1 and $status == 0 and time - $lastunlock >= $unlock_timeout);
if ($alert) {
$poe_kernel->post($door, 'play_alarm');
}
$poe_kernel->post( $irc, 'notify_door_open', $st, $alert );
}
sub notify_door_unlocked {
@ -681,15 +689,10 @@ sub notify_door_unlocked {
}
sub notify_door_open {
my ($sender, $newstate) = @_[SENDER, ARG0];
my ($sender, $newstate, $alert) = @_[SENDER, ARG0, ARG1];
my $irc = $_[HEAP]->{irc};
my $msg;
my $unlock_timeout = 30;
if ($dooropen == 1 and $status == 0 and time - $lastunlock >= $unlock_timeout) {
$msg = "[door] $newstate \002(alert: closed brmlab, door opened, unlocked before more than $unlock_timeout seconds)";
} else {
$msg = "[door] $newstate";
}
my $msg = "[door] $newstate";
$alert and $msg .= " \002(alert: closed brmlab, door opened, not unlocked)";
$irc->yield (privmsg => $channel => $msg );
}