Hi there,
I'm just using a modified version of the simplecall example script
(version 58_9:
#!/usr/bin/perl
use warnings;
use strict;
use Net::SIP qw(:all);
my $controller;
my $debug = 1;
Debug->level( $debug || 1 ) if defined $debug;
my $ua = Net::SIP::Simple->new(
registrar => 'pbx.hadm.net:5060',
domain => 'pbx.hadm.net',
from => 'sip:4001@pbx.hadm.net <sip%3A4001@pbx.hadm.net>',
auth => [ '4001','[removed]' ],
);
print "\n Registering\n";
# Register agent
$ua->register;
print "Registered, now calling\n";
# Invite other party, send anncouncement once connected
# I added the .pcm file to try and stop the "uninitialized $code error"
$ua->invite('4002',
init_media => $ua->rtp( 'send_recv', '/home/slackey/ring.pcm' ),
asymetric_rtp => 1,
);
print "Called, should be calling\n";
# Mainloop
$ua->loop;
On Fri, Jul 9, 2010 at 4:55 AM, Steffen Ullrich via RT <
bug-Net-SIP@rt.cpan.org> wrote:
Show quoted text> <URL:
https://rt.cpan.org/Ticket/Display.html?id=59033 >
>
>
> > Use of uninitialized value $code in numeric eq (==) at
> > /usr/local/lib/perl/5.10.0/Net/SIP/Simple/Call.pm line 201.
>
> - which version of Net::SIP do you run?
> perl -MNet::SIP -e 'die $Net::SIP::VERSION'
> - If there is a later version (current stable is 0.58) does the error
> still occure with the newer version?
> - if the error still occurs with the newest version, could you
> provide me a small program to which reproduces the error for me
> or if the error is specific for your environment please provide
> me a small program which triggers the error for you plus the output
> from running the program with perl -MNet::SIP::Debug=100 ...
>
> Thanks,
> Steffen
>
>
--
~Nothing is impossible for the man who doesn't have to do it.
