blob: 635e356d43a95279be537a2ba9b09c1ceea5d27c (
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);
|
