r51907 - in /trunk/libnet-sip-perl: Changes MANIFEST META.yml debian/changelog lib/Net/SIP.pm lib/Net/SIP/Authorize.pm lib/Net/SIP/Redirect.pm lib/Net/SIP/Redirect.pod lib/Net/SIP/Registrar.pod lib/Net/SIP/Simple.pm
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun Jan 31 01:41:36 UTC 2010
Author: jawnsy-guest
Date: Sun Jan 31 01:41:18 2010
New Revision: 51907
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=51907
Log:
New upstream release
Added:
trunk/libnet-sip-perl/lib/Net/SIP/Redirect.pm
- copied unchanged from r51883, branches/upstream/libnet-sip-perl/current/lib/Net/SIP/Redirect.pm
trunk/libnet-sip-perl/lib/Net/SIP/Redirect.pod
- copied unchanged from r51883, branches/upstream/libnet-sip-perl/current/lib/Net/SIP/Redirect.pod
Modified:
trunk/libnet-sip-perl/Changes
trunk/libnet-sip-perl/MANIFEST
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/Authorize.pm
trunk/libnet-sip-perl/lib/Net/SIP/Registrar.pod
trunk/libnet-sip-perl/lib/Net/SIP/Simple.pm
Modified: trunk/libnet-sip-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/Changes?rev=51907&op=diff
==============================================================================
--- trunk/libnet-sip-perl/Changes (original)
+++ trunk/libnet-sip-perl/Changes Sun Jan 31 01:41:18 2010
@@ -1,4 +1,13 @@
Revision history for Net::SIP
+
+0.55 2010-01-27
+- Net::SIP::Redirect provides functionlity to redirect INVITES using
+ information from registrar. Sample program
+ samples/register_and_redirect.pl
+- fixes for Net::SIP::Authorize if no pass is known for user (or user
+ is not known).
+- fixes for Net::SIP::Authorize for ACK an CANCEL (no challenge
+ possible, credentials should be compared against INVITE method)
0.54 2009-09-04
- bugfix in Net::SIP::Packet::new_from_parts when the header was already
Modified: trunk/libnet-sip-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/MANIFEST?rev=51907&op=diff
==============================================================================
--- trunk/libnet-sip-perl/MANIFEST (original)
+++ trunk/libnet-sip-perl/MANIFEST Sun Jan 31 01:41:18 2010
@@ -32,6 +32,8 @@
lib/Net/SIP/Endpoint.pod
lib/Net/SIP/Endpoint/Context.pm
lib/Net/SIP/Endpoint/Context.pod
+lib/Net/SIP/Redirect.pm
+lib/Net/SIP/Redirect.pod
lib/Net/SIP/Registrar.pm
lib/Net/SIP/Registrar.pod
lib/Net/SIP/StatelessProxy.pm
Modified: trunk/libnet-sip-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/META.yml?rev=51907&op=diff
==============================================================================
--- trunk/libnet-sip-perl/META.yml (original)
+++ trunk/libnet-sip-perl/META.yml Sun Jan 31 01:41:18 2010
@@ -1,13 +1,21 @@
--- #YAML:1.0
-name: Net-SIP
-version: 0.54
-abstract: ~
-license: ~
-author: ~
-generated_by: ExtUtils::MakeMaker version 6.42
-distribution_type: module
-requires:
- Net::DNS: 0.56
+name: Net-SIP
+version: 0.55
+abstract: ~
+author: []
+license: unknown
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
+requires:
+ Net::DNS: 0.56
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.54
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: trunk/libnet-sip-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/debian/changelog?rev=51907&op=diff
==============================================================================
--- trunk/libnet-sip-perl/debian/changelog (original)
+++ trunk/libnet-sip-perl/debian/changelog Sun Jan 31 01:41:18 2010
@@ -1,3 +1,9 @@
+libnet-sip-perl (0.55-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org> Sat, 30 Jan 2010 12:55:31 -0500
+
libnet-sip-perl (0.54-1) unstable; urgency=low
[ Jonathan Yu ]
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=51907&op=diff
==============================================================================
--- trunk/libnet-sip-perl/lib/Net/SIP.pm (original)
+++ trunk/libnet-sip-perl/lib/Net/SIP.pm Sun Jan 31 01:41:18 2010
@@ -4,7 +4,7 @@
require 5.008;
package Net::SIP;
-our $VERSION = '0.54';
+our $VERSION = '0.55';
# this includes nearly everything else
use Net::SIP::Simple ();
@@ -30,6 +30,7 @@
Net::SIP::Simple::RTP
Net::SIP::Dispatcher
Net::SIP::Dispatcher::Eventloop
+ Net::SIP::Redirect
Net::SIP::Registrar
Net::SIP::StatelessProxy
Net::SIP::ReceiveChain
Modified: trunk/libnet-sip-perl/lib/Net/SIP/Authorize.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/lib/Net/SIP/Authorize.pm?rev=51907&op=diff
==============================================================================
--- trunk/libnet-sip-perl/lib/Net/SIP/Authorize.pm (original)
+++ trunk/libnet-sip-perl/lib/Net/SIP/Authorize.pm Sun Jan 31 01:41:18 2010
@@ -58,6 +58,7 @@
DEBUG( 100,"pass thru response" );
return;
}
+ my $method = $packet->method;
# check authorization on request
my ($rq_key,$rs_key,$acode) = $self->{i_am_proxy}
@@ -100,9 +101,14 @@
next;
};
+ # ACK|CANCEL just reuse the authorization from INVITE, so they should
+ # be checked against method INVITE
+ my $a2 = join( ':',
+ ( $method eq 'ACK' || $method eq 'CANCEL' ) ? 'INVITE' : $method,
+ $uri );
+
# we support with and w/o qop
# get a1_hex from either user2a1 or user2pass
- my $a2 = join( ':',$packet->method,$uri );
my $a1_hex;
if ( ref($user2a1)) {
if ( ref($user2a1) eq 'HASH' ) {
@@ -118,6 +124,8 @@
} else {
$pass = invoke_callback( $user2pass,$user );
}
+ # if wrong credentials ask again for authorization
+ last if ! defined $pass;
$a1_hex = md5_hex(join( ':',$user,$realm,$pass ));
}
@@ -155,6 +163,17 @@
return;
}
+ # CANCEL or ACK cannot be prompted for authorization, so
+ # they should provide the right data already
+ return $acode if $method eq 'CANCEL'; # unauthorized CANCEL
+ if ( $method eq 'ACK' ) {
+ # in case the ACK just acks that UAC received response
+ # we accept it w/o authorization
+ # but if it contains a (SDP) body we better need authorization
+ return $acode if ($packet->as_parts)[3];
+ return; # no body
+ }
+
# not authorized yet, ask to authenticate
# keep it simple RFC2069 style
my $digest = qq[Digest algorithm=MD5, realm="$realm",].
Modified: trunk/libnet-sip-perl/lib/Net/SIP/Registrar.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/lib/Net/SIP/Registrar.pod?rev=51907&op=diff
==============================================================================
--- trunk/libnet-sip-perl/lib/Net/SIP/Registrar.pod (original)
+++ trunk/libnet-sip-perl/lib/Net/SIP/Registrar.pod Sun Jan 31 01:41:18 2010
@@ -5,7 +5,7 @@
=head1 SYNOPSIS
- my $reg = Net::SIP::Registry->new(
+ my $reg = Net::SIP::Registrar->new(
dispatcher => $dispatcher,
min_expires => 10,
max_expires => 60,
Modified: trunk/libnet-sip-perl/lib/Net/SIP/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/lib/Net/SIP/Simple.pm?rev=51907&op=diff
==============================================================================
--- trunk/libnet-sip-perl/lib/Net/SIP/Simple.pm (original)
+++ trunk/libnet-sip-perl/lib/Net/SIP/Simple.pm Sun Jan 31 01:41:18 2010
@@ -32,6 +32,7 @@
use Net::SIP::Dispatcher;
use Net::SIP::Dispatcher::Eventloop;
use Net::SIP::Endpoint;
+use Net::SIP::Redirect;
use Net::SIP::Registrar;
use Net::SIP::StatelessProxy;
use Net::SIP::Authorize;
More information about the Pkg-perl-cvs-commits
mailing list