blob: 5a6b83c7850a040163cb4c102066610070c40e15 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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);
|