-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";
+ print "insert into switches (ip, sysname, switchtype) values ('$ip', '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";