r24969 - 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]

Author: gregoa
Date: Wed Sep 10 19:56:29 2008
New Revision: 24969

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=24969
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=24969&op=diff
==============================================================================
--- trunk/libnet-sip-perl/Changes (original)
+++ trunk/libnet-sip-perl/Changes Wed Sep 10 19:56:29 2008
@@ -1,5 +1,9 @@
 Revision history for Net::SIP
 
+
+0.47
+   - if contact header changes the URI of the dialog send the ACK with
+     the original URI of the INVITE and change the dialogs URI afterwards
 
 0.46
    - support for canceling a call after some time of ringing based on

Modified: trunk/libnet-sip-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/META.yml?rev=24969&op=diff
==============================================================================
--- trunk/libnet-sip-perl/META.yml (original)
+++ trunk/libnet-sip-perl/META.yml Wed Sep 10 19:56:29 2008
@@ -1,11 +1,13 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
-name:         Net-SIP
-version:      0.46
-version_from: lib/Net/SIP.pm
-installdirs:  site
-requires:
+--- #YAML:1.0
+name:                Net-SIP
+version:             0.47
+abstract:            ~
+license:             ~
+author:              ~
+generated_by:        ExtUtils::MakeMaker version 6.44
+distribution_type:   module
+requires:     
     Net::DNS:                      0.56
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+meta-spec:
+    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
+    version: 1.3

Modified: trunk/libnet-sip-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/debian/changelog?rev=24969&op=diff
==============================================================================
--- trunk/libnet-sip-perl/debian/changelog (original)
+++ trunk/libnet-sip-perl/debian/changelog Wed Sep 10 19:56:29 2008
@@ -1,3 +1,9 @@
+libnet-sip-perl (0.47-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org>  Wed, 10 Sep 2008 21:55:51 +0200
+
 libnet-sip-perl (0.46-1) unstable; urgency=low
 
   * New upstream release.

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=24969&op=diff
==============================================================================
--- trunk/libnet-sip-perl/lib/Net/SIP.pm (original)
+++ trunk/libnet-sip-perl/lib/Net/SIP.pm Wed Sep 10 19:56:29 2008
@@ -4,7 +4,7 @@
 require 5.008;
 
 package Net::SIP;
-our $VERSION = '0.46';
+our $VERSION = '0.47';
 
 # 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=24969&op=diff
==============================================================================
--- trunk/libnet-sip-perl/lib/Net/SIP/Endpoint/Context.pm (original)
+++ trunk/libnet-sip-perl/lib/Net/SIP/Endpoint/Context.pm Wed Sep 10 19:56:29 2008
@@ -350,15 +350,19 @@
 			# is response to INVITE, create ACK
 			# 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' )) {
-				# 12.1.2 - set URI for dialog to contact given in response which
-				# establishes the dialog
 				$contact = $1 if $contact =~m{<(\w+:[^>\s]+)>};
 				$req->set_uri( $contact );
 			}
-			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