--- a/bldsystemtools/commonbldutils/BuildLaunchChecks.pm Wed Mar 31 23:20:42 2010 +0300
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,287 +0,0 @@
-#
-# Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
-# All rights reserved.
-# This component and the accompanying materials are made available
-# under the terms of "Eclipse Public License v1.0"
-# which accompanies this distribution, and is available
-# at the URL "http://www.eclipse.org/legal/epl-v10.html".
-#
-# Initial Contributors:
-# Nokia Corporation - initial contribution.
-#
-# Contributors:
-#
-# Description:
-#
-#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__