blob: d635f87f0cb148fca715d08777e74d9fc475ba3c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
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";
|
