r60112 - in /branches/upstream/libnet-smpp-perl/current: Changes META.yml README SMPP.pm bind-hammer.pl esme-hammer.pl esme-rec.pl esme.pl sendmessage.pl smsc.pl
franck at users.alioth.debian.org
franck at users.alioth.debian.org
Tue Jul 6 20:36:56 UTC 2010
Author: franck
Date: Tue Jul 6 20:36:38 2010
New Revision: 60112
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60112
Log:
[svn-upgrade] new version libnet-smpp-perl (1.14)
Modified:
branches/upstream/libnet-smpp-perl/current/Changes
branches/upstream/libnet-smpp-perl/current/META.yml
branches/upstream/libnet-smpp-perl/current/README
branches/upstream/libnet-smpp-perl/current/SMPP.pm
branches/upstream/libnet-smpp-perl/current/bind-hammer.pl
branches/upstream/libnet-smpp-perl/current/esme-hammer.pl
branches/upstream/libnet-smpp-perl/current/esme-rec.pl
branches/upstream/libnet-smpp-perl/current/esme.pl
branches/upstream/libnet-smpp-perl/current/sendmessage.pl
branches/upstream/libnet-smpp-perl/current/smsc.pl
Modified: branches/upstream/libnet-smpp-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-smpp-perl/current/Changes?rev=60112&op=diff
==============================================================================
--- branches/upstream/libnet-smpp-perl/current/Changes (original)
+++ branches/upstream/libnet-smpp-perl/current/Changes Tue Jul 6 20:36:38 2010
@@ -46,4 +46,29 @@
1.13 3.3.2010
* Fixed numerical value case in encode_optional_params()
+1.14 24.6.2010
+ * upgraded to support more recent perls, probably breaking 5.005 and earlier
+
Note: exact change logs are kept in CVS
+
+Interested readers:
+Paul Morris <paul.morris at totalise.co.uk>
+Chia-liang Kao <clkao at clkao.org>
+Roland Giersig <r.giersig at xsoft.at>
+"Tony Clark" <clarktony at hotmail.com>
+"Andres Maduro" <andres at iconos.com.ve>
+Richard Morgan <Richard at webcom.com.au>
+"Artem Zotov" <zot_aa at inform-mobil.ru>
+lars at thegler.dk
+Ismael Briones <ismael at el-mundo.net>
+lem at cantv.net
+kn at sifira.dk
+Luis Munoz <len at cantv.net>
+Dziugas.Baltrunas at bite.lt
+Maxim.Burenko at kyivstar.net
+Matthias Meyser <Meyser at xenet.de>
+jose.venceslau at optimus.pt
+Francisco.Viana at optimus.pt
+valyakol at gmail.com
+
+paul.morris at totalise.co.uk, clkao at clkao.org, r.giersig at xsoft.at, clarktony at hotmail.com, andres at iconos.com.ve, Richard at webcom.com.au, zot_aa at inform-mobil.ru, lars at thegler.dk, ismael at el-mundo.net, lem at cantv.net, kn at sifira.dk, len at cantv.net, Dziugas.Baltrunas at bite.lt, Maxim.Burenko at kyivstar.net, Matthias Meyser <Meyser at xenet.de>, jose.venceslau at optimus.pt, Francisco.Viana at optimus.pt, valyakol at gmail.com
Modified: branches/upstream/libnet-smpp-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-smpp-perl/current/META.yml?rev=60112&op=diff
==============================================================================
--- branches/upstream/libnet-smpp-perl/current/META.yml (original)
+++ branches/upstream/libnet-smpp-perl/current/META.yml Tue Jul 6 20:36:38 2010
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Net-SMPP
-version: 1.13
+version: 1.14
version_from: SMPP.pm
installdirs: site
requires:
Modified: branches/upstream/libnet-smpp-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-smpp-perl/current/README?rev=60112&op=diff
==============================================================================
--- branches/upstream/libnet-smpp-perl/current/README (original)
+++ branches/upstream/libnet-smpp-perl/current/README Tue Jul 6 20:36:38 2010
@@ -6,15 +6,22 @@
29.4.2005, a small update --Sampo
21.4.2006, upgrade to 1.10 --Sampo
14.12.2008, added SMPP 5.0 support --Sampo
+24.6.2010, upgraded to support more recent perls, probably breaking 5.005 and earlier --Sampo
$Id: README,v 1.8 2006/04/21 20:14:03 sampo Exp $
-This readme describes version 1.10 of the module,
+This readme describes version 1.14 of the module,
implementing SMPP 3.4, SMPP 4.0, and SMPP 5.0.
+
+Version 1.14 attempts to be compatible with perl 5.10. This may cause
+earlier perls, uch as perl 5.005 to break. If you have old perl,
+you should try version 1.13 which explicitly tried to support them
+at the cost of not supporting newer perls (why did perl have to
+change in incompatible ways). At least 1.14 has been tested on 5.8.8.
WARNING: Some of the V4.0 features have been tested against real
world SMSC. Version 3.4 has only been tested by author against the
module itself. However, the author is aware of more than 20
- productions sites using the code more or less successfully on basis
+ production sites using the code more or less successfully on basis
of SMPP-3.4 protocol. I guess Net::SMPP has passed the test of
time and is useful in production, though, no doubt, many
poorly tested features remain.
@@ -72,6 +79,15 @@
module. We are specialists in integrating various internet and telco
protocols and building whole solutions. For integration and support
services, please contact symlabs at symlabs.com
+
+Getting
+-------
+
+ Download from cpan.org
+
+ OR
+
+ git clone git://zxid.org/smpp
Building
--------
@@ -168,7 +184,7 @@
License
-------
-Net::SMPP is copyright (c) 2001 by Sampo Kellomaki (sampo at symlabs.com),
+Net::SMPP is copyright (c) 2001,2010 by Sampo Kellomaki (sampo at iki.fi),
All rights reserved. Portions copyright (c) 2001-2005 by Symlabs
(symlabs at symlabs.com), All rights reserved. You may use
and distribute Net::SMPP under same terms as perl itself.
Modified: branches/upstream/libnet-smpp-perl/current/SMPP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-smpp-perl/current/SMPP.pm?rev=60112&op=diff
==============================================================================
--- branches/upstream/libnet-smpp-perl/current/SMPP.pm (original)
+++ branches/upstream/libnet-smpp-perl/current/SMPP.pm Tue Jul 6 20:36:38 2010
@@ -1,5 +1,5 @@
# Net::SMPP.pm - SMPP over TCP, pure perl implementation
-# Copyright (c) 2001-2009 Sampo Kellomaki <sampo at iki.fi>, All rights reserved.
+# Copyright (c) 2001-2010 Sampo Kellomaki <sampo at iki.fi>, All rights reserved.
# Portions Copyright (c) 2001-2005 Symlabs, All rights reserved.
# This code may be distributed under same terms as perl. NO WARRANTY.
# Work sponsored by Symlabs, the LDAP and directory experts (www.symlabs.com)
@@ -30,6 +30,7 @@
# 20.7.2007, patch from Matthias Meyser to fix enquiry_link, document 7bit (1.11) --Sampo
# 14.12.2008, adapted to SMPPv50, thanks to Gema niskazhu (and curse to
# the spec authors for not letting me know about new version) --Sampo
+# 24.6.2010, tweaked for perl 5.8.8 --Sampo
#
# Why ${*$me}{async} vs. $me->async ?
#
@@ -55,7 +56,7 @@
use vars qw(@ISA $VERSION %default %param_by_name $trace);
@ISA = qw(IO::Socket::INET);
-$VERSION = '1.13';
+$VERSION = '1.14';
$trace = 0;
use constant Transmitter => 1; # SMPP transmitter mode of operation
@@ -145,7 +146,7 @@
for my $k (keys(%{&status_code}))
{
eval { *{status_code->{$k}->{code}} = sub { return $k; } };
- eval { *{status_code->{$k}->{code}.'_msg'} = sub { return *{status_code->{$k}->{msg}; } };
+ eval { *{status_code->{$k}->{code}.'_msg'} = sub { return *{status_code->{$k}->{msg}}; } };
}
};
@@ -459,6 +460,9 @@
# lists tag 0x1403 as holding both MCC and MNC in format "MCC/MNC"
0x1402 => { name => 'operator_id', technology => 'vendor extension', },
0x1403 => { name => 'tariff', technology => 'Mobile Network Code vendor extension', },
+ # valyakol at gmail.com reports that these should be
+ #0x1402 => { name => 'mBlox_operator', technology => 'Generic', },
+ #0x1403 => { name => 'mBlox_rate', technology => 'Generic', },
0x1450 => { name => 'mcc', technology => 'Mobile Country Code vendor extension', },
0x1451 => { name => 'mnc', technology => 'Mobile Network Code vendor extension', },
@@ -3482,7 +3486,7 @@
Sampo Kellomaki <sampo at symlabs.com>
-Net::SMPP is copyright (c) 2001-2007 by Sampo Kellomaki, All rights reserved.
+Net::SMPP is copyright (c) 2001-2010 by Sampo Kellomaki, All rights reserved.
Portions copyright (c) 2001-2005 by Symlabs, All rights reserved.
You may use and distribute Net::SMPP under same terms as perl itself.
Modified: branches/upstream/libnet-smpp-perl/current/bind-hammer.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-smpp-perl/current/bind-hammer.pl?rev=60112&op=diff
==============================================================================
--- branches/upstream/libnet-smpp-perl/current/bind-hammer.pl (original)
+++ branches/upstream/libnet-smpp-perl/current/bind-hammer.pl Tue Jul 6 20:36:38 2010
@@ -1,4 +1,4 @@
-#!/apps/perl/std/bin/perl
+#!/usr/bin/perl
#
# Copyright (c) 2001 SymLABS <symlabs at symlabs.com>, All Rights Reserved.
# See README for license. NO WARRANTY.
@@ -18,7 +18,7 @@
$trace = 1;
$sysid = "GSMSGW";
$pw = "secret";
-$host = 'cid';
+$host = 'localhost';
$port = 9900;
$facil = 0x00010003;
($vers) = @ARGV;
Modified: branches/upstream/libnet-smpp-perl/current/esme-hammer.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-smpp-perl/current/esme-hammer.pl?rev=60112&op=diff
==============================================================================
--- branches/upstream/libnet-smpp-perl/current/esme-hammer.pl (original)
+++ branches/upstream/libnet-smpp-perl/current/esme-hammer.pl Tue Jul 6 20:36:38 2010
@@ -1,4 +1,4 @@
-#!/apps/perl/std/bin/perl
+#!/usr/bin/perl
#
# Copyright (c) 2001 SymLABS <symlabs at symlabs.com>, All Rights Reserved.
# See README for license. NO WARRANTY.
@@ -18,7 +18,7 @@
$trace = 1;
$sysid = "GSMSGW";
$pw = "secret";
-$host = 'cid';
+$host = 'localhost';
$port = 9900;
$facil = 0x00010003;
($vers, $iter) = @ARGV;
Modified: branches/upstream/libnet-smpp-perl/current/esme-rec.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-smpp-perl/current/esme-rec.pl?rev=60112&op=diff
==============================================================================
--- branches/upstream/libnet-smpp-perl/current/esme-rec.pl (original)
+++ branches/upstream/libnet-smpp-perl/current/esme-rec.pl Tue Jul 6 20:36:38 2010
@@ -1,4 +1,4 @@
-#!/apps/perl/std/bin/perl
+#!/usr/bin/perl
#
# Copyright (c) 2001 SymLABS <symlabs at symlabs.com>, All Rights Reserved.
# See README for license. NO WARRANTY.
@@ -19,7 +19,7 @@
$trace = 1;
$sysid = "GSMSGW";
$pw = "secret";
-$host = 'cid';
+$host = 'localhost';
$port = 9900;
$facil = 0x00010003;
($vers) = @ARGV;
Modified: branches/upstream/libnet-smpp-perl/current/esme.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-smpp-perl/current/esme.pl?rev=60112&op=diff
==============================================================================
--- branches/upstream/libnet-smpp-perl/current/esme.pl (original)
+++ branches/upstream/libnet-smpp-perl/current/esme.pl Tue Jul 6 20:36:38 2010
@@ -1,5 +1,6 @@
-#!/apps/perl/std/bin/perl
+#!/usr/bin/perl
#
+# Copyright (c) 2010 Sampo Kellomaki (sampo at iki.fi), All Rights Reserved.
# Copyright (c) 2001 SymLABS <symlabs at symlabs.com>, All Rights Reserved.
# See README for license. NO WARRANTY.
#
@@ -18,7 +19,7 @@
$trace = 1;
$sysid = "GSMSGW";
$pw = "secret";
-$host = 'cid';
+$host = 'localhost';
$port = 9900;
$facil = 0x00010003;
($vers) = @ARGV;
Modified: branches/upstream/libnet-smpp-perl/current/sendmessage.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-smpp-perl/current/sendmessage.pl?rev=60112&op=diff
==============================================================================
--- branches/upstream/libnet-smpp-perl/current/sendmessage.pl (original)
+++ branches/upstream/libnet-smpp-perl/current/sendmessage.pl Tue Jul 6 20:36:38 2010
@@ -22,7 +22,7 @@
$Net::SMPP::trace = 1;
$sysid = "GSMSGW";
$pw = "secret";
-$host = 'cid';
+$host = 'localhost';
$port = 9900;
$facil = 0x00010003; # NF_PDC | GF_PVCY
my $mymsg = join (" ", @ARGV);
Modified: branches/upstream/libnet-smpp-perl/current/smsc.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-smpp-perl/current/smsc.pl?rev=60112&op=diff
==============================================================================
--- branches/upstream/libnet-smpp-perl/current/smsc.pl (original)
+++ branches/upstream/libnet-smpp-perl/current/smsc.pl Tue Jul 6 20:36:38 2010
@@ -1,5 +1,6 @@
-#!/apps/perl/std/bin/perl
-#
+#!/usr/bin/perl
+#
+# Copyright (c) 2010 Sampo Kellomaki (sampo at iki.fi), All Rights Reserved.
# Copyright (c) 2001 SymLABS <symlabs at symlabs.com>, All Rights Reserved.
# See README for license. NO WARRANTY.
#
@@ -20,7 +21,7 @@
$Net::SMPP::trace = 0;
$sysid = "GSMSGW";
$pw = "secret";
-$host = 'cid';
+$host = 'localhost';
$port = 9900;
$facil = 0x00010003;
($vers) = @ARGV;
More information about the Pkg-perl-cvs-commits
mailing list