Fix $httpd_port not having any effect

[app-fonbot-daemon.git] / lib / App / FonBot / Plugin / HTTPD.pm

diff --git a/lib/App/FonBot/Plugin/HTTPD.pm b/lib/App/FonBot/Plugin/HTTPD.pm
index 785a0e757501b0e390469b13e1710da099508a33..ac7e0e773d0653a6f61ee7088be56bff8e3a74cd 100644 (file)
--- a/lib/App/FonBot/Plugin/HTTPD.pm
+++ b/lib/App/FonBot/Plugin/HTTPD.pm
@@ -33,7 +33,7 @@ sub init{
        %waiting_requests = ();
        %waiting_userrequests = ();
        $httpd = POE::Component::Server::HTTP->new(
-               Port => 8888,
+               Port => $httpd_port,
                PreHandler => { '/' => [\&pre_auth, \&pre_get, \&pre_userget], },
                ContentHandler =>{ '/send' => \&on_send, '/get' => \&on_get, '/ok' => \&on_ok, '/userget' => \&on_userget, '/usersend' => \&on_usersend },
                ErrorHandler => { '/' => sub { RC_OK }},
@@ -196,7 +196,7 @@ sub on_send{
 
                if ($driver eq 'HTTP') {
                        $responses{$user}//=[];
-                       push $responses{$user}, $content;
+                       push @{$responses{$user}}, $content;
                        if (exists $waiting_userrequests{$user}) {
                                $waiting_userrequests{$user}->continue;
                                delete $waiting_userrequests{$user}