From: František Dvořák <valtri@civ.zcu.cz>
Date: Mon, 13 May 2013 14:37:32 +0000 (+0200)
Subject: Support updates from Jenkins.
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=7005f49aba55822e8aa59c3711af374257cea381;p=meta-dashboard.git

Support updates from Jenkins.
---

diff --git a/matrixgen.pl b/matrixgen.pl
index f19e609..b478b35 100755
--- a/matrixgen.pl
+++ b/matrixgen.pl
@@ -82,6 +82,7 @@ foreach my $i (0..$#list) {
 		elsif (/^double.*upgrade/i) { $scen = 'double-upgrade'; }
 		elsif (/^upgrade/i or /major upgrade/i) { $scen = 'major-upgrade'; }
 		elsif (/^minor upgrade/i) { $scen = 'minor-upgrade'; }
+		elsif (/^update/i) { $scen = 'update'; }
 		elsif (/build/i) { $scen = 'build'; }
 	}
 	
@@ -175,7 +176,7 @@ foreach my $s (keys %list) {
 foreach my $c (sort keys %components) {
 	my $cmd;
 
-	for my $s ('install', 'minor-upgrade', 'major-upgrade', 'double-upgrade') {
+	for my $s ('install', 'minor-upgrade', 'major-upgrade', 'double-upgrade', 'update') {
 		if (exists $list{$s}) {
 			for my $p (sort keys %{$list{$s}{$c}}) {
 				$item = $list{$s}{$c}{$p};
@@ -186,7 +187,7 @@ foreach my $c (sort keys %components) {
 			}
 		}
 	}
-	`cat /tmp/report-$c-install.twiki.part /tmp/report-$c-minor-upgrade.twiki.part /tmp/report-$c-major-upgrade.twiki.part /tmp/report-$c-double-upgrade.twiki.part > /tmp/report-$c.twiki 2>/dev/null`;
+	`cat /tmp/report-$c-install.twiki.part /tmp/report-$c-minor-upgrade.twiki.part /tmp/report-$c-major-upgrade.twiki.part /tmp/report-$c-double-upgrade.twiki.part /tmp/report-$c-update.twiki.part > /tmp/report-$c.twiki 2>/dev/null`;
 	`rm -f /tmp/report-$c-*.twiki.part`;
 }
 
@@ -277,6 +278,15 @@ if (exists $list{'double-upgrade'}) {
 	}
 }
 
+if (exists $list{'update'}) {
+	print "<a name=\"update\"/><h1>Minor upgrade from production</h1>\n";
+	table($list{'update'});
+	print "\n";
+	if (-f 'update.html.in') {
+		system 'cat update.html.in';
+	}
+}
+
 if (exists $list{build}) {
 	print "<a name=\"build\"/><h1>Local build</h1>\n";
 	table($list{build});