From 40d6c7e02855fa3bb3cf35805efe853051c88ea5 Mon Sep 17 00:00:00 2001
From: root <root@sysrq>
Date: Wed, 4 Apr 2007 13:08:36 +0200
Subject: [PATCH] Update make-switches.pl for TG07.

---
 web/make-switches.pl | 38 +++++++++++++++++++++-----------------
 1 file changed, 21 insertions(+), 17 deletions(-)

diff --git a/web/make-switches.pl b/web/make-switches.pl
index e1d3fe9..9283546 100644
--- a/web/make-switches.pl
+++ b/web/make-switches.pl
@@ -11,9 +11,6 @@ print "SELECT pg_catalog.setval('polls_poll_seq', 1, false);\n";
 open PATCHLIST, "patchlist.txt"
 	or die "patchlist.txt: $!";
 
-my $cc = 241;
-my $dd = 0;
-
 my $i = 1;
 while (<PATCHLIST>) {
 	chomp;
@@ -46,24 +43,31 @@ while (<PATCHLIST>) {
 	my $xx = $x + 12;
 	my $yy = $y + (($s > 3) ? 50 : 48);
 
-	$dk = $dd + 7 + ($cc - 241) * 42;
-
-# lasses magic-factor =)
-	$dk += 4;
-	if ($dk > 13) {
-		$dk += 3;
-	}	
+	my ($ip, $range);
+	if ($s == 1) {
+		$ip = "87.76." . ($e) . ".2";
+		$range = "87.76." . ($e) . ".0";
+	} elsif ($s == 2) {
+		$ip = "87.76." . ($e) . ".66";
+		$range = "87.76." . ($e) . ".64";
+	} elsif ($s == 3) {
+		$ip = "87.76." . ($e) . ".130";
+		$range = "87.76." . ($e) . ".128";
+	} elsif ($s == 4) {
+		$ip = "87.76." . ($e + 1) . ".2";
+		$range = "87.76." . ($e + 1) . ".0";
+	} elsif ($s == 5) {
+		$ip = "87.76." . ($e + 1) . ".66";
+		$range = "87.76." . ($e + 1) . ".64";
+	} elsif ($s == 6) {
+		$ip = "87.76." . ($e + 1) . ".130";
+		$range = "87.76." . ($e + 1) . ".128";
+	}
 
-	print "insert into switches (ip, sysname, switchtype) values ('87.76.$cc.$dk', 'e$e-${s}sw', 'es3024');\n";
+	print "insert into switches (ip, sysname, switchtype) values ('$ip', 'e$e-${s}sw', 'es3024');\n";
 	print "insert into placements (switch, placement) values ($i, box '(($x,$y),($xx,$yy))');\n";
 	print "insert into dhcp (switch, network) values ($i, '87.76.$c.$d/26');\n";
 	$i++;
-
-	$dd++;
-	if ($dd == 42) {
-		$cc++;
-		$dd = 0;
-	}
 }
 
 print "end;\n";
-- 
2.39.2