r45256 - in /trunk/libnet-smpp-perl: Changes MANIFEST META.yml README SMPP.pm debian/changelog debian/compat debian/control debian/copyright debian/libnet-smpp-perl.docs debian/libnet-smpp-perl.examples debian/rules debian/watch smsc.pl
ghostbar at users.alioth.debian.org
ghostbar at users.alioth.debian.org
Fri Oct 2 18:36:31 UTC 2009
Author: ghostbar
Date: Fri Oct 2 18:36:24 2009
New Revision: 45256
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=45256
Log:
New upstream release, added debian/watch,compat,$MODULE.docs,$MODULE.examples and updated to dh7 debian/rules. Updated debian/control Maintainer to Debian Perl Group
Added:
trunk/libnet-smpp-perl/META.yml
- copied unchanged from r45255, branches/upstream/libnet-smpp-perl/current/META.yml
trunk/libnet-smpp-perl/debian/compat
trunk/libnet-smpp-perl/debian/libnet-smpp-perl.docs
trunk/libnet-smpp-perl/debian/libnet-smpp-perl.examples
trunk/libnet-smpp-perl/debian/watch
Modified:
trunk/libnet-smpp-perl/Changes
trunk/libnet-smpp-perl/MANIFEST
trunk/libnet-smpp-perl/README
trunk/libnet-smpp-perl/SMPP.pm
trunk/libnet-smpp-perl/debian/changelog
trunk/libnet-smpp-perl/debian/control
trunk/libnet-smpp-perl/debian/copyright
trunk/libnet-smpp-perl/debian/rules
trunk/libnet-smpp-perl/smsc.pl
Modified: trunk/libnet-smpp-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-smpp-perl/Changes?rev=45256&op=diff
==============================================================================
--- trunk/libnet-smpp-perl/Changes (original)
+++ trunk/libnet-smpp-perl/Changes Fri Oct 2 18:36:24 2009
@@ -27,3 +27,38 @@
Applied some patched by Luis Munoz <lem@@cantv.net> --Sampo
1.03 8.12.2002
Another iteration pf patches from Luis Munoz --Sampo
+1.04 29.4.2005
+ * patch from Kristian Nielsen <kn_@@sifira..dk> --Sampo
+ * SImilar patch was submitted by Maxim.Burenko at kyivstar..net
+1.05 xx.x.2005
+ * never publicly distributed
+ * patch from Igor Ivolov to permit binding to specific interface
+1.10 21.4.2006
+ * sysread patch from Dziugas.Baltrunas at bite..lt. This patch improves
+ select compatibility of Net::SMPP. Similar patch was also
+ proposed by Felix Gaehtgens <felix at symlabs..com>. I conseder
+ both addressed now. --Sampo
+1.11 17.7.2007
+ * enquire_link patch from Matthias Meyser <Meyser at xenet.,de>
+ * Documented message encoding
+
+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>
+
+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>
Modified: trunk/libnet-smpp-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-smpp-perl/MANIFEST?rev=45256&op=diff
==============================================================================
--- trunk/libnet-smpp-perl/MANIFEST (original)
+++ trunk/libnet-smpp-perl/MANIFEST Fri Oct 2 18:36:24 2009
@@ -10,3 +10,4 @@
esme-hammer.pl
sendmessage.pl
esme-rec.pl
+META.yml Module meta-data (added by MakeMaker)
Modified: trunk/libnet-smpp-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-smpp-perl/README?rev=45256&op=diff
==============================================================================
--- trunk/libnet-smpp-perl/README (original)
+++ trunk/libnet-smpp-perl/README Fri Oct 2 18:36:24 2009
@@ -3,18 +3,39 @@
12.3.2001, Sampo Kellomaki <sampo at symlabs.com>
7.7.2001, added SMPP 4.0 support --Sampo
28.9.2001, fleshed out the readme --Sampo
-$Id: README,v 1.6 2001/09/28 20:50:25 sampo Exp $
+29.4.2005, a small update --Sampo
+21.4.2006, upgrade to 1.10 --Sampo
+14.12.2008, added SMPP 5.0 support --Sampo
+$Id: README,v 1.8 2006/04/21 20:14:03 sampo Exp $
-This readme describes version 0.92 of the module,
-implementing SMPP 3.4 and SMPP 4.0.
+This readme describes version 1.10 of the module,
+implementing SMPP 3.4, SMPP 4.0, and SMPP 5.0.
-WARNING: This is still highly experimental code. Some of the V4.0
- features have been tested against real world SMSC. Version 3.4 has
- only been tested against this module itself. Please, if you do not
- know what you are doing, don't ask me to teach how SMPP works. If you
- understand SMPP, please submit bug reports and preferrably
- patches. I am also very interested in success/failure reports on
- testing different features against real world SMSCs.
+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
+ 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.
+
+Version 1.03 was in use for over two years by
+multiple sites, thus I guess some stability and correctness is
+implied. Current version as of 21.4.2006 is 1.10. Given that the
+release cycles have been in multiple years, people have asked if its
+maintained at all. Yes its maintained by me, but only to fix bugs. No
+new development has been done in ages. I guess this is a stable piece
+of software so not many updates are needed. If someone wants to start
+new big project to overhaul this code base and significantly add to
+it, you are welcome.
+
+Please, if you do not know what you are doing, don't ask me to teach
+how SMPP works. If you understand SMPP, please submit bug reports and
+preferrably patches. I am also very interested in success/failure
+reports on testing different features against real world SMSCs.
+
+Introduction
+------------
Net::SMPP is an implementation of Short Message Peer to Peer protocol
over TCP. This protocol is frequently used in the telecoms and mobile
@@ -25,26 +46,21 @@
www.smpp.org
This module aims at fully implementing version 3.4 of the
-protocol. During the 0.xx version series the implementation will still
-be incomplete or may contain parts that are implemented but never
-tested. Read comments in the source to see if testing has been
-done. If you test a previusly untested PDU (protocol data unit),
-please report success, failure, or difficulties to the author.
+protocol. This module also implements 4.0 and aims to support it fully
+as well. The 4.0 code is based on documentation freely obtained from
+Logica (i.e. not under NDA). (It seems 4.0 is only in use in Japan -
+the rest of the world seems to use 3.4.)
-This module also implements 4.0 and aims to support it fully as
-well. The 4.0 code is based on documentation freely obtained
-from Logica (i.e. not under NDA).
-
-SymLABS (www.symlabs.com) uses this module in real life product
+Symlabs (www.symlabs.com) uses this module in real life product
development. Despite our commercial objectives, we have decided
to make this module available to public in the belief that
- - someone else will benefit from it and thus will
- help us debug and improve it
- - we promote better sharing of information about
- specifications and commonly encountered usage
- patterns (which may not always be 100% in spec)
- - open distribution protects our client's interests
+- someone else will benefit from it and thus will
+ help us debug and improve it
+- we promote better sharing of information about
+ specifications and commonly encountered usage
+ patterns (which may not always be 100% in spec)
+- open distribution protects our client's interests
We are committed to keep this module under license substantially
similar to the one under which the present release is offered and hope
@@ -153,7 +169,7 @@
-------
Net::SMPP is copyright (c) 2001 by Sampo Kellomaki (sampo at symlabs.com),
-All rights reserved. Portions copyright (c) 2001 by SymLABS
+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: trunk/libnet-smpp-perl/SMPP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-smpp-perl/SMPP.pm?rev=45256&op=diff
==============================================================================
--- trunk/libnet-smpp-perl/SMPP.pm (original)
+++ trunk/libnet-smpp-perl/SMPP.pm Fri Oct 2 18:36:24 2009
@@ -1,6 +1,6 @@
# Net::SMPP.pm - SMPP over TCP, pure perl implementation
-# Copyright (c) 2001 Sampo Kellomaki <sampo at iki.fi>, All rights reserved.
-# Portions Copyright (c) 2001 Symlabs, All rights reserved.
+# Copyright (c) 2001-2007 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)
# 12.3.2001, Sampo Kellomaki <sampo at symlabs.com>
@@ -23,8 +23,17 @@
# 3.4.2002, command length check from Cris, rolled out 1.01 --Sampo
# 7.12.2002, applied some patched by Luis Munoz <lem@@cantv.net> --Sampo
# 8.12.2002, more patched from Luis, --Sampo
+# 23.9.2004, applied bind ip patch from Igor Ivoilov <igor at _francoudi.com> --Sampo
+# 29.4.2005, applied patch from Kristian Nielsen <kn_@@sifira..dk> --Sampo
+# 21.4.2006, applied sysread patch from Dziugas.Baltrunas at bite..lt. Similar
+# patch was also proposed by Felix Gaehtgens <felix at symlabs..com> --Sampo
+# 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
#
-# $Id: SMPP.pm,v 1.25 2002/12/08 19:04:36 sampo Exp $
+# Why ${*$me}{async} vs. $me->async ?
+#
+# $Id: SMPP.pm,v 1.31 2008-12-02 16:41:30 sampo Exp $
### The comments often refer to sections of the following document
### Short Message Peer to Peer Protocol Specification v3.4,
@@ -46,7 +55,7 @@
use vars qw(@ISA $VERSION %default %param_by_name $trace);
@ISA = qw(IO::Socket::INET);
-$VERSION = '1.03';
+$VERSION = '1.12';
$trace = 0;
use constant Transmitter => 1; # SMPP transmitter mode of operation
@@ -349,14 +358,17 @@
### handled during wait_pdu() (as opposed to being discarded).
### they are called as
### $smpp->handler($pdu);
+### N.B. because the command number is constant, a comma must be used as separator
+### to prevent interpretation as string. (Thanks Matthias Meyser for pointing this out.)
handlers => {
- CMD_enquire_link => \&handle_enquire_link,
- CMD_enquire_link_v4 => \&handle_enquire_link, #4
+ CMD_enquire_link, \&handle_enquire_link,
+ CMD_enquire_link_v4, \&handle_enquire_link, #4
},
};
### Optional parameter tags, see sec 5.3.2, Table 5-7, pp.132-133
+### See also Sec 4.8.1 "TLV Tag", Table 4-60 "TLV Tag Definitions", pp. 135-137
use constant param_tab => {
0x0005 => { name => 'dest_addr_subunit', technology => 'GSM', },
@@ -407,7 +419,30 @@
0x0425 => { name => 'delivery_failure_reason', technology => 'Generic', },
0x0426 => { name => 'more_messages_to_send', technology => 'GSM', },
0x0427 => { name => 'message_state', technology => 'Generic', },
+ 0x0428 => { name => 'congestion_state', technology => 'Generic', },
+
0x0501 => { name => 'ussd_service_op', technology => 'GSM (USSD)', },
+
+ 0x0600 => { name => 'broadcast_channel_indicator', technology => 'GSM', },
+ 0x0601 => { name => 'broadcast_content_type', technology => 'CDMA, TDMA, GSM', },
+ 0x0602 => { name => 'broadcast_content_type_info', technology => 'CDMA, TDMA', },
+ 0x0603 => { name => 'broadcast_message_class', technology => 'GSM', },
+ 0x0604 => { name => 'broadcast_rep_num', technology => 'GSM', },
+ 0x0605 => { name => 'broadcast_frequency_interval', technology => 'CDMA, TDMA, GSM', },
+ 0x0606 => { name => 'broadcast_area_identifier', technology => 'CDMA, TDMA, GSM', },
+ 0x0607 => { name => 'broadcast_error_status', technology => 'CDMA, TDMA, GSM', },
+ 0x0608 => { name => 'broadcast_area_success', technology => 'GSM', },
+ 0x0609 => { name => 'broadcast_end_time', technology => 'CDMA, TDMA, GSM', },
+ 0x060a => { name => 'broadcast_service_group', technology => 'CDMA, TDMA', },
+ 0x060b => { name => 'billing_identification', technology => 'Generic', },
+ 0x060d => { name => 'source_network_id', technology => 'Generic', },
+ 0x060e => { name => 'dest_network_id', technology => 'Generic', },
+ 0x060f => { name => 'source_node_id', technology => 'Generic', },
+ 0x0610 => { name => 'dest_node_id', technology => 'Generic', },
+ 0x0611 => { name => 'dest_addr_np_resolution', technology => 'CDMA, TDMA (US Only)', },
+ 0x0612 => { name => 'dest_addr_np_information', technology => 'CDMA, TDMA (US Only)', },
+ 0x0613 => { name => 'dest_addr_np_country', technology => 'CDMA, TDMA (US Only)', },
+
0x1201 => { name => 'display_time', technology => 'CDMA,TDMA', }, # IS136_DisplayTime
0x1203 => { name => 'sms_signal', technology => 'TDMA', },
0x1204 => { name => 'ms_validity', technology => 'CDMA,TDMA', },
@@ -418,6 +453,14 @@
0x130c => { name => 'alert_on_message_delivery', technology => 'CDMA', },
0x1380 => { name => 'its_reply_type', technology => 'CDMA', },
0x1383 => { name => 'its_session_info', technology => 'CDMA Korean [KORITS]', },
+
+ # from http://docs.roottori.fi/display/MSGAPI/SMPP+commands
+ # On the other hand, http://sms-clearing.com/downloads/gateway/7_SMPP.pdf
+ # 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', },
+ 0x1450 => { name => 'mcc', technology => 'Mobile Country Code vendor extension', },
+ 0x1451 => { name => 'mnc', technology => 'Mobile Network Code vendor extension', },
0x1101 => { name => 'PDC_MessageClass', technology => '? (J-Phone)', }, # V4ext p.75 #4
# "\x20\x00" 0x2000 Sky Mail (service name of J-Phone SMS) #4
@@ -540,8 +583,7 @@
warn "req Header:\n".hexdump($header,"\t") if $trace;
warn "req Body:\n".hexdump($data,"\t") if $trace;
- $me->print($header.$data);
- $me->flush;
+ $me->syswrite($header.$data);
return $seq if $async;
# Synchronous operation: wait for response
@@ -578,8 +620,7 @@
warn "resp Header:\n".hexdump($header, "\t") if $trace;
warn "resp Body:\n".hexdump($data, "\t") if $trace;
- $me->print($header.$data);
- $me->flush;
+ $me->syswrite($header.$data);
return $seq;
}
@@ -1435,7 +1476,6 @@
for (my $i=1; $i <= $#_; $i+=2) {
next if !defined $_[$i];
- #warn "$i:>>>$_[$i]<<<";
if ($_[$i] eq 'message_id') { $message_id = splice @_,$i,2,undef,undef; }
elsif ($_[$i] eq 'dest_addr_ton') {
@dest_addr_ton = ref($_[$i+1]) ? @{scalar(splice @_,$i,2,undef,undef)}
@@ -1477,7 +1517,6 @@
for (my $i=1; $i <= $#_; $i+=2) {
next if !defined $_[$i];
- #warn "$i:>>>$_[$i]<<<";
if ($_[$i] eq 'message_id') { $message_id = splice @_,$i,2,undef,undef; }
elsif ($_[$i] eq 'sc_msg_reference') { $message_id = splice @_,$i,2,undef,undef; }
elsif ($_[$i] eq 'dest_addr_ton') {
@@ -2161,7 +2200,8 @@
PeerAddr => $host,
PeerPort => exists $arg{port} ? $arg{port} : Default->{port},
Proto => 'tcp',
- Timeout => exists $arg{timeout} ? $arg{timeout} : Default->{timeout})
+ Timeout => exists $arg{timeout} ? $arg{timeout} : Default->{timeout},
+ @_) # pass any extra args to constructor
or return undef;
for my $a (keys %{&Default}) {
@@ -2297,7 +2337,9 @@
sub status {
my $me = shift;
- return ${*$me}{status};
+ return $me->{status};
+ #return ${$me}{status};
+ #return ${*$me}{status};
}
sub seq {
@@ -2335,17 +2377,17 @@
while (length($$dr) < $len+$offset) {
my $n = length($$dr) - $offset;
#warn "read $n/$len";
- $n = $me->read($$dr, $len-$n, $n+$offset);
+ $n = $me->sysread($$dr, $len-$n, $n+$offset);
if (!defined($n)) {
warn "error reading header from socket: $!";
- $me->{smpperror} = "read_hard I/O error: $!";
- $me->{smpperrorcode} = 1;
+ ${*$me}{smpperror} = "read_hard I/O error: $!";
+ ${*$me}{smpperrorcode} = 1;
return undef;
}
if (!$n) {
warn "premature eof reading from socket";
- $me->{smpperror} = "read_hard premature eof";
- $me->{smpperrorcode} = 2;
+ ${*$me}{smpperror} = "read_hard premature eof";
+ ${*$me}{smpperrorcode} = 2;
return undef;
}
}
@@ -2369,16 +2411,16 @@
$pdu->{reserved}) = unpack ${*$me}{head_templ}, $header;
if ($len < $head_len) {
warn "Too short length $len < ${*$me}{head_len}, cmd=$pdu->{cmd}, status=$pdu->{status}, seq=$pdu->{seq}";
- $me->{smpperror} = "read_pdu: Too short length $len < ${*$me}{head_len}, cmd=$pdu->{cmd}, status=$pdu->{status}, seq=$pdu->{seq}";
- $me->{smpperrorcode} = 3;
+ ${*$me}{smpperror} = "read_pdu: Too short length $len < ${*$me}{head_len}, cmd=$pdu->{cmd}, status=$pdu->{status}, seq=$pdu->{seq}";
+ ${*$me}{smpperrorcode} = 3;
return undef;
}
warn "read Header:\n".hexdump($header, "\t") if $trace;
$len -= $head_len;
$me->read_hard($len, \$pdu->{data}, 0) or do {
- $me->{smpperror} = "read_pdu: invalid length cmd=$pdu->{cmd},status=$pdu->{status}, seq=$pdu->{seq}";
- $me->{smpperrorcode} = 3;
+ ${*$me}{smpperror} = "read_pdu: invalid length cmd=$pdu->{cmd},status=$pdu->{status}, seq=$pdu->{seq}";
+ ${*$me}{smpperrorcode} = 3;
return undef;
};
warn "read Body:\n".hexdump($pdu->{data}, "\t") if $trace;
@@ -2463,6 +2505,8 @@
# return pack 'b*', $s;
}
+# "Gema niskazhu" <gemochka at gmail.com>
+
1;
__END__
@@ -2536,8 +2580,8 @@
In synchronous mode request PDU methods return a Net::SMPP::PDU object
representing the response, if all went well protocolwise, or undef if
there was a protocol level error. If undef was returned, the reason
-for the failure can be extracted from $smpp->{smpperror} and
-$smpp->{smpperrorcode} (actual codes are undocumented at the moment,
+for the failure can be extracted from ${*$smpp}{smpperror} and
+${*$smpp}{smpperrorcode} (actual codes are undocumented at the moment,
but are guaranteed not to change) variables and the global variable
$!. These variables are meaningless if anything else than undef was
returned. The response itself may be an error response if there was an
@@ -3153,6 +3197,51 @@
=back
+=head1 MESSAGE ENCODING AND LENGTH
+
+=over 4
+
+Many SMS technologies have inherent message length limits. For example
+GSM specifies length to be 140 bytes. Using 7 bit encoding, this holds
+the 160 characters that people are familiar with. Net::SMPP does not
+enforce this limit in any way, i.e. if you create too long message,
+then it is your problem. You should at application layer make sure
+you stay within limits.
+
+Net::SMPP also does not automatically perform the encoding, not even
+if you set data_encoding parameter. Application layer is responsible
+for performing the encoding and setting the data_encoding parameter
+accordingly.
+
+To assist in performing the usual 7 bit encoding, following functions
+are provided (but you have to call them explicitly):
+
+=over
+
+=item pack_7bit()
+
+=item unpack_7bit()
+
+Example
+
+ $resp_pdu = $smpp->submit_sm(destination_addr => '+447799658372',
+ data_encoding => 0x00,
+ short_message => pack_7bit('test message'))
+ or die;
+
+=back
+
+The rationale for leaving encoding and length issues at application
+layer is two fold: 1. often the data is just copied through to another
+message or protocol, thus we do not really care how it is encoded or
+how long it is. Presumably it was valid at origin. 2. This policy
+avoids underlying technology dependencies in the module. Often local
+deployments have all the manner of hacks that make this area very
+difficult to chart. So I leave it to local application developer to
+find out what is locally needed.
+
+=back
+
=head1 OTHER METHODS
=over 4
@@ -3323,9 +3412,9 @@
and you should not bind as transciever as that is not supported by the
specification.
-As v3.4 specifications seem more mature, I recommend that where attributes
+As v3.4 specification seems more mature, I recommend that where attributes
have been renamed between v4 and v3.4 you stick to using v3.4 names. I
-have tried to provide compatibility code where ever possible.
+have tried to provide compatibility code whenever possible.
#4#end
@@ -3333,9 +3422,9 @@
Unless you wrote your program to be multithreaded or
multiprocess, everything will happen in one thread of execution.
-Thus if you get unbind while doing somehting else (e.g. checking
-your directory), it stays in operating system level buffers until
-you actually call read_pdu(). Thus knowing it or not is of little
+Thus if you get unbind while doing something else (e.g. checking
+your spool directory), it stays in operating system level buffers until
+you actually call read_pdu(). Knowing about unbind or not is of little
use. You can write your program to assume the network traffic arrives
only exactly when you call read_pdu().
@@ -3355,7 +3444,7 @@
for sending and one for receiving) so that you
can afford to block
-The above two tricks are not specific to my module. Consult any standard
+The above two tricks are not specific to this module. Consult any standard
text book on TCP/IP network programming.
=head1 ERRORS
@@ -3387,8 +3476,8 @@
Sampo Kellomaki <sampo at symlabs.com>
-Net::SMPP is copyright (c) 2001 by Sampo Kellomaki, All rights reserved.
-Portions copyright (c) 2001 by Symlabs, All rights reserved.
+Net::SMPP is copyright (c) 2001-2007 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.
NET::SMPP COMES WITH ABSOLUTELY NO WARRANTY.
@@ -3404,8 +3493,6 @@
=item test.pl from this package
-=item www.smpp.org
-
=item Short Message Peer to Peer Protocol Specification v3.4, 12-Oct-1999, Issue 1.2
=item www.etsi.fr
@@ -3422,6 +3509,18 @@
=item http://opensmpp.logica.com
+=item www.smpp.org (it appears as of July 2007 domain squatters have taken over the site and it is no longer useful)
+
+=item http://www.smsforum.net/ -- New place for info (as of 20081214). However, this page announces the death of itself as of July 27, 2007. Great. The SMS folks really do not want anyone to implement their protocols from specifications.
+
+=item "Short Message Peer to Peer Protocol Specification v5.0 19-February-2003", http://www.csoft.co.uk/documents/smppv50.pdf (good as of 20081214)
+
+=item http://freshmeat.net/projects/netsmpp/ (announcements about Net::SMPP)
+
+=item http://mercnet.pt/Net_SMPP/net-smpp.html (home page)
+
+=item http://cpan.org/modules/by-module/Net/Net-SMPP-1.11.tar.gz (download from CPAN)
+
=item perl(1)
=back
Modified: trunk/libnet-smpp-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-smpp-perl/debian/changelog?rev=45256&op=diff
==============================================================================
--- trunk/libnet-smpp-perl/debian/changelog (original)
+++ trunk/libnet-smpp-perl/debian/changelog Fri Oct 2 18:36:24 2009
@@ -1,3 +1,9 @@
+libnet-smpp-perl (1.12-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Jose Luis Rivas <ghostbar at debian.org> Fri, 02 Oct 2009 14:03:10 -0430
+
libnet-smpp-perl (1.03-1) unstable; urgency=low
* Initial debianization. Closes: #277721
Added: trunk/libnet-smpp-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-smpp-perl/debian/compat?rev=45256&op=file
==============================================================================
--- trunk/libnet-smpp-perl/debian/compat (added)
+++ trunk/libnet-smpp-perl/debian/compat Fri Oct 2 18:36:24 2009
@@ -1,0 +1,1 @@
+7
Modified: trunk/libnet-smpp-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-smpp-perl/debian/control?rev=45256&op=diff
==============================================================================
--- trunk/libnet-smpp-perl/debian/control (original)
+++ trunk/libnet-smpp-perl/debian/control Fri Oct 2 18:36:24 2009
@@ -1,15 +1,15 @@
Source: libnet-smpp-perl
-Maintainer: Andres Seco Hernandez <AndresSH at debian.org>
+Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Priority: optional
Section: perl
-Build-Depends-Indep: debhelper (>= 4), perl (>= 5.6.0-16)
+Build-Depends: debhelper (>= 7), perl (>= 5.6.0-16)
Standards-Version: 3.6.1
Package: libnet-smpp-perl
Architecture: all
Priority: optional
Section: perl
-Depends: ${perl:Depends}
+Depends: ${misc:Depends}, ${perl:Depends}
Description: Net::SMPP is an implementation of Short Message Peer to Peer protocol over TCP
SMPP is frequently used in the telecoms and mobile operator world to
pass short messages between systems that implement the short message
Modified: trunk/libnet-smpp-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-smpp-perl/debian/copyright?rev=45256&op=diff
==============================================================================
--- trunk/libnet-smpp-perl/debian/copyright (original)
+++ trunk/libnet-smpp-perl/debian/copyright Fri Oct 2 18:36:24 2009
@@ -1,21 +1,35 @@
-This is Debian GNU/Linux's prepackaged Net::SMPP. This package was
-put together by Andres Seco Hernandez <AndresSH at debian.org>. The
-original sources should always be available from the Comprehensive
-Perl Archive Network (CPAN). Visit <URL:http://www.perl.com/CPAN/> to
-find a CPAN site near you.
+Format-Specification:
+ http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
+Upstream-Maintainer: Sampo Kellomaki <sampo at symlabs.com>
+Upstream-Source: http://search.cpan.org/dist/Net-SMPP/
+Upstream-Name: Net-SMPP
+Disclaimer: This copyright info was automatically extracted
+ from the perl module. It may not be accurate, so you better
+ check the module sources in order to ensure the module for its
+ inclusion in Debian or for general legal information. Please,
+ if licensing information is incorrectly generated, file a bug
+ on dh-make-perl.
-The only change for the Debian package was the addition of the debian/
-files.
+Files: *
+Copyright: Sampo Kellomaki <sampo at symlabs.com>
+License-Alias: perl
+License: Artistic | GPL-1+
- Net::SMPP, version 1.03
+Files: debian/*
+Copyright: 2004, Andres Seco Hernandez <AndresSH at debian.org>
+ 2009, Jose Luis Rivas <ghostbar at debian.org>
+License: Artistic | GPL-1+
-Net::SMPP is copyright (c) 2001 by Sampo Kellomaki (sampo at symlabs.com),
-All rights reserved. Portions copyright (c) 2001 by SymLABS
-(symlabs at symlabs.com), All rights reserved. You may use anddistribute
-Net::SMPP under same terms as perl itself (GPL or Artistic license).
-NET::SMPP COMES WITH ABSOLUTELY NO WARRANTY.
+License: Artistic
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the Artistic License, which comes with Perl.
+ On Debian GNU/Linux systems, the complete text of the Artistic License
+ can be found in `/usr/share/common-licenses/Artistic'
-On Debian systems the complete text of the GPL and Artistic
-licenses can be found at:
- /usr/share/common-licenses/GPL and
- /usr/share/common-licenses/Artistic
+License: GPL-1+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 1, or (at your option)
+ any later version.
+ On Debian GNU/Linux systems, the complete text of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL'
Added: trunk/libnet-smpp-perl/debian/libnet-smpp-perl.docs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-smpp-perl/debian/libnet-smpp-perl.docs?rev=45256&op=file
==============================================================================
--- trunk/libnet-smpp-perl/debian/libnet-smpp-perl.docs (added)
+++ trunk/libnet-smpp-perl/debian/libnet-smpp-perl.docs Fri Oct 2 18:36:24 2009
@@ -1,0 +1,1 @@
+README
Added: trunk/libnet-smpp-perl/debian/libnet-smpp-perl.examples
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-smpp-perl/debian/libnet-smpp-perl.examples?rev=45256&op=file
==============================================================================
--- trunk/libnet-smpp-perl/debian/libnet-smpp-perl.examples (added)
+++ trunk/libnet-smpp-perl/debian/libnet-smpp-perl.examples Fri Oct 2 18:36:24 2009
@@ -1,0 +1,1 @@
+debian/examples/*
Modified: trunk/libnet-smpp-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-smpp-perl/debian/rules?rev=45256&op=diff
==============================================================================
--- trunk/libnet-smpp-perl/debian/rules (original)
+++ trunk/libnet-smpp-perl/debian/rules Fri Oct 2 18:36:24 2009
@@ -1,58 +1,4 @@
#!/usr/bin/make -f
-# -*- Makefile -*-
-# Use debhelper V. 4
-export DH_COMPAT := 4
-
-# Make sure perl is defined (allow overriding from the command line
-PERL ?= /usr/bin/perl
-
-# Set our build directory
-b := $(shell pwd)/debian/libnet-smpp-perl
-
-binary: binary-stamp
-binary-stamp: binary-indep-stamp binary-arch-stamp
-
-binary-arch: binary-arch-stamp
-binary-arch-stamp: build install
-
-binary-indep: binary-indep-stamp
-binary-indep-stamp: build install
- dh_testdir
- dh_testroot
- dh_installdocs README
- dh_installchangelogs Changes
- dh_installexamples
- rm $(b)/usr/share/perl5/Net/*.pl
- dh_compress
- dh_fixperms
- dh_installdeb
- dh_perl
- dh_gencontrol
- dh_md5sums
- dh_builddeb
-
-build: build-stamp
-build-stamp: config-stamp
- dh_testdir
- $(MAKE)
- touch build-stamp
-
-clean:
- dh_testdir
- dh_testroot
- if [ -e Makefile ]; then $(MAKE) -i distclean; fi
- dh_clean binary-stamp binary-arch-stamp binary-indep-stamp build-stamp config-stamp install-stamp
-
-config: config-stamp
-config-stamp:
- dh_testdir
- $(PERL) Makefile.PL INSTALLDIRS=vendor
- touch config-stamp
-
-install: install-stamp
-install-stamp: build-stamp
- dh_testdir
- $(MAKE) pure_install PREFIX=$(b)/usr
-
-.PHONY: binary binary-arch binary-indep clean config install
+%:
+ dh $@
Added: trunk/libnet-smpp-perl/debian/watch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-smpp-perl/debian/watch?rev=45256&op=file
==============================================================================
--- trunk/libnet-smpp-perl/debian/watch (added)
+++ trunk/libnet-smpp-perl/debian/watch Fri Oct 2 18:36:24 2009
@@ -1,0 +1,3 @@
+version=3
+http://search.cpan.org/dist/Net-SMPP/ \
+ .*/Net-SMPP-(\d.+).tar.gz
Modified: trunk/libnet-smpp-perl/smsc.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-smpp-perl/smsc.pl?rev=45256&op=diff
==============================================================================
--- trunk/libnet-smpp-perl/smsc.pl (original)
+++ trunk/libnet-smpp-perl/smsc.pl Fri Oct 2 18:36:24 2009
@@ -4,7 +4,7 @@
# See README for license. NO WARRANTY.
#
# 10.7.2001, Sampo Kellomaki <sampo at iki.fi>
-# $Id: smsc.pl,v 1.10 2002/02/11 16:41:38 sampo Exp $
+# $Id: smsc.pl,v 1.11 2007-07-20 16:39:19 sampo Exp $
#
# SMSC - Short Message Service Center
#
More information about the Pkg-perl-cvs-commits
mailing list