1 files changed, 53 insertions, 0 deletions
diff --git a/clients/update-switch-placements.pl b/clients/update-switch-placements.pl
new file mode 100644
index 0000000..d635f87
--- /dev/null
+++ b/clients/update-switch-placements.pl
@@ -0,0 +1,53 @@
+#! /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";