barretto/public
1
0
Fork 0
forked from public/public
Code Pull requests Activity

plugin infobip-hlr

Browse source
This commit is contained in:
Daniel Brahneborg 2025-03-24 11:25:48 +01:00
parent 700b84d327
commit 27bcde240d
1 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
plugins/infobip-hlr/infobip-hlr.pl Normal file
View file

@ -0,0 +1,23 @@
# 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),
);
my $imsi = $dlrinfo->{'0x1403'};
$info{imsi} = $imsi if (defined($imsi));
$response->{dlrinfo} = \%info;
return 0;
}