xkcd - what really matters to career?

11th grade


11th grade

Higher Order Perl available for download

The book "Higher Order Perl" authored by Mark Jason Dominus is available for free download. Go grab it here....

sipping with Net::SIP

As I had indicated in my earlier post, Net::SIP module for perl really streamlines a lot of the things for quick testing and automation. Net::SIP provides the SIP framework using which one can develop any of the SIP entity functionalities like Registrar, Proxy, UA, etc.

Net::SIP has a lot more associated modules, that help whip up some specific SIP entities in a couple of hours. Like for eg: Net::SIP::Registrar helps to implement a fully working registrar functionality fairly quickly. There are many such modules to help you build many of these entities.

The following is a sample code that acts as a SIP UA that registers with a registrar and makes a call using the Net::SIP::Simple module (from the module example) complete with SDP and RTP packet handling.

use Net::SIP;

# create new agent
my $ua = Net::SIP::Simple->new(
  outgoing_proxy => '192.168.0.10',
  registrar => '192.168.0.10',
  domain => 'example.com',
  from => 'me',
  auth => [ 'me','secret' ],
);

# Register agent
$ua->register;

# Invite other party, send anncouncement once connected
$ua->invite( 'you',
  init_media => $ua->rtp( 'send_recv', 'announcement.pcmu-8000' ),
  asymetric_rtp => 1,
);

# Mainloop
$ua->loop;

Isn't that simple? If one has some custom requirements, then Net::SIP provides low level modules and utilities using which one can implement custom SIP entities and behaviours.  Net::SIP::Packet lets you handle the SIP packets and Net::SIP::Leg which acts as a wrapper around sockets and lets one send and receive data.

happy sipping....