The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Net::SIP::Blocker - blocks SIP requests based on method name

SYNOPSIS

  my $block = Net::SIP::Blocker->new(
          block => { 'SUBSCRIBE' => 405, '...' => ... },
          dispatcher => $disp,
  );

  my $chain = Net::SIP::ReceiveChain->new(
          [ $block, ... ]
  );

DESCRIPTION

Blocks incoming requests by method name and sends back custom error message.

CONSTRUCTOR

new ( BLOCK,DISPATCHER )

Returns a new blocking object to be used in the chain.

BLOCK is a hash reference where the keys are the methods to be blocked and their values are the reason why the method was blocked. The reason is the three digit code, optionally followed by a text.

DISPATCHER is a Net::SIP::Dispatcher object.

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.