| line |
true |
false |
branch |
|
539
|
112 |
0 |
if (defined {1056 => {name => 'dpf_result', technology => 'Generic'}, 1057 => {name => 'set_dpf', technology => 'Generic'}, 1058 => {name => 'ms_availability_status', technology => 'Generic'}, 1059 => {name => 'network_error_code', technology => 'Generic'}, 1060 => {name => 'message_payload', technology => 'Generic'}, 1061 => {name => 'delivery_failure_reason', technology => 'Generic'}, 1062 => {name => 'more_messages_to_send', technology => 'GSM'}, 1063 => {name => 'message_state', technology => 'Generic'}, 1064 => {name => 'congestion_state', technology => 'Generic'}, 1281 => {name => 'ussd_service_op', technology => 'GSM (USSD)'}, 13 => {name => 'source_addr_subunit', technology => 'GSM'}, 14 => {name => 'source_network_type', technology => 'Generic'}, 15 => {name => 'source_bearer_type', technology => 'Generic'}, 1536 => {name => 'broadcast_channel_indicator', technology => 'GSM'}, 1537 => {name => 'broadcast_content_type', technology => 'CDMA, TDMA, GSM'}, 1538 => {name => 'broadcast_content_type_info', technology => 'CDMA, TDMA'}, 1539 => {name => 'broadcast_message_class', technology => 'GSM'}, 1540 => {name => 'broadcast_rep_num', technology => 'GSM'}, 1541 => {name => 'broadcast_frequency_interval', technology => 'CDMA, TDMA, GSM'}, 1542 => {name => 'broadcast_area_identifier', technology => 'CDMA, TDMA, GSM'}, 1543 => {name => 'broadcast_error_status', technology => 'CDMA, TDMA, GSM'}, 1544 => {name => 'broadcast_area_success', technology => 'GSM'}, 1545 => {name => 'broadcast_end_time', technology => 'CDMA, TDMA, GSM'}, 1546 => {name => 'broadcast_service_group', technology => 'CDMA, TDMA'}, 1547 => {name => 'billing_identification', technology => 'Generic'}, 1549 => {name => 'source_network_id', technology => 'Generic'}, 1550 => {name => 'dest_network_id', technology => 'Generic'}, 1551 => {name => 'source_node_id', technology => 'Generic'}, 1552 => {name => 'dest_node_id', technology => 'Generic'}, 1553 => {name => 'dest_addr_np_resolution', technology => 'CDMA, TDMA (US Only)'}, 1554 => {name => 'dest_addr_np_information', technology => 'CDMA, TDMA (US Only)'}, 1555 => {name => 'dest_addr_np_country', technology => 'CDMA, TDMA (US Only)'}, 16 => {name => 'source_telematics_id', technology => 'GSM'}, 23 => {name => 'qos_time_to_live', technology => 'Generic'}, 25 => {name => 'payload_type', technology => 'Generic'}, 257 => {name => 'PVCY_AuthenticationStr', technology => '? (J-Phone)'}, 29 => {name => 'additional_status_info_text', technology => 'Generic'}, 30 => {name => 'receipted_message_id', technology => 'Generic'}, 4353 => {name => 'PDC_MessageClass', technology => '? (J-Phone)'}, 4354 => {name => 'PDC_PresentationOption', technology => '? (J-Phone)'}, 4355 => {name => 'PDC_AlertMechanism', technology => '? (J-Phone)'}, 4356 => {name => 'PDC_Teleservice', technology => '? (J-Phone)'}, 4357 => {format => 'nCC', name => 'PDC_MultiPartMessage', technology => '? (J-Phone)'}, 4358 => {name => 'PDC_PredefinedMsg', technology => '? (J-Phone)'}, 4609 => {name => 'display_time', technology => 'CDMA,TDMA'}, 4611 => {name => 'sms_signal', technology => 'TDMA'}, 4612 => {name => 'ms_validity', technology => 'CDMA,TDMA'}, 48 => {name => 'ms_msg_wait_facilities', technology => 'GSM'}, 4868 => {name => 'IS95A_AlertOnDelivery', technology => 'CDMA'}, 4870 => {name => 'IS95A_LanguageIndicator', technology => 'CDMA'}, 4876 => {name => 'alert_on_message_delivery', technology => 'CDMA'}, 4992 => {name => 'its_reply_type', technology => 'CDMA'}, 4995 => {name => 'its_session_info', technology => 'CDMA Korean [KORITS]'}, 5 => {name => 'dest_addr_subunit', technology => 'GSM'}, 5122 => {name => 'operator_id', technology => 'vendor extension'}, 5123 => {name => 'tariff', technology => 'Mobile Network Code vendor extension'}, 513 => {name => 'privacy_indicator', technology => 'CDMA,TDMA'}, 514 => {name => 'source_subaddress', technology => 'CDMA,TDMA'}, 515 => {name => 'dest_subaddress', technology => 'CDMA,TDMA'}, 516 => {name => 'user_message_reference', technology => 'Generic'}, 517 => {name => 'user_response_code', technology => 'CDMA,TDMA'}, 5200 => {name => 'mcc', technology => 'Mobile Country Code vendor extension'}, 5201 => {name => 'mnc', technology => 'Mobile Network Code vendor extension'}, 522 => {name => 'source_port', technology => 'WAP'}, 523 => {name => 'destination_port', technology => 'WAP'}, 524 => {name => 'sar_msg_ref_num', technology => 'Generic'}, 525 => {name => 'language_indicator', technology => 'CDMA,TDMA'}, 526 => {name => 'sar_total_segments', technology => 'Generic'}, 527 => {name => 'sar_segment_seqnum', technology => 'Generic'}, 528 => {name => 'sc_interface_version', technology => 'Generic'}, 6 => {name => 'dest_network_type', technology => 'Generic'}, 7 => {name => 'dest_bearer_type', technology => 'Generic'}, 769 => {name => 'CC_CBN', technology => 'V4'}, 770 => {name => 'callback_num_pres_ind', technology => 'TDMA'}, 771 => {name => 'callback_num_atag', technology => 'TDMA'}, 772 => {name => 'number_of_messages', technology => 'CDMA'}, 8 => {name => 'dest_telematics_id', technology => 'GSM'}, 897 => {name => 'callback_num', technology => 'CDMA,TDMA,GSM,iDEN'}}->{$tag}) { } |
|
553
|
352 |
112 |
unless defined $opt_param |
|
554
|
112 |
0 |
if ($Net::SMPP::param_by_name{$opt_param}) { } |
|
|
0 |
0 |
elsif ($opt_param =~ /^\d+$/) { } |
|
557
|
0 |
0 |
if ($val > -128 and $val < 127) { } |
|
|
0 |
0 |
elsif ($val > -32768 and $val < 32767) { } |
|
583
|
256 |
107 |
unless defined $_[$i] |
|
584
|
0 |
107 |
if ($_[$i] eq 'async') { } |
|
|
0 |
107 |
elsif ($_[$i] eq 'seq') { } |
|
587
|
41 |
0 |
unless defined $async |
|
588
|
41 |
0 |
unless (defined $seq) |
|
597
|
0 |
41 |
if $Net::SMPP::trace |
|
598
|
0 |
41 |
if $Net::SMPP::trace |
|
600
|
41 |
0 |
if $async |
|
604
|
0 |
0 |
if $Net::SMPP::trace |
|
620
|
49 |
52 |
unless defined $_[$i] |
|
621
|
0 |
52 |
if ($_[$i] eq 'async') { } |
|
|
45 |
7 |
elsif ($_[$i] eq 'seq') { } |
|
|
2 |
5 |
elsif ($_[$i] eq 'status') { } |
|
625
|
0 |
45 |
unless defined $seq |
|
626
|
43 |
2 |
unless defined $status |
|
634
|
0 |
45 |
if $Net::SMPP::trace |
|
635
|
0 |
45 |
if $Net::SMPP::trace |
|
680
|
1 |
1 |
${*$me;}{'smpp_version'} == 64 ? : |
|
686
|
1 |
1 |
${*$me;}{'smpp_version'} == 64 ? : |
|
714
|
2 |
2 |
if (${*$me;}{'smpp_version'} == 64) |
|
729
|
0 |
16 |
unless defined $_[$i] |
|
730
|
2 |
14 |
if ($_[$i] eq 'system_id') { } |
|
|
2 |
12 |
elsif ($_[$i] eq 'password') { } |
|
|
2 |
10 |
elsif ($_[$i] eq 'system_type') { } |
|
|
1 |
9 |
elsif ($_[$i] eq 'interface_version') { } |
|
|
2 |
7 |
elsif ($_[$i] eq 'interface_type') { } |
|
|
2 |
5 |
elsif ($_[$i] eq 'addr_ton') { } |
|
|
2 |
3 |
elsif ($_[$i] eq 'addr_npi') { } |
|
|
2 |
1 |
elsif ($_[$i] eq 'address_range') { } |
|
|
1 |
0 |
elsif ($_[$i] eq 'facilities_mask') { } |
|
743
|
2 |
2 |
unless defined $system_id |
|
744
|
2 |
2 |
unless defined $password |
|
745
|
2 |
2 |
unless defined $system_type |
|
746
|
1 |
3 |
unless defined $interface_version |
|
747
|
2 |
2 |
unless defined $addr_ton |
|
748
|
2 |
2 |
unless defined $addr_npi |
|
749
|
2 |
2 |
unless defined $address_range |
|
750
|
3 |
1 |
unless defined $facilities_mask |
|
754
|
2 |
2 |
${*$me;}{'smpp_version'} == 64 ? : |
|
789
|
0 |
12 |
unless defined $_[$i] |
|
790
|
3 |
9 |
if ($_[$i] eq 'system_id') { } |
|
|
1 |
8 |
elsif ($_[$i] eq 'facilities_mask') { } |
|
793
|
2 |
3 |
unless defined $system_id |
|
794
|
4 |
1 |
unless defined $facilities_mask |
|
795
|
2 |
3 |
${*$me;}{'smpp_version'} == 64 ? : |
|
836
|
0 |
7 |
unless defined $_[$i] |
|
837
|
1 |
6 |
if ($_[$i] eq 'system_id') { } |
|
|
2 |
4 |
elsif ($_[$i] eq 'password') { } |
|
841
|
3 |
1 |
unless defined $system_id |
|
842
|
2 |
2 |
unless defined $password |
|
844
|
2 |
2 |
${*$me;}{'smpp_version'} == 64 ? : |
|
850
|
4 |
0 |
unless grep(($_ eq 'seq'), @_) |
|
900
|
0 |
114 |
unless defined $_[$i] |
|
901
|
4 |
110 |
if ($_[$i] eq 'service_type') { } |
|
|
4 |
106 |
elsif ($_[$i] eq 'source_addr_ton') { } |
|
|
4 |
102 |
elsif ($_[$i] eq 'source_addr_npi') { } |
|
|
4 |
98 |
elsif ($_[$i] eq 'source_addr') { } |
|
|
4 |
94 |
elsif ($_[$i] eq 'dest_addr_ton') { } |
|
|
4 |
90 |
elsif ($_[$i] eq 'dest_addr_npi') { } |
|
|
6 |
84 |
elsif ($_[$i] eq 'destination_addr') { } |
|
|
4 |
80 |
elsif ($_[$i] eq 'esm_class') { } |
|
|
4 |
76 |
elsif ($_[$i] eq 'protocol_id') { } |
|
|
4 |
72 |
elsif ($_[$i] eq 'priority_flag') { } |
|
|
4 |
68 |
elsif ($_[$i] eq 'schedule_delivery_time') { } |
|
|
4 |
64 |
elsif ($_[$i] eq 'validity_period') { } |
|
|
4 |
60 |
elsif ($_[$i] eq 'registered_delivery') { } |
|
|
4 |
56 |
elsif ($_[$i] eq 'replace_if_present_flag') { } |
|
|
4 |
52 |
elsif ($_[$i] eq 'data_coding') { } |
|
|
4 |
48 |
elsif ($_[$i] eq 'sm_default_msg_id') { } |
|
|
2 |
46 |
elsif ($_[$i] eq 'short_message') { } |
|
922
|
2 |
4 |
unless defined $service_type |
|
923
|
2 |
4 |
unless defined $source_addr_ton |
|
924
|
2 |
4 |
unless defined $source_addr_npi |
|
925
|
2 |
4 |
unless defined $source_addr |
|
926
|
2 |
4 |
unless defined $dest_addr_ton |
|
927
|
2 |
4 |
unless defined $dest_addr_npi |
|
928
|
0 |
6 |
unless defined $destination_addr |
|
929
|
2 |
4 |
unless defined $esm_class |
|
930
|
2 |
4 |
unless defined $protocol_id |
|
931
|
2 |
4 |
unless defined $priority_flag |
|
932
|
2 |
4 |
unless defined $schedule_delivery_time |
|
933
|
2 |
4 |
unless defined $validity_period |
|
934
|
2 |
4 |
unless defined $registered_delivery |
|
935
|
2 |
4 |
unless defined $replace_if_present_flag |
|
936
|
2 |
4 |
unless defined $data_coding |
|
937
|
2 |
4 |
unless defined $sm_default_msg_id |
|
938
|
4 |
2 |
unless defined $short_message |
|
988
|
0 |
2 |
if $Net::SMPP::trace |
|
1004
|
0 |
2 |
if $Net::SMPP::trace |
|
1026
|
0 |
18 |
unless defined $_[$i] |
|
1028
|
1 |
17 |
if ($_[$i] eq 'message_class') { } |
|
|
0 |
17 |
elsif ($_[$i] eq 'service_type') { } |
|
|
1 |
16 |
elsif ($_[$i] eq 'source_addr_ton') { } |
|
|
1 |
15 |
elsif ($_[$i] eq 'source_addr_npi') { } |
|
|
1 |
14 |
elsif ($_[$i] eq 'source_addr') { } |
|
|
1 |
13 |
elsif ($_[$i] eq 'dest_addr_ton') { } |
|
|
1 |
12 |
elsif ($_[$i] eq 'dest_addr_npi') { } |
|
|
2 |
10 |
elsif ($_[$i] eq 'destination_addr') { } |
|
|
1 |
9 |
elsif ($_[$i] eq 'messaging_mode') { } |
|
|
0 |
9 |
elsif ($_[$i] eq 'esm_class') { } |
|
|
1 |
8 |
elsif ($_[$i] eq 'msg_reference') { } |
|
|
1 |
7 |
elsif ($_[$i] eq 'telematic_interworking') { } |
|
|
0 |
7 |
elsif ($_[$i] eq 'protocol_id') { } |
|
|
1 |
6 |
elsif ($_[$i] eq 'priority_level') { } |
|
|
0 |
6 |
elsif ($_[$i] eq 'priority_flag') { } |
|
|
1 |
5 |
elsif ($_[$i] eq 'schedule_delivery_time') { } |
|
|
1 |
4 |
elsif ($_[$i] eq 'validity_period') { } |
|
|
0 |
4 |
elsif ($_[$i] eq 'registered_delivery_mode') { } |
|
|
1 |
3 |
elsif ($_[$i] eq 'registered_delivery') { } |
|
|
1 |
2 |
elsif ($_[$i] eq 'data_coding') { } |
|
|
1 |
1 |
elsif ($_[$i] eq 'sm_default_msg_id') { } |
|
|
1 |
0 |
elsif ($_[$i] eq 'short_message') { } |
|
1034
|
1 |
0 |
ref $_[$i + 1] ? : |
|
1038
|
1 |
0 |
ref $_[$i + 1] ? : |
|
1042
|
2 |
0 |
ref $_[$i + 1] ? : |
|
1075
|
1 |
1 |
unless defined $message_class |
|
1076
|
1 |
1 |
unless defined $source_addr_ton |
|
1077
|
1 |
1 |
unless defined $source_addr_npi |
|
1078
|
1 |
1 |
unless defined $source_addr |
|
1080
|
0 |
2 |
unless @destination_addr |
|
1082
|
1 |
1 |
unless defined $messaging_mode |
|
1083
|
1 |
1 |
unless defined $msg_reference |
|
1084
|
1 |
1 |
unless defined $telematic_interworking |
|
1085
|
1 |
1 |
unless defined $priority_level |
|
1086
|
1 |
1 |
unless defined $schedule_delivery_time |
|
1087
|
1 |
1 |
unless defined $validity_period |
|
1088
|
1 |
1 |
unless defined $registered_delivery_mode |
|
1089
|
1 |
1 |
unless defined $data_coding |
|
1090
|
1 |
1 |
unless defined $sm_default_msg_id |
|
1091
|
1 |
1 |
unless defined $short_message |
|
1097
|
3 |
1 |
!defined($dest_addr_ton[$i]) ? : |
|
1098
|
3 |
1 |
!defined($dest_addr_npi[$i]) ? : |
|
1120
|
2 |
3 |
${*$me;}{'smpp_version'} == 64 ? : |
|
1187
|
0 |
14 |
unless defined $_[$i] |
|
1188
|
1 |
13 |
if ($_[$i] eq 'source_addr_ton') { } |
|
|
1 |
12 |
elsif ($_[$i] eq 'source_addr_npi') { } |
|
|
1 |
11 |
elsif ($_[$i] eq 'source_addr') { } |
|
|
1 |
10 |
elsif ($_[$i] eq 'dest_addr_ton') { } |
|
|
1 |
9 |
elsif ($_[$i] eq 'dest_addr_npi') { } |
|
|
2 |
7 |
elsif ($_[$i] eq 'destination_addr') { } |
|
|
1 |
6 |
elsif ($_[$i] eq 'msg_reference') { } |
|
|
0 |
6 |
elsif ($_[$i] eq 'message_class') { } |
|
|
1 |
5 |
elsif ($_[$i] eq 'esm_class') { } |
|
|
0 |
5 |
elsif ($_[$i] eq 'telematic_interworking') { } |
|
|
1 |
4 |
elsif ($_[$i] eq 'protocol_id') { } |
|
|
0 |
4 |
elsif ($_[$i] eq 'priority_level') { } |
|
|
1 |
3 |
elsif ($_[$i] eq 'priority_flag') { } |
|
|
1 |
2 |
elsif ($_[$i] eq 'schedule_delivery_time') { } |
|
|
1 |
1 |
elsif ($_[$i] eq 'data_coding') { } |
|
|
1 |
0 |
elsif ($_[$i] eq 'short_message') { } |
|
1208
|
1 |
1 |
unless defined $source_addr_ton |
|
1209
|
1 |
1 |
unless defined $source_addr_npi |
|
1210
|
1 |
1 |
unless defined $source_addr |
|
1211
|
1 |
1 |
unless defined $dest_addr_ton |
|
1212
|
1 |
1 |
unless defined $dest_addr_npi |
|
1213
|
0 |
2 |
unless defined $destination_addr |
|
1214
|
1 |
1 |
unless defined $msg_reference |
|
1215
|
1 |
1 |
unless defined $message_class |
|
1216
|
1 |
1 |
unless defined $telematic_interworking |
|
1217
|
1 |
1 |
unless defined $priority_level |
|
1218
|
1 |
1 |
unless defined $schedule_delivery_time |
|
1219
|
1 |
1 |
unless defined $data_coding |
|
1220
|
1 |
1 |
unless defined $short_message |
|
1234
|
2 |
3 |
${*$me;}{'smpp_version'} == 64 ? : |
|
1253
|
0 |
22 |
unless defined $_[$i] |
|
1254
|
9 |
13 |
if ($_[$i] eq 'message_id') |
|
1256
|
0 |
9 |
if $Net::SMPP::trace |
|
1257
|
0 |
9 |
unless defined $message_id |
|
1267
|
2 |
3 |
${*$me;}{'smpp_version'} == 64 ? : |
|
1279
|
2 |
3 |
${*$me;}{'smpp_version'} == 64 ? : |
|
1304
|
3 |
3 |
if ($$pdu{'dest_flag'}[$i] == 1) { } |
|
|
3 |
0 |
elsif ($$pdu{'dest_flag'}[$i] == 2) { } |
|
1361
|
0 |
59 |
unless defined $_[$i] |
|
1362
|
2 |
57 |
if ($_[$i] eq 'service_type') { } |
|
|
2 |
55 |
elsif ($_[$i] eq 'source_addr_ton') { } |
|
|
2 |
53 |
elsif ($_[$i] eq 'source_addr_npi') { } |
|
|
2 |
51 |
elsif ($_[$i] eq 'source_addr') { } |
|
|
3 |
48 |
elsif ($_[$i] eq 'dest_flag') { } |
|
|
2 |
46 |
elsif ($_[$i] eq 'dest_addr_ton') { } |
|
|
2 |
44 |
elsif ($_[$i] eq 'dest_addr_npi') { } |
|
|
3 |
41 |
elsif ($_[$i] eq 'destination_addr') { } |
|
|
2 |
39 |
elsif ($_[$i] eq 'esm_class') { } |
|
|
2 |
37 |
elsif ($_[$i] eq 'protocol_id') { } |
|
|
2 |
35 |
elsif ($_[$i] eq 'priority_flag') { } |
|
|
2 |
33 |
elsif ($_[$i] eq 'schedule_delivery_time') { } |
|
|
2 |
31 |
elsif ($_[$i] eq 'validity_period') { } |
|
|
2 |
29 |
elsif ($_[$i] eq 'registered_delivery') { } |
|
|
2 |
27 |
elsif ($_[$i] eq 'replace_if_present_flag') { } |
|
|
2 |
25 |
elsif ($_[$i] eq 'data_coding') { } |
|
|
2 |
23 |
elsif ($_[$i] eq 'sm_default_msg_id') { } |
|
|
1 |
22 |
elsif ($_[$i] eq 'short_message') { } |
|
1367
|
3 |
0 |
ref $_[$i + 1] ? : |
|
1371
|
2 |
0 |
ref $_[$i + 1] ? : |
|
1375
|
2 |
0 |
ref $_[$i + 1] ? : |
|
1379
|
3 |
0 |
ref $_[$i + 1] ? : |
|
1396
|
1 |
2 |
unless defined $service_type |
|
1397
|
1 |
2 |
unless defined $source_addr_ton |
|
1398
|
1 |
2 |
unless defined $source_addr_npi |
|
1399
|
1 |
2 |
unless defined $source_addr |
|
1400
|
0 |
3 |
unless @destination_addr |
|
1401
|
1 |
2 |
unless defined $esm_class |
|
1402
|
1 |
2 |
unless defined $protocol_id |
|
1403
|
1 |
2 |
unless defined $priority_flag |
|
1404
|
1 |
2 |
unless defined $schedule_delivery_time |
|
1405
|
1 |
2 |
unless defined $validity_period |
|
1406
|
1 |
2 |
unless defined $registered_delivery |
|
1407
|
1 |
2 |
unless defined $replace_if_present_flag |
|
1408
|
1 |
2 |
unless defined $data_coding |
|
1409
|
1 |
2 |
unless defined $sm_default_msg_id |
|
1410
|
2 |
1 |
unless defined $short_message |
|
1416
|
3 |
3 |
if (not defined $dest_flag[$i] or $dest_flag[$i] == 1) { } |
|
|
3 |
0 |
elsif ($dest_flag[$i] == 2) { } |
|
1418
|
1 |
2 |
!defined($dest_addr_ton[$i]) ? : |
|
1419
|
1 |
2 |
!defined($dest_addr_npi[$i]) ? : |
|
1491
|
0 |
16 |
unless defined $_[$i] |
|
1492
|
3 |
13 |
if ($_[$i] eq 'message_id') { } |
|
|
2 |
11 |
elsif ($_[$i] eq 'dest_addr_ton') { } |
|
|
2 |
9 |
elsif ($_[$i] eq 'dest_addr_npi') { } |
|
|
3 |
6 |
elsif ($_[$i] eq 'destination_addr') { } |
|
|
3 |
3 |
elsif ($_[$i] eq 'error_status_code') { } |
|
1494
|
2 |
0 |
ref $_[$i + 1] ? : |
|
1498
|
2 |
0 |
ref $_[$i + 1] ? : |
|
1502
|
3 |
0 |
ref $_[$i + 1] ? : |
|
1506
|
3 |
0 |
ref $_[$i + 1] ? : |
|
1511
|
0 |
3 |
unless defined $message_id |
|
1513
|
0 |
3 |
unless @error_status_code |
|
1516
|
4 |
2 |
!defined($dest_addr_ton[$i]) ? : |
|
1517
|
4 |
2 |
!defined($dest_addr_npi[$i]) ? : |
|
1532
|
0 |
10 |
unless defined $_[$i] |
|
1533
|
2 |
8 |
if ($_[$i] eq 'message_id') { } |
|
|
0 |
8 |
elsif ($_[$i] eq 'sc_msg_reference') { } |
|
|
1 |
7 |
elsif ($_[$i] eq 'dest_addr_ton') { } |
|
|
1 |
6 |
elsif ($_[$i] eq 'dest_addr_npi') { } |
|
|
2 |
4 |
elsif ($_[$i] eq 'destination_addr') { } |
|
|
2 |
2 |
elsif ($_[$i] eq 'error_status_code') { } |
|
1536
|
1 |
0 |
ref $_[$i + 1] ? : |
|
1540
|
1 |
0 |
ref $_[$i + 1] ? : |
|
1544
|
2 |
0 |
ref $_[$i + 1] ? : |
|
1548
|
2 |
0 |
ref $_[$i + 1] ? : |
|
1553
|
0 |
2 |
unless defined $message_id |
|
1555
|
0 |
2 |
unless @error_status_code |
|
1558
|
3 |
1 |
!defined($dest_addr_ton[$i]) ? : |
|
1559
|
3 |
1 |
!defined($dest_addr_npi[$i]) ? : |
|
1596
|
0 |
5 |
unless defined $_[$i] |
|
1597
|
2 |
3 |
if ($_[$i] eq 'message_id') { } |
|
|
1 |
2 |
elsif ($_[$i] eq 'source_addr_ton') { } |
|
|
1 |
1 |
elsif ($_[$i] eq 'source_addr_npi') { } |
|
|
1 |
0 |
elsif ($_[$i] eq 'source_addr') { } |
|
1605
|
0 |
2 |
unless defined $message_id |
|
1606
|
1 |
1 |
unless defined $source_addr_ton |
|
1607
|
1 |
1 |
unless defined $source_addr_npi |
|
1608
|
1 |
1 |
unless defined $source_addr |
|
1622
|
0 |
8 |
unless defined $_[$i] |
|
1623
|
2 |
6 |
if ($_[$i] eq 'message_id') { } |
|
|
1 |
5 |
elsif ($_[$i] eq 'source_addr_ton') { } |
|
|
1 |
4 |
elsif ($_[$i] eq 'source_addr_npi') { } |
|
|
1 |
3 |
elsif ($_[$i] eq 'source_addr') { } |
|
|
1 |
2 |
elsif ($_[$i] eq 'dest_addr_ton') { } |
|
|
1 |
1 |
elsif ($_[$i] eq 'dest_addr_npi') { } |
|
|
1 |
0 |
elsif ($_[$i] eq 'destination_addr') { } |
|
1634
|
0 |
2 |
unless defined $message_id |
|
1636
|
1 |
1 |
unless defined $source_addr_ton |
|
1637
|
1 |
1 |
unless defined $source_addr_npi |
|
1638
|
1 |
1 |
unless defined $source_addr |
|
1640
|
1 |
1 |
unless defined $dest_addr_ton |
|
1641
|
1 |
1 |
unless defined $dest_addr_npi |
|
1642
|
1 |
1 |
unless defined $destination_addr |
|
1652
|
2 |
2 |
${*$me;}{'smpp_version'} == 64 ? : |
|
1693
|
0 |
8 |
unless defined $_[$i] |
|
1694
|
2 |
6 |
if ($_[$i] eq 'message_id') { } |
|
|
1 |
5 |
elsif ($_[$i] eq 'final_date') { } |
|
|
2 |
3 |
elsif ($_[$i] eq 'message_state') { } |
|
|
1 |
2 |
elsif ($_[$i] eq 'error_code') { } |
|
1700
|
0 |
2 |
unless defined $message_id |
|
1701
|
1 |
1 |
unless defined $final_date |
|
1702
|
0 |
2 |
unless defined $message_state |
|
1703
|
1 |
1 |
unless defined $error_code |
|
1713
|
0 |
8 |
unless defined $_[$i] |
|
1714
|
0 |
8 |
if ($_[$i] eq 'sc_msg_reference') { } |
|
|
2 |
6 |
elsif ($_[$i] eq 'message_id') { } |
|
|
1 |
5 |
elsif ($_[$i] eq 'final_date') { } |
|
|
0 |
5 |
elsif ($_[$i] eq 'message_status') { } |
|
|
2 |
3 |
elsif ($_[$i] eq 'message_state') { } |
|
|
0 |
3 |
elsif ($_[$i] eq 'networkerror_code') { } |
|
|
1 |
2 |
elsif ($_[$i] eq 'error_code') { } |
|
1723
|
0 |
2 |
unless defined $sc_msg_reference |
|
1724
|
1 |
1 |
unless defined $final_date |
|
1725
|
0 |
2 |
unless defined $message_status |
|
1726
|
1 |
1 |
unless defined $network_error_code |
|
1733
|
2 |
2 |
${*$me;}{'smpp_version'} == 64 ? : |
|
1759
|
0 |
14 |
unless defined $_[$i] |
|
1760
|
2 |
12 |
if ($_[$i] eq 'source_addr_ton') { } |
|
|
2 |
10 |
elsif ($_[$i] eq 'source_addr_npi') { } |
|
|
2 |
8 |
elsif ($_[$i] eq 'source_addr') { } |
|
|
2 |
6 |
elsif ($_[$i] eq 'esme_addr_ton') { } |
|
|
2 |
4 |
elsif ($_[$i] eq 'esme_addr_npi') { } |
|
|
3 |
1 |
elsif ($_[$i] eq 'esme_addr') { } |
|
1770
|
1 |
2 |
unless defined $source_addr_ton |
|
1771
|
1 |
2 |
unless defined $source_addr_npi |
|
1772
|
1 |
2 |
unless defined $source_addr |
|
1773
|
1 |
2 |
unless defined $esme_addr_ton |
|
1774
|
1 |
2 |
unless defined $esme_addr_npi |
|
1775
|
0 |
3 |
unless defined $esme_addr |
|
1850
|
0 |
10 |
unless defined $_[$i] |
|
1851
|
2 |
8 |
if ($_[$i] eq 'message_id') { } |
|
|
1 |
7 |
elsif ($_[$i] eq 'source_addr_ton') { } |
|
|
1 |
6 |
elsif ($_[$i] eq 'source_addr_npi') { } |
|
|
1 |
5 |
elsif ($_[$i] eq 'source_addr') { } |
|
|
1 |
4 |
elsif ($_[$i] eq 'schedule_delivery_time') { } |
|
|
1 |
3 |
elsif ($_[$i] eq 'validity_period') { } |
|
|
1 |
2 |
elsif ($_[$i] eq 'registered_delivery') { } |
|
|
1 |
1 |
elsif ($_[$i] eq 'sm_default_msg_id') { } |
|
|
1 |
0 |
elsif ($_[$i] eq 'short_message') { } |
|
1864
|
0 |
2 |
unless defined $message_id |
|
1865
|
1 |
1 |
unless defined $source_addr_ton |
|
1866
|
1 |
1 |
unless defined $source_addr_npi |
|
1867
|
1 |
1 |
unless defined $source_addr |
|
1868
|
1 |
1 |
unless defined $schedule_delivery_time |
|
1869
|
1 |
1 |
unless defined $validity_period |
|
1870
|
1 |
1 |
unless defined $registered_delivery |
|
1871
|
1 |
1 |
unless defined $sm_default_msg_id |
|
1872
|
1 |
1 |
unless defined $short_message |
|
1891
|
0 |
14 |
unless defined $_[$i] |
|
1892
|
0 |
14 |
if ($_[$i] eq 'msg_reference') { } |
|
|
2 |
12 |
elsif ($_[$i] eq 'message_id') { } |
|
|
1 |
11 |
elsif ($_[$i] eq 'source_addr_ton') { } |
|
|
1 |
10 |
elsif ($_[$i] eq 'source_addr_npi') { } |
|
|
1 |
9 |
elsif ($_[$i] eq 'source_addr') { } |
|
|
1 |
8 |
elsif ($_[$i] eq 'dest_addr_ton') { } |
|
|
1 |
7 |
elsif ($_[$i] eq 'dest_addr_npi') { } |
|
|
1 |
6 |
elsif ($_[$i] eq 'destination_addr') { } |
|
|
1 |
5 |
elsif ($_[$i] eq 'schedule_delivery_time') { } |
|
|
1 |
4 |
elsif ($_[$i] eq 'validity_period') { } |
|
|
0 |
4 |
elsif ($_[$i] eq 'registered_delivery_mode') { } |
|
|
1 |
3 |
elsif ($_[$i] eq 'registered_delivery') { } |
|
|
1 |
2 |
elsif ($_[$i] eq 'data_coding') { } |
|
|
1 |
1 |
elsif ($_[$i] eq 'sm_default_msg_id') { } |
|
|
1 |
0 |
elsif ($_[$i] eq 'short_message') { } |
|
1911
|
0 |
2 |
unless defined $msg_reference |
|
1912
|
1 |
1 |
unless defined $source_addr_ton |
|
1913
|
1 |
1 |
unless defined $source_addr_npi |
|
1914
|
1 |
1 |
unless defined $source_addr |
|
1915
|
1 |
1 |
unless defined $dest_addr_ton |
|
1916
|
1 |
1 |
unless defined $dest_addr_npi |
|
1917
|
1 |
1 |
unless defined $destination_addr |
|
1918
|
1 |
1 |
unless defined $schedule_delivery_time |
|
1919
|
1 |
1 |
unless defined $validity_period |
|
1920
|
1 |
1 |
unless defined $registered_delivery_mode |
|
1921
|
1 |
1 |
unless defined $data_coding |
|
1922
|
1 |
1 |
unless defined $sm_default_msg_id |
|
1923
|
1 |
1 |
unless defined $short_message |
|
1935
|
2 |
2 |
${*$me;}{'smpp_version'} == 64 ? : |
|
1947
|
2 |
2 |
if (${*$me;}{'smpp_version'} == 64) { } |
|
1971
|
0 |
16 |
unless defined $_[$i] |
|
1972
|
1 |
15 |
if ($_[$i] eq 'service_type') { } |
|
|
1 |
14 |
elsif ($_[$i] eq 'message_class') { } |
|
|
2 |
12 |
elsif ($_[$i] eq 'message_id') { } |
|
|
2 |
10 |
elsif ($_[$i] eq 'source_addr_ton') { } |
|
|
2 |
8 |
elsif ($_[$i] eq 'source_addr_npi') { } |
|
|
2 |
6 |
elsif ($_[$i] eq 'source_addr') { } |
|
|
2 |
4 |
elsif ($_[$i] eq 'dest_addr_ton') { } |
|
|
2 |
2 |
elsif ($_[$i] eq 'dest_addr_npi') { } |
|
|
2 |
0 |
elsif ($_[$i] eq 'destination_addr') { } |
|
1985
|
2 |
2 |
unless defined $service_type |
|
1986
|
2 |
2 |
unless defined $message_id |
|
1987
|
2 |
2 |
unless defined $source_addr_ton |
|
1988
|
2 |
2 |
unless defined $source_addr_npi |
|
1989
|
2 |
2 |
unless defined $source_addr |
|
1990
|
2 |
2 |
unless defined $dest_addr_ton |
|
1991
|
2 |
2 |
unless defined $dest_addr_npi |
|
1992
|
2 |
2 |
unless defined $destination_addr |
|
1994
|
2 |
2 |
${*$me;}{'smpp_version'} == 64 ? : |
|
2034
|
0 |
59 |
unless defined $_[$i] |
|
2035
|
2 |
57 |
if ($_[$i] eq 'service_type') { } |
|
|
2 |
55 |
elsif ($_[$i] eq 'source_addr_ton') { } |
|
|
2 |
53 |
elsif ($_[$i] eq 'source_addr_npi') { } |
|
|
2 |
51 |
elsif ($_[$i] eq 'source_addr') { } |
|
|
2 |
49 |
elsif ($_[$i] eq 'dest_addr_ton') { } |
|
|
2 |
47 |
elsif ($_[$i] eq 'dest_addr_npi') { } |
|
|
3 |
44 |
elsif ($_[$i] eq 'destination_addr') { } |
|
|
2 |
42 |
elsif ($_[$i] eq 'esm_class') { } |
|
|
2 |
40 |
elsif ($_[$i] eq 'registered_delivery') { } |
|
|
2 |
38 |
elsif ($_[$i] eq 'data_coding') { } |
|
2049
|
1 |
2 |
unless defined $service_type |
|
2050
|
1 |
2 |
unless defined $source_addr_ton |
|
2051
|
1 |
2 |
unless defined $source_addr_npi |
|
2052
|
1 |
2 |
unless defined $source_addr |
|
2053
|
1 |
2 |
unless defined $dest_addr_ton |
|
2054
|
1 |
2 |
unless defined $dest_addr_npi |
|
2056
|
0 |
3 |
unless defined $destination_addr |
|
2058
|
1 |
2 |
unless defined $esm_class |
|
2059
|
1 |
2 |
unless defined $registered_delivery |
|
2060
|
1 |
2 |
unless defined $data_coding |
|
2113
|
0 |
16 |
unless defined $_[$i] |
|
2114
|
1 |
15 |
if ($_[$i] eq 'source_addr_ton') { } |
|
|
1 |
14 |
elsif ($_[$i] eq 'source_addr_npi') { } |
|
|
1 |
13 |
elsif ($_[$i] eq 'source_addr') { } |
|
|
1 |
12 |
elsif ($_[$i] eq 'dest_addr_ton') { } |
|
|
1 |
11 |
elsif ($_[$i] eq 'dest_addr_npi') { } |
|
|
2 |
9 |
elsif ($_[$i] eq 'destination_addr') { } |
|
|
1 |
8 |
elsif ($_[$i] eq 'msg_reference') { } |
|
|
1 |
7 |
elsif ($_[$i] eq 'num_msgs_submitted') { } |
|
|
1 |
6 |
elsif ($_[$i] eq 'num_msgs_delivered') { } |
|
|
1 |
5 |
elsif ($_[$i] eq 'submit_date') { } |
|
|
1 |
4 |
elsif ($_[$i] eq 'done_date') { } |
|
|
1 |
3 |
elsif ($_[$i] eq 'message_state') { } |
|
|
1 |
2 |
elsif ($_[$i] eq 'network_error_code') { } |
|
|
1 |
1 |
elsif ($_[$i] eq 'data_coding') { } |
|
|
1 |
0 |
elsif ($_[$i] eq 'short_message') { } |
|
2133
|
1 |
1 |
unless defined $source_addr_ton |
|
2134
|
1 |
1 |
unless defined $source_addr_npi |
|
2135
|
1 |
1 |
unless defined $source_addr |
|
2136
|
1 |
1 |
unless defined $dest_addr_ton |
|
2137
|
1 |
1 |
unless defined $dest_addr_npi |
|
2139
|
0 |
2 |
unless defined $destination_addr |
|
2141
|
1 |
1 |
unless defined $msg_reference |
|
2142
|
1 |
1 |
unless defined $num_msgs_submitted |
|
2143
|
1 |
1 |
unless defined $num_msgs_delivered |
|
2144
|
1 |
1 |
unless defined $submit_date |
|
2145
|
1 |
1 |
unless defined $done_date |
|
2146
|
1 |
1 |
unless defined $message_state |
|
2147
|
1 |
1 |
unless defined $network_error_code |
|
2148
|
1 |
1 |
unless defined $data_coding |
|
2149
|
1 |
1 |
unless defined $short_message |
|
2168
|
2 |
2 |
if ($version == 64) { } |
|
2209
|
2 |
0 |
if @_ % 2 |
|
2212
|
2 |
0 |
exists $arg{'port'} ? : |
|
|
0 |
2 |
exists $arg{'local_ip'} ? : |
|
|
0 |
2 |
exists $arg{'timeout'} ? : |
|
|
0 |
2 |
unless my $s = $type->SUPER::new('PeerAddr', $host, 'PeerPort', exists $arg{'port'} ? $arg{'port'} : {addr_npi => 0, addr_ton => 0, address_range => '', async => 0, cmd_version => 0, data_coding => 0, dest_addr_npi => 0, dest_addr_ton => 0, destination_addr => '', enquire_interval => 0, error_code => 0, esm_class => 0, esme_addr_npi => 0, esme_addr_ton => 0, facilities_mask => 0, final_date => '', handlers => {10 => sub {
my($me, $pdu) = @_;
$me->enquire_link_resp('seq', $$pdu{'seq'});
}
, 21 => sub {
;
}
}, head_len => 16, head_templ => 'NNNN', interface_version => 52, listen => 120, message_class => 65535, message_id => '', messaging_mode => 0, mode => 3, msg_reference => '', network_error_code => 0, password => '', port => 2255, priority_flag => 0, priority_level => 255, protocol_id => 0, registered_delivery => 0, registered_delivery_mode => 0, replace_if_present_flag => 0, schedule_delivery_time => '', service_type => '', sm_default_msg_id => 0, smpp_version => 52, source_addr => '', source_addr_npi => 0, source_addr_ton => 0, system_id => '', system_type => '', telematic_interworking => 255, timeout => 5, validity_period => ''}->{'port'}, 'LocalAddr', exists $arg{'local_ip'} ? $arg{'local_ip'} : {addr_npi => 0, addr_ton => 0, address_range => '', async => 0, cmd_version => 0, data_coding => 0, dest_addr_npi => 0, dest_addr_ton => 0, destination_addr => '', enquire_interval => 0, error_code => 0, esm_class => 0, esme_addr_npi => 0, esme_addr_ton => 0, facilities_mask => 0, final_date => '', handlers => {10 => sub {
;
}
, 21 => sub {
;
}
}, head_len => 16, head_templ => 'NNNN', interface_version => 52, listen => 120, message_class => 65535, message_id => '', messaging_mode => 0, mode => 3, msg_reference => '', network_error_code => 0, password => '', port => 2255, priority_flag => 0, priority_level => 255, protocol_id => 0, registered_delivery => 0, registered_delivery_mode => 0, replace_if_present_flag => 0, schedule_delivery_time => '', service_type => '', sm_default_msg_id => 0, smpp_version => 52, source_addr => '', source_addr_npi => 0, source_addr_ton => 0, system_id => '', system_type => '', telematic_interworking => 255, timeout => 5, validity_period => ''}->{'local_ip'}, 'Proto', 'tcp', 'Timeout', exists $arg{'timeout'} ? $arg{'timeout'} : {addr_npi => 0, addr_ton => 0, address_range => '', async => 0, cmd_version => 0, data_coding => 0, dest_addr_npi => 0, dest_addr_ton => 0, destination_addr => '', enquire_interval => 0, error_code => 0, esm_class => 0, esme_addr_npi => 0, esme_addr_ton => 0, facilities_mask => 0, final_date => '', handlers => {10 => sub {
;
}
, 21 => sub {
;
}
}, head_len => 16, head_templ => 'NNNN', interface_version => 52, listen => 120, message_class => 65535, message_id => '', messaging_mode => 0, mode => 3, msg_reference => '', network_error_code => 0, password => '', port => 2255, priority_flag => 0, priority_level => 255, protocol_id => 0, registered_delivery => 0, registered_delivery_mode => 0, replace_if_present_flag => 0, schedule_delivery_time => '', service_type => '', sm_default_msg_id => 0, smpp_version => 52, source_addr => '', source_addr_npi => 0, source_addr_ton => 0, system_id => '', system_type => '', telematic_interworking => 255, timeout => 5, validity_period => ''}->{'timeout'}, @_) |
|
2222
|
6 |
88 |
exists $arg{$a} ? : |
|
2235
|
0 |
0 |
unless defined $me |
|
2236
|
0 |
0 |
if $Net::SMPP::trace |
|
2238
|
0 |
0 |
if $Net::SMPP::trace |
|
2239
|
0 |
0 |
if wantarray |
|
2246
|
0 |
0 |
unless defined $me |
|
2247
|
0 |
0 |
if $Net::SMPP::trace |
|
2249
|
0 |
0 |
if $Net::SMPP::trace |
|
2250
|
0 |
0 |
if wantarray |
|
2257
|
0 |
0 |
unless defined $me |
|
2258
|
0 |
0 |
if $Net::SMPP::trace |
|
2260
|
0 |
0 |
if $Net::SMPP::trace |
|
2261
|
0 |
0 |
if wantarray |
|
2272
|
2 |
0 |
if @_ % 2 |
|
2275
|
2 |
0 |
exists $arg{'port'} ? : |
|
|
0 |
2 |
exists $arg{'listen'} ? : |
|
|
0 |
2 |
exists $arg{'timeout'} ? : |
|
|
0 |
2 |
unless my $s = $type->SUPER::new('LocalAddr', $host, 'LocalPort', exists $arg{'port'} ? $arg{'port'} : {addr_npi => 0, addr_ton => 0, address_range => '', async => 0, cmd_version => 0, data_coding => 0, dest_addr_npi => 0, dest_addr_ton => 0, destination_addr => '', enquire_interval => 0, error_code => 0, esm_class => 0, esme_addr_npi => 0, esme_addr_ton => 0, facilities_mask => 0, final_date => '', handlers => {10 => sub {
;
}
, 21 => sub {
;
}
}, head_len => 16, head_templ => 'NNNN', interface_version => 52, listen => 120, message_class => 65535, message_id => '', messaging_mode => 0, mode => 3, msg_reference => '', network_error_code => 0, password => '', port => 2255, priority_flag => 0, priority_level => 255, protocol_id => 0, registered_delivery => 0, registered_delivery_mode => 0, replace_if_present_flag => 0, schedule_delivery_time => '', service_type => '', sm_default_msg_id => 0, smpp_version => 52, source_addr => '', source_addr_npi => 0, source_addr_ton => 0, system_id => '', system_type => '', telematic_interworking => 255, timeout => 5, validity_period => ''}->{'port'}, 'Proto', 'tcp', 'ReuseAddr', 'true', 'Listen', exists $arg{'listen'} ? $arg{'listen'} : {addr_npi => 0, addr_ton => 0, address_range => '', async => 0, cmd_version => 0, data_coding => 0, dest_addr_npi => 0, dest_addr_ton => 0, destination_addr => '', enquire_interval => 0, error_code => 0, esm_class => 0, esme_addr_npi => 0, esme_addr_ton => 0, facilities_mask => 0, final_date => '', handlers => {10 => sub {
;
}
, 21 => sub {
;
}
}, head_len => 16, head_templ => 'NNNN', interface_version => 52, listen => 120, message_class => 65535, message_id => '', messaging_mode => 0, mode => 3, msg_reference => '', network_error_code => 0, password => '', port => 2255, priority_flag => 0, priority_level => 255, protocol_id => 0, registered_delivery => 0, registered_delivery_mode => 0, replace_if_present_flag => 0, schedule_delivery_time => '', service_type => '', sm_default_msg_id => 0, smpp_version => 52, source_addr => '', source_addr_npi => 0, source_addr_ton => 0, system_id => '', system_type => '', telematic_interworking => 255, timeout => 5, validity_period => ''}->{'listen'}, 'Timeout', exists $arg{'timeout'} ? $arg{'timeout'} : {addr_npi => 0, addr_ton => 0, address_range => '', async => 0, cmd_version => 0, data_coding => 0, dest_addr_npi => 0, dest_addr_ton => 0, destination_addr => '', enquire_interval => 0, error_code => 0, esm_class => 0, esme_addr_npi => 0, esme_addr_ton => 0, facilities_mask => 0, final_date => '', handlers => {10 => sub {
;
}
, 21 => sub {
;
}
}, head_len => 16, head_templ => 'NNNN', interface_version => 52, listen => 120, message_class => 65535, message_id => '', messaging_mode => 0, mode => 3, msg_reference => '', network_error_code => 0, password => '', port => 2255, priority_flag => 0, priority_level => 255, protocol_id => 0, registered_delivery => 0, registered_delivery_mode => 0, replace_if_present_flag => 0, schedule_delivery_time => '', service_type => '', sm_default_msg_id => 0, smpp_version => 52, source_addr => '', source_addr_npi => 0, source_addr_ton => 0, system_id => '', system_type => '', telematic_interworking => 255, timeout => 5, validity_period => ''}->{'timeout'}) |
|
2284
|
6 |
88 |
exists $arg{$a} ? : |
|
2402
|
0 |
150 |
if ${*$me;}{'enquire_interval'} |
|
2403
|
0 |
150 |
if $Net::SMPP::trace > 1 |
|
2406
|
0 |
150 |
if $! =~ /^Interrupted/ |
|
2411
|
0 |
150 |
if ($@) { } |
|
2412
|
0 |
0 |
if $Net::SMPP::trace |
|
2413
|
0 |
0 |
unless $@ eq "alarm\n" |
|
2416
|
0 |
150 |
unless (defined $n) |
|
2422
|
0 |
150 |
unless ($n) |
|
2441
|
0 |
86 |
unless $me->read_hard($head_len, \$header, 0) |
|
2448
|
0 |
86 |
if ($len < $head_len) |
|
2454
|
0 |
86 |
if $Net::SMPP::trace |
|
2457
|
0 |
86 |
unless ($me->read_hard($len, \$$pdu{'data'}, 0)) |
|
2462
|
0 |
86 |
if $Net::SMPP::trace |
|
2466
|
86 |
0 |
if (defined {1 => {cmd => 'bind_receiver', decode => sub {
;
}
}, 11 => {cmd => 'outbind', decode => sub {
;
}
}, 2 => {cmd => 'bind_transmitter', decode => sub {
;
}
}, 21 => {cmd => 'enquire_link', decode => sub {
;
}
}, 2147483648 => {cmd => 'generic_nack', decode => sub {
;
}
}, 2147483649 => {cmd => 'bind_receiver_resp', decode => sub {
;
}
}, 2147483650 => {cmd => 'bind_transmitter_resp', decode => sub {
;
}
}, 2147483651 => {cmd => 'query_sm_resp', decode => sub {
;
}
}, 2147483652 => {cmd => 'submit_sm_resp', decode => sub {
;
}
}, 2147483653 => {cmd => 'deliver_sm_resp', decode => sub {
;
}
}, 2147483654 => {cmd => 'unbind_resp', decode => sub {
;
}
}, 2147483655 => {cmd => 'replace_sm_resp', decode => sub {
;
}
}, 2147483656 => {cmd => 'cancel_sm_resp', decode => sub {
;
}
}, 2147483657 => {cmd => 'bind_transceiver_resp', decode => sub {
;
}
}, 2147483669 => {cmd => 'enquire_link_resp', decode => sub {
;
}
}, 2147483681 => {cmd => 'submit_multi_resp', decode => sub {
for (; ; ) {
;
} ;
}
}, 2147483907 => {cmd => 'data_sm_resp', decode => sub {
;
}
}, 2147549184 => {cmd => 'generic_nack_v4', decode => sub {
;
}
}, 2147549185 => {cmd => 'bind_receiver_resp_v4', decode => sub {
;
}
}, 2147549186 => {cmd => 'bind_transmitter_resp_v4', decode => sub {
;
}
}, 2147549187 => {cmd => 'query_sm_resp_v4', decode => sub {
;
}
}, 2147549188 => {cmd => 'submit_sm_resp_v4', decode => sub {
for (; ; ) {
;
} ;
}
}, 2147549189 => {cmd => 'deliver_sm_resp_v4', decode => sub {
;
}
}, 2147549190 => {cmd => 'unbind_resp_v4', decode => sub {
;
}
}, 2147549191 => {cmd => 'replace_sm_resp_v4', decode => sub {
;
}
}, 2147549192 => {cmd => 'cancel_sm_resp_v4', decode => sub {
;
}
}, 2147549193 => {cmd => 'delivery_receipt_resp_v4', decode => sub {
;
}
}, 2147549194 => {cmd => 'enquire_link_resp_v4', decode => sub {
;
}
}, 258 => {cmd => 'alert_notification', decode => sub {
;
}
}, 259 => {cmd => 'data_sm', decode => sub {
;
}
}, 3 => {cmd => 'query_sm', decode => sub {
;
}
}, 33 => {cmd => 'submit_multi', decode => sub {
for (; ; ) {
;
} ;
}
}, 4 => {cmd => 'submit_sm', decode => sub {
;
}
}, 5 => {cmd => 'deliver_sm', decode => sub {
;
}
}, 6 => {cmd => 'unbind', decode => sub {
;
}
}, 65537 => {cmd => 'bind_receiver_v4', decode => sub {
;
}
}, 65538 => {cmd => 'bind_transmitter_v4', decode => sub {
;
}
}, 65539 => {cmd => 'query_sm_v4', decode => sub {
;
}
}, 65540 => {cmd => 'submit_sm_v4', decode => sub {
for (; ; ) {
;
} ;
}
}, 65541 => {cmd => 'deliver_sm_v4', decode => sub {
;
}
}, 65542 => {cmd => 'unbind_v4', decode => sub {
;
}
}, 65543 => {cmd => 'replace_sm_v4', decode => sub {
;
}
}, 65544 => {cmd => 'cancel_sm_v4', decode => sub {
;
}
}, 65545 => {cmd => 'delivery_receipt_v4', decode => sub {
;
}
}, 65546 => {cmd => 'enquire_link_v4', decode => sub {
;
}
}, 65547 => {cmd => 'outbind_v4', decode => sub {
;
}
}, 7 => {cmd => 'replace_sm', decode => sub {
;
}
}, 8 => {cmd => 'cancel_sm', decode => sub {
;
}
}, 9 => {cmd => 'bind_transceiver', decode => sub {
;
}
}}->{$$pdu{'cmd'}}) |
|
2470
|
7 |
79 |
if $mandat_len < $len |
|
2480
|
0 |
0 |
if $$pdu{'cmd'} == $look_for_me and $$pdu{'seq'} == $seq |
|
2484
|
0 |
0 |
if (exists ${*$me;}{'handlers'}{$$pdu{'cmd'}}) |
|
2489
|
0 |
0 |
if $Net::SMPP::trace |
|
2539
|
9 |
2 |
if substr($s, -1, 1) eq "\000" |