Net::SIP::Redirect(3pm) 				User Contributed Perl Documentation				   Net::SIP::Redirect(3pm)

NAME

       Net::SIP::Redirect - Send redirect to Requests based on lookup at a registrar

SYNOPSIS

	 my $reg = Net::SIP::Registrar->new(...);
	 my $redir = Net::SIP::Redirect(
	       dispatcher => $dispatcher,
	       registrar => $reg,
	 );

DESCRIPTION

       This package implements a simple redirection of Requests using the information provided by a registrar.

CONSTRUCTOR

       new ( %ARGS )
	   This creates a new redirect object, %ARGS can have the following keys:

	   dispatcher
		   Net::SIP::Dispatcher object manging the registar. Mandatory.

	   registrar
		   Registrar object. This is an object like a Net::SIP::Registrar, which has a "query(address)" method which returns a list of
		   contacts.

METHODS

       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. Will return "()" and ignore the packet if it's an
	   REGISTER request.

	   For Requests it will query the registrar and return either "302 Moved Temporarily" with the list of contacts or "404 Not found" if the
	   address is not registered.

perl v5.14.2							    2010-05-31						   Net::SIP::Redirect(3pm)