mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
766 lines
22 KiB
766 lines
22 KiB
|
|
if (!$__IITENVPM ) { use iit::env; }
|
|
if (!$__IITBUILDCOMPONENTPM ) { use iit::buildcomponent; }
|
|
if (!$__IITSSREPLPM ) { use iit::ssrepl; }
|
|
|
|
|
|
sub BuildServer
|
|
{
|
|
local($sServerName, @lBuildServerComponents) = @_;
|
|
my($rc) = BC_NOTHINGDONE;
|
|
|
|
PrintL("\nStarting ".$sServerName." ... \n\n", PL_HEADER);
|
|
my($sBuildResultsFile) = $PROJROOT."\\logs\\".$sServerName."msg.html";
|
|
unlink($sBuildResultsFile);
|
|
|
|
PrintToFile($sBuildResultsFile,
|
|
"<html><title>".$sServerName." Results</title><body bgproperties=\"FIXED\"".
|
|
"background=\"http://iit/images/IITback2.gif\">");
|
|
foreach $component (@lBuildServerComponents)
|
|
{
|
|
my($sComponentName, $sParams) = split(/\s*=>\s*/, $component, 2);
|
|
PrintL("\nStarting ".$sComponentName." build ... \n\n", PL_SUBHEADER);
|
|
$strBuildMsg = ""; #TODO: remove
|
|
|
|
my($bcComponent) = SetLocalGlobalsAndBegin($sComponentName, split(/\s+/, $sParams));
|
|
|
|
Append($sBuildResultsFile, $PROJROOT."\\logs\\".$sComponentName."msg.html");
|
|
$rc |= $bcComponent;
|
|
if (!($bcComponent & BC_NOTHINGDONE) && ($rc & BC_NOTHINGDONE))
|
|
{
|
|
$rc -= BC_NOTHINGDONE;
|
|
}
|
|
}
|
|
|
|
my($sResults) = "<b><font size=5 face=\"arial\">".$sBuildName." Results: <BR>"
|
|
.BuildCodeToHTML($rc)."<BR><\/font><\/b>".GetAllTextFromFile($sBuildResultsFile);
|
|
unlink($sBuildResultsFile);
|
|
PrintToFile($sBuildResultsFile, $sResults);
|
|
PrintToFile($sBuildResultsFile, "<BR><BR>\n".FormatLogAsHTML(GetSLMLog('-t '.GetDayRange(2))));
|
|
|
|
$sResults = GetAllTextFromFile($sBuildResultsFile);
|
|
|
|
my($sRecipients) = "";
|
|
|
|
if ($USERNAME eq "nlgbuild") # fix!
|
|
{
|
|
$sRecipients = join(" ", @lOfficialMailRecipients);
|
|
}
|
|
else
|
|
{
|
|
$sRecipients = join(" ", @lMailRecipients);
|
|
}
|
|
|
|
SendHtmlMail($sRecipients,
|
|
$sServerName." Results: ".HTMLToStr(BuildCodeToHTML($rc)),
|
|
$sResults);
|
|
return($rc);
|
|
}
|
|
|
|
|
|
####################################################################################
|
|
|
|
# BeginBuild()
|
|
|
|
# performs many common tasks when beginning a build (opens the logs, handles many of the
|
|
# passed argument options, sets up the variables, etc.)
|
|
# call after SetLocalGlobalsAndBegin() and before EndBuild()
|
|
|
|
# a-jbilas, 03/20/99 - created
|
|
|
|
####################################################################################
|
|
|
|
sub BeginBuild
|
|
{
|
|
my($rc) = 1;
|
|
|
|
$strBuildMsg .= "<! ".$sShortBuildName." ".$nScriptStartTime." SUMMARY ENTRY POINT >\n";
|
|
|
|
# our way of doing set local (reset at EndBuild())
|
|
$sOldPath = $PATH;
|
|
$sOldInclude = $INCLUDE;
|
|
$sOldLib = $LIB;
|
|
|
|
if (!$bGlobalsSet)
|
|
{
|
|
PrintL("Globals not set\n", PL_BIGWARNING);
|
|
}
|
|
|
|
my($startDir) = @_;
|
|
shift(@_);
|
|
|
|
@lAllowedArgs = Union(*lAllowedArgs, *lAllowedBuilds);
|
|
@lAllowedArgs = Union(*lAllowedArgs, *lAllowedModifiers);
|
|
@lAllowedArgs = Union(*lAllowedArgs, *lAllowedComponents);
|
|
@lAllowedArgs = Union(*lAllowedArgs, *lAllowedLanguages);
|
|
BuildAcceleratorLists();
|
|
@lArgs = ParseArgs(@_);
|
|
|
|
####### change dir to build root
|
|
PushD($startDir);
|
|
|
|
####### delete old build message and build log
|
|
PrintL("Deleting old build logs ...\n\n");
|
|
|
|
EchoedUnlink($sMailfile, $sVarsLog, $sTyposLog, $sSyncLog, $sUpdateLog, $sBuildLog);
|
|
|
|
$fhBuildLog = OpenFile($sBuildLog, "write");
|
|
if (!$fhBuildLog)
|
|
{
|
|
PrintL("Could not open ".$sBuildLog.", logging for this session will be disabled\n\n", PL_BIGERROR);
|
|
}
|
|
else
|
|
{
|
|
$fhBuildLog->print(GetAllTextFromFile($sDHTMLIncFile)."\n\n<html>\n");
|
|
if (!$bDHTMLActive)
|
|
{
|
|
if ($strBuildMsg !~ /<! DHTML ACTIVATION SCRIPT >/)
|
|
{
|
|
PrintL("<! DHTML ACTIVATION SCRIPT >".GetAllTextFromFile($sDHTMLIncFile)
|
|
."<! END DHTML ACTIVATION SCRIPT >", PL_MSGONLY);
|
|
}
|
|
$bDHTMLActive = 1;
|
|
}
|
|
}
|
|
|
|
####### make list of build types needed
|
|
@lBuilds = Intersect(*lAllowedBuilds, *lArgs);
|
|
if (IsMemberOf("ALL", @lArgs))
|
|
{
|
|
@lBuilds = @lAllowedBuilds;
|
|
}
|
|
if (IsMemberOf("SHIP", @lArgs))
|
|
{
|
|
$bShipBuild = 1;
|
|
if (@lBuilds == ())
|
|
{
|
|
@lBuilds = @lAllowedBuilds;
|
|
}
|
|
}
|
|
|
|
####### set modifier flags
|
|
if (IsMemberOf("VERBOSE", @lArgs))
|
|
{
|
|
$DEBUG = 1; #TODO: change all refs to this flag to $bVerbose
|
|
$bVerbose = 1;
|
|
}
|
|
if (IsMemberOf("BVT", @lArgs))
|
|
{
|
|
$bBVT = 1;
|
|
}
|
|
if (IsMemberOf("NOCOPY", @lArgs))
|
|
{
|
|
$bNoCopy = 1;
|
|
}
|
|
|
|
if (IsMemberOf("MAIL", @lArgs))
|
|
{
|
|
$bSendMail = 1;
|
|
}
|
|
if (IsMemberOf("HALT", @lArgs))
|
|
{
|
|
$bDieOnError = 1;
|
|
}
|
|
if (@lBuilds == () && @lAllowedBuilds != ())
|
|
{
|
|
PrintL("No buildtype selected, defaulting to ".$lAllowedBuilds[0]."\n\n", PL_NOLOG);
|
|
@lBuilds = ($lAllowedBuilds[0], @lBuilds);
|
|
}
|
|
|
|
@lModifiers = Intersect(*lAllowedModifiers, *lArgs);
|
|
|
|
if (IsMemberOf("ALLCOMP", @lModifiers))
|
|
{
|
|
@lComponents = @lAllowedComponents;
|
|
}
|
|
else
|
|
{
|
|
@lComponents = Intersect(*lAllowedComponents, *lArgs);
|
|
if (@lComponents == () && @lAllowedComponents != ())
|
|
{
|
|
PrintL("No components chosen, defaulting to ".$lAllowedComponents[0]."\n\n", PL_NOLOG);
|
|
push(@lComponents, $lAllowedComponents[0]); #defaults to first component in @lAllowedComponents
|
|
}
|
|
}
|
|
|
|
####### set build number (and official build)
|
|
if (((lc($USERNAME) eq $sOfficialBuildAccount) || IsMemberOf("OFFICIAL", @lArgs)) && !IsMemberOf("TEST", @lArgs))
|
|
{
|
|
if (defined($ENV{"BUILDNUM"}) && $ENV{"BUILDNUM"} > 0)
|
|
{
|
|
$sBuildNumber = $ENV{"BUILDNUM"};
|
|
}
|
|
else
|
|
{
|
|
$sBuildNumber = GetBuildNumber($nBuildStartYear);
|
|
$ENV{"BUILDNUM"} = $sBuildNumber;
|
|
}
|
|
@lMailRecipients = Union(*lOfficialMailRecipients, *lMailRecipients);
|
|
$bOfficialBuild = 1;
|
|
# 0000 is assumed to be unique build identifier
|
|
$sDropDir =~ s/0000/$sBuildNumber/; #set the drop dir location for official build
|
|
$sLogDropDir =~ s/0000/$sBuildNumber/; #set the drop dir location for official build
|
|
$sRemoteBuildLog =~ s/0000/$sBuildNumber/; #set the log name for official build
|
|
if (!$bNoCopy && !IsMemberOf("NONEWLOG", @lArgs))
|
|
{
|
|
UpdateLogTOC($sRemoteTOC, $sBuildLog);
|
|
}
|
|
if (!IsMemberOf(@lArgs, "QUIET") && IsMemberOf(@lAllowedArgs, "QUIET"))
|
|
{
|
|
push(@lArgs, "QUIET");
|
|
}
|
|
}
|
|
else
|
|
{
|
|
$sBuildNumber = "0000";
|
|
$bOfficialBuild = 0;
|
|
$sDropDir =~ s/$sRootDropDir/$sTestRootDropDir/;
|
|
$sLogDropDir = $sLogDir;
|
|
$sRemoteBuildLog = $sBuildLog;
|
|
$sRootDropDir = $sTestRootDropDir;
|
|
}
|
|
|
|
$ENV{"BUILDNUM"} = $sBuildNumber; #legacy script (ssrepl depends on this) TODO: remove
|
|
|
|
OutputHeader($nLoggingMode);
|
|
|
|
####### resync
|
|
|
|
if (IsMemberOf("RESYNC", @lArgs))
|
|
{
|
|
PrintL("Resyncing SLM Files ...\n\n", PL_LARGE | PL_BOLD);
|
|
|
|
if ($bOfficialBuild)
|
|
{
|
|
GrabCookie('r');
|
|
}
|
|
if (@lSyncDirs != ())
|
|
{
|
|
foreach $dir (@lSyncDirs)
|
|
{
|
|
my($bRecurse) = 0;
|
|
if ($dir =~ /^RECURSE:/)
|
|
{
|
|
$dir =~ s/^RECURSE://;
|
|
$bRecurse = 1;
|
|
}
|
|
|
|
PushD($dir);
|
|
PrintL(" - Syncing ".$dir."\n", PL_BLUE | PL_BOLD);
|
|
PrintToFile($sSyncLog, ("*" x 30)."\nSyncing ".$dir."\n\n");
|
|
ExecuteAndOutputToFile($cmdSync." -f".($bRecurse ? "r" : ""), $sSyncLog);
|
|
PopD();
|
|
}
|
|
}
|
|
else
|
|
{
|
|
ExecuteAndOutputToFile($cmdSync." -rf", $sSyncLog);
|
|
}
|
|
PrintL("\n");
|
|
if ($bOfficialBuild)
|
|
{
|
|
FreeCookie();
|
|
}
|
|
}
|
|
|
|
####### rebuild
|
|
|
|
if (IsMemberOf("REBUILD", @lArgs))
|
|
{
|
|
if (@lCleanDirs != ())
|
|
{
|
|
PrintL("Cleaning Up ...\n\n", PL_SUBHEADER);
|
|
foreach $dir (@lCleanDirs)
|
|
{
|
|
DelAll($dir, 'RECURSE');
|
|
}
|
|
PrintL("\n");
|
|
}
|
|
else
|
|
{
|
|
# TODO: default behavior
|
|
}
|
|
}
|
|
|
|
if ($bVerbose)
|
|
{
|
|
DumpVars();
|
|
}
|
|
# at this point we should be ready for build (or to delete files if rebuild, then build)
|
|
# don't forget to EndBuild() or the starting directory will not returned to and ENV vars will not be restored
|
|
|
|
if (defined &BeginBuildCustom)
|
|
{
|
|
return(BeginBuildCustom() && $rc);
|
|
}
|
|
else
|
|
{
|
|
return($rc);
|
|
}
|
|
}
|
|
|
|
####################################################################################
|
|
|
|
# EndBuild()
|
|
|
|
# ends the building block (report status, cleanup activities, restore old system settings, etc.)
|
|
# only useful when paired with BeginBuild()
|
|
|
|
# a-jbilas, 04/10/99 - created
|
|
|
|
####################################################################################
|
|
|
|
sub EndBuild
|
|
#call upon build completion
|
|
{
|
|
if (defined &EndBuildCustom)
|
|
{
|
|
EndBuildCustom();
|
|
}
|
|
|
|
OutputFooter($nLoggingMode);
|
|
CloseFile($fhBuildLog);
|
|
|
|
if ($nLoggingMode == 2)
|
|
{
|
|
InsertSummaryIntoLog($sBuildLog);
|
|
}
|
|
|
|
$fhMailFile = OpenFile($sMailfile, "write");
|
|
if ($fhMailFile)
|
|
{
|
|
my($tmpBuildMsg) = $strBuildMsg;
|
|
my($replStr) = "<BR><BR><b><font size=5>".$sBuildName." ".BuildCodeToHTML($bcStatus)."<\/b>".
|
|
" - <a href=\"".TranslateToHTTP($sRemoteBuildLog)."\">Log<\/a><\/font><BR><BR>";
|
|
$strBuildMsg =~ s/<\! $sShortBuildName $nScriptStartTime SUMMARY ENTRY POINT >/$replStr/;
|
|
$fhMailFile->print($strBuildMsg);
|
|
CloseFile($fhMailFile);
|
|
$strBuildMsg = $tmpBuildMsg;
|
|
}
|
|
|
|
if ($bOfficialBuild && !$bNoCopy && ($sRemoteBuildLog ne ""))
|
|
{
|
|
if (!CopyLogs())
|
|
{
|
|
PrintL("Warning: ".$sShortBuildName." log failed to copy\n", PL_MSGONLY);
|
|
}
|
|
}
|
|
|
|
if ($bSendMail)
|
|
{
|
|
my($sRecipients) = "";
|
|
foreach $member (@lMailRecipients)
|
|
{
|
|
if ($sRecipients eq "")
|
|
{
|
|
$sRecipients = $member;
|
|
}
|
|
else
|
|
{
|
|
$sRecipients .= " ".$member;
|
|
}
|
|
}
|
|
|
|
if ($sRecipients ne "")
|
|
{
|
|
my($htmlresult) = '<font color="'.($bNothingDone ? 'gray">Nothing Done' :
|
|
($bBuildFailed ? 'red">Failed' : 'green">Successful')).
|
|
($bCopyFailed ? '</font> <font color=orange>(with copy failures)' : '').'</font>';
|
|
my($result) = $htmlresult;
|
|
$result =~ s/<[^>]*>//g;
|
|
|
|
PrintL("\nComposing and Sending Build Mail ...\n\n");
|
|
|
|
# desperate attempt to fix incomplete e-mail bug
|
|
my ($sMsgBody) = '<b><font size=5>'.$sBuildName.' '.$htmlresult.'  </font><font size=3>(';
|
|
$sMsgBody .= FmtDeltaTime(time() - $nScriptStartTime).')</font><font size=5> - <a href="';
|
|
$sMsgBody .= TranslateToHTTP($sLogDropDir."\\".$sRemoteBuildLog).'">Log File</a></font></font><BR><BR></b>';
|
|
$sMsgBody .= "\n".$strBuildMsg.'<BR><BR><BR><BR>';
|
|
$sMsgBody .= FormatLogAsHTML(GetSLMLog('-t '.GetDayRange(1)));
|
|
|
|
SendHtmlMail($sRecipients,
|
|
$sBuildName." Results: ".$result,
|
|
$sMsgBody);
|
|
}
|
|
}
|
|
|
|
# if ($bColor)
|
|
# {
|
|
# system("color"); #restore old color
|
|
# }
|
|
|
|
PrintL("\nExiting ...\n");
|
|
|
|
PopD();
|
|
$ENV{PATH} = $sOldPath; #restore old path
|
|
$ENV{INCLUDE} = $sOldInclude; #restore old inc
|
|
$ENV{LIB} = $sOldLib;
|
|
$bGlobalsSet = 0;
|
|
|
|
if (!$bOfficialBuild && !IsMemberOf("QUIET", @lArgs) && !IsMemberOf("NONEWLOG", @lArgs))
|
|
{
|
|
print(STDOUT "\n - Launching build log (use 'QUIET' option next time to skip)\n");
|
|
Execute($sBuildLog);
|
|
print(STDOUT "\n");
|
|
}
|
|
}
|
|
|
|
####################################################################################
|
|
|
|
# OutputHeader()
|
|
|
|
# outputs start build status info to log and screen
|
|
# if caller is the rootbuild, status info will appear larger with more information
|
|
|
|
# a-jbilas, 04/20/99 - created
|
|
|
|
####################################################################################
|
|
|
|
sub OutputHeader
|
|
{
|
|
# NOTE: dhtml does not get activated in mode 0 or 1
|
|
if ($_[0] == 0)
|
|
{
|
|
}
|
|
elsif ($_[0] == 1)
|
|
{
|
|
PrintL($sShortBuildName." started at ".GetLocalTime()."\n\n", PL_BOLD);
|
|
}
|
|
else
|
|
{
|
|
PrintL("<title>".$sBuildName.'</title><body '.
|
|
($bDHTMLActive ? 'onload="init()" ' : '').'bgproperties="FIXED" '.
|
|
'background="http://iit/images/IITback2.gif">'."\n", PL_NOSTD);
|
|
PrintL("\n", PL_NOLOG);
|
|
PrintL($sBuildName, PL_HEADER | PL_PURPLE);
|
|
foreach $arg (@lArgs)
|
|
{
|
|
if ($arg !~ /__IGNORE/i)
|
|
{
|
|
my($desc) = GetKeyCaseInsensitive($arg, %hOptionDescription);
|
|
$desc =~ s/^ *//;
|
|
PrintLTip(" [".$arg."]", $desc, PL_GREEN | PL_BOLD);
|
|
}
|
|
}
|
|
print($fhBuildLog "<\/font>");
|
|
PrintL("\n");
|
|
|
|
if ($bOfficialBuild)
|
|
{
|
|
PrintL("Build #".$sBuildNumber." *Official Build*", PL_HEADER | PL_GREEN);
|
|
}
|
|
else
|
|
{
|
|
PrintL("*Unofficial Build*", PL_HEADER);
|
|
}
|
|
|
|
if (($USERNAME ne "") && ($COMPUTERNAME ne ""))
|
|
{
|
|
PrintL(" (user ", PL_HEADER | PL_GRAY);
|
|
PrintL($USERNAME, PL_HEADER);
|
|
PrintL(" on ", PL_HEADER | PL_GRAY);
|
|
PrintL("\\\\".$COMPUTERNAME, PL_HEADER);
|
|
PrintL(")", PL_HEADER | PL_GRAY);
|
|
}
|
|
PrintL("\n");
|
|
|
|
local($x, $sOSVer) = `ver`; #first line is blank
|
|
|
|
PrintL($PROCESSOR_ARCHITECTURE, PL_HEADER);
|
|
PrintL(" running ", PL_HEADER | PL_GRAY);
|
|
PrintL($sOSVer, PL_HEADER);
|
|
PrintL("Start Time: ", PL_HEADER | PL_GRAY);
|
|
PrintL(GetLocalTime()."\n\n", PL_HEADER);
|
|
|
|
PrintL("\n<! ".$sShortBuildName." ".$nScriptStartTime." SUMMARY ENTRY POINT >\n", PL_NOSTD | PL_FLUSH);
|
|
}
|
|
}
|
|
|
|
####################################################################################
|
|
|
|
# OutputFooter()
|
|
|
|
# outputs completed build status info to log and screen
|
|
# if caller is the rootbuild, status info will appear larger with more information
|
|
|
|
# a-jbilas, 04/20/99 - created
|
|
# a-jbilas, 06/29/99 - added 'nothing done' case
|
|
|
|
####################################################################################
|
|
|
|
sub OutputFooter
|
|
{
|
|
if ($_[0] == 0)
|
|
{
|
|
return();
|
|
}
|
|
elsif ($_[0] == 1)
|
|
{
|
|
PrintL($sShortBuildName." ended at ".GetLocalTime()." with status: ".BuildCodeToHTML($bcStatus)."\n\n", PL_BOLD);
|
|
}
|
|
else
|
|
{
|
|
PrintL("\n".$sBuildName, PL_HEADER);
|
|
foreach $arg (@lArgs)
|
|
{
|
|
PrintL(" [".$arg."]", PL_GREEN | PL_BOLD);
|
|
}
|
|
PrintL("\nEnded at ".GetLocalTime()." with status:\n", PL_HEADER);
|
|
PrintL(BuildCodeToHTML($bcStatus)."\n", PL_HEADER | PL_FLUSH | PL_NOTAG);
|
|
|
|
PrintL("<\/body><\/html>", PL_NOSTD);
|
|
}
|
|
}
|
|
|
|
####################################################################################
|
|
|
|
# GetUsage()
|
|
|
|
# return a string with usage information based upon values in @lAllowedArgs
|
|
|
|
# a-jbilas, 04/10/99 - created
|
|
# a-jbilas, 06/03/99 - moved descriptions into a hashing table for easier updates
|
|
# a-jbilas, 06/09/99 - added accelerator support
|
|
# a-jbilas, 08/16/99 - separated args into subsections
|
|
|
|
####################################################################################
|
|
|
|
sub GetUsage()
|
|
{
|
|
my($sUsage) = "\n";
|
|
local(@lKeys) = ();
|
|
local(@lDesc) = ();
|
|
foreach $elem (keys(%hOptionDescription))
|
|
{
|
|
push(@lKeys, $elem);
|
|
push(@lDesc, $hOptionDescription{$elem});
|
|
}
|
|
|
|
$sUsage .= "usage:\n";
|
|
$sUsage .= RemovePath($PROGRAM_NAME)." [args ...]\n\n";
|
|
|
|
if (@lDefaultArgs != ())
|
|
{
|
|
$sUsage .= "DEFAULTS: ";
|
|
|
|
foreach $item (@lDefaultArgs)
|
|
{
|
|
$sUsage .= $item." ";
|
|
}
|
|
$sUsage .= "\n";
|
|
}
|
|
|
|
|
|
if (@lAllowedBuilds != ())
|
|
{
|
|
$sUsage .= "\nBuild Arguments:\n";
|
|
foreach $arg (@lAllowedBuilds)
|
|
{
|
|
my($bFound) = 0;
|
|
for ($index = 0 ; !$bFound && $index < scalar(@lKeys) ; ++$index)
|
|
{
|
|
if (uc($lKeys[$index]) eq uc($arg))
|
|
{
|
|
$sUsage .= " ".$lKeys[$index]." ".$lDesc[$index]."\n";
|
|
$bFound = 1;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if (@lAllowedLanguages != ())
|
|
{
|
|
$sUsage .= "\nLanguage Arguments:\n";
|
|
foreach $arg (@lAllowedLanguages)
|
|
{
|
|
my($bFound) = 0;
|
|
for ($index = 0 ; !$bFound && $index < scalar(@lKeys) ; ++$index)
|
|
{
|
|
if (uc($lKeys[$index]) eq uc($arg))
|
|
{
|
|
$sUsage .= " ".$lKeys[$index]." ".$lDesc[$index]."\n";
|
|
$bFound = 1;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if (@lAllowedComponents != ())
|
|
{
|
|
$sUsage .= "\nComponent Arguments:\n";
|
|
foreach $arg (@lAllowedComponents)
|
|
{
|
|
my($bFound) = 0;
|
|
for ($index = 0 ; !$bFound && $index < scalar(@lKeys) ; ++$index)
|
|
{
|
|
if (uc($lKeys[$index]) eq uc($arg))
|
|
{
|
|
$sUsage .= " ".$lKeys[$index]." ".$lDesc[$index]."\n";
|
|
$bFound = 1;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if (@lAllowedModifiers != ())
|
|
{
|
|
$sUsage .= "\nModifier Arguments:\n";
|
|
foreach $arg (@lAllowedModifiers)
|
|
{
|
|
my($bFound) = 0;
|
|
for ($index = 0 ; !$bFound && $index < scalar(@lKeys) ; ++$index)
|
|
{
|
|
if (uc($lKeys[$index]) eq uc($arg))
|
|
{
|
|
$sUsage .= " ".$lKeys[$index]." ".$lDesc[$index]."\n";
|
|
$bFound = 1;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
return($sUsage."\nTo save time, type only the capital letters of each ".
|
|
"param on the left\n\n");
|
|
}
|
|
|
|
####################################################################################
|
|
|
|
# MatchShipBuilds()
|
|
|
|
# utility for build-specific buildtypes:
|
|
# pass the buildtypes allowed in the specific build
|
|
# function will return the command line specified buildtypes allowed for this build (intersection)
|
|
|
|
# a-jbilas, 04/20/99 - created
|
|
# a-jbilas, 05/11/99 - will intersect args with @lBuilds only if $bShipBuild flagged, otherwise return @lBuilds
|
|
|
|
####################################################################################
|
|
|
|
sub MatchShipBuilds
|
|
{
|
|
local(@ret) = ();
|
|
|
|
if ($bShipBuild)
|
|
{
|
|
foreach $buildtype (@lBuilds)
|
|
{
|
|
if (IsMemberOf($buildtype, @_))
|
|
{
|
|
push(@ret, $buildtype);
|
|
}
|
|
}
|
|
return(@ret);
|
|
}
|
|
else
|
|
{
|
|
return(@lBuilds);
|
|
}
|
|
}
|
|
|
|
####################################################################################
|
|
|
|
# CheckTypos()
|
|
|
|
# runs the typo.pl script on the current directory and outputs it to $sTyposLog
|
|
# if non-zero, the log is logged to the main log and output to the screen
|
|
|
|
# a-jbilas, 04/10/99 - created
|
|
# a-jbilas, 09/20/99 - update filter to new typos.pl
|
|
|
|
####################################################################################
|
|
|
|
sub CheckTypos()
|
|
{
|
|
local($rc) = 1;
|
|
|
|
if (IsMemberOf("TYPO", @lArgs))
|
|
{
|
|
unlink($sTyposLog);
|
|
|
|
PrintL("\nRunning typo check ... \n\n", PL_SUBHEADER);
|
|
ExecuteAndOutputToFile("perl ".$sBinBatDir."\\typo.pl -optionfile:".$sBinBatDir."\\typo.cfg c",
|
|
$sTyposLog);
|
|
my($sErrs) = "";
|
|
my($fhTyposLog) = OpenFile($sTyposLog, "read");
|
|
while($fhTyposLog && !$fhTyposLog->eof())
|
|
{
|
|
my($text) = $fhTyposLog->getline();
|
|
if ($text !~ /^\/\//)
|
|
{
|
|
$sErrs .= $text;
|
|
}
|
|
}
|
|
CloseFile($fhTyposLog);
|
|
|
|
if ($sErrs ne "")
|
|
{
|
|
PrintL("Warning: Typo Errors", PL_BIGWARNING);
|
|
PrintL("\n***********************************\n".$sErrs);
|
|
PrintMsgBlock($sErrs);
|
|
$rc = 0;
|
|
}
|
|
else
|
|
{
|
|
PrintL("No Typo Errors Found\n", PL_GREEN | PL_BOLD);
|
|
}
|
|
}
|
|
|
|
return($rc);
|
|
}
|
|
|
|
####################################################################################
|
|
|
|
# GetCustomShipHash()
|
|
|
|
# Builds and returns a hash of the components (keys) and matching buildtypes found
|
|
# in filename passed in argument (otherwise defaults to build.ini in cwd())
|
|
# returns 0 if file does not exist
|
|
|
|
# a-jbilas, 06/14/99 - created
|
|
|
|
####################################################################################
|
|
|
|
sub GetCustomShipHash
|
|
{
|
|
carp("Usage: GetCustomShipHash([configName]) ")
|
|
unless((@_ == 0) || (@_ == 1));
|
|
|
|
my($sConfigFile) = @_;
|
|
my(%hShipTypes) = ();
|
|
if ($sConfigFile eq "")
|
|
{
|
|
$sConfigFile = cwd()."\\build.ini";
|
|
}
|
|
|
|
if (!-e $sConfigFile)
|
|
{
|
|
return(0);
|
|
}
|
|
|
|
$fhConfigFile = OpenFile($sConfigFile, "read");
|
|
while (<$fhConfigFile>)
|
|
{
|
|
if (/^\#/)
|
|
{
|
|
# (skip comments)
|
|
}
|
|
elsif (/=/)
|
|
{
|
|
s/\s//g;
|
|
chomp($_);
|
|
s/^(.*)=(.*)$/$1 $2/;
|
|
PrintL("Special condition found in $1: $2\n", PL_VERBOSE);
|
|
$hShipTypes{lc($1)} = uc($2);
|
|
}
|
|
}
|
|
|
|
return(%hShipTypes);
|
|
}
|
|
|
|
sub BuildDie
|
|
{
|
|
PrintL($_[0], PL_BIGERROR);
|
|
EndBuild();
|
|
exit(1);
|
|
}
|
|
|
|
$__IITBUILDPM = 1;
|
|
1;
|