1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
#!/usr/bin/perl
# Usage: ./add_switches.txt.pl < switches.txt > switches.json
#
# Parses switches.txt into json and does some guesswork for placement based
# on name, if possible.
#
# Actually adding them comes later.
#
use strict;
use warnings;
use Data::Dumper;
my %switches = ();
# Guesses placement from name to get a starting point
# Largely courtesy of Knuta
sub guess_placement {
my ($x, $y, $xx, $yy);
my $name = $_[0];
my $src = "unknown";
if ($name =~ /^e\d+-\d+$/) {
$name =~ /e(\d+)-(\d+)/;
my ($e, $s) = ($1, $2);
$src = "main";
$x = int(232 + (($e-1)/2) * 31.1);
$y = undef;
$x += 14 if ($e >= 17);
$x += 14 if ($e >= 29);
$x += 14 if ($e >= 45);
$x += 14 if ($e >= 63);
if ($s > 2) {
$y = 405 - 120 * ($s-2);
} else {
$y = 689 - 120 * ($s);
}
$xx = $x + 16;
$yy = $y + 120;
# Justeringer
$y += 45 if $name eq "e1-4";
$y += 20 if $name eq "e3-4";
$y += 15 if $name eq "e5-4";
$yy -= 25 if $name eq "e11-1";
#$yy -= 14 if $name eq "e77-1";
#$yy -= 28 if $name eq "e79-1";
#$yy -= 15 if $name eq "e81-1";
#$yy -= 56 if $name eq "e83-1";
} elsif ($name =~ /^sw(\d+)-creativia$/) {
my ($s) = ($1);
$src = "creativia";
$x = 1535;
$y = int(130 + 32.2 * $s);
$yy = $y + 20;
if ($s == 1) {
$xx = $x + 70;
} elsif ($s == 2) {
$xx = $x + 90;
} elsif ($s == 3) {
$xx = $x + 102;
} else {
$xx = $x + 142;
}
} elsif ($name =~ /^crew(\d+)-(\d+)$/) {
my ($s, $n) = ($1, $2);
$src = "crew";
$x = 1023 + 45 * $n;
$y = int(329 + 20.5 * $s);
$xx = $x + 45;
$yy = $y + 14;
if ($s == 1 && $n == 1) {
$xx += 25;
}
} else {
# Fallback to have _some_ position
$src = "random";
$x = int(rand(500));
$y = int(rand(500));
$xx = $x + 20;
$yy = $y + 130;
};
my %box = (
'src' => "$src",
'x1' => $x,
'y1' => $y,
'xx' => $xx,
'yy' => $yy
);
return %box;
}
while (<STDIN>) {
chomp;
my ($switch, $subnet4, $subnet6, $mgtmt4, $mgtmt6, $lolid, $distro) = split(/ /);
my %foo = guess_placement($switch);
$switches{$switch} = {
'subnet4' => "$subnet4",
'subnet6' => "$subnet6",
'mgtmt4' => "$mgtmt4",
'mgtmt6' => "$mgtmt6",
'lolid' => "$lolid",
'distro' => "$distro"
};
$switches{$switch}{'placement_guess'} = \%foo;
}
print Dumper(\%switches);
|
