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

brmd::WWW: Move use HTTP::Status, CGI there

Browse source
This commit is contained in:
Petr Baudis 2011-05-07 00:32:53 +02:00
parent 4c3fb05acf
commit 1a63895070
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
brmd/brmd.pl
View file

@ -3,8 +3,6 @@
use strict; use strict;
use warnings; use warnings;
use POE; use POE;
use HTTP::Status qw/RC_OK/;
use CGI;
our $channel = "#brmlab"; our $channel = "#brmlab";
our $streamurl = "http://nat.brmlab.cz:8090/brmstream.asf"; our $streamurl = "http://nat.brmlab.cz:8090/brmstream.asf";
@ -185,6 +183,8 @@ sub serial_error {
package brmd::WWW; package brmd::WWW;
use POE qw(Component::Server::HTTP); use POE qw(Component::Server::HTTP);
use HTTP::Status qw/RC_OK/;
use CGI;
sub new { sub new {
my $class = shift; my $class = shift;