sub handle { my $self = shift->new; while (my $c = $self->accept) { while (my $r = $c->get_request) { ## handle cookie based authentication somewhere in here $self->request($r); $self->SUPER::handle; $c->send_response($self->response) } # replaced ->close, thanks to Sean Meisner <Sean.Meisner@VerizonWi +reless.com> # shutdown() doesn't work on AIX. close() is used in this case. Th +anks to Jos Clijmans <jos.clijmans@recyfin.be> UNIVERSAL::isa($c, 'shutdown') ? $c->shutdown(2) : $c->close(); undef $c; } }
In reply to Re: SOAP::Transport::HTTP::Daemon w/ Auth
by PodMaster
in thread SOAP::Transport::HTTP::Daemon w/ Auth
by hpavc
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |