use strict; use warnings; use Net::SIP; # This is a simple registrar + proxy which listens on # for requests. Anybody can register with any address and if somebody # invites somebody using over this proxy it will first check if the # target address is locally registered and in this case forward the # invitation to the registered party. Otherwise it will try to resolve # the target using DNS and forward the request. # # Because it accepts any registration w/o passwords it's good for testing # but don't use it in production my $ua = Net::SIP::Simple->new( leg => '' ); $ua->create_chain([ $ua->create_registrar, $ua->create_stateless_proxy, ]); $ua->loop;