forked from public/public
20 lines
483 B
Perl
20 lines
483 B
Perl
# Fields described here:
|
|
# https://www.infobip.com/docs/essentials/api-essentials/smpp-specification
|
|
|
|
sub before_dlr {
|
|
my ($request, $response) = @_;
|
|
my $dlrinfo = ${$request}{dlrinfo};
|
|
|
|
return 0 if $dlrinfo->{sourceaddr} ne 'HLR';
|
|
|
|
my $mccmnc = $dlrinfo->{'0x1416'};
|
|
my %info = (
|
|
mcc => substr($mccmnc, 0, 3),
|
|
mnc => substr($mccmnc, 3),
|
|
);
|
|
|
|
$response->{dlrinfo} = \%info;
|
|
|
|
return 0;
|
|
}
|
|
|