From e141d533a97ffa2a87276442e128a9146be0ead7 Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Sat, 11 Jan 2014 18:56:19 +0100
Subject: [PATCH] Add military centres and structure defence to dev scans

---
 database/r55_dev.sql | 2 ++
 scripts/scans.pl     | 6 +++---
 2 files changed, 5 insertions(+), 3 deletions(-)
 create mode 100644 database/r55_dev.sql

diff --git a/database/r55_dev.sql b/database/r55_dev.sql
new file mode 100644
index 0000000..0b8368f
--- /dev/null
+++ b/database/r55_dev.sql
@@ -0,0 +1,2 @@
+ALTER TABLE development_scans ADD COLUMN milcents INT NOT NULL;
+ALTER TABLE development_scans ADD COLUMN structdefs INT NOT NULL;
diff --git a/scripts/scans.pl b/scripts/scans.pl
index 8342960..8708d5b 100755
--- a/scripts/scans.pl
+++ b/scripts/scans.pl
@@ -145,9 +145,9 @@ sub parse_jumpgate {
 
 my $adddevscan = $dbh->prepare(q{INSERT INTO development_scans
 	(id,tick,pid,light_fac,medium_fac,heavy_fac,amps,distorters
-		,metal_ref,crystal_ref,eonium_ref,reslabs,fincents,seccents
+		,metal_ref,crystal_ref,eonium_ref,reslabs,fincents,milcents,seccents,structdefs
 		,travel,infra,hulls,waves,extraction,covert,mining,total)
-	VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)
+	VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)
 	});
 
 
@@ -243,7 +243,7 @@ while (my $scan = $newscans->fetchrow_hashref){
 			my $total = 0;
 			while($file =~ m{((?:[a-zA-Z]| )+)</t[dh]><td(?: class="right")?>(\d+)}sg){
 				push @values,$2;
-				$total += $2 if $#values <= 13;
+				$total += $2 if $#values <= 15;
 			}
 			push @values,$total;
 			$adddevscan->execute(@values);
-- 
2.39.2