Using Perl Module NET::SMPP | Search |
NowSMS Support Forums ⬆ MMS & SMS Technical Discussions (unsupported) ⬆ Archive through August 08, 2004 ⬆ |
◄ ► |
Author | Message | |||
Viaris Varis New member Username: Viari Post Number: 2 Registered: 06-2004 |
Hi All Hi All I am using Perl module Net:SMPP, I want to send message to phone mobil, in the SMSC (Logica) I have a Large Account, this large account have, system_id, system_type, passwd etc, all parameteres was setting, however when I used my programa to send message, the message no is delivered. How can I to test if the new large account of SMSC is working fine? My program is: #!/usr/bin/perl use Net::SMPP; use Data::Dumper; $trace = 1; $Net::SMPP::trace = 1; $sysid = "WEB2SMS"; $pw = "xxxyyz!"; $host = '10.21.2.7'; $port = 8683; $facil = 0x00010003; # NF_PDC | GF_PVCY my $msgtxt = "is a test from perl"; my $number ="055203688"; $vers = 0x34; ### Connect and bind ($smpp, $resp) = Net::SMPP->new_transmitter($host, smpp_version => $vers, #interface_version => $if_vers, system_id => $sysid, password => $pw, addr_ton => 0x10, addr_npi => 0x00, source_addr_ton => 0x10, source_addr_npi => 0x00, dest_addr_ton => 0x10, dest_addr_npi => 0x00, system_type => '_001', facilities_mask => $facil, port => $port, ) or die "Can't contact server: $!"; $resp = $smpp->submit_sm(protocol_id=>0x20, validity_period=>0, # "default" source_addr_ton => 0x10, source_addr => 'NOC', destination_addr => $number data_coding => 0x00, short_message=>$msgtext ); $resp = $smpp->unbind(); warn Dumper $resp; |