1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
#!/usr/bin/perl -w
use Net::SMPP;
$host='@IP';
$port=num_port;
$smpp = Net::SMPP->new_connect($host, port =>$port,
system_id => 'Id', # usually needed (default '')
password => 'pswd', # usually needed (default '')
system_type => '', # default ok, often not needed
interface_version => 0x34, # default ok, almost never needed
addr_ton => 0x00, # default ok, type of number unknwn
addr_npi => 0x00, # default ok, number plan indicator
address_range => '', # default ok, regex matching nmbrs
) or die;
$smpp->submit_sm(destination_addr => '+phone_Number',
short_message => 'test message') or die; |
Partager