diff options
Diffstat (limited to 'clients/update-switch-placements.pl')
-rw-r--r-- | clients/update-switch-placements.pl | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/clients/update-switch-placements.pl b/clients/update-switch-placements.pl deleted file mode 100644 index d635f87..0000000 --- a/clients/update-switch-placements.pl +++ /dev/null @@ -1,53 +0,0 @@ -#! /usr/bin/perl - -print "begin;\n"; -print "delete from placements;\n"; - -open PATCHLIST, "../patchlist.txt" - or die "../patchlist.txt: $!"; - -my $RANGE = "87.76."; - -my $i = 1; -while (<PATCHLIST>) { - chomp; - my ($name, $distro, $port) = split / /; - - $name =~ /e(\d+)-(\d+)/; - my ($e, $s) = ($1, $2); - - my $x = int(168 + $e * 11); - my $y; - - $x += 1 if ($e >= 11); - $x += 2 if ($e >= 15); - $x += 2 if ($e >= 15 && $e < 45 && $s > 2); - $x += 2 if ($e >= 21); - $x += 2 if ($e >= 27 && $e < 45 && $s > 2); - $x += 9 if ($e >= 29); - $x += 1 if ($e >= 31); - $x += 2 if ($e >= 35); - $x += 15 if ($e >= 45); - $x += 2 if ($e >= 51); - $x += 11 if ($e >= 61); - $x += 1 if ($e >= 67); - $x += 1 if ($e >= 71); - $x += 1 if ($e >= 75); - $x += 1 if ($e >= 81); - - if ($s > 2) { - $y = 152 + 88 - 88 * ($s-3); - } else { - $y = 357 + 88 - 88 * ($s-1); - } - - my $xx = $x + 16; - my $yy = $y + 88; - - # Justeringer - - print "insert into placements (switch, placement) values ($i, box '(($x,$y),($xx,$yy))');\n"; - $i++; -} - -print "end;\n"; |