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

brmstatus.txt interface support

Browse source
This commit is contained in:
Petr Baudis 2011-03-09 02:41:58 +01:00
parent 4e017cb3db
commit a9fdd97a66
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
brmd.pl
View file

@ -26,6 +26,7 @@ my $web = POE::Component::Server::HTTP->new(
"/brmstatus.html" => \&web_brmstatus_html, "/brmstatus.html" => \&web_brmstatus_html,
"/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,
"/" => \&web_index "/" => \&web_index
}, },
Headers => {Server => 'brmd/xxx'}, Headers => {Server => 'brmd/xxx'},
@ -187,6 +188,20 @@ EOT
return RC_OK; return RC_OK;
} }
sub web_brmstatus_txt {
my ($request, $response) = @_;
my $st = status_str();
$response->code(RC_OK);
$response->push_header("Content-Type", "text/plain");
disable_caching($response);
$response->content($st);
return RC_OK;
}
sub web_brmstatus_png { sub web_brmstatus_png {
my ($request, $response) = @_; my ($request, $response) = @_;