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'; }
}
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};
}
}
}
- `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`;
}
}
}
+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});