Re: getting user basic_credentials in a SOAP::Lite Server

[physi]

After serveral tries, I've ended with this in SOAP::Transport::HTTP::handle:

if (! $self->request->headers->authorization)
{
 use HTTP::Headers;
my $h = HTTP::Headers->new(
       Content_Type => 'text/html',
       'WWW-Authenticate' =>  'Basic realm="Secure Area"');
 print "no AUTH\n";
 return $self->response(
            HTTP::Response->new(
                401,"401 Unauthorized",$h))};

So now I'm able to send a 401-Message if there is no authorization in the header. The the client knows that it should send an authorization in the header and then I can check this in my Server-Code.

Thanks for your suggestions.