8 chomp (my $switch = $_);
9 print "DELETE FROM placements WHERE switch=$switch;\n";
10 printf "INSERT INTO placements VALUES ( $switch, '(%u,%u,%u,%u)');\n",
11 $x, $y, $x + 14, $y + 51;
16 if ($x > 410 && $done == 0) {
20 if ($x > 570 && $done == 1) {