r28360 - in /branches/upstream/libnet-sip-perl/current: Changes META.yml 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:07:30 UTC 2008


Author: gregoa
Date: Thu Dec 18 20:07:28 2008
New Revision: 28360

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=28360
Log:
[svn-upgrade] Integrating new upstream version, libnet-sip-perl (0.52)

Modified:
    branches/upstream/libnet-sip-perl/current/Changes
    branches/upstream/libnet-sip-perl/current/META.yml
    branches/upstream/libnet-sip-perl/current/lib/Net/SIP.pm
    branches/upstream/libnet-sip-perl/current/lib/Net/SIP/Endpoint/Context.pm

Modified: branches/upstream/libnet-sip-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-sip-perl/current/Changes?rev=28360&op=diff
==============================================================================
--- branches/upstream/libnet-sip-perl/current/Changes (original)
+++ branches/upstream/libnet-sip-perl/current/Changes Thu Dec 18 20:07:28 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: branches/upstream/libnet-sip-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-sip-perl/current/META.yml?rev=28360&op=diff
==============================================================================
--- branches/upstream/libnet-sip-perl/current/META.yml (original)
+++ branches/upstream/libnet-sip-perl/current/META.yml Thu Dec 18 20:07:28 2008
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Net-SIP
-version:             0.51
+version:             0.52
 abstract:            ~
 license:             ~
 author:              ~

Modified: branches/upstream/libnet-sip-perl/current/lib/Net/SIP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-sip-perl/current/lib/Net/SIP.pm?rev=28360&op=diff
==============================================================================
--- branches/upstream/libnet-sip-perl/current/lib/Net/SIP.pm (original)
+++ branches/upstream/libnet-sip-perl/current/lib/Net/SIP.pm Thu Dec 18 20:07:28 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: branches/upstream/libnet-sip-perl/current/lib/Net/SIP/Endpoint/Context.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-sip-perl/current/lib/Net/SIP/Endpoint/Context.pm?rev=28360&op=diff
==============================================================================
--- branches/upstream/libnet-sip-perl/current/lib/Net/SIP/Endpoint/Context.pm (original)
+++ branches/upstream/libnet-sip-perl/current/lib/Net/SIP/Endpoint/Context.pm Thu Dec 18 20:07:28 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