Support updates from Jenkins.
authorFrantišek Dvořák <valtri@civ.zcu.cz>
Mon, 13 May 2013 14:37:32 +0000 (16:37 +0200)
committerFrantišek Dvořák <valtri@civ.zcu.cz>
Mon, 13 May 2013 14:37:32 +0000 (16:37 +0200)
matrixgen.pl

index f19e609..b478b35 100755 (executable)
@@ -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});