blob: 283eeea89281e0760df378618481ad78212db755 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#!/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 nms::util;
my %switches = parse_switches_txt(*STDIN);
print Dumper(\%switches);
|
