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

brmd: Support for manual status override using web button

Browse source
This commit is contained in:
Petr Baudis 2011-04-26 23:19:00 +02:00
parent c3052ebecf
commit 87b929ff4c
1 changed files with 37 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

38
brmd/brmd.pl
View file

@ -7,11 +7,14 @@ use POE qw(Component::IRC Component::IRC::Plugin::Connector Component::Server::H
use Symbol qw(gensym); use Symbol qw(gensym);
use Device::SerialPort; use Device::SerialPort;
use HTTP::Status qw/RC_OK/; use HTTP::Status qw/RC_OK/;
use CGI;
our $channel = "#brmlab"; our $channel = "#brmlab";
our $device = "/dev/ttyUSB0"; our $device = "/dev/ttyUSB0";
our ($status, $record, $topic) = (0, 0, 'BRMLAB OPEN'); our ($status, $record, $topic) = (0, 0, 'BRMLAB OPEN');
my $serial;
my $irc = POE::Component::IRC->spawn( my $irc = POE::Component::IRC->spawn(
nick => 'brmbot', nick => 'brmbot',
ircname => 'The Brmlab Automaton', ircname => 'The Brmlab Automaton',
@ -25,6 +28,7 @@ my $web = POE::Component::Server::HTTP->new(
"/brmstatus.js" => \&web_brmstatus_js, "/brmstatus.js" => \&web_brmstatus_js,
"/brmstatus.png" => \&web_brmstatus_png, "/brmstatus.png" => \&web_brmstatus_png,
"/brmstatus.txt" => \&web_brmstatus_txt, "/brmstatus.txt" => \&web_brmstatus_txt,
"/brmstatus-switch" => \&web_brmstatus_switch,
"/" => \&web_index "/" => \&web_index
}, },
Headers => {Server => 'brmd/xxx'}, Headers => {Server => 'brmd/xxx'},
@ -48,7 +52,7 @@ $poe_kernel->run();
sub _start { sub _start {
my $heap = $_[HEAP]; my $heap = $_[HEAP];
$heap->{serial} = POE::Wheel::ReadWrite->new( $serial = $heap->{serial} = POE::Wheel::ReadWrite->new(
Handle => serial_open($device), Handle => serial_open($device),
Filter => POE::Filter::Line->new( Filter => POE::Filter::Line->new(
InputLiteral => "\x0A", # Received line endings. InputLiteral => "\x0A", # Received line endings.
@ -219,6 +223,17 @@ sub web_brmstatus_html {
<head><title>brmstatus</title></head> <head><title>brmstatus</title></head>
<body bgcolor="$bg"> <body bgcolor="$bg">
<h1 align="center">brmlab is $st</h1> <h1 align="center">brmlab is $st</h1>
<table style="border: 1pt solid" align="center"><tr><td>
<h2 align="center">Manual Override</h2>
<p>Manual override persists until the next time the physical button is switched.</p>
<p>
<form method="post" action="brmstatus-switch">
<strong>Perpetrator:</strong>
<input type="text" name="nick" />
<input type="button" name="s" value="Switch status" />
</form>
</p>
</td></tr></table>
</body></html> </body></html>
EOT EOT
); );
@ -275,6 +290,27 @@ sub web_brmstatus_png {
return RC_OK; return RC_OK;
} }
sub web_brmstatus_switch {
my ($request, $response) = @_;
my $q = new CGI($request->content);
my $nick = $q->param('nick');
my $newstatus = not $status;
$serial->put('s'.$newstatus);
$serial->flush();
$irc->yield (privmsg => $channel => "[brmstatus] Manual override by $nick (web)" );
status_update($newstatus);
$response->protocol("HTTP/1.1");
$response->code(302);
$response->header('Location' => 'brmstatus.html');
return RC_OK;
}
## IRC ## IRC