table of contents
Net::SIP::Dropper(3pm) | User Contributed Perl Documentation | Net::SIP::Dropper(3pm) |
NAME¶
Net::SIP::Dropper - drops SIP messages based on callback
SYNOPSIS¶
use Net::SIP::Dropper::ByIPPort; my $drop_by_ipport = Net::SIP::Dropper::ByIPPort->new( database => '/path/to/database.drop', methods => [ 'REGISTER', '...', '' ], attempts => 10, interval => 60, ); use Net::SIP::Dropper::ByField; my $drop_by_field = Net::SIP::Dropper::ByField->new( methods => [ 'REGISTER', '...', '' ], 'From' => qr/sip(?:vicious|sscuser)/, 'User-Agent' => qr/^friendly-scanner$/, ); my $drop_subscribe = sub { my ($packet,$leg,$from) = @_; # drop all subscribe requests and responses return $packet->method eq 'SUBSCRIBE' ? 1:0; }; my $dropper = Net::SIP::Dropper->new( cbs => [ $drop_by_ipport, $drop_by_field, $drop_subscribe ]); my $chain = Net::SIP::ReceiveChain->new( [ $dropper, ... ] );
DESCRIPTION¶
Drops messages. This means, does no further processing in the Net::SIP chain and does not send something back if the incoming message match the settings.
Some useful droppers are defined in Net::SIP::Dropper::ByIpPort and Net::SIP::Dropper::ByField.
CONSTRUCTOR¶
- new ( ARGS )
- ARGS is a hash with key "cb" or
"cbs".
"cb" is a single callback to be
processed, "cbs" is an arrayref with
callbacks. If one of the callbacks returns true the message will be
dropped. If all callbacks return false the message will be forwarded in
the chain.
Returns a new dropper object to be used in the chain.
2024-09-08 | perl v5.38.2 |