Actual initial import

Fetched from tgmanage.

1 files changed, 17 insertions, 0 deletions

diff --git a/tools/add_switches.txt.pl b/tools/add_switches.txt.pl
new file mode 100755
index 0000000..635e356
--- /dev/null
+++ b/tools/add_switches.txt.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+# Usage: ./add_switches.txt.pl < switches.txt > switches.json
+# 
+# Parses switches.txt into json currently just throws it to stdout
+#
+# Actually adding them to a DB comes later.
+
+use strict;
+use warnings;
+use Data::Dumper;
+use lib '../include';
+use JSON;
+use nms::util;
+
+my @switches = parse_switches_txt(*STDIN);
+
+print JSON::XS::encode_json(\@switches);