r28362 - in /trunk/libnet-sip-perl: Changes META.yml debian/changelog lib/Net/SIP.pm lib/Net/SIP/Endpoint/Context.pm
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Thu Dec 18 20:08:23 UTC 2008
Author: gregoa
Date: Thu Dec 18 20:08:20 2008
New Revision: 28362
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=28362
Log:
New upstream release.
Modified:
trunk/libnet-sip-perl/Changes
trunk/libnet-sip-perl/META.yml
trunk/libnet-sip-perl/debian/changelog
trunk/libnet-sip-perl/lib/Net/SIP.pm
trunk/libnet-sip-perl/lib/Net/SIP/Endpoint/Context.pm
Modified: trunk/libnet-sip-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/Changes?rev=28362&op=diff
==============================================================================
--- trunk/libnet-sip-perl/Changes (original)
+++ trunk/libnet-sip-perl/Changes Thu Dec 18 20:08:20 2008
@@ -1,5 +1,10 @@
Revision history for Net::SIP
+
+0.52 2008-12-17
+- removed changes from 0.47 - if 2xx response to INVITE contains
+ contact header this is used as the base for the request-URI in ACK,
+ not the one from the original INVITE
0.51 2008-12-16
- get to+tag from 2xx response on invite only when call is outgoing,
Modified: trunk/libnet-sip-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/META.yml?rev=28362&op=diff
==============================================================================
--- trunk/libnet-sip-perl/META.yml (original)
+++ trunk/libnet-sip-perl/META.yml Thu Dec 18 20:08:20 2008
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Net-SIP
-version: 0.51
+version: 0.52
abstract: ~
license: ~
author: ~
Modified: trunk/libnet-sip-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/debian/changelog?rev=28362&op=diff
==============================================================================
--- trunk/libnet-sip-perl/debian/changelog (original)
+++ trunk/libnet-sip-perl/debian/changelog Thu Dec 18 20:08:20 2008
@@ -1,3 +1,9 @@
+libnet-sip-perl (0.52-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Thu, 18 Dec 2008 21:07:44 +0100
+
libnet-sip-perl (0.51-1) unstable; urgency=low
[ gregor herrmann ]
Modified: trunk/libnet-sip-perl/lib/Net/SIP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/lib/Net/SIP.pm?rev=28362&op=diff
==============================================================================
--- trunk/libnet-sip-perl/lib/Net/SIP.pm (original)
+++ trunk/libnet-sip-perl/lib/Net/SIP.pm Thu Dec 18 20:08:20 2008
@@ -4,7 +4,7 @@
require 5.008;
package Net::SIP;
-our $VERSION = '0.51';
+our $VERSION = '0.52';
# this includes nearly everything else
use Net::SIP::Simple ();
Modified: trunk/libnet-sip-perl/lib/Net/SIP/Endpoint/Context.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/lib/Net/SIP/Endpoint/Context.pm?rev=28362&op=diff
==============================================================================
--- trunk/libnet-sip-perl/lib/Net/SIP/Endpoint/Context.pm (original)
+++ trunk/libnet-sip-perl/lib/Net/SIP/Endpoint/Context.pm Thu Dec 18 20:08:20 2008
@@ -351,18 +351,18 @@
# and propagate to upper layer
my $req = $tr->{request};
- # create ACK, the ACK needs to be send with the original URI,
- # even if the contact header (see below) changes the dialogs URI
- my $ack = $req->create_ack( $response );
- invoke_callback($cb, at arg,0,$code,$response,$leg,$from,$ack);
- $endpoint->new_request( $ack,$self,undef,undef,leg => $leg, dst_addr => $from );
-
# 12.1.2 - set URI for dialog to contact given in response which
# establishes the dialog
if ( my $contact = $response->get_header( 'contact' )) {
$contact = $1 if $contact =~m{<(\w+:[^>\s]+)>};
$req->set_uri( $contact );
}
+
+ # create ACK
+ # if 2xx response changed contact use it as the new URI
+ my $ack = $req->create_ack( $response );
+ invoke_callback($cb, at arg,0,$code,$response,$leg,$from,$ack);
+ $endpoint->new_request( $ack,$self,undef,undef,leg => $leg, dst_addr => $from );
# use to-tag from this request to update 'to'
# FIXME: this should probably be better done by the upper layer
More information about the Pkg-perl-cvs-commits
mailing list