%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 }},
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}