comment on

Hi everyone, I'm using Net::SIP::Simple to call to an ip-phone in my network. It does all fine until it get to the 'INVITE' part, then it returns an error '488 Not Acceptable Here' and I don't know what is wrong here, I must accept that is my first time working with phones so I don't understand some things, anyway here is the code I'm using:

#!/usr/bin/perl

use IO::Socket::INET;
use Net::SIP::Leg;
use Net::SIP::Simple;
use Net::SIP::Simple::Call;
use Net::SIP::Simple::RTP;
use Net::SIP::Debug qw( Net::SIP*=2 Registrar=1 );

Net::SIP::Debug->level(2);

$| = 1;

my $ip_me = 'xxx.xxx.xx.xx'; #server executing the code
my $ip_pbx = 'yyy.yyy.yy.yy'; #asterisk
my $ip_to = 'zzz.zzz.zz.zzz'; #phone where I'm calling to

# create new socket and leg
print 'CREATING SOCKET AND LEG... ';
my $sock_tel_1 = IO::Socket::INET->new(LocalAddr => $ip_me, PeerAddr =
+> $ip_pbx, PeerPort => '5060', Proto => 'udp') or die "Can't bind : $
+@\n";
my $leg_tel_1 = Net::SIP::Leg->new( sock => $sock_tel_1);
print 'OK'.$/;

# create new rtp
print 'CREATING RTP... ';
my $echo_10 = Net::SIP::Simple->rtp( 'media_recv_echo', 'output.pcmu-8
+000' );
print 'OK'.$/;

# create new agent
print 'CREATING AGENT... ';
my $ua = Net::SIP::Simple->new(
    registrar => $ip_pbx,
    #domain => 'netpro.cl',
    domain => $ip_pbx,
    from => 'devel',
    leg => $leg_tel_1,
    auth => ['user','password'] #user and password provided in the ast
+erisk server
);
print $ua->error.' ';
print 'OK'.$/;

# Register agent
my $err = '';
print 'TRY TO REGISTER... '.$/;
$ua->register();
$err = $ua->error;
if ($err ne ''){
    print $err.$/;
}
print 'OK'.$/;

# Invite other party, send anncouncement once connected
print 'SEND INVITE... '.$/;
$ua->invite( $ip_to, init_media => $echo_10);
$err = $ua->error;
if ($err ne ''){
    print $err.$/;
}
print 'OK'.$/;

$ua->loop;
[download]

Here is the output:

CREATING SOCKET AND LEG... OK
CREATING RTP... OK
CREATING AGENT...  OK
TRY TO REGISTER...
1285608699.1157 DEBUG:<2> Net::SIP::Leg::deliver[330]: delivery from x
+xx.xxx.xx.xx:43289 to udp:yyy.yyy.yy.yy:5060 OK:
1285608699.1157 DEBUG:<2>       REQ  REGISTER sip:yyy.yyy.yy.yy
1285608699.1178 DEBUG:<2> Net::SIP::Leg::receive[421]: received on xxx
+.xxx.xx.xx:43289 from yyy.yyy.yy.yy:5060 packet
1285608699.1178 DEBUG:<2>       RESP 100 'Trying'
1285608699.1202 DEBUG:<2> Net::SIP::Leg::receive[421]: received on xxx
+.xxx.xx.xx:43289 from yyy.yyy.yy.yy:5060 packet
1285608699.1202 DEBUG:<2>       RESP 401 'Unauthorized'
1285608699.1228 DEBUG:<2> Net::SIP::Leg::deliver[330]: delivery from x
+xx.xxx.xx.xx:43289 to udp:yyy.yyy.yy.yy:5060 OK:
1285608699.1228 DEBUG:<2>       REQ  REGISTER sip:yyy.yyy.yy.yy
1285608699.1247 DEBUG:<2> Net::SIP::Leg::receive[421]: received on xxx
+.xxx.xx.xx:43289 from yyy.yyy.yy.yy:5060 packet
1285608699.1247 DEBUG:<2>       RESP 100 'Trying'
1285608699.1281 DEBUG:<2> Net::SIP::Leg::receive[421]: received on xxx
+.xxx.xx.xx:43289 from yyy.yyy.yy.yy:5060 packet
1285608699.1281 DEBUG:<2>       REQ  OPTIONS sip:user@xxx.xxx.xx.xx:43
+289
1285608699.1310 DEBUG:<2> Net::SIP::Leg::receive[421]: received on xxx
+.xxx.xx.xx:43289 from yyy.yyy.yy.yy:5060 packet
1285608699.1310 DEBUG:<2>       RESP 200 'OK'
OK
SEND INVITE...
1285608699.1355 DEBUG:<2> Net::SIP::Leg::deliver[330]: delivery from x
+xx.xxx.xx.xx:43289 to udp:yyy.yyy.yy.yy:5060 OK:
1285608699.1355 DEBUG:<2>       REQ  INVITE sip:zzz.zzz.zz.zzz@yyy.yyy
+.yy.yy with body
1285608699.1377 DEBUG:<2> Net::SIP::Leg::receive[421]: received on xxx
+.xxx.xx.xx:43289 from yyy.yyy.yy.yy:5060 packet
1285608699.1377 DEBUG:<2>       RESP 407 'Proxy Authentication Require
+d'
1285608699.1397 DEBUG:<2> Net::SIP::Leg::deliver[330]: delivery from x
+xx.xxx.xx.xx:43289 to yyy.yyy.yy.yy:5060 OK:
1285608699.1397 DEBUG:<2>       REQ  ACK sip:zzz.zzz.zz.zzz@yyy.yyy.yy
+.yy
1285608699.1423 DEBUG:<2> Net::SIP::Leg::deliver[330]: delivery from x
+xx.xxx.xx.xx:43289 to udp:yyy.yyy.yy.yy:5060 OK:
1285608699.1423 DEBUG:<2>       REQ  INVITE sip:zzz.zzz.zz.zzz@yyy.yyy
+.yy.yy with body
1285608699.1446 DEBUG:<2> Net::SIP::Leg::receive[421]: received on xxx
+.xxx.xx.xx:43289 from yyy.yyy.yy.yy:5060 packet
1285608699.1446 DEBUG:<2>       RESP 488 'Not acceptable here'
1285608699.1466 DEBUG:<2> Net::SIP::Leg::deliver[330]: delivery from x
+xx.xxx.xx.xx:43289 to yyy.yyy.yy.yy:5060 OK:
1285608699.1466 DEBUG:<2>       REQ  ACK sip:zzz.zzz.zz.zzz@yyy.yyy.yy
+.yy
OK
1285608700.1278 DEBUG:<2> Net::SIP::Leg::receive[421]: received on xxx
+.xxx.xx.xx:43289 from yyy.yyy.yy.yy:5060 packet
1285608700.1278 DEBUG:<2>       REQ  OPTIONS sip:user@xxx.xxx.xx.xx:43
+289
1285608701.1286 DEBUG:<2> Net::SIP::Leg::receive[421]: received on xxx
+.xxx.xx.xx:43289 from yyy.yyy.yy.yy:5060 packet
1285608701.1286 DEBUG:<2>       REQ  OPTIONS sip:user@xxx.xxx.xx.xx:43
+289
1285608702.1284 DEBUG:<2> Net::SIP::Leg::receive[421]: received on xxx
+.xxx.xx.xx:43289 from yyy.yyy.yy.yy:5060 packet
1285608702.1284 DEBUG:<2>       REQ  OPTIONS sip:user@xxx.xxx.xx.xx:43
+289
1285608703.1282 DEBUG:<2> Net::SIP::Leg::receive[421]: received on xxx
+.xxx.xx.xx:43289 from yyy.yyy.yy.yy:5060 packet
1285608703.1282 DEBUG:<2>       REQ  OPTIONS sip:user@xxx.xxx.xx.xx:43
+289
[download]

Can anyone help me with this?

In reply to Getting error '488' using Net::SIP::Simple by Skaraluk

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.