1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
#!/usr/bin/perl
#
# Copyright (c) 2001 SymLABS <symlabs@symlabs.com>, All Rights Reserved.
# See README for license. NO WARRANTY.
#
# 15.3.2001, Sampo Kellomaki <sampo@symlabs.com>
# $Id: bind-hammer.pl,v 1.4 2001/09/28 16:27:41 sampo Exp $
#
# ESME - Exterior Short Message Entity
#
# Test Net::SMPP in ESME role
#
# Usage: ./bind-hammer.pl *version*
use Net::SMPP;
use Data::Dumper;
$trace = 1;
$sysid = "GSMSGW";
$pw = "secret";
$host = 'localhost';
$port = 9900;
$facil = 0x00010003;
($vers) = @ARGV;
$vers = $vers == 4 ? 0x40 : 0x34; #4
$if_vers = 0x00;
### Connect and bind
$Net::SMPP::trace = 0;
for my $i (1..10000) {
($smpp, $resp) = Net::SMPP->new_transmitter($host,
smpp_version => $vers,
interface_version => $if_vers,
system_id => $sysid,
password => $pw,
addr_ton => 0x09,
addr_npi => 0x00,
source_addr_ton => 0x09,
source_addr_npi => 0x00,
dest_addr_ton => 0x09,
dest_addr_npi => 0x00,
system_type => '_001',
facilities_mask => $facil,
port => $port,
)
or die "Can't contact server: $!";
###
### Typical session in synchronous mode
###
#warn "Sending submit_sm";
$resp = $smpp->submit_sm(message_class=>0,
protocol_id=>0x20, # telematic_interworking
validity_period=>0, # "default"
source_addr_ton => 0x00,
source_addr => '0777101777',
destination_addr => '077747772777',
msg_reference => '00000097',
priority_level => 3,
registered_delivery_mode => 1,
data_coding => 9,
short_message=>'Hello',
PVCY_AuthenticationStr => "\x01\x00\x00",
PDC_MessageClass => "\x20\x00",
PDC_PresentationOption => "\x01\xff\xff\xff",
PDC_AlertMechanism => "\x01",
PDC_Teleservice => "\x01",
PDC_PredefinedMsg => "\0",
source_subaddress => "\x01\x00\x00", # PDC_Originator_Subaddr
dest_subaddress => "\x01\x00\x00", # PDC_Destination_Subaddr
);
#warn Dumper $resp;
$resp = $smpp->unbind();
}
warn Dumper $resp;
warn "Done.";
#EOF
|
