From 0b99608227d53c9eebb01fd7f98d1618cbb7a2cf Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kristian=20Lyngst=C3=B8l?= <kly@kly.no>
Date: Sun, 16 Apr 2017 01:47:57 +0200
Subject: TG17 monster commit

---
 include/nms.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'include/nms.pm')

diff --git a/include/nms.pm b/include/nms.pm
index eff61c3..3133042 100755
--- a/include/nms.pm
+++ b/include/nms.pm
@@ -8,7 +8,7 @@ use JSON;
 package nms;
 
 use base 'Exporter';
-our @EXPORT = qw(db_connect convert_mac);
+our @EXPORT = qw(db_connect convert_mac convert_decimal);
 
 BEGIN {
 	require "config.pm";
@@ -54,6 +54,11 @@ sub convert_addr {
 	}
 }
 
+# I am not a perl programmer
+sub convert_decimal {
+	return join("",(map { sprintf "%c", $_ } split(/\./,shift)));
+}
+
 # Convert raw binary SNMP data to list of bits.
 sub convert_bytelist {
 	return split //, unpack("B*", shift);
-- 
cgit v1.2.3