--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/bldsystemtools/commonbldutils/BuildLaunchChecks.pm Tue Feb 02 01:39:43 2010 +0200
@@ -0,0 +1,272 @@
+#This module is used by startbuild.pl
+#It asks for some BuildLaunch data from the user and performs some checks on this data
+#This is then input to the BuildLaunch.xml file and then opens the file for the user to verify before launching the build.
+
+package BuildLaunchChecks;
+use strict;
+
+sub GetUserInput
+{
+ # Ask for Snapshot, Previous Snapshot and ChangeList numbers
+
+ my $Product;
+ print "Enter Product number (e.g 9.1/9.5/tb91sf/tb92sf/tb101sf) >";
+ chomp($Product = <STDIN>);
+ $Product =~ s/\s+//g;
+
+ my $Snapshot;
+ print "Enter Snapshot number >";
+ chomp($Snapshot = <STDIN>);
+ $Snapshot =~ s/\s+//g;
+
+ my $PrevSnapshot;
+ print "Enter Previous Snapshot number >";
+ chomp($PrevSnapshot = <STDIN>);
+ $PrevSnapshot =~ s/\s+//g;
+
+ my $Changelist;
+ print "Enter ChangeList number >";
+ chomp($Changelist = <STDIN>);
+ $Changelist =~ s/\s+//g;
+ print "\n";
+
+ my $CurrentCodeline;
+ print "Enter Codeline (e.g. //epoc/master //EPOC/Release/sf/symtb91 //EPOC/master/sf) >";
+ chomp($CurrentCodeline = <STDIN>);
+ $CurrentCodeline =~ s/\s+//g;
+ print "\n";
+
+ my $Platform;
+ print "Enter Platform (e.g. beech/cedar/SF) >";
+ chomp($Platform = <STDIN>);
+ $Platform =~ s/\s+//g;
+ print "\n";
+
+ my $Type;
+ print "Enter Type (e.g Master/MasterSF/Symbian_OS_v9.1/Symbian_OS_vTB91SF) >";
+ chomp($Type = <STDIN>);
+ $Type =~ s/\s+//g;
+ print "\n";
+
+
+
+ return $Product,
+ $Snapshot,
+ $PrevSnapshot,
+ $Changelist,
+ $CurrentCodeline,
+ $Platform,
+ $Type;
+}
+
+sub GetBCValue
+{
+ my($BuildData) = @_;
+ $BuildData->{CurrentCodeline} =~ s/\/$//; #drop any trailing /
+ my $cmd = "p4 print -q $BuildData->{CurrentCodeline}/os/buildtools/bldsystemtools/commonbldutils/BCValues.xml\@$BuildData->{ChangelistNumber}";
+ my $BCValues = `$cmd`;
+ warn "WARNING: Could not open BCValues file" if $?;
+
+ my @BCValues = split /\n/m, $BCValues;
+
+ my $BCToolsBaseBuildNo;
+
+ my $Product_Found = 0;
+ foreach my $line (@BCValues)
+ {
+ $Product_Found = 1 if ($line =~ m/Product name=\"$BuildData->{Product}\"/i);
+
+ if (($line =~ m/\"BCToolsBaseBuildNo\" Value=\"(.*)\"/i)&&($Product_Found == 1))
+ {
+ $BCToolsBaseBuildNo = $1;
+ $BCToolsBaseBuildNo =~ s/\s+//g;
+ last;
+ }
+ }
+
+ return $BCToolsBaseBuildNo;
+}
+
+sub CheckData
+{
+ my($BuildData) = @_;
+
+ my @change;
+ my $Error;
+ my $BCBaseBuild = "$BuildData->{PreviousBuildPublishLocation}\\$BuildData->{Type}\\$BuildData->{BCToolsBaseBuildNo}"."_Symbian_OS_v$BuildData->{Product}"
+ if ((defined $BuildData->{BCToolsBaseBuildNo})&&(defined $BuildData->{Type})&&(defined $BuildData->{Product}));
+ my $warnings = 0;
+
+ #Check that the Changelist number entered at prebuild is the same as the Changelist entered at startbuild
+ if (($ENV{CHANGELIST} != $BuildData->{ChangelistNumber})&&(defined $ENV{CHANGELIST})&&(defined $BuildData->{ChangelistNumber}))
+ {
+ warn "Warning: Changelist numbers entered at prebuild and startbuild are different\n";
+ $warnings++;
+ }
+
+ #Check that the Changelist number entered is on the CodeLine
+ if(defined $BuildData->{ChangelistNumber})
+ {
+ my $describe = "p4 -s describe $BuildData->{ChangelistNumber} 2>&1";
+ push @change, `$describe`;
+ warn "ERROR: Could not execute: $describe\n" if $?;
+
+ foreach my $line(@change)
+ {
+ if ($line =~ m/$BuildData->{CurrentCodeline}/i)
+ {
+ $Error = 0;
+ last;
+ }
+ }
+ if (!defined $Error)
+ {
+ warn "Warning: Change $BuildData->{ChangelistNumber} does not exist on $BuildData->{CurrentCodeline}\n";
+ $warnings++;
+ }
+ }
+
+ #Check that the Previous Snapshot is less than the Current Snapshot
+ if (($BuildData->{SnapshotNumber} lt $BuildData->{PreviousSnapshotNumber})&&(defined $BuildData->{SnapshotNumber})&&(defined $BuildData->{PreviousSnapshotNumber}))
+ {
+ warn "Warning: Current snapshot is less than the Previous snapshot\n";
+ $warnings++;
+ }
+
+ #Check that the Previous Snapshot Number exists
+ if ((!-e "$BuildData->{PreviousBuildPublishLocation}\\$BuildData->{Type}\\$BuildData->{PreviousSnapshotNumber}"."_Symbian_OS_v$BuildData->{Product}")&&(defined $BuildData->{PreviousSnapshotNumber})&&(defined $BuildData->{Product})&&(defined $BuildData->{Type}))
+ {
+ warn "Warning: Previous snapshot number does not exist on $BuildData->{PreviousBuildPublishLocation}\\$BuildData->{Type}\n";
+ $warnings++;
+ }
+
+ #Check that CBR exists for the Previous Snapshot
+ if ((!-e "$BuildData->{PreviousBuildPublishLocation}\\ComponentisedReleases\\DailyBuildArchive\\Symbian_OS_v$BuildData->{Product}\\gt_techview_baseline\\$BuildData->{PreviousSnapshotNumber}"."_Symbian_OS_v$BuildData->{Product}")&&(defined $BuildData->{PreviousSnapshotNumber})&&(defined $BuildData->{Product}))
+ {
+ warn "Warning: CBR does not exist for build $BuildData->{PreviousSnapshotNumber}\n";
+ $warnings++;
+ }
+
+ #Check that the BCToolsBaseBuildNo exists on devbuilds
+ if ((!-e $BCBaseBuild)&&(defined $BCBaseBuild)&&(defined $BuildData->{BCToolsBaseBuildNo}))
+ {
+ warn "Warning: $BuildData->{BCToolsBaseBuildNo}"."_"."Symbian_OS_v$BuildData->{Product} does not exist on \\\\Builds01\\devbuilds\\$BuildData->{Type}\n";
+ $warnings++;
+ }
+ return $warnings;
+}
+
+sub UpdateXML
+{
+ my($xmlfile, $BuildData, $Sync) = @_;
+ open(XMLFILE, '+<', $xmlfile) || warn "Warning: can't open $xmlfile for append: $!";
+ my @initarray = <XMLFILE>;
+
+ my $Left;
+ my $Right;
+
+ foreach my $line (@initarray)
+ {
+ if (($line =~ m/\"SnapshotNumber\" Value=\"([^\"]+)\"/)&&(defined $BuildData->{SnapshotNumber}))
+ {
+ $Left = $`;
+ $Right = $';
+ $line= $Left . "\"SnapshotNumber\" Value=\"" . $BuildData->{SnapshotNumber} ."\"" . $Right;
+ next;
+ }
+
+ if (($line =~ m/\"PreviousSnapshotNumber\" Value=\"([^\"]+)\"/)&&(defined $BuildData->{PreviousSnapshotNumber}))
+ {
+ $Left = $`;
+ $Right = $';
+ $line= $Left . "\"PreviousSnapshotNumber\" Value=\"" . $BuildData->{PreviousSnapshotNumber} ."\"" . $Right;
+ next;
+ }
+
+ if (($line =~ m/\"ChangelistNumber\" Value=\"([^\"]+)\"/)&&(defined $BuildData->{ChangelistNumber}))
+ {
+ $Left = $`;
+ $Right = $';
+ $line= $Left . "\"ChangelistNumber\" Value=\"" . $BuildData->{ChangelistNumber} ."\"" . $Right;
+ next;
+ }
+
+ if (($line =~ m/\"Platform\" Value=\"([^\"]+)\"/)&&(defined $BuildData->{Platform}))
+ {
+ $Left = $`;
+ $Right = $';
+ $line= $Left . "\"Platform\" Value=\"" . $BuildData->{Platform} ."\"" . $Right;
+ next;
+ }
+
+ if (($line =~ m/\"Product\" Value=\"([^\"]+)\"/)&&(defined $BuildData->{Product}))
+ {
+ $Left = $`;
+ $Right = $';
+ $line= $Left . "\"Product\" Value=\"" . $BuildData->{Product} ."\"" . $Right;
+ next;
+ }
+
+ if (($line =~ m/\"PublishLocation\" Value=\"([^\"]+)\"/)&& (defined $BuildData->{PublishLocation}))
+ {
+ $Left = $`;
+ $Right = $';
+ $line= $Left . "\"PublishLocation\" Value=\"$BuildData->{PublishLocation}\"" . $Right;
+ next;
+ }
+
+ if (($line =~ m/\"CurrentCodeline\" Value=\"([^\"]+)\"/)&&(defined $BuildData->{CurrentCodeline}))
+ {
+ $Left = $`;
+ $Right = $';
+ $line= $Left . "\"CurrentCodeline\" Value=\"$BuildData->{CurrentCodeline}\"" . $Right;
+ next;
+ }
+
+ if (($line =~ m/\"Type\" Value=\"([^\"]+)\"/)&&(defined $BuildData->{Type}))
+ {
+ $Left = $`;
+ $Right = $';
+ $line= $Left . "\"Type\" Value=\"$BuildData->{Type}\"" . $Right;
+
+ next;
+ }
+
+ if (($line =~ m/\"BuildSubType\" Value=\"([^\"]+)\"/)&&(defined $BuildData->{BuildSubType}))
+ {
+ $Left = $`;
+ $Right = $';
+ $line= $Left . "\"BuildSubType\" Value=\"$BuildData->{BuildSubType}\"" . $Right;
+
+ next;
+ }
+
+ if (($line =~ m/\"BCToolsBaseBuildNo\" Value=\"([^\"]+)\"/)&&(defined $BuildData->{BCToolsBaseBuildNo}))
+ {
+ $Left = $`;
+ $Right = $';
+ $line= $Left . "\"BCToolsBaseBuildNo\" Value=\"" . $BuildData->{BCToolsBaseBuildNo} ."\"" . $Right;
+ next;
+ }
+
+ if (($line =~ m/\"BuildsDirect\" Value=\"([^\"]+)\"/)&&(defined $BuildData->{BuildsDirect}))
+ {
+ $Left = $`;
+ $Right = $';
+ $line= $Left . "\"BuildsDirect\" Value=\"$BuildData->{BuildsDirect}\"" . $Right;
+
+ last;
+ }
+ }
+
+ # output the changes to the original file
+ seek(XMLFILE,0,0);
+ print XMLFILE @initarray;
+ truncate(XMLFILE,tell(XMLFILE));
+
+ close(XMLFILE);
+}
+
+1;
+
+__END__