Net::SIP::Authorize - enforce authorization of packets
my $auth = Net::SIP::Authorize->new( dispatcher => $dispatcher, realm => 'net-sip.example.com', user2pass => \&give_pass_for_user, i_am_proxy => 1, ); my $proxy = Net::SIP::StatelessProxy->new... my $chain = Net::SIP::ReceiveChain->new( # all requests for proxy need to be authorized [ $auth,$proxy ] );
This package is used inside a Net::SIP::ReceiveChain to make sure, that requests are authorized before they get handled by the next receiver in the chain.
- new ( %ARGS )
This creates a new registar object, %ARGS can have the following keys:
Net::SIP::Dispatcher object manging the registar. Mandatory.
The realm for the authentication request. Defaults to 'p5-net-sip'.
Optional value for
opaqueparameter for the authentication request. If none is given no
opaqueparameter will be used.
Either hash reference with
user,passwordmapping or callback, which gives
passwordif called with
Flag if the object behind works as a proxy (e.g. Net::SIP::StatelessProxy) and sends
Proxy-Authenticateor if it is an endpoint (e.g. Net::SIP::Endpoint, Net::SIP::Registrar) which sends
- receive ( PACKET,LEG,FROM )
PACKET is the incoming packet, LEG is the Net::SIP::Leg where the packet arrived and FROM is the
"ip:port"of the sender. Responses will be send back to the sender through the same leg.
Called from the managing Net::SIP::Dispatcher object if a new packet arrives.
Returns TRUE if the packet was fully handled by this object which is the case, if the packet was not authorized so that a
i_am_proxy) response was send back.
Returns FALSE if packet was authorized and should be handled be the next object in the Net::SIP::ReceiveChain. In this case it usually changes the packet to remove the local authorization information.