-my @k = qw(
- 81.162.212.0/24|81.162.212.1|game|es3024|((1100,200),(1125,225))
- 81.162.250.0/24|81.162.250.1|noc|es3024|((630,520),(680,550))
- 81.162.252.0/24|81.162.252.1|presse|es3024|((560,520),(610,550))
- 81.162.203.0/24|81.162.203.1|info-desk|es3024|((270,350),(305,385))
- 81.162.213.0/24|81.162.213.1|logistics|es3024|((800,75),(900,100))
- 81.162.213.0/24|81.162.213.1|logistics|es3024|((800,75),(900,100))
- 81.162.200.0/24|81.162.200.1|vision|es3024|((170,240),(200,270))
- 81.162.202.0/24|81.162.202.1|vision-sponsor|es3024|((220,150),(250,180))
- );
-
-for my $x (@k) {
- my ($net,$mip,$sysname,$switchtype,$box) = split /\|/, $x;
- print "insert into switches (ip, sysname, switchtype) values ('$mip', '$sysname', '$switchtype');\n";
- print "insert into placements (switch, placement) values ($i, box '$box');\n";
- print "insert into dhcp (switch, network) values ($i, '$net');\n";
+ my $xx = $x + 12;
+ my $yy = $y + (($s > 3) ? 50 : 48);
+
+ $dk = $dd + 7 + ($cc - 241) * 42;
+
+# lasses magic-factor =)
+ $dk += 4;
+ if ($dk > 13) {
+ $dk += 3;
+ }
+
+ print "insert into switches (ip, sysname, switchtype) values ('87.76.$cc.$dk', 'e$e-${s}sw', 'es3024');\n";
+ print "insert into placements (switch, placement) values ($i, box '(($x,$y),($xx,$yy))');\n";
+ print "insert into dhcp (switch, network) values ($i, '87.76.$c.$d/26');\n";