From 27bcde240deb03f8e571bb4f3bfcf995950642f7 Mon Sep 17 00:00:00 2001
From: Daniel Brahneborg <daniel@braxo.se>
Date: Mon, 24 Mar 2025 11:25:48 +0100
Subject: [PATCH] plugin infobip-hlr

---
 plugins/infobip-hlr/infobip-hlr.pl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 plugins/infobip-hlr/infobip-hlr.pl

diff --git a/plugins/infobip-hlr/infobip-hlr.pl b/plugins/infobip-hlr/infobip-hlr.pl
new file mode 100644
index 0000000..dbecbc0
--- /dev/null
+++ b/plugins/infobip-hlr/infobip-hlr.pl
@@ -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;
+}
+