4 print "delete from temppoll;\n";
5 print "delete from placements;\n";
6 print "delete from dhcp;\n";
7 print "delete from switches;\n";
8 print "SELECT pg_catalog.setval('switches_switch_seq', 1, false);\n";
9 print "SELECT pg_catalog.setval('polls_poll_seq', 1, false);\n";
11 open PATCHLIST, "patchlist.txt"
12 or die "patchlist.txt: $!";
20 my ($name, $distro, $port) = split / /;
22 $name =~ /e(\d+)-(\d+)/;
23 my ($e, $s) = ($1, $2);
25 my $x = int(244 + $e * 9.87);
28 $x += 7 if ($e >= 19);
29 $x += 14 if ($e >= 35);
30 $x += 9 if ($e >= 51);
31 $x += 9 if ($e >= 68 && $s < 4);
43 $y = 424 - $s * 48 - ($s - 3) * 2;
47 my $yy = $y + (($s > 3) ? 50 : 48);
49 $dk = $dd + 7 + ($cc - 241) * 42;
51 # lasses magic-factor =)
57 print "insert into switches (ip, sysname, switchtype) values ('87.76.$cc.$dk', 'e$e-${s}sw', 'es3024');\n";
58 print "insert into placements (switch, placement) values ($i, box '(($x,$y),($xx,$yy))');\n";
59 print "insert into dhcp (switch, network) values ($i, '87.76.$c.$d/26');\n";