3 print "delete from temppoll;\n";
4 print "delete from placements;\n";
5 print "delete from dhcp;\n";
6 print "delete from switches;\n";
7 print "SELECT pg_catalog.setval('switches_switch_seq', 1, false);\n";
8 print "SELECT pg_catalog.setval('polls_poll_seq', 1, false);\n";
15 next if ($e % 2 == 0);
18 next if ($s < 4 && $e < 5);
19 next if ($s >= 4 && $e > 72);
21 next if ($e >= 69 && ($s == 1 || $s == 6));
23 my $x = int(285 + $e * 9.45);
26 $x += 7 if ($e >= 19);
27 $x += 14 if ($e >= 35);
28 $x += 9 if ($e >= 51);
29 $x += 9 if ($e >= 68 && $s < 4);
41 $y = 450 - $s * 48 - ($s - 3) * 2;
45 my $yy = $y + (($s > 3) ? 50 : 48);
47 $dk = $dd + 7 + ($cc - 241) * 42;
49 # lasses magic-factor =)
55 print "insert into switches (ip, sysname, switchtype) values ('81.162.$cc.$dk', 'e$e-${s}sw', 'es3024');\n";
56 print "insert into placements (switch, placement) values ($i, box '(($x,$y),($xx,$yy))');\n";
57 print "insert into dhcp (switch, network) values ($i, '81.162.$c.$d/26');\n";
69 81.162.212.0/24|81.162.212.1|game|es3024|((1100,200),(1125,225))
70 81.162.250.0/24|81.162.250.1|noc|es3024|((630,520),(680,550))
71 81.162.252.0/24|81.162.252.1|presse|es3024|((560,520),(610,550))
72 81.162.203.0/24|81.162.203.1|info-desk|es3024|((270,350),(305,385))
73 81.162.213.0/24|81.162.213.1|logistics|es3024|((800,75),(900,100))
74 81.162.213.0/24|81.162.213.1|logistics|es3024|((800,75),(900,100))
75 81.162.200.0/24|81.162.200.1|vision|es3024|((170,240),(200,270))
76 81.162.202.0/24|81.162.202.1|vision-sponsor|es3024|((220,150),(250,180))
80 my ($net,$mip,$sysname,$switchtype,$box) = split /\|/, $x;
81 print "insert into switches (ip, sysname, switchtype) values ('$mip', '$sysname', '$switchtype');\n";
82 print "insert into placements (switch, placement) values ($i, box '$box');\n";
83 print "insert into dhcp (switch, network) values ($i, '$net');\n";