|
|
# _____________________________________________________________________________## Purpose:# PERL Module to handle common tasks for SDX## Parameters:# Specific to subroutine## Output:# Specific to subroutine## _____________________________________________________________________________
## Some Global Definitions#$TRUE = 1;$FALSE = 0;$Callee = "";
package SDX;
require Win32::Mutex;
# _____________________________________________________________________________## Init## Parameters:# Command Line Arguments## Output:# _____________________________________________________________________________sub Init{ # # Initialize globals # $main::Initializing = $main::TRUE; $main::CreatingBranch= $main::FALSE; $main::tmptmp = "$ENV{TMP}\\tmp"; $main::Platform = $ENV{PROCESSOR_ARCHITECTURE}; $main::StartPath = $ENV{STARTPATH}; $main::CodeBaseType = 0; # 1 == one project/depot, 2 == N projects/depot $main::Null = ""; @main::ActiveDepots = (); %main::DepotType = (); @main::SDMapProjects = (); @main::SDMapDepots = (); @main::AllMappings = (); @main::AllProjects = (); @main::AllGroups = (); @main::AllDepots = (); @main::FileChunks = (); $main::DepotFiles = 0; $main::SDMapClient = ""; $main::SDMapBranch = ""; $main::SDMapCodeBase = ""; $main::SDMapCodeBaseType = ""; $main::Log = ""; $main::SDWeb = "http://sourcedepot"; $main::Files = 0; $main::FilesResolved = 0; $main::FilesUpdated = 0; $main::FilesAdded = 0; $main::FilesDeleted = 0; $main::FilesToResolve = 0; $main::FilesToMerge = 0; $main::FilesNotClobbered = 0; $main::FilesOpenAdd = 0; $main::FilesOpenEdit = 0; $main::FilesOpenDelete = 0; $main::FilesReverted = 0; $main::FilesNotConflicting = 0; $main::FilesSkipped = 0; $main::FilesConflicting = 0; @main::ConflictingFiles = (); $main::Changes = 0; $main::IntegrationChanges = 0; $main::LabelFilesAdded = 0; $main::LabelFilesDeleted = 0; $main::LabelFilesUpdated = 0; $main::IntFilesAdded = 0; $main::IntFilesDeleted = 0; $main::IntFilesChanged = 0; $main::DepotErrors = 0;### $main::FailedSubmits = 0;### $main::FilesLocked = 0;
$main::Mutex; $main::HaveMutex = $main::FALSE;
%main::DepotsSeen = ();
# # list of project names not to allow as aliases # %main::BadAliases = ( alias => 1, build => 1, cat => 1, cmd => 1, cd => 1, cp => 1, dir => 1, du => 1, kill => 1, list => 1, ls => 1, mv => 1, net => 1, rm => 1, sd => 1, sdx => 1, setup => 1, tc => 1, vi => 1, where => 1, xcopy => 1 );
# # hash of arrays of files to give the user # %main::SDXTools = ( toSDXRoot => [ "alias.sdx", ], toSDTools => [ "sdx.cmd", "sdx.pl", "sdx.pm" ], toSDToolsPA => [ "alias.exe", "perl.exe", "perlcore.dll", "perlcrt.dll", "sd.exe", ], );
# # hash of function pointers and default args # # command type 1 assumes the codebase type is 1 -- one project per depot # # if we find it's actually type 2 (N projects/depot), some of these will be # modified later to change the scope of the command, since some commands # (sd info, sd clients, sd branches) only make sense when reported per depot # and are redundant when reported per project # # OtherOp() uses cmd type to determine whether to loop through projects and # talk to depots by using SDPORT in SD.INI in each project root, or to # loop through the list of enlisted depots from SD.MAP # %main::SDCmds = ( # scope scope # # for type 1 for type 2 # those that help with SDX # (1:1) codebases (N:1) codebases # commands => {fn => \&OtherOp, defcmd => "", defarg => "", type => 1,}, # n/a n/a usage => {fn => \&OtherOp, defcmd => "", defarg => "", type => 1,}, # n/a n/a
# # those that change client or server state # client => {fn => \&OtherOp, defcmd => "client", defarg => "", type => 1,}, # project depot defect => {fn => \&Defect, defcmd => "", defarg => "", type => 1,}, # project depot deletefile => {fn => \&OtherOp, defcmd => "delete", defarg => "", type => 1,}, # project project editfile => {fn => \&OtherOp, defcmd => "edit", defarg => "", type => 1,}, # project project enlist => {fn => \&Enlist, defcmd => "", defarg => "", type => 1,}, # project depot flush => {fn => \&OtherOp, defcmd => "flush", defarg => "", type => 1,}, # project project integrate => {fn => \&OtherOp, defcmd => "integrate", defarg => "", type => 1,}, # project depot labbranch => {fn => \&OtherOp, defcmd => "lbranch", defarg => "", type => 1,}, # project depot label => {fn => \&OtherOp, defcmd => "label", defarg => "", type => 1,}, # project depot labelsync => {fn => \&OtherOp, defcmd => "labelsync", defarg => "", type => 1,}, # project depot protect => {fn => \&OtherOp, defcmd => "protect", defarg => "", type => 1,}, # project depot repair => {fn => \&Repair, defcmd => "", defarg => "", type => 1,}, # project depot resolve => {fn => \&OtherOp, defcmd => "resolve", defarg => "", type => 1,}, # project depot revert => {fn => \&OtherOp, defcmd => "revert", defarg => "", type => 1,}, # project depot submit => {fn => \&OtherOp, defcmd => "submit", defarg => "", type => 1,}, # project depot sync => {fn => \&OtherOp, defcmd => "sync", defarg => "", type => 1,}, # project project triggers => {fn => \&OtherOp, defcmd => "triggers", defarg => "", type => 1,}, # project depot
# # those that report status # admin => {fn => \&OtherOp, defcmd => "admin", defarg => "", type => 1,}, # project depot# branch => {fn => \&OtherOp, defcmd => "branch", defarg => "", type => 1,}, # project depot branches => {fn => \&OtherOp, defcmd => "branches", defarg => "", type => 1,}, # project depot clients => {fn => \&OtherOp, defcmd => "clients", defarg => "", type => 1,}, # project depot# change => {fn => \&OtherOp, defcmd => "change", defarg => "", type => 1,}, # project project changes => {fn => \&Changes, defcmd => "changes", defarg => "", type => 1,}, # project project counters => {fn => \&OtherOp, defcmd => "counters", defarg => "", type => 1,}, # project depot delta => {fn => \&Delta, defcmd => "", defarg => "", type => 1,}, diff2 => {fn => \&OtherOp, defcmd => "diff2", defarg => "", type => 1,}, dirs => {fn => \&OtherOp, defcmd => "dirs", defarg => "", type => 1,}, # project depot files => {fn => \&OtherOp, defcmd => "files", defarg => "", type => 1,}, # project project have => {fn => \&OtherOp, defcmd => "have", defarg => "", type => 1,}, # project project info => {fn => \&OtherOp, defcmd => "info", defarg => "", type => 1,}, # project depot integrated => {fn => \&OtherOp, defcmd => "integrated", defarg => "", type => 1,}, # project depot labels => {fn => \&OtherOp, defcmd => "labels", defarg => "", type => 1,}, # project depot opened => {fn => \&OtherOp, defcmd => "opened", defarg => "", type => 1,}, # project project pending => {fn => \&OtherOp, defcmd => "changes", defarg => "-s pending", type => 1,}, # project depot projects => {fn => \&OtherOp, defcmd => "projects", defarg => "", type => 1,}, # project project resolved => {fn => \&OtherOp, defcmd => "resolved", defarg => "", type => 1,}, # project depot status => {fn => \&OtherOp, defcmd => "status", defarg => "", type => 1,}, # project project# user => {fn => \&OtherOp, defcmd => "user", defarg => "", type => 1,}, # project depot users => {fn => \&OtherOp, defcmd => "users", defarg => "", type => 1,}, # project depot where => {fn => \&OtherOp, defcmd => "where", defarg => "", type => 1,}, # project project
# # internal # enumdepots => {fn => \&OtherOp, defcmd => "enumdepots", defarg => "", type => 1,}, # project project );
# # list of SD command/flag combinations not to allow # %main::BadCmds = ( # # -c makes no sense since change numbers aren't consistent across name space # -c => [ "integrate", "revert", "submit" ], # # don't want any switches to sdx branch/change/user except -o # -d => [ "branch", "change", "user" ], -f => [ "branch", "change", "user" ], # # don't want to branch/client/changelist/label/user spec changing with -i # sd(x) client is ok # -i => [ "branch", "change", "client", "submit", "user" ], -t => [ "client", "label" ], );
# # set the starting dir # open(CWD, 'cd 2>&1|'); $main::StartDir = <CWD>; close(CWD); chop $main::StartDir;
# # figure out where we're running from # $main::InstallFrom = $ENV{STARTPATH};
# # parse cmd line # SDX::ParseArgs(@_);
# # return if we need usage already # $main::Usage and return;
# # on new enlists in NT, don't let SDXROOT be > 8.3 # # BUGBUG-1999/12/01-jeffmcd -- this should be an option in the codebase map -- SHORTROOT = 1 # ($main::NewEnlist and "\U$main::CodeBase" eq "NT") and do { my $root = (split(/\\/, $main::SDXRoot))[1]; (length((split/\./, $root)[0]) > 8 or length((split/\./, $root)[1]) > 3) and die("Please use an 8.3 name for \%SDXROOT\%.\n"); };
# # does the SD client exist? # grep(/ recognized /, `sd.exe 2>&1`) and die("\nCan't find Source Depot client SD.EXE.\n");
# # SD.MAP contains the relative paths to the roots of all projects the user # is enlisted in, as created by SDX ENLIST, plus some keywords # # if we're doing anything other than enlisting or repairing, this must exist # $main::SDMap = "$main::SDXRoot\\sd.map";
# # get attributes for this enlistment from SD.MAP # # fatal error if defecting, incrementally enlisting, or other op # error text comes from ReadSDMap() # $main::Enlisting and $op = "enlist"; $main::Repairing and $op = "repair"; $main::Defecting and $op = "defect"; $main::OtherOp and $op = "otherop";
my $rc = SDX::ReadSDMap($op, "init"); !$rc and ($main::IncrEnlist or $main::Defecting or $main::OtherOp) and die("\n");
# # if we have codebase and branch values from SD.MAP, use them # # handle some special cases # ($main::SDMapCodeBase and $main::SDMapBranch and $main::SDMapCodeBaseType) and do { # # on repair, warn the user we're changing these values # ($main::Repairing and $main::CodeBase and $main::Branch) and do { print "\nUsing codebase and branch from $main::SDMap for repair. Ignoring "; printf "%s.\n", $main::EnlistFromProfile ? "profile\n$main::Profile" : "'$main::CodeBase $main::Branch'\non command line"; };
# # if the user is trying to enlist using a profile, they're already enlisted. # the profile may have different codebase, branch or projects than what they # already have, so error out # # $main::EnlistFromProfile can also be set during a repair # ($main::EnlistFromProfile and !$main::Repairing) and do { print "\nEnlisting by profile is only supported for new enlistments.\n";
$main::CodeBase = ""; $main::Branch = ""; $main::Usage = $main::TRUE;
return; };
# # this may look like a new enlist but is actually incremental # # this prevents us from generating a unique client name later on, # since the user is just adding another project to their enlistment # and thought they needed to specify cb/br on the cmd line # # also prevents enlisting a different codebase or branch in # this particular SDX Root # # repair-from-profile will also have $main::NewEnlist set # ($main::NewEnlist and !$main::Repairing) and do { print "\nUsing codebase and branch from $main::SDMap. Ignoring '$main::CodeBase $main::Branch'\n"; print "on command line.\n";
$main::NewEnlist = $main::FALSE; $main::IncrEnlist = $main::TRUE; };
# # finally, set primary codebase, type and branch # $main::CodeBase = $main::SDMapCodeBase; $main::CodeBaseType = $main::SDMapCodeBaseType; $main::Branch = $main::SDMapBranch; };
# # at this point we must have codebase, type and branch # (!$main::CodeBase or !$main::Branch) and do { print "\nMissing codebase and/or branch.\n"; $main::Usage = $main::TRUE; return; };
# # be NT-centric for a minute and see if we know # about a public change number # $main::PublicChangeNum = SDX::GetPublicChangeNum();
# # if we're working in a type 2 (N projects per depot), modify some # commands to work per-depot instead of per-project # # ie sdx submit on a type 1 should work per-project (which is actually a depot) and # sdx submit on a type 2 should work per-depot (which encompasses several projects) # $main::CodeBaseType == 2 and do { $main::SDCmds{admin}{type} = 2;# $main::SDCmds{branch}{type} = 2; $main::SDCmds{branches}{type} = 2; $main::SDCmds{client}{type} = 2; $main::SDCmds{clients}{type} = 2; $main::SDCmds{counters}{type} = 2; $main::SDCmds{dirs}{type} = 2; $main::SDCmds{info}{type} = 2; $main::SDCmds{integrate}{type} = 2; $main::SDCmds{labbranch}{type} = 2; $main::SDCmds{label}{type} = 2; $main::SDCmds{labels}{type} = 2; $main::SDCmds{labelsync}{type} = 2; $main::SDCmds{pending}{type} = 2; $main::SDCmds{privatebranch}{type} = 2; $main::SDCmds{protect}{type} = 2; $main::SDCmds{submit}{type} = 2; $main::SDCmds{triggers}{type} = 2; $main::SDCmds{users}{type} = 2;
## these need to stay type 1 b/c they can take a filespec, # which doesn't make sense when executing per-depot# since we never leave %SDXROOT%## $main::SDCmds{integrated}{type} = 2;# $main::SDCmds{resolve}{type} = 2;# $main::SDCmds{resolved}{type} = 2; };
# # fatal if no codebase type and not enlisting clean # # on a clean enlist we won't know the type until we have a chance to read $main::CodeBaseMap # (!$main::NewEnlist and !$main::Repairing and !$main::CodeBaseType) and die("\nCan't determine codebase type. Please contact the SDX alias.\n");
# # set SDUSER and SDCLIENT # # if SDUSER is already defined in the environment # assume it includes the domain name, and extract the user name # otherwise use %USERNAME% and %USERDOMAIN% # # if SDCLIENT is already defined, use it, otherwise default to %COMPUTERNAME%. # # when defecting or repairing, if SDCLIENT is defined in the env, use it, # otherwise use main::SDMapClient from SD.MAP. Ignore %COMPUTERNAME% unless we # have no other choice # $main::SDUser = $ENV{SDUSER};
if ($main::SDUser) { $main::SDDomainUser = $main::SDUser; $main::SDUser = (split(/\\/, $main::SDDomainUser))[1]; } else { $main::SDUser = $ENV{USERNAME}; $main::SDDomainUser = "$ENV{USERDOMAIN}\\$main::SDUser"; }
# # domain can't be computername, that is, user must be logged into the domain # ("\U$ENV{USERDOMAIN}" eq "\U$ENV{COMPUTERNAME}") and die("\nTo enlist you must be logged into the domain and not your local machine.\n");
$main::SDClient = $ENV{SDCLIENT}; (!$main::SDClient) and do { $main::SDClient = ($main::Defecting or $main::Repairing or $main::IncrEnlist) ? $main::SDMapClient : $ENV{COMPUTERNAME};
# # we may not be able to get the client name from SD.MAP so assume it's # just the computer name, we'll catch it later if it isn't # $main::Repairing and !$main::SDClient and do { print "\nResorting to \%COMPUTERNAME\% for SD client name. Please verify below that\n"; print "this is the correct client for this enlistment before continuing. If not, set\n"; print "\%SDCLIENT\% correctly at the command line and rerun this command.\n"; $main::SDClient = $ENV{COMPUTERNAME}; }; };
!$main::SDUser and die("\nCan't determine SD user name. Verify that %USERNAME% is set in\nthe environment.\n"); !$main::SDClient and die("\nCan't determine SD client name. Verify that %COMPUTERNAME% is set\nin the environment.\n");
$main::V3 and do { printf "init: startdir=%s\n", $main::StartDir; printf "init: startpath=%s\n", $main::StartPath; printf "init: sdr = '%s'\n", $main::SDXRoot; printf "init: sdm = '%s'\n", $main::SDMap; printf "init: sdc = '%s'\n", $main::SDClient; printf "init: sdu = '%s'\n", $main::SDUser; printf "init: sddu = '%s'\n", $main::SDDomainUser; printf "init: usage=%s\n", $main::Usage; };
$main::Initializing = $main::FALSE;}
# _____________________________________________________________________________## Parses command line arguments to verify the right syntax is being used## Parameters:# Command Line Arguments## Output:# Errors if the wrong syntax is used otherwise sets the appropriate variables# based on the command line arguments# _____________________________________________________________________________sub ParseArgs{ # # Initialize variables # $ArgCounter = 1; # start at one since 0th arg is redundant $main::Usage = $main::FALSE; $main::GetStarted = $main::TRUE; $main::V1 = $main::FALSE; $main::V2 = $main::FALSE; $main::V3 = $main::FALSE; $main::Enlisting = $main::FALSE; $main::Defecting = $main::FALSE; $main::Repairing = $main::FALSE; $main::OtherOp = $main::TRUE; $main::EnlistAll = $main::FALSE; $main::EnlistClean = $main::FALSE; $main::EnlistGroup = $main::FALSE; $main::EnlistSome = $main::FALSE; $main::EnlistFromProfile = $main::FALSE; $main::NewEnlist = $main::FALSE; $main::IncrEnlist = $main::FALSE; $main::Exclusions = $main::TRUE; $main::RestrictRoot = $main::FALSE; $main::EnlistAsOther = $main::FALSE; $main::Sync = $main::FALSE; $main::DefectWithPrejudice = $main::FALSE; $main::ToolsInRoot = $main::FALSE; $main::Quiet = $main::FALSE; $main::Logging = $main::FALSE; $main::CBMProjectField = 0; # change these if you change $main::CBMGroupField = 1; # the ordering of fields in $main::CBMServerPortField = 2; # file PROJECTS.<CODEBASE> $main::CBMDepotNameField = 3; $main::CBMProjectRootField = 4; $main::Profile = ""; $main::OtherClient = ""; $main::UserArgs = " "; $main::Branch = ""; $main::SDXRoot = ""; $main::SDCmd = ""; $main::CodeBase = ""; $main::SubmitComment = ""; $main::ToolsProject = ""; $main::ToolsPath = ""; $main::ToolsProjectPath = ""; @main::OtherDirs = (); @main::DefaultProjects = (); @main::PlatformProjects = (); @main::SomeProjects = (); @main::ProfileProjects = (); @main::InputForm = (); $main::MinusB = $main::FALSE; $main::MinusH = $main::FALSE; $main::MinusI = $main::FALSE; $main::MinusT = $main::FALSE; $main::MinusO = $main::FALSE; $main::MinusR = $main::FALSE; $main::MinusV = $main::FALSE; $main::MinusA = $main::FALSE; my $MinusC = $main::FALSE; my $MinusP = $main::FALSE; my $MinusX = $main::FALSE;
# # check SDXROOT for correctness # !exists($ENV{SDXROOT}) and do { print "\n%SDXROOT% is not set.\n"; $main::Usage = $main::TRUE; };
# # don't allow illegal characters, or spaces at the beginning or end # # also don't allow '+' for now # my $root = $ENV{SDXROOT};
(!$main::Usage and ($root =~ /[\/*?"<>|+]/ or $root =~ /[\t\s]+$/ or $root =~ /^[\t\s]+/)) and do { print "\n\%SDXROOT% contains bad or undesirable characters: '$root'.\n"; $main::Usage = $main::TRUE; };
!$main::Usage and ((substr($root,0,1) !~ /[A-Za-z]/) or (substr($root,1,1) !~ /:/) or (substr($root,2,1) !~ /\\/)) and do { print "\n%SDXROOT% badly formed: '$root'.\n"; $main::Usage = $main::TRUE; };
# # may need to bail and show usage # $main::Usage and return;
# # otherwise set the root # $main::SDXRoot = $root;
# # first arg is always the operation we want to do # # make sure it's not a flag # make sure it's a known cmd # if (($_[$ArgCounter] =~ /^-/) or ($_[$ArgCounter] =~ /^\//)) { print "\nMissing command.\n"; $main::Usage = $main::TRUE; return; }
$main::SDCmd = $_[$ArgCounter]; $main::SDCmd =~ tr/A-Z/a-z/; $ArgCounter++;
# # return if no command or command not in list # if (!$main::SDCmd) { $main::Usage = $main::TRUE; return; }
(!exists($main::SDCmds{$main::SDCmd})) and die("\nUnknown command '$main::SDCmd'. Try sdx -? for info.\n");
# # determine which SDX command this is # # an "other" operation is assumed by default # # maybe show command list or usage # # if enlist/defect/repair, set flags and satisfy required # arguments later # ($main::SDCmd =~ /usage/) and $main::Usage = $main::TRUE;
($main::SDCmd =~ /commands/) and do { $main::Usage = $main::TRUE; $main::GetStarted = $main::FALSE; };
$main::Usage and return;
# # we have a valid command so any usage needed from this point # will be specific to main::SDCmd # $main::GetStarted = $main::FALSE;
# # set flags for enlist/defect/repair # $main::SDCmd =~ /enlist/ and do { $main::Enlisting = $main::TRUE; $main::IncrEnlist = $main::TRUE; $main::EnlistSome = $main::TRUE; $main::OtherOp = $main::FALSE; };
$main::SDCmd =~ /defect/ and do { $main::Defecting = $main::TRUE; $main::DefectSome = $main::TRUE; $main::OtherOp = $main::FALSE; };
$main::SDCmd =~ /repair/ and do { $main::Repairing = $main::TRUE; $main::OtherOp = $main::FALSE; };
my $ignore = "";
# # Cycle through parameters # my $arg = ""; my $subarg = ""; while ($_[$ArgCounter]) { # # if '-' or '/' is the first character in the arg then it's a flag # $arg = $_[$ArgCounter]; if (($arg =~ /^-/) or ($arg =~ /^\//)) { $ArgPosition = 0;
CASE: while ($SubArg = substr $_[$ArgCounter], ++$ArgPosition) { $main::V2 and do { printf "subarg = '%s'\n", $SubArg; };
# # -# <string> equals $SubmitComment # if ($SubArg =~ /^\#/) { # # the comment is from # to the end of the cmd string # if ($main::SDCmd eq "submit") { my $ac = $ArgCounter + 1; while ($_[$ac]) { $main::SubmitComment .= "$_[$ac] "; $_[$ac] = ""; $ac++; }
# # set this for later # $main::MinusI = $main::TRUE; }
next CASE; }
# # -1 is verbose debugging # if ($SubArg =~ /^1/) { $main::V1 = $main::TRUE; next CASE; }
# # -2 is very verbose # if ($SubArg =~ /^2/) { $main::V2 = $main::TRUE; next CASE; }
# # -3 you get the picture # if ($SubArg =~ /^3/) { $main::V3 = $main::TRUE; next CASE; }
# # -a equals All # # if enlisting set a flag for later # if defecting set defect flags # else pass on to the SD command # if ($SubArg =~ /^a/i) { if ($main::Enlisting) { $MinusA = $main::TRUE; } else { if ($main::Defecting) { $main::DefectAll = $main::TRUE; $main::DefectGroup = $main::FALSE; $main::DefectSome = $main::FALSE;
# null out list in case we collected some projects already @main::SomeProjects = (); } else { if ($main::SDCmd eq "users" or $main::SDCmd eq "files" or $main::SDCmd eq "clients") { $main::MinusA = $main::TRUE; } else { SDX::AddUserArg($_[$ArgCounter]); } } }
next CASE; }
# # -b is build number # if ($SubArg =~ /^b/i) { if ($main::SDCmd eq "changes") { $main::MinusB = $main::TRUE; $ArgCounter++;
if (!($main::BuildNumber = $_[$ArgCounter])) { print "\nMissing build number.\n"; $main::Usage = $main::TRUE; } else { $_[$ArgCounter] = ""; } } else { SDX::AddUserArg($_[$ArgCounter]); }
next CASE; }
# # -c is enlist clean # # if enlisting, set a flag for later # else pass on to the SD command # if ($SubArg =~ /^c/i) { if ($main::Enlisting) { $MinusC = $main::TRUE; } else { SDX::AddUserArg($_[$ArgCounter]); }
next CASE; }
# # if defecting, -f equals DefectWithPrejudice # else pass on to SD # if ($SubArg =~ /^f/i) { if ($main::Defecting) { $main::DefectWithPrejudice = $main::TRUE; } else { SDX::AddUserArg($_[$ArgCounter]); }
next CASE; }
# # -g equals Logging # the log file must be the next arg # if ($SubArg =~ /^g/i) { $ArgCounter++;
if (!($main::Log = $_[$ArgCounter])) { print "\nMissing log file.\n"; $main::Usage = $main::TRUE; }
if (substr($main::Log,0,1) =~ /[\/-]/) { $main::Log !~ /\?/ and print "\nLog name '$main::Log' appears to be a command switch.\n"; $main::Log = ""; $main::Usage = $main::TRUE; }
# # if we have a good log, set a flag and null out arg so it # doesn't end up in user args # !$main::Usage and ($main::Logging = $main::TRUE and $_[$ArgCounter] = "");
next CASE; }
# # -h -- set flag for later, on sync/flush only # if ($SubArg =~ /^h/i) { ($main::SDCmd =~ /sync|flush/) and $main::MinusH = $main::TRUE; next CASE; }
# # -i -- read input form from cmd line, or # show integration changes if cmd is sync or flush, or # only rewrite SD.INIs if repairing # if ($SubArg =~ /^i/i) { $main::MinusI = $main::TRUE;
($main::SDCmd ne "sync" and $main::SDCmd ne "flush" and $main::SDCmd ne "repair" and $main::SDCmd ne "resolve") and @main::InputForm = <STDIN>;
SDX::AddUserArg($_[$ArgCounter]); next CASE; }
# # when enlisting, -m equals $MinimalTools # if ($SubArg =~ /^m/i) { if ($main::Enlisting) { $main::MinimalTools = $main::TRUE; } else { SDX::AddUserArg($_[$ArgCounter]); }
next CASE; }
# # -o -- set flag for later # if ($SubArg =~ /^o/i) { $main::MinusO = $main::TRUE; SDX::AddUserArg($_[$ArgCounter]); next CASE; }
# # when enlisting or repairing, -p means read from profile # next arg must be path to the profile file # if ($SubArg =~ /^p/i) { if ($main::Enlisting or $main::Repairing) { $MinusP = $main::TRUE; $ArgCounter++;
if (!($main::Profile = $_[$ArgCounter])) { print "\nMissing profile.\n"; $main::Usage = $main::TRUE; } else { # # if we have a good Profile, set flags and null out arg so it # doesn't end up in user args # if (SDX::ReadProfile()) { # # set flag for enlist or repair # $main::EnlistFromProfile = $main::TRUE;
$main::Enlisting and do { $main::NewEnlist = $main::TRUE; $main::IncrEnlist = $main::FALSE; };
$_[$ArgCounter] = ""; } else { die("\n"); } } }
next CASE; }
# # -q equals Quiet # if ($SubArg =~ /^q/i) { if ($main::SDCmd ne "diff2") { $main::Quiet = $main::TRUE; } else { SDX::AddUserArg($_[$ArgCounter]); }
next CASE; }
# # -r equals RI when submitting # if ($SubArg =~ /^r/i) { if ($main::SDCmd eq "submit") { $main::MinusR = $main::TRUE; $main::MinusT and do { printf "Already have -n, ignoring -%s.\n", $SubArg; $main::MinusR = $main::FALSE; }; } else { SDX::AddUserArg($_[$ArgCounter]); }
next CASE; }
# # when enlisting, defecting or repairing, -s equals $Sync # else pass on # if ($SubArg =~ /^s/i) { if ($main::Enlisting || $main::Repairing || $main::Defecting) { $main::Sync = $main::TRUE; } else { SDX::AddUserArg($_[$ArgCounter]); }
next CASE; }
# # -t equals Integration when submitting # if ($SubArg =~ /^t/i) { if ($main::SDCmd eq "submit") { $main::MinusT = $main::TRUE; $main::MinusR and do { printf "Already have -r, ignoring -%s.\n", $SubArg; $main::MinusT = $main::FALSE; }; } else { SDX::AddUserArg($_[$ArgCounter]); }
next CASE; }
# # -v equals Verbose # if ($SubArg =~ /^v/i) { $main::MinusV = $main::TRUE;
# # maybe pass -v on to SD # ($main::SDCmd eq "integrate" or $main::SDCmd eq "resolve") and do { SDX::AddUserArg($_[$ArgCounter]); };
next CASE; }
# # when enlisting, -x turns off $Exclusions # else pass on to SD # if ($SubArg =~ /^x/) { if ($main::Enlisting) { $MinusX = $main::TRUE; } else { SDX::AddUserArg($_[$ArgCounter]); }
next CASE; }
# # -h or -? equals $Usage # if (($SubArg =~ /^h/i) or ($SubArg =~ /^\?/)) { $main::Usage = $main::TRUE; last CASE; }
# # add the switch to the user arg list # SDX::AddUserArg($_[$ArgCounter]);
last CASE; } } else { # # process non-switch args #
# # for general SD commands, add the arg to the user arg list # $main::OtherOp and do { SDX::AddUserArg($_[$ArgCounter]); };
# # if enlisting, arg is one of # @client # codebase and branch pair # project name # $main::Enlisting and do { # # first look for @<client> # if ((substr($_[$ArgCounter],0,1) =~ /@/) and !$main::EnlistAsOther) { $main::EnlistAsOther = $main::TRUE; $main::NewEnlist = $main::TRUE; $main::IncrEnlist = $main::FALSE; $main::EnlistSome = $main::FALSE;
$main::OtherClient = substr($_[$ArgCounter],1,length($_[$ArgCounter]));
!$main::OtherClient and do { print "\nMissing client name after '\@'.\n"; $main::Usage = $main::TRUE; };
$main::V2 and do { print "\nenlist as other = $main::EnlistAsOther\n"; print "other = '$main::OtherClient'\n"; print "new enlist = $main::NewEnlist\n"; print "incr enlist = $main::IncrEnlist\n"; }; } else { # # test for codebase if we don't have it already # # if arg is a codebase name (of the form PROJECTS.<codebase>) this is a new enlist # assume the arg following is the branch name # if (!$main::CodeBase and SDX::VerifyCBMap($_[$ArgCounter])) { $main::NewEnlist = $main::TRUE; $main::IncrEnlist = $main::FALSE;
$main::CodeBase = $_[$ArgCounter++]; $main::Branch = $_[$ArgCounter];
if ($main::Usage = SDX::VerifyCodeBaseAndBranch($main::CodeBase, $main::Branch)) { $main::CodeBase = ""; $main::Branch = ""; }
$main::V2 and do { print "\nnew enlist = $main::NewEnlist\n"; print "incr enlist = $main::IncrEnlist\n"; print "codebase = '$main::CodeBase'\n"; print "branch = '$main::Branch'\n"; }; } else { # # arg is a project name # # maybe add to list # if (!$main::EnlistAll and !$main::EnlistAsOther and !$main::EnlistFromProfile) { # # BUGBUG-2000/01/26-jeffmcd -- finish # # if arg is of the form project\path\path\path, break it apart # and associate the path with the project so we can write it in the view later # else # it's just a project name ## if ($_[$ArgCounter] =~ /.+\\.+/)# {# my @fields = split(/\\/,$_[$ArgCounter]);# my $project = @fields[0];# push @main::SomeProjects, $project;## shift @fields;# my $subpath = "";# foreach (@fields) { $subpath .= "$_\\"; }# chop $subpath;# print "'$subpath'\n";# # load the hash -- use project as key# push @$main::ProjectSubPaths{$project}, $subpath;# }# else# { push @main::SomeProjects, lc $_[$ArgCounter];# } } } } };
# # if incrementally defecting, arg is project to defect from # ($main::Defecting and !$main::DefectAll) and do { push @main::SomeProjects, lc $_[$ArgCounter]; };
# # if repairing, current arg and the next are codebase and branch # $main::Repairing and do { # # if codebase is null we need both values # test the current arg to see if there's a codebase map for it, if so get the branch # !$main::CodeBase and do { SDX::VerifyCBMap($_[$ArgCounter]) and do { $main::CodeBase = $_[$ArgCounter++]; $main::Branch = $_[$ArgCounter];
if ($main::Usage = SDX::VerifyCodeBaseAndBranch($main::CodeBase, $main::Branch)) { $main::CodeBase = ""; $main::Branch = ""; }
$main::V2 and do { print "\nrepairing, codebase = '$main::CodeBase'\n"; print "repairing, branch = '$main::Branch'\n"; }; }; };
# # if we didn't use this arg as codebase, pass it on # (!$main::CodeBase) and SDX::AddUserArg($_[$ArgCounter]); }; }
$ArgCounter++; }
# # maybe return for usage # $main::Usage and return;
# # at this point all args have been accounted for # # figure out a couple things we couldn't earlier #
# # for a regular enlist-all, set some flags # ($MinusA and $main::Enlisting) and do { if (!$main::EnlistAsOther and !$main::EnlistFromProfile) { $main::EnlistAll = $main::TRUE; $main::EnlistGroup = $main::FALSE; $main::EnlistSome = $main::FALSE;
# null out list in case we collected some projects already @main::SomeProjects = (); } else { $ignore .= " -a"; } };
# # enlist clean if not enlisting as another client # $MinusC and do { if (!$main::EnlistAsOther) { $main::EnlistClean = $main::TRUE; } else { $ignore .= " -c"; } };
# # enlisting as another client takes precedence over profiles # ($MinusP) and do { if ($main::EnlistAsOther) { $ignore .= " -p $main::Profile";
$main::EnlistFromProfile = $main::FALSE; $main::Profile = ""; @main::SomeProjects = (); } else { # # set flags # $main::NewEnlist = $main::TRUE; $main::IncrEnlist = $main::FALSE;
$main::CodeBase = $main::ProfileCodeBase; $main::Branch = $main::ProfileBranch; push @main::SomeProjects, @main::ProfileProjects;
$main::V2 and do { $main::Repairing and print "\nrepairing from profile...\n"; print "\nnew enlist = $main::NewEnlist\n"; print "incr enlist = $main::IncrEnlist\n"; print "codebase = '$main::CodeBase'\n"; print "branch = '$main::Branch'\n"; print "some projects = '@main::SomeProjects'\n"; }; } };
# # ignore exclusions if not enlisting as another client # $MinusX and do { if (!$main::EnlistAsOther) { $main::Exclusions = $main::FALSE; } else { $ignore .= " -x"; } };
# # if we have args to ignore, say so # $main::EnlistAsOther and $ignore and printf "\nUsing client %s as a template, ignoring$ignore.\n", "\U$main::OtherClient"; $main::EnlistFromProfile and $ignore and print "\nUsing profile, ignoring$ignore and/or projects on command line.\n";
# # do some early error checking so we can get usage if needed # $main::Enlisting and do { # # make sure we're enlisting in either some or all projects # if (!$main::EnlistAsOther and !$main::EnlistSome and !$main::EnlistAll) { print "\nMissing projects to enlist, or -a.\n"; $main::Usage = $main::TRUE; }
# # if we're enlisting in only some projects and not as another client, # the project list can't be empty # if ($main::EnlistSome and !$main::EnlistAsOther and ($#main::SomeProjects < 0)) { print "\nMissing projects to enlist. Please specify projects or use -a for all.\n"; $main::Usage = $main::TRUE; } };
# # same if defecting... # $main::Defecting and do { # # make sure we're defecting in either some or all projects # if (!$main::DefectSome and !$main::DefectAll) { print "\nMissing projects to defect, or -a.\n"; $main::Usage = $main::TRUE; }
# # if we're defecting in only some projects, the project list # can't be empty # if ($main::DefectSome and ($#main::SomeProjects < 0)) { print "\nMissing projects to defect.\n"; $main::Usage = $main::TRUE; } };
# # for now 'sdx branch' or 'sdx integrate' with no args is an error -- we don't want the UI popping up # branch and integrate also requires args # (($main::SDCmd eq "branch" or $main::SDCmd eq "integrate") and $main::UserArgs =~ /^[\s]*$/) and do { print "\nMissing arguments to 'sdx $main::SDCmd'.\n"; $main::Usage = $main::TRUE; };
# # 'sdx opened -c' without 'default' is an error # (($main::SDCmd eq "opened") and ($main::UserArgs =~ /-c/ and $main::UserArgs !~ /-c default/)) and do { print "\n'sdx $main::SDCmd -c' requires 'default' as an argument.\n"; $main::Usage = $main::TRUE; };
(($main::SDCmd eq "branch" or $main::SDCmd eq "change" or $main::SDCmd eq "user") and $main::UserArgs !~ /-o/) and do { print "\nOnly the -o switch is supported with 'sdx $main::SDCmd'.\n"; $main::Usage = $main::TRUE; };
# # don't allow "..." ".../*" ".../*.*" or their variations as arg to delete and edit # ($main::SDCmd eq "deletefile" or $main::SDCmd eq "editfile") and do { ($main::UserArgs =~ / \.\.\. |\.\.\.[\\\/]\*|\.\.\.[\\\/]+\*\.\* /) and do { my $ua = $main::UserArgs; $ua =~ s/[\t\s]*//g; print "\n'$ua' is not supported with 'sdx $main::SDCmd'.\n"; $main::Usage = $main::TRUE; }; };
# # only allow 'status' arg to sd admin # ($main::SDCmd eq "admin" and $main::UserArgs =~ / killthread | copyin | copyout | stop/) and do { print "\nOnly the 'status' command is supported with 'sdx admin'.\n"; $main::Usage = $main::TRUE; };
# # see if we need to check the format of (reverse) integration comments # # this helps sdx changes -b buildnum find I/RI events in the sd changes output # and get build history # ($main::SDCmd eq "submit" and $main::SubmitComment) and SDX::VerifySubmitComment();
$main::V4 and do { print "\nparseargs: cmd line = '@_'\n\n"; printf "parseargs: op = %s\n", $main::SDCmd; printf "parseargs: userargs = '%s'\n", $main::UserArgs; printf "parseargs: e = %s\n", $main::Enlisting; printf "parseargs: r = %s\n", $main::Repairing; printf "parseargs: d = %s\n", $main::Defecting; printf "parseargs: o = %s\n", $main::OtherOp; printf "parseargs: ea = %s\n", $main::EnlistAll; printf "parseargs: es = %s\n", $main::EnlistSome; printf "parseargs: da = %s\n", $main::DefectAll; printf "parseargs: ds = %s\n", $main::DefectSome; print "parseargs: submitcomment = '$main::SubmitComment'\n"; printf "parseargs: logging = %s\n", $main::Logging; printf "parseargs: logfile = '%s'\n", $main::Log; printf "parseargs: enlistfromprofile = %s\n", $main::EnlistFromProfile; printf "parseargs: profile = '%s'\n", $main::Profile; printf "parseargs: newenlist = %s\n", $main::NewEnlist; printf "parseargs: increnlist = %s\n", $main::IncrEnlist; printf "parseargs: enlistasother = %s\n", $main::EnlistAsOther; printf "parseargs: otherclient = '%s'\n", $main::OtherClient; printf "parseargs: u = %s\n", $main::Usage; printf "parseargs: v1 = %s\n", $main::V1; printf "parseargs: v2 = %s\n", $main::V2; printf "parseargs: quiet = %s\n", $main::Quiet; printf "parseargs: mintools = %s\n", $main::MinimalTools; printf "parseargs: sync = %s\n", $main::Sync; printf "parseargs: defectwithprejudice = %s\n", $main::DefectWithPrejudice;
printf "parseargs: sdxroot = %s\n", $main::SDXRoot; printf "parseargs: cb = %s\n", $main::CodeBase; printf "parseargs: br = %s\n", $main::Branch;
(($main::MinusI and !$main::Repairing) and !$main::MinusH) and do { print "parseargs: input form on STDIN:\n"; foreach (@main::InputForm) { print "'$_'\n"; } };
if ($main::EnlistSome or $main::DefectSome) { print "\nSome projects on cmd line:\n\n"; foreach $project (@main::SomeProjects) { printf "\t%s\n", $project; }
print "\n"; }
print "\n"; };}
# _____________________________________________________________________________## AddUserArg### Parameters:## Output:# _____________________________________________________________________________sub AddUserArg{ my $arg = $_[0];
# # if the arg is a switch associated with bad cmds # see if our cmd is in the list # ($arg =~ /^[-\/]/ and exists($main::BadCmds{$arg})) and do { foreach $cmd (@{$main::BadCmds{$arg}}) { ($cmd eq $main::SDCmd) and die("\nThe 'sdx $main::SDCmd $arg' command is not supported.\n"); } };
$main::V4 and do { print "adding '$arg ' to '$main::UserArgs'\n"; };
$main::UserArgs .= $arg . " ";}
# _____________________________________________________________________________## ReadSDMap## reads project name and project root (relative path from %SDXROOT%) from# %SDXROOT%\sd.map into a list for use by Defect() and OtherOp()## Parameters:## Output:# populates $main::SDMapProjects list# _____________________________________________________________________________sub ReadSDMap{ my $enlisting = ($_[0] eq "enlist"); my $defecting = ($_[0] eq "defect"); my $repairing = ($_[0] eq "repair"); my $otherop = ($_[0] eq "otherop"); my $init = ($_[1] eq "init"); my $line; my $repairmsg = $main::FALSE; my $enlistmsg = $main::FALSE; my $nomapmsg = $main::FALSE; my $nokeysmsg = $main::FALSE; my $noprojmsg = $main::FALSE;
# # need to re-init this here each time # @main::SDMapProjects = ();
$main::V3 and do { print "op = '$op'\n"; print "init = '$init'\n"; };
if (-e $main::SDMap) { open(SDMAP, "<$main::SDMap") or die("\nCan't open $main::SDMap for reading.\n");
while ($line = <SDMAP>) { # # throw away comments, blank lines and certain non-project lines # $line =~ /^#|^[\t\s]*$/ and next;
# # get the code base # if ($line =~ /^CODEBASE[\t\s]+/) { @fields = split(/[\t\s]*=[\t\s]*/, $line); $main::SDMapCodeBase = "\U@fields[1]"; $main::SDMapCodeBase =~ s/[\t\s]*//g;
next; }
# # get the codebase type # if ($line =~ /^CODEBASETYPE/) { $main::SDMapCodeBaseType = (split(/[\t\s]*=[\t\s]*/, $line))[1]; chop $main::SDMapCodeBaseType; next; }
# # get the branch # if ($line =~ /^BRANCH/) { $main::SDMapBranch = (split(/[\t\s]*=[\t\s]*/, $line))[1]; $main::SDMapBranch =~ s/[\t\s]*//g;
next; }
# # get the client # if ($line =~ /^CLIENT/) { $main::SDMapClient = (split(/[\t\s]*=[\t\s]*/, $line))[1]; $main::SDMapClient =~ s/[\t\s]*//g;
next; }
# # get the list of enlisted depots # if ($line =~ /^DEPOTS/) { my $fields = (split(/[\t\s]*=[\t\s]*/, $line))[1]; @main::SDMapDepots = split(/[\t\s]+/, $fields); next; }
# # each line is of the form "project = projroot" # # throw away the '=' and push the project and root into the list # $line !~ /^(DEPOTS|CLIENT|BRANCH|CODEBASETYPE|CODEBASE)/ and do { chop $line; $line =~ s/[\t\s]+//g; @fields = split(/=/, $line); push @main::SDMapProjects, [@fields]; }; }
close(SDMAP);
# # if during init and no codebase type or depot list found, # fix up the map quietly # ($init) and do { (!$main::SDMapCodeBaseType or !@main::SDMapDepots) and do SDX::FixSDMap();
# # track the actively used depots # # incremental enlist and defect may add/remove depots to/from this list # @main::ActiveDepots = @main::SDMapDepots; };
$main::V4 and do { print "\n"; foreach $p (@main::SDMapProjects) { printf "readsdm: project, root = %s, %s\n", @$p[0], @$p[1]; }
print "\n"; foreach $p (@main::SDMapDepots) { printf "readsdm: depot = %s\n", $p; }
print "\nreadsdm: main::SDMapCodeBase = '$main::SDMapCodeBase'\n"; print "readsdm: main::SDMapBranch = '$main::SDMapBranch'\n"; print "readsdm: main::SDMapClient = '$main::SDMapClient'\n"; print "readsdm: main::SDMapCodeBaseType = '$main::SDMapCodeBaseType'\n"; };
# # return code depends on what we're doing and when # if ($init) { # # return if we have the keywords else fail with msg # $enlisting and do { $main::V4 and print "\nduring init, sd.map exists, enlisting\n";
$main::SDMapCodeBase and $main::SDMapBranch and $main::SDMapClient and return 1;
$nokeysmsg = $main::TRUE; $repairmsg = $main::TRUE; }; } else { # # all we care about in this case is the project list, b/c the map will # be rewritten and any missing keywords restored # # fail silently if at all # $enlisting and do { $main::V4 and print "\nduring EDR, sd.map exists, enlisting\n";
@main::SDMapProjects and return 1; }; }
# # always return successfully when repairing, so we can continue and # rewrite any missing lines from the map # $repairing and do { $main::V4 and print "\nduring EDR, sd.map exists, repairing\n";
return 1; };
# # # ($defecting or $otherop) and do { $main::V4 and print "\nduring EDR, sd.map exists, defecting or otherop\n";
if ($main::SDMapCodeBase and $main::SDMapBranch and $main::SDMapClient) { @main::SDMapProjects and return 1;
$noprojmsg = $main::TRUE; } else { $nokeysmsg = $main::TRUE; }
$repairmsg = $main::TRUE; };
# # print error msgs # $nokeysmsg and do { printf "\n%s is missing one or more required keywords.\n", "\U$main::SDMap"; };
$noprojmsg and do { print "\nNo projects found in \U$main::SDMap.\n"; };
$repairmsg and do { printf "\nRun 'sdx repair %s %s' to update it, then rerun this command.\n", $main::SDMapCodeBase ? "\L$main::SDMapCodeBase" : "<codebase>", $main::SDMapBranch ? $main::SDMapBranch : "<branch>"; }; } else { # # SD.MAP is missing # if ($init) { # # assume this is an incremental enlist # ($enlisting and !$main::NewEnlist) and do { $nomapmsg = $main::TRUE; $enlistmsg = $main::TRUE; };
($repairing or $defecting or $otherop) and do { $nomapmsg = $main::TRUE;
!$repairing and $repairmsg = $main::TRUE; }; } else { $enlisting and do { $main::V2 and print "\nduring EDR, no sd.map, enlisting\n"; };
$repairing and do { $main::V2 and print "\nduring EDR, no sd.map, repairing\n"; };
$defecting and do { $main::V2 and print "\nduring EDR, no sd.map, defecting\n"; };
$otherop and do { $main::V2 and print "\nduring EDR, no sd.map, otherop\n"; }; };
# # print error msgs specific to missing SD.MAP cases # $nomapmsg and printf "\nCan't find %s to get enlistment information.\n", "\U$main::SDMap";
$enlistmsg and !$repairmsg and do { print "\nIf this is a new enlistment please run 'sdx enlist <codebase> <branch>' to\n"; print "specify the set of sources and the branch you want to enlist in.\n";
print "\nIf you are adding projects to an existing enlistment, the SD.MAP at\n"; printf "%s is missing. Run 'sdx repair <codebase> <branch>' to restore\n", "\U$main::SDXRoot"; print "it, then rerun this command.\n"; };
$repairmsg and !$enlistmsg and do { print "\nVerify that \%SDXROOT\% is set correctly, and that "; printf "%s contains\n", "\U$main::SDXRoot"; printf "a valid enlistment. If it does, run 'sdx repair %s %s'\n", ($main::CodeBase ? $main::CodeBase : "<codebase>"), ($main::Branch ? $main::Branch : "<branch>"); print "to restore SD.MAP, then rerun this command.\n"; };
($repairmsg or $enlistmsg) and print "\nRun 'sdx repair -?' to see what repairing does to your enlistment.\n"; }
return 0;}
# _____________________________________________________________________________## FixSDMap## silently adds missing keywords to the user's SD.MAP## Parameters:## Output:# _____________________________________________________________________________sub FixSDMap{ # # if no list of enlisted depots, figure it out and append it to the map # !@main::SDMapDepots and do { # # figure out the list of active depots # SDX::OtherOp("enumdepots","");
# # append # system "attrib -R -H -S $main::SDMap >nul 2>&1"; open(SDMAP, ">>$main::SDMap") or die("\nCan't append $main::SDMap.\n");
print SDMAP "\n"; SDX::WriteSDMapDepots(\@main::SDMapDepots, *SDMAP);
close SDMAP; system "attrib +R +H +S $main::SDMap >nul 2>&1"; };
# # same for the codebase type # !$main::SDMapCodeBaseType and do { # # need to act as though we were enlisting to get enough information # to determine the type # $main::CodeBase = $main::SDMapCodeBase;
if (SDX::VerifyCBMap($main::CodeBase)) { SDX::ReadCodeBaseMap(); $main::SDMapCodeBaseType = $main::CodeBaseType;
# # throw away results of the map read so we don't get duplicates # $main::ToolsProject = ""; $main::ToolsPath = ""; $main::ToolsProjectPath = ""; } else { print "\n\nError fixing SD.MAP: can't find codebase map $main::CodeBaseMap.\n"; die("\nContact the SDX alias.\n"); }
# # append # system "attrib -R -H -S $main::SDMap >nul 2>&1"; open(SDMAP, ">>$main::SDMap") or die("\nCan't append $main::SDMap.\n"); SDX::WriteSDMapCodeBaseType($main::SDMapCodeBaseType, *SDMAP); close SDMAP; system "attrib +R +H +S $main::SDMap >nul 2>&1"; };}
# _____________________________________________________________________________## EnumDepots## called by FixSDMap by OtherOp to walk the project roots and find SDPORT # values## Parameters:## Output:# populates @main::SDMapDepots for writing to SD.MAP# _____________________________________________________________________________sub EnumDepots{ my $userargs = $_[0]; my $project = $_[1]; my $sdini = $_[2]; my $sp;
$main::V4 and do { print "\n\n\nuserargs = '$userargs'\n"; print "project = '$project'\n"; };
# # get server:port # open(INI, "< $sdini") or die("\nCan't read SD.INI.\n"); while (<INI>) { /^SDPORT/ and do { $sp = (split(/=/,$_))[1]; chop $sp; }; } close(INI);
# # add to hash if unique # unless ($main::DepotsSeen{$sp}) { $main::DepotsSeen{$sp} = 1; push @main::SDMapDepots, $sp; }}
# _____________________________________________________________________________## ListProjects## Parameters:## Output:# _____________________________________________________________________________sub ListProjects{ my $userargs = $_[0]; my $project = $_[1];
$main::V2 and do { print "\n\n\nuserargs = '$userargs'\n"; print "project = '$project'\n"; };
SDX::PrintCmd($header, 0);
for $p (@main::SDMapProjects) { (@$p[0] eq $project) and print "\n$main::SDXRoot\\@$p[1]\n"; }}
# _____________________________________________________________________________## Enlist## Parameters:## Output:# _____________________________________________________________________________sub Enlist{ # # munge the codebase map to create project, depot and group lists # and figure out what the user wants to enlist in # if (SDX::InitForEnlist()) { # # for each depot we're enlisting in # get the list of projects in this depot # create/update the client view # create/update the SD.MAP # write the SD.INIs # foreach $depot (@main::EnlistDepots) { $serverport = @$depot[0]; $main::V3 and print "\n$serverport\n";
# # from the list of all projects to enlist in, create a list of # projects found in the current depot only # @main::ProjectsInThisDepot = (); foreach $project (@main::EnlistProjects) { if ($serverport eq @$project[$main::CBMServerPortField]) { push @main::ProjectsInThisDepot, [@{$project}];
$main::V3 and print "\t@$project\n"; } }
print "\n";
# # create or update the client view # SDX::EnlistProjects($depot, "enlist");
# # upon registering the first client, release the mutex we # took ownership of in MakeUniqueClient() so other enlists # can continue # $main::HaveMutex and do { $main::HaveMutex = $main::FALSE; $main::Mutex->release; };
# # create/update %SDXROOT%\SD.MAP # SDX::UpdateSDMap("enlist");
# # create/update %SDXROOT%\SD.MAP # SDX::UpdateSDINIs("enlist"); }
# # finish it off # SDX::FinishEnlist();
# # success # return 0; } else { printf "\nSDX had errors reading the file PROJECTS.%s or in constructing the list of\n", "\U$main::CodeBase"; print "projects and depots for enlisting.\n";
# # failure # return 1; }}
# _____________________________________________________________________________## InitForEnlist## Parameters:# Command Line Arguments## Output:# returns 1 if successful, 0 otherwise# _____________________________________________________________________________sub InitForEnlist{ # # do the common init # SDX::InitForEDR("enlist");
# # set the branch flag # # one of the following is true about $main::Branch # - it matches $main::MasterBranch, in which case we're enlisting in the # main sources for all projects for this code base # - it matches one of the group build lab branch names, in which case we're # enlisting in that lab's branched sources for all projects # - it matches some other root-level branch defined by a developer or # private lab # if ($main::Branch eq $main::MasterBranch) { $main::EnlistingMainBranch = $main::TRUE; } else { foreach $br (@main::GroupBranches) { if ($main::Branch eq $br) { $main::EnlistingGroupBranch = $main::TRUE; last; } } }
if (!$main::EnlistingMainBranch && !$main::EnlistingGroupBranch) { $main::EnlistingPrivateBranch = $main::TRUE; }
# more error checking: # - branch name can't be a project name # - must be enlisting in all or some projects # - if only some, project list can't be null # # verify that the branch the user gave us is not one of the projects # in the codebase map. if so, they probably forgot to specify the # branch name on the cmd line # foreach $project (@main::AllProjects) { ($main::Branch eq @$project[$main::CBMProjectField]) and die("\nBranch name '$main::Branch' appears to be a project.\n"); }
# # from the lists of all projects, groups and depots, create the lists # of just those we'll enlist in # SDX::MakeTargetLists("enlist");
# # see if we need to use a unique client name # if ($main::NewEnlist) { $main::SDClient = SDX::MakeUniqueClient(); } else { SDX::VerifyAccess(); }
# # if we have depots and projects to enlist in, continue # else politely error-out # if (@main::EnlistDepots && @main::EnlistProjects) { if ($main::EnlistAsOther) { printf "\n\n\nThis script will enlist you in the %s sources using these settings:\n\n", "\U$main::CodeBase"; } else { printf "\n\n\nThis script will %s in the %s sources", $main::NewEnlist ? "enlist you" : "add projects to your enlistment", "\U$main::CodeBase"; printf "%susing these settings:\n\n", $main::NewEnlist ? " " : "\n"; }
printf "\tRoot directory:\t\t%s\n", "\U$main::SDXRoot"; printf "\tBranch:\t\t\t%s\n", "\U$main::Branch"; printf "\tSD client name:\t\t%s\n", $main::SDClient; printf "\tSD user name:\t\t%s\n", $main::SDDomainUser;
$main::EnlistAsOther and printf "\tClient template:\t%s\n", "\U$main::OtherClient";
# # print the projects we're going to enlist in # $np = $#main::EnlistProjects+1; printf "\n\tEnlisting in %s project%s...\n\n", $np, $np > 1 ? "s" : ""; foreach $project (@main::EnlistProjects) { printf "\t %s\n", @$project[$main::CBMProjectField]; }
# # print the depots we're going to enlist in # $nd = $#main::EnlistDepots+1; printf "\n\t...across %s depot%s:\n\n", $nd, $nd > 1 ? "s" : ""; foreach $depot (@main::EnlistDepots) { printf "\t %s\n", @$depot[0]; }
print "\n\nIF YOU ARE NOT READY TO ENLIST WITH THESE SETTINGS, HIT CTRL-BREAK NOW.\n"; print " ==================\n\n\n"; print "Otherwise,\n\n"; !$main::Quiet and system "pause";
print "\n\n";
# # warn user if the branch they want doesn't exist ####### SDX::VerifyBranch("enlist", $nd) and print "\nWarning: branch '$main::Branch' does not exist in one or more depots\n";
# # if enlisting as another client, make sure the new client we want to create # doesn't already exist # $main::EnlistAsOther and SDX::VerifyClient($nd);
# # add some or all of the depots we're about to enlist in to # the active list so they show up in SD.MAP later # SDX::UpdateActiveDepots("enlist", "");
$main::V4 and do { printf "\n"; printf "initforenlist: cb=%s\n", $main::CodeBase; printf "initforenlist: cbm=%s\n", $main::CodeBaseMap; printf "initforenlist: mb=%s\n", $main::MasterBranch; printf "initforenlist: cv=%s\n", $main::ClientView; printf "\n"; };
return 1; } else { !@main::EnlistProjects and print "\nNo projects found. Unable to enlist.\n" and return 0; !@main::EnlistDepots and print "\nNo depots found. Unable to enlist.\n" and return 0; }}
# _____________________________________________________________________________## UpdateActiveDepots## Add or remove server:port values to active depot list, depending on # operation## Parameters:## Output:# _____________________________________________________________________________sub UpdateActiveDepots{ my $op = $_[0]; my $sp = $_[1];
my $enlisting = ($op eq "enlist"); my $defecting = ($op eq "defect");
($enlisting) and do { # # on a clean enlist the list of active depots is # those the user will enlist in # # active depot list is written to SD.MAP after enlisting # ($main::NewEnlist) and do { my @unsorted = (); for $depot (@main::EnlistDepots) { push @unsorted, @$depot[0]; }
# # want this sorted # @main::ActiveDepots = SDX::SortDepots(\@unsorted); };
# # on an incremental enlist, add new depots only # ($main::IncrEnlist) and do { my %hash = ();
for $depot (@main::ActiveDepots) { $hash{$depot} = 1; } $main::V3 and do { print "\nhash:\n"; while (($k,$v) = each %hash) { printf " %-50s\t%s\n", $k, $v; } };
for $depot (@main::EnlistDepots) { my $sp = @$depot[0]; ($hash{$sp} != 1) and do { push @main::ActiveDepots, $sp; }; }
@main::ActiveDepots = SDX::SortDepots(\@main::ActiveDepots); };
};
# # null out dead server:port in active list # ($defecting) and do { $main::V3 and do { print "\nbefore:\n"; for $d (@main::ActiveDepots) { print " '$d'\n"; } };
grep {s/$sp//g} @main::ActiveDepots;
$main::V3 and do { print "\nafter:\n"; for $d (@main::ActiveDepots) { print " '$d'\n"; } }; };}
# _____________________________________________________________________________## EnlistProjects## Parameters:## Output:# _____________________________________________________________________________sub EnlistProjects{ $depot = $_[0]; $op = $_[1];
$serverport = @$depot[0];
if ($main::EnlistAsOther) { # # register a new view using another client as a template # my $desc = 0; my $pr = 0;
unlink $main::ClientView;
# # Root: field for client view depends on depot type # # for type 1 (1 project/depot), root includes project name # for type 2 (N projects/depot), root is just main::SDXRoot # # root is at least SDXRoot in either case # $root = $main::SDXRoot; (@{$main::DepotType{$serverport}}[0] == 1) and $root = SDX::Type1Root($root);
# # dump the other client into a list # @lines = `sd.exe -p $serverport client -o $main::OtherClient`;
$main::V3 and print "otherclient = '@lines'\n\n";
# # munge the other's view to create a template # open(CLIENTVIEW, ">$main::ClientView") or die("\nCan't open $main::ClientView for writing.\n");
# # if OtherClient is a unique name, double up on the '\' so # the s///gi works correctly # my $other = $main::OtherClient; $other =~ s/\\/\\\\/g;
# # transmogrify the client spec lines # foreach $line (@lines) { # # if the most recent line was the description, the current line is its text # $desc and do { $line =~ s/^[\t\s]+.+/\tCreated by $main::SDDomainUser./g; print CLIENTVIEW "$line";
$desc = 0; next; };
# throw away comments and certain other lines $line =~ /(Update|Access):|^#/ and next;
# replace Client: with our client $line =~ s/^Client:[\t\s]*.+/Client: $main::SDClient/g;
# replace owner name with our user name $line =~ s/^Owner:[\t\s]*.+/Owner: $main::SDDomainUser/g;
# found the desc line, set a flag and replace it next time through $line =~ /^Description:/ and $desc = 1;
# replace the old root with ours $line =~ s/^Root:[\t\s]*.+/Root: $root/g;
# replace other client name in view lines with ours $line =~ s/$other/$main::SDClient/gi;
print CLIENTVIEW "$line"; }
close(CLIENTVIEW);
$main::V2 and do { print "==========\n"; system "type $main::ClientView"; print "==========\n"; }; } else { # # create/update the view spec # SDX::CreateView($depot, $op); }
# # register the new/updated view # system "sd.exe -p $serverport client -i < $main::ClientView";}
# _____________________________________________________________________________## FinishEnlist## Finish up by:# maybe syncing projects for the user# generating SDINIT and alias files# syncing the tools dir# syncing any other dirs specified by the codebase map# providing friendly verbage## Parameters:# none## Output:# _____________________________________________________________________________sub FinishEnlist{ # # cleanup # unlink $main::ClientView;
# # maybe unghost # $main::Sync and SDX::SyncFiles("enlist", $main::Null, $main::Null);
# # give the user some direction on how to get started # # if the codebase map identified a tools dir, point them to that # otherwise copy down the tools for them #
# # give the user the SD/SDX tools, batch files for aliases and SDX commands # SDX::ToolsEtc("enlist");
# # also sync any OtherDirs at this time # @main::OtherDirs and SDX::SyncOtherDirs("enlist");
# # if NT, addfile a default \developer\<username>\setenv.cmd # not there yet # ("\U$main::CodeBase" eq "NT") and SDX::WriteDefaultSetEnv();
# # verbage for a succesful enlist # print "\nDone.\n";
$main::NewEnlist and do { $main::SDXRoot =~ tr/a-z/A-Z/; $main::CodeBase =~ tr/a-z/A-Z/; $sdtools = $main::SDXRoot . "\\sdtools";
print "\n\nThe directory $main::SDXRoot is now enlisted in the $main::CodeBase sources.\n";
print "\nThese SDX files were placed in your enlistment:\n";
if ($main::ToolsProject) { print "\n $main::SDXRoot\n"; printf "\t%-24smap to project roots and SD.INIs\n", "SD.MAP";
print "\n \U$main::ToolsProjectPath\n"; printf "\t%-24saliases for logging SDX output\n", "ALIAS.SDX"; printf "\t%-24saliases for navigating your enlistment\n", "ALIAS." . $main::CodeBase; $main::CodeBaseMapFile =~ tr/a-z/A-Z/; printf "\t%-24scodebase map for future enlist/defect/repair\n", $main::CodeBaseMapFile; printf "\t%-24ssets default Source Depot vars and aliases\n", "SDINIT.CMD"; printf "\t%-24sscripts for cross-depot commands\n", "SDX.\*";
if ( "\U$main::CodeBase" eq "NT" or "\U$main::CodeBase" eq "NTSDK" or ("\U$main::CodeBase" eq "NTTEST" and !$main::RestrictRoot) or "\U$main::CodeBase" eq "NT.INTL" or "\U$main::CodeBase" eq "MPC" or "\U$main::CodeBase" eq "NGWS" or "\U$main::CodeBase" eq "MGMT" or "\U$main::CodeBase" eq "MOM" or "\U$main::CodeBase" eq "PDDEPOT" or "\U$main::CodeBase" eq "WINMEDIA" or "\U$main::CodeBase" eq "WINSS" ) { printf "\n\nRun\n\n %s\\RAZZLE.CMD%s\n\nto start building.\n\n","\U$main::ToolsProjectPath", ($main::MinimalTools) ? " no_certcheck" : ""; } else { print "\n\nTo use Source Depot, your build environment must:\n"; print "\n set SDXROOT=$main::SDXRoot\n"; printf " set PATH=\%SDXROOT\%\\%s;\%SDXROOT\%\\%s\\\%PROCESSOR_ARCHITECTURE\%;\%PATH\%\n", $main::ToolsPath ? "\U$main::ToolsPath" : "\U$main::ToolsProject", $main::ToolsPath ? "\U$main::ToolsPath" : "\U$main::ToolsProject"; printf " call %s\\SDINIT.CMD\n", "\U$main::ToolsProjectPath"; } } else { print "\n $main::SDXRoot\n"; printf "\t%-24saliases for logging SDX output\n", "ALIAS.SDX"; printf "\t%-24saliases for navigating your enlistment\n", "ALIAS." . $main::CodeBase; printf "\t%-24smap to project roots and SD.INIs\n", "SD.MAP"; printf "\t%-24ssets default Source Depot vars and aliases\n", "SDINIT.CMD";
print "\n $sdtools\n"; printf "\t%-24sPerl runtimes\n", "PERL\*"; $main::CodeBaseMapFile =~ tr/a-z/A-Z/; printf "\t%-24scodebase map for future enlist/defect/repair\n", $main::CodeBaseMapFile; printf "\t%-24sSource Depot client\n", "SD.EXE"; printf "\t%-24sscripts for cross-depot commands\n", "SDX.\*";
print "\n\nTO USE SDX/SD\n-------------\n"; print "Run $main::SDINIT. This will\n\n"; print " - set default Source Depot environment variables\n\n";
!$main::ToolsProject and print " - include $main::SDXRoot\\sdtools in your PATH\n\n";
print " - turn on aliases to log SDX output to $main::SDXRoot\\<command>.LOG\n"; print " and for changing between source projects\n\n"; print " - look for the file SDVARS.CMD and run it if found. This is\n"; print " useful for customizing Source Depot settings like SDEDITOR or\n"; print " SDPASSWD, adding other aliases, etc.\n";
print "\nYou can then run SDX or SD commands.\n";
!$main::Sync and do { print "\n\nYou may want to run 'sdx sync' to sync files in your enlistment.\n"; }; } };}
# _____________________________________________________________________________## Repair## Parameters:## Output:# _____________________________________________________________________________sub Repair{ # # munge the codebase map to create project, depot and group lists, # then query the depots to figure out which depots and projects the # user is already enlisted in # if (SDX::InitForRepair()) { # # if rewriting SD.INIs, SD.MAP must also be rewritten # easiest to just initially remove it # ($main::MinusI) and unlink $main::SDMap;
# # for each depot we're repairing # get the list of projects in this depot # create/update the client view # create/update the SD.MAP # write the SD.INIs # foreach $depot (@main::RepairDepots) { $serverport = @$depot[0]; $main::V2 and print "\n$serverport\n";
# # from the list of all projects to repair, create a list of # projects found in the current depot only # @main::ProjectsInThisDepot = (); foreach $project (@main::RepairProjects) { if ($serverport eq @$project[$main::CBMServerPortField]) { push @main::ProjectsInThisDepot, [@{$project}];
$main::V2 and print "\t@$project\n"; } }
print "\n";
# # create or update the client view # if not repairing only SD.INIs # if ($main::MinusI) { print "Repairing enlistment for depot $serverport.\n"; } else { SDX::EnlistProjects($depot, "repair"); }
# # create/update %SDXROOT%\SD.MAP # SDX::UpdateSDMap("repair");
# # create/update <projroot>\SD.INI # SDX::UpdateSDINIs("repair"); }
# # finish it off # SDX::FinishRepair();
# # success # return 0; } else { printf "\nThis client wasn't found in the depot(s) for the %s sources. Use 'sd -p\n", "\U$main::CodeBase"; print "<server:port> clients' to verify that $main::SDClient actually has an enlistment.\n\n";
# # failure # return 1; }}
# _____________________________________________________________________________## InitForRepair## Parameters:# Command Line Arguments## Output:## _____________________________________________________________________________sub InitForRepair{ # # do the common init # SDX::InitForEDR("repair");
# # query the depots and make the lists of depots and projects the user # is enlisted in # if (SDX::GetProjectsToRepair()) { SDX::VerifyAccess();
# # starting verbage # printf "\n\n\nThis script will repair your enlistment in the %s sources using these\n", "\U$main::CodeBase"; printf "settings:\n\n"; printf "\tRoot directory:\t\t%s\n", "\U$main::SDXRoot"; printf "\tCode branch:\t\t%s\n", "\U$main::Branch"; printf "\tSD client name:\t\t%s\n", $main::SDClient; printf "\tSD user name:\t\t%s\n", $main::SDDomainUser;
# # print the projects to repair # $np = $#main::RepairProjects+1; printf "\n\tRepairing %s%s project%s...\n\n", ($main::MinusI) ? "SD.INIs for " : "", $np, $np > 1 ? "s" : ""; foreach $project (@main::RepairProjects) { printf "\t %s\n", @$project[$main::CBMProjectField]; }
# # print the depots to repair # $nd = $#main::RepairDepots+1; printf "\n\t...across %s depot%s:\n\n", $nd, $nd > 1 ? "s" : ""; foreach $depot (@main::RepairDepots) { printf "\t %s\n", @$depot[0]; }
print "\n\nIF THESE SETTINGS ARE NOT CORRECT, HIT CTRL-BREAK NOW.\n"; print " ==================\n\n\n"; print "Otherwise,\n\n"; !$main::Quiet and system "pause";
print "\n\n";
return 1; } else { printf "\nNo depots or projects found for client %s. Unable to repair.\n", "\U$main::SDClient"; return 0; }}
# _____________________________________________________________________________## FinishRepair## Finish up by:# maybe syncing projects for the user# generating SDINIT and alias files# syncing the tools dir# syncing any other dirs specified by the codebase map# providing friendly verbage## Parameters:# none## Output:# _____________________________________________________________________________sub FinishRepair{ # # cleanup # unlink $main::ClientView;
# # sync files or tools if doing more than rewriting SD.INIs # !$main::MinusI and do { # # maybe re-sync # $main::Sync and SDX::SyncFiles("repair", $main::Null, $main::Null);
# # give the user the SD/SDX tools, batch files for aliases and SDX commands # SDX::ToolsEtc("repair");
# # also sync any OtherDirs at this time # @main::OtherDirs and SDX::SyncOtherDirs("repair"); };
# # verbage for a succesful repair # if ($main::MinusI) { printf "\n\nThe SD.INIs in your %s enlistment have been repaired.\n", "\U$main::CodeBase"; } else { printf "\n\nYour %s enlistment has been repaired.\n", "\U$main::CodeBase"; }
(!$main::Sync and !$main::MinusI) and do { print "\nIf you are missing source files, run 'sd sync -f [filespec]' or 'sdx sync -f'\n"; print "to restore them.\n"; };}
# _____________________________________________________________________________## Defect## Parameters:## Output:# returns 0 if successful, 1 otherwise# _____________________________________________________________________________sub Defect{ # # munge the codebase map to create project, depot and group lists # and figure out what the user wants to defect from # if (SDX::InitForDefect()) { # # for each depot we're defecting from # get the list of projects in this depot # create/update the client view # create/update the SD.MAP # write the SD.INIs # foreach $depot (@main::DefectDepots) { $serverport = @$depot[0]; $main::V2 and print "\n$serverport\n";
# # from the list of all projects to defect from, create a list of # projects found in the current depot only # @main::ProjectsInThisDepot = (); foreach $project (@main::DefectProjects) { if ($serverport eq @$project[$main::CBMServerPortField]) { push @main::ProjectsInThisDepot, [@{$project}]; $main::V2 and print "\t@$project\n"; } }
print "\n";
# # "update" the projects and INIs by removing them # SDX::UpdateSDINIs("defect");
# # remove entries from SD.MAP or remove it entirely if defecting all # SDX::UpdateSDMap("defect");
# # remove entries from client view, or delete client if # entire view would be removed # SDX::DefectProjects($depot);
print "ok.\n"; }
# # finish it off # SDX::FinishDefect();
# # success # return 0; } else { printf "\nSDX had errors reading the file PROJECTS.%s or constructing the list of\n", "\U$main::CodeBase"; print "projects and depots for defecting. Please contact the SDX alias.\n";
# # failure # return 1; }}
# _____________________________________________________________________________## InitForDefect## Parameters:# Command Line Arguments## Output:# populates @main::DefectDepots and @main::DefectProjects# returns 1 if successful or 0 if no projects left in list# _____________________________________________________________________________sub InitForDefect{ # # do the common init # SDX::InitForEDR("defect");
# # verify that the branch the user gave us is not one of the # projects in the codebase map. if so, they probably forgot to specify # the branch name on the cmd line # foreach $project (@main::AllProjects) { ($main::Branch eq @$project[$main::CBMProjectField]) and die("\nBranch name '$main::Branch' appears to be a project.\n"); }
# # from the lists of all projects, groups and depots, create the lists # of just those we'll defect from # SDX::MakeTargetLists("defect");
# # verify access to the servers now that we have the list of depots made by MakeTargetLists # SDX::VerifyAccess();
# # if we have depots and projects to defect from, continue # else politely error-out # if (@main::DefectDepots && @main::DefectProjects) { # # starting verbage # printf "\n\n\nThis script will defect you from projects in the %s sources using these\n", "\U$main::CodeBase"; printf "settings:\n\n"; printf "\tRoot directory:\t\t%s\n", "\U$main::SDXRoot"; printf "\tCode branch:\t\t%s\n", "\U$main::Branch"; printf "\tSD client name:\t\t%s\n", $main::SDClient; printf "\tSD user name:\t\t%s\n", $main::SDDomainUser;
# # print the projects to defect # $np = $#main::DefectProjects+1; printf "\n\tDefecting from %s project%s...\n\n", $np, $np > 1 ? "s" : ""; foreach $project (@main::DefectProjects) { printf "\t %s\n", @$project[$main::CBMProjectField]; }
# # print the depots to defect # $nd = $#main::DefectDepots+1; printf "\n\t...across %s depot%s:\n\n", $nd, $nd > 1 ? "s" : ""; foreach $depot (@main::DefectDepots) { printf "\t %s\n", @$depot[0]; }
$main::DefectWithPrejudice and printf "\n\tALL FILES AND DIRECTORIES in %s will be deleted.\n", $np > 1 ? "these projects" : "this project";
print "\n\nIF THESE SETTINGS ARE NOT CORRECT, HIT CTRL-BREAK NOW.\n"; print " ==================\n\n\n"; print "Otherwise,\n\n"; !$main::Quiet and system "pause";
print "\n\n";
# # verify that the branch the user wants exists in each depot ####### SDX::VerifyBranch("defect", $nd);
# # abort if the client still has files open # my @open = (); if (@open = SDX::FilesOpen()) { print "\n\nUnable to defect. Your client has these files open:\n\n"; print @open; print "\nSubmit or revert the files, then rerun this command.\n"; die("\n"); }
return 1; } else { print "\nNo depots or projects found. Unable to defect.\n"; return 0; }}
# _____________________________________________________________________________## DefectProjects## Parameters:## Output:# _____________________________________________________________________________sub DefectProjects{ my $depot = $_[0]; my $serverport = @$depot[0];
if ($main::DefectAll) { # # delete client completely # SDX::DeleteClient($serverport); } else { # # for this depot, remove some projects from the view # # if we have a reduced view to register, do it # otherwise delete the client entirely from this depot # if (SDX::RemoveFromView($depot)) { print "\n"; system "sd.exe -p $serverport client -i < $main::ClientView"; } else { print "\n";
# # delete client completely # SDX::DeleteClient($serverport); } }}
# _____________________________________________________________________________## DeleteClient## Delete $main::SDClient. Since clients are locked by default, non-# superusers can't delete their client, even with -f, so unlock the client# before deleting## Parameters:# none## Output:# _____________________________________________________________________________sub DeleteClient{ my $serverport = $_[0]; my @pending = (); my @changenums = ();
# # delete any pending changes owned by this client so we don't orphan them # @pending = grep(/$main::SDClient \*pending/, `sd.exe -p $serverport -c $main::SDClient changes -s pending`); @pending and do { my $line;
$main::V2 and print "pending = '@pending'\n";
my @fields = (); foreach $line (@pending) { @fields = split(/ /,$line); push @changenums, $fields[1]; }
$main::V2 and print "changenums = '@changenums'\n"; foreach $line (@changenums) { `sd.exe -p $serverport change -f -d $line`; } };
# # delete it # system "sd.exe -p $serverport client -d $main::SDClient";
# # remove depot from the list of active depots # SDX::UpdateActiveDepots("defect", $serverport);}
# _____________________________________________________________________________## FinishDefect## Finish up by:## Parameters:# none## Output:# _____________________________________________________________________________sub FinishDefect{ # # cleanup # unlink $main::ClientView;
# # write SD.MAP one last time to update the depot list # if (SDX::GetMapProjects("defect")) { SDX::WriteSDMap(\@main::ExistingMap); }
# # remove root files only if defecting the world # $main::DefectAll and SDX::ToolsEtc("defect");
# # verbage for a successful defect # print "\n\nOne or more projects were successfully defected.\n";
$main::DefectAll and do { my $path = $main::ToolsProject ? $main::ToolsProjectPath : ($main::SDXRoot . "\\sdtools"); printf "\nThe SD/SDX tools were in use. Please remove %s manually.\n", "\U$path"; };}
# _____________________________________________________________________________## OtherOp# called from sdx.pl to call an SD cmd## Parameters:# $sdcmd -- basic SD cmd as defined in %main::SDCmds# $fulluserargs -- all args as passed in## Output:# _____________________________________________________________________________sub OtherOp{ my $sdcmd = $_[0]; my $fulluserargs = $_[1]; my $cmdtype = 0; my $defcmd = ""; my $cmd = ""; my $fullcmd = ""; my $project = ""; my $userargs = ""; my $string = "";
!$sdcmd and die("\nMissing command to OtherOp().\n");;
# # get the cmd string and default args, and maybe # append user args # $defcmd = $main::SDCmds{$sdcmd}{defcmd}; $cmdtype = $main::SDCmds{$sdcmd}{type};
# # strip the '~proj' args out of userargs so they don't pass to SD # $userargs = $fulluserargs; $userargs =~ s/~\w+//g;
# # see if we're creating a lab or private branch # # then map lbranch/pbranch to "branch" cmd so -o and -d will work # my $privatebranch = ($defcmd eq "pbranch" and $userargs !~ /-[do]+/); my $labbranch = ($defcmd eq "lbranch" and $userargs !~ /-[do]+/);
($defcmd eq "pbranch" or $defcmd eq "lbranch") and $defcmd = "branch";
# # get the complete command into one string # $cmd = $defcmd . " " . $main::SDCmds{$sdcmd}{defarg} . $userargs;
$main::V2 and do { print "defcmd = '$defcmd'\n"; print "fulluserargs = '$fulluserargs'\n"; print "userargs = '$userargs'\n"; print "type = '$cmdtype'\n"; print "defargs = '$main::SDCmds{$sdcmd}{defarg}'\n"; print "cmd = '$cmd'\n"; };
print "\n";
# # maybe delete previous log # $main::Logging and unlink $main::Log;
# # if branching, give the user some instructions # $privatebranch and SDX::PrivateBranch($userargs, $main::Null, $main::Null, "start"); $labbranch and SDX::LabBranch($userargs, $main::Null, $main::Null, "start");
# # for type 1 commands, where the scope as it appears to the user is per- # project, loop through the project list and run $defcmd # # note that for type 1 codebases (with one project per depot), all commands # are essentially type 1 # $cmdtype == 1 and do { # # for each project, change to it's root and run $defcmd # foreach $projectandroot (@main::SDMapProjects) { $project = @$projectandroot[0];
# # common header #
$header = "\n---------------- \U$project\n";
# # skip this project if the user negated it on the cmd line with '~project' # $fulluserargs =~ /~$project / and next;
# # get path to SD.INI, make sure we have it, and cd there # $fullprojectroot = $main::SDXRoot . "\\" . @$projectandroot[1]; $sdini = $fullprojectroot . "\\sd.ini";
(-e $sdini) or (print "$header\nCan't find $sdini.\n\nRun 'sdx repair $main::SDMapCodeBase $main::SDMapBranch' to restore it.\n" and next);
chdir $fullprojectroot or die("\nCan't cd to $fullprojectroot.\n");
$main::V2 and do { print "project root = '$fullprojectroot'\n"; };
# # enumdepots -- internal -- collects server:ports in use # $defcmd eq "enumdepots" and do { SDX::EnumDepots($userargs, $project, $sdini); next; };
# # files -- count depot files in chunks # $defcmd eq "files" and do { SDX::Files($userargs, $project, $header); next; };
# # projects -- list enlisted projects and their roots # $defcmd eq "projects" and do { SDX::ListProjects($userargs, $project, $header); next; };
# # status is a combination of opened and sync -n # $defcmd eq "status" and do { SDX::Status($userargs, $project, $header, $cmdtype); next; };
# # special-case lab branches only if creating one # $labbranch and do { SDX::LabBranch($userargs, $project, $header, "modify", $cmdtype); next; };
# # handle private branches # $privatebranch and do { SDX::PrivateBranch($userargs, $project, $header, "modify", $cmdtype); next; };
# # opened may need special handling # $defcmd eq "opened" and do { SDX::Opened($userargs, $project, $header, $cmdtype); next; };
# # resolve -am needs special handling # $defcmd eq "resolve" and do { SDX::Resolve($userargs, $project, $header, $cmdtype); next; };
# # submit may be using a comment from the cmd line # $defcmd eq "submit" and do { SDX::Submit($userargs, $project, $header, $cmdtype); next; };
# # sync/flush may need the -q(uiet) flag # ($defcmd eq "sync" or $defcmd eq "flush") and do { SDX::SyncFlush($defcmd, $userargs, $project, $header, $cmdtype); next; };
# # it's none of the above, so print or run the final cmd string # $fullcmd = "sd.exe $cmd 2>&1";
SDX::RunSDCmd($header, $fullcmd); } };
# # for type 2 commands, where the cmd makes sense only at the depot level, loop # through the depot list and run $defcmd # # type 2 commands only exist when the depot structure is type 2, where N projects # exist per depot # $cmdtype == 2 and do { # # for type 2 commands read the codebase map # and figure out the depot type # SDX::GetDepotTypes();
# # run the cmd on each depot # foreach $serverport (@main::SDMapDepots) { # # for type 1 depots, get the project name # $project = (@{$main::DepotType{$serverport}}[0] == 1) ? "@{$main::DepotType{$serverport}}[1]\n" : "$serverport [MULTIPROJECT DEPOT]\n"; chop $project;
# # header depends on depot type # # for type 1, show the project name # for type 2, show the server:port # $header = "\n---------------- "; $header .= "\U$project\n";
# # skip this depot if it's type 1 and the user negated it on the cmd line with '~project' # $fulluserargs =~ /~$project / and next;
# # special-case lab branches only if creating one # $labbranch and do { SDX::LabBranch($userargs, $serverport, $header, "modify", $cmdtype); next; };
# # handle private branches # $privatebranch and do { SDX::PrivateBranch($userargs, $serverport, $header, "modify", $cmdtype); next; };
# # opened may need special handling # $defcmd eq "opened" and do { SDX::Opened($userargs, $serverport, $header, $cmdtype); next; };
# # resolve -am needs special handling # $defcmd eq "resolve" and do { SDX::Resolve($userargs, $serverport, $header, $cmdtype); next; };
# # submit may be using a comment from the cmd line # $defcmd eq "submit" and do { SDX::Submit($userargs, $serverport, $header, $cmdtype); next; };
# # sync/flush may need the -q(uiet) flag # ($defcmd eq "sync" or $defcmd eq "flush") and do { SDX::SyncFlush($defcmd, $userargs, $serverport, $header, $cmdtype); next; };
# # it's none of the above, so print or run the final cmd string # $fullcmd = "sd.exe -p $serverport $cmd 2>&1";
SDX::RunSDCmd($header, $fullcmd); } };
# # if we just branched, give the user some instructions # $privatebranch and SDX::PrivateBranch($userargs, $main::Null, $main::Null, "end"); $labbranch and SDX::LabBranch($userargs, $main::Null, $main::Null, "end");
# # print a file counter summary # SDX::PrintStats($defcmd, $userargs);
# # success # return 0;}
# _____________________________________________________________________________## Delta# called from sdx.pl to calculate the changes in a given project## Parameters:# $fulluserargs -- all args as passed in## Output:# _____________________________________________________________________________sub Delta{ local $base_change, $current_change; local %baseline;
my $fulluserargs = $_[1]; my $cmd = ""; my $project = ""; my $string = ""; my $generate = 0;
if($fulluserargs) { $fulluserargs =~ s/^\s+(.*)/$1/; }
if($fulluserargs) { @args = split /\s+/, $fulluserargs; $generate = 0; print "Checking for differences from baseline change number(s):\n"; } else { $generate = 1; }
# # parse the arguments to get the base change number for each project. #
foreach $entry (@args) { ($project, $change) = split /=/, $entry; $baseline{$project} = $change; }
# # maybe delete previous log # $main::Logging and unlink $main::Log;
# # for type 1 commands, where the scope as it appears to the user is per- # project, loop through the project list and run $defcmd # # note that for type 1 codebases (with one project per depot), all commands # are essentially type 1 #
# # for each project, change to it's root and run $defcmd #
foreach $projectandroot (@main::SDMapProjects) { $project = @$projectandroot[0];
#if(($generate == 0) && (!defined($baseline{$project}))) { # print "no baseline for $project\n"; # next; #}
# # get path to SD.INI, make sure we have it, and cd there # $fullprojectroot = $main::SDXRoot . "\\" . @$projectandroot[1]; $sdini = $fullprojectroot . "\\sd.ini"; (-e $sdini) or (print "$header\nCan't find $sdini.\n\nRun 'sdx repair $main::SDMapCodeBase $main::SDMapBranch' to restore it.\n" and next); chdir $fullprojectroot or die("\nCan't cd to $fullprojectroot.\n");
# # Find out what the most recent change in this project is. #
open FILE, "sd.exe changes -m 1 ...#have 2>&1|" or die("\nDelta: can't open pipe for $string\n"); my $line = <FILE>; close FILE;
if($line =~ /Change ([0-9]+)/) { $current_change = $1; } else { print "Error retrieving change: $line\n" if ($baseline); next; }
# # if we have no baseline changes to compare against then just generate # a command line which could be passed in later. #
if($generate == 1) { print "$project=$current_change "; next; }
print "$project: ";
# # now check to see if we have an entry for this project in the # baseline passed in. #
$base_change = $baseline{$project}; #print "$baseline{$project} = $base_change\n";
if (!defined($base_change)) { print "at change $current_change (no previous change # provided)\n"; next; }
if ($base_change == $current_change) { print "at original change $current_change\n"; next; }
if ($base_change > $current_change) { print "reverted from change $base_change to $current_change\n"; next; }
# # the current highest change number is > than the one in the baseline # passed in. Try to determine which changes (if any) have been picked # up. #
# # first check to see if we're just sunk to the new change number. # do this by syncing to it again (-n). If no new files would be # picked up then we're done. #
$string = "sd.exe sync -n \@$current_change 2>&1|"; #print "$string\n"; open FILE, $string or die("\nCan't open pipe for $string\n"); $change_line = <FILE>; close FILE;
#print "change_line = $change_line\n"; #print "substr = *", substr($change_line, 0, 1), "*\n"; if(substr($change_line, 0, 1) eq "@") { print "updated from change $base_change to $current_change\n"; next; }
# # no such luck. # get a list of all the files which are different (by syncing to the # baseline change number) and print them out grouped by change number. #
print "has files between change $base_change and $current_change (listing follows):\n";
$string = "sd.exe sync -n ...\@$base_change 2>&1|"; #print "$string\n";
open FILE, $string or die("\nDelta: can't open pipe for $string\n"); foreach $change_line (<FILE>) { #print "raw: $change_line\n"; if(substr($change_line, 0, 2) != "//") { print "error of some form\n"; last; }
@t = split /\#/, $change_line; #print "chopped: $t[0]\n";
$string = "sd.exe have $t[0] 2>&1|"; #print "$string\n"; open FILE2, $string or die("\nDelta: can't open pipe for $string\n"); $line = <FILE2>; close FILE2;
@t = split / - /, $line;
print "\t$t[0]\n"; } close FILE; } print "\n";}
# _____________________________________________________________________________## RunSDCmd## Print the header, then print or call the SD cmd## Parameters:# $string user output## Output:# _____________________________________________________________________________sub RunSDCmd{ my $header = $_[0]; my $fullcmd = $_[1];
# # print the header # SDX::PrintCmd($header, 0);
# # print or run the cmd # if ($main::V2) { SDX::PrintCmd($fullcmd, 1); } else { SDX::RunCmd($fullcmd); }}
# _____________________________________________________________________________## PrintCmd## Print cmd header or string## Parameters:# $string user output# $op 0 - header, 1 - cmd## Output:# _____________________________________________________________________________sub PrintCmd{ my $string = $_[0]; my $op = $_[1];
$main::Logging and (open LOG, ">>$main::Log" or die("\nCan't append $main::Log.\n"));
$op == 0 and do { print "$string"; $main::Logging and print LOG "$string"; };
$op == 1 and do { print "`$string`\n"; $main::Logging and print LOG "`$string`\n"; };
$main::Logging and close LOG;}
# _____________________________________________________________________________## RunCmd## Run the given SD cmd, capturing the output, and maybe printing it to STDERR## Parameters:# $string user output## Output:# _____________________________________________________________________________sub RunCmd{ my $string = $_[0]; my $out = ""; my $resolved = ($string =~ / resolved /); my $mergefile = ""; my @list = ();
!$string and die("\nNo command string in RunCmd.\n");
my $skippublic = 0;
# # if NT, if not using -a, and if not verbose, filter out changes associated # with the public change number # ("\U$main::CodeBase" eq "NT" and ($main::UserArgs !~ /-a/) and ($main::PublicChangeNum and !$main::MinusV)) and do { $skippublic++; };
# # special-case sdx {clients|users} -t and -a # set flags, maybe remove -t from cmd string # my $fa = ($string =~ / files / and $main::MinusA); my $ca = ($string =~ / clients / and $main::MinusA); my $ua = ($string =~ / users / and $main::MinusA); my $ct = ($string =~ / clients / and $string =~ / -t /); my $ut = ($string =~ / users / and $string =~ / -t /); $ct and $string =~ s/-t//g; $ut and $string =~ s/-t//g; # # run the cmd # # for commands like manual resolve that need user input, run them with the shell # if ($string =~ / resolve / and $string !~ /-a[tymf]*|-n/) { system "$string"; } elsif ($main::MinusI and !$main::MinusH) { # # write the input form to stdin # # no logging for now # open FILE, "| $string" or die("\nRunCMD: can't open pipe for $string.\n"); foreach (@main::InputForm) { print FILE "$_"; } close FILE; } else { $main::Logging and (open LOG, ">>$main::Log" or die("\nCan't append $main::LOG\n"));
# # run cmd unless sdx files -a # (!$fa) and do { open FILE, "$string |" or die("\nRunCMD: can't open pipe for $string\n"); };
my $quiet = $main::Quiet;
while (<FILE>) { # # be noisy as soon as we see an SD error # / error:/ and do { $main::Quiet = $main::FALSE; $main::DepotErrors++; };
# # if skipping public changes, maybe skip this line # ($skippublic and / change $main::PublicChangeNum/) and do { next; };
# # if sdx {clients|users} -a, save for later # ($ca or $ua) and do { push @list, $_; next; };
# # reformat for sdx {clients|users} -t and save for sorting later # ($ct or $ut) and do { chop $_;
# # remove friendly user name before splitting # $ut and $_ =~ s/\([_\. $A-Za-z0-9\\-]*\)//g;
@fields = split(/ /, $_);
$ct and do { my $u = @fields[$#fields-1]; $u =~ s/\.$//g; push @list, sprintf("%s:%s %-20s %-20s %s\n", @fields[2], @fields[3], @fields[1], $u, @fields[5]); };
$ut and push @list, sprintf("%s:%s %-20s\n", @fields[4], @fields[5], @fields[0]); next; };
# # show results # # not logging, not quiet -- print to stdout # not logging, quiet -- do not print to stdout # logging, not quiet -- print to log # logging, quiet -- print to log #
# # -q on sd <command> -o throws away only comment lines # ($main::Quiet and $main::MinusO and /#/) and next;
# # show progress on stdout if not quiet # or show on stdout if quiet but sd cmd includes -o # (!$main::Quiet or ($main::Quiet and $main::MinusO)) and print;
# # maybe log output # $main::Logging and print LOG;
# # keep some stats # ($resolved and / - /) and $main::FilesResolved++;
/ - branch\/sync from / and $main::IntFilesAdded++; / - branch from / and $main::IntFilesAdded++; / - delete from / and $main::IntFilesDeleted++; / - sync\/integrate from / and $main::IntFilesChanged++; / - integrate from / and $main::IntFilesChanged++; / - updating / and $main::FilesUpdated++; / - updated/ and $main::LabelFilesUpdated++; / - add / and $main::FilesOpenAdd++; / - delete / and $main::FilesOpenDelete++; / - edit / and $main::FilesOpenEdit++; / - added / and $main::FilesAdded++; / - added/ and $main::LabelFilesAdded++;
/ - deleted / and $main::FilesDeleted++; / - deleted/ and $main::LabelFilesDeleted++;
/ - merging | - vs / and do { $main::FilesToMerge++; $mergefile = $_; };
/ - must resolve / and $main::FilesToResolve++; / - resolve skipped/ and $main::FilesSkipped++;
/ [1-9][0-9]* conflicting/ and do { $main::FilesConflicting++; push @main::ConflictingFiles, $mergefile; $mergefile = ""; };
/ 0 conflicting| - copy from / and $main::FilesNotConflicting++; / clobber / and $main::FilesNotClobbered++; / reverted/ and $main::FilesReverted++;
### submits don't come through this block### / - already locked / and $main::FilesLocked++;### /Submit failed / and $main::FailedSubmits++; }
# # keep track of catastrophic sd.exe errors # close FILE or $main::DepotErrors++;
# # sort and print # ($ct or $ut) and do { @list = sort @list;
for (@list) { # # show progress on stdout if not quiet # (!$main::Quiet) and print;
# # maybe log output # $main::Logging and print LOG; }
my $s = "\nTotal:\t$#list\n"; !$main::Quiet and print $s; $main::Logging and print LOG $s; };
# # print totals for client/user counts # ($ca or $ua) and do { !$main::Quiet and print "\nTotal:\t$#list\n"; $main::Logging and print LOG "\nTotal:\t$#list\n"; };
# # print totals for file counts # ($fa) and do { foreach (@main::FileChunks) { # # show progress on stdout if not quiet # !$main::Quiet and print "$_\n";
# # maybe log output # $main::Logging and print LOG "$_\n"; }
my $s = sprintf "%53s\nTotal:%47s\n", "=======", $main::DepotFiles; !$main::Quiet and print $s; $main::Logging and printf LOG $s; };
$main::Logging and close LOG;
# # maybe restore quiet mode for next SD call # $main::Quiet = $quiet; }}
# _____________________________________________________________________________## PrintStats## Dump the file counters## Parameters:## Output:# _____________________________________________________________________________sub PrintStats{ my $defcmd = $_[0]; my $userargs = $_[1]; my $syncresolve = $main::FALSE; my @counters = ("\n\n\n");
$userargs =~ /-a[fm]/ and $syncresolve = $main::TRUE;
$defcmd eq "integrate" and do { push @counters, sprintf "== Summary ==========\n"; push @counters, sprintf "\nAdded:%15s\n", $main::IntFilesAdded; push @counters, sprintf "Deleted:%13s\n", $main::IntFilesDeleted; push @counters, sprintf "Integrated:%10s\n", $main::IntFilesChanged; push @counters, sprintf "\nTotal:%15s\n", $main::IntFilesAdded + $main::IntFilesDeleted + $main::IntFilesChanged;
# # call out fatal SD client errors # my $pad = sprintf "$spacer%3s", ""; $main::DepotErrors and SDX::DepotErrors(\@counters, $pad, $main::DepotErrors);
push @counters, sprintf "=====================\n"; };
($defcmd eq "sync" or $defcmd eq "flush") and do { my $header = "== Summary ========="; my $footer = "===================="; my $spacer = "";
$main::MinusH and do { $header .= "=============="; $spacer = " "; };
# # adjust update total # ($main::FilesUpdated >= $main::FilesNotClobbered) and $main::FilesUpdated -= $main::FilesNotClobbered;
# # print file stats # push @counters, sprintf "%s%s\n", $header, ($main::FilesSkipped or $main::FilesConflicting) ? "==========================================================" : ""; push @counters, sprintf "\nUpdated:%s%12s\n", $spacer, $main::FilesUpdated; $main::FilesNotClobbered and push @counters, sprintf "Not Updated:%s%8s\n", $spacer, $main::FilesNotClobbered; push @counters, sprintf "Added:%s%14s\n", $spacer, $main::FilesAdded; push @counters, sprintf "Deleted:%s%12s\n", $spacer, $main::FilesDeleted;
# # if no resolve use one resolve counter # (!$syncresolve and $main::FilesToResolve) and push @counters, sprintf "\nTo Resolve:%s%9s\n", $spacer, $main::FilesToResolve;
# # else use others # $syncresolve and do { $main::FilesNotConflicting and push @counters, sprintf "Resolved:%s%11s\n", $spacer, $main::FilesNotConflicting; $main::FilesSkipped and push @counters, sprintf "\nSkipped:%s%12s\n", $spacer, $main::FilesSkipped; (!$main::FilesSkipped and $main::FilesConflicting) and push @counters, sprintf "\nConflicting:%s%8s\n", $spacer, $main::FilesConflicting; };
# # total count depends on whether we resolved # my $total = $main::FilesUpdated + $main::FilesNotClobbered + $main::FilesAdded + $main::FilesDeleted; if ($syncresolve) { $total += $main::FilesNotConflicting;
$total += ($main::FileSkipped) ? $main::FilesSkipped : $main::FilesConflicting; } else { $total += $main::FilesToResolve; }
push @counters, sprintf "\nTotal:%s%14s\n", $spacer, $total;
# # call out fatal SD client errors # my $pad = sprintf "$spacer%2s", ""; $main::DepotErrors and SDX::DepotErrors(\@counters, $pad, $main::DepotErrors);
# # call out resolve problems # ($main::FilesSkipped or $main::FilesConflicting) and do { if ($main::FilesSkipped) { push @counters, sprintf "\n\nSkipped Files [resolve manually]\n\n"; } else { push @counters, sprintf "\n\nConflicting Files [edit and fix merge conflicts]\n\n"; }
foreach $file (@main::ConflictingFiles) { @fields = split(/ /,$file); push @counters, sprintf "@fields[1]\n"; } };
# # if sync/flush is tracking changelists, print change stats # ($main::MinusH) and do { my $total = $main::Changes;
push @counters, sprintf "\nChanges in this branch:%11s\n", $main::Changes;
$main::MinusI and do { push @counters, sprintf "Changes in other branches:%8s\n", $main::IntegrationChanges; $total += $main::IntegrationChanges; };
push @counters, sprintf "\nTotal:%28s\n", $total;
$footer .= "=============="; };
push @counters, sprintf "%s%s\n", $footer, ($main::FilesSkipped or $main::FilesConflicting) ? "==========================================================" : ""; };
$defcmd eq "opened" and do { push @counters, sprintf "== Summary =============\n"; push @counters, sprintf "\nOpen for Add:%11s\n", $main::FilesOpenAdd; push @counters, sprintf "Open for Edit:%10s\n", $main::FilesOpenEdit; push @counters, sprintf "Open for Delete:%8s\n", $main::FilesOpenDelete; push @counters, sprintf "\nTotal:%18s\n", $main::FilesOpenAdd + $main::FilesOpenDelete + $main::FilesOpenEdit;
# # call out fatal SD client errors # my $pad = sprintf "%6s", ""; $main::DepotErrors and SDX::DepotErrors(\@counters, $pad, $main::DepotErrors);
push @counters, sprintf "========================\n"; };
$defcmd eq "labelsync" and do { push @counters, sprintf "== Summary =========\n"; push @counters, sprintf "\nAdded:%14s\n", $main::LabelFilesAdded; push @counters, sprintf "Deleted:%12s\n", $main::LabelFilesDeleted; push @counters, sprintf "Updated:%12s\n", $main::LabelFilesUpdated; push @counters, sprintf "\nTotal:%14s\n", $main::LabelFilesAdded + $main::LabelFilesDeleted + $main::LabelFilesUpdated;
# # call out fatal SD client errors # my $pad = sprintf "%2s", ""; $main::DepotErrors and SDX::DepotErrors(\@counters, $pad, $main::DepotErrors);
push @counters, sprintf "====================\n"; };
$defcmd eq "resolve" and do { push @counters, sprintf "== Summary ===========\n";
if ($userargs =~ /-n/) { push @counters, sprintf "\nTo Resolve:%11s\n", $main::FilesToMerge; } else { push @counters, sprintf "\nResolved:%13s\n", $main::FilesNotConflicting;
$main::FilesSkipped and push @counters, sprintf "Skipped:%14s\n", $main::FilesSkipped; (!$main::FilesSkipped and $main::FilesConflicting) and push @counters, sprintf "Conflicting:%10s\n", $main::FilesConflicting;
my $total = $main::FilesNotConflicting; $total += ($main::FileSkipped) ? $main::FilesSkipped : $main::FilesConflicting; push @counters, sprintf "\nTotal:%16s\n", $total; }
# # call out fatal SD client errors # my $pad = sprintf "%4s", ""; $main::DepotErrors and SDX::DepotErrors(\@counters, $pad, $main::DepotErrors);
push @counters, sprintf "======================\n"; };
$defcmd eq "resolved" and do { push @counters, sprintf "== Summary ===========\n"; push @counters, sprintf "\nResolved:%13s\n", $main::FilesResolved;
# # call out fatal SD client errors # my $pad = sprintf "%4s", ""; $main::DepotErrors and SDX::DepotErrors(\@counters, $pad, $main::DepotErrors);
push @counters, sprintf "======================\n"; };
$defcmd eq "revert" and do { push @counters, sprintf "== Summary ===========\n"; push @counters, sprintf "\nReverted:%13s\n", $main::FilesReverted;
# # call out fatal SD client errors # my $pad = sprintf "%4s", ""; $main::DepotErrors and SDX::DepotErrors(\@counters, $pad, $main::DepotErrors);
push @counters, sprintf "======================\n"; };
=begin comment text $defcmd eq "submit" and do { push @counters, sprintf "== Summary ===========\n"; $main::FailedSubmits and do { push @counters, sprintf "\nFailed Submits:%8s\n", $main::FailedSubmits; push @counters, sprintf "\nFiles Locked by Others:%8s\n", $main::FilesLocked; };
# # call out fatal SD client errors # my $pad = sprintf "%4s", ""; $main::DepotErrors and SDX::DepotErrors(\@counters, $pad, $main::DepotErrors);
push @counters, sprintf "======================\n"; };=end comment text=cut
# # print to stdout and maybe to the log file # print the stats except in extra-quiet mode # foreach (@counters) { print; }
$main::Logging and do { open LOG, ">>$main::Log" or die("\nCan't append $main::LOG\n"); foreach (@counters) { print LOG; } close LOG; };}
# _____________________________________________________________________________## LabBranch## called from OtherOp() to create a single high-level branch in the current# project or depot## Parameters:# $labbranch branch name# $spproject server:port if cmd type 2, project name if type 1# $header user output# Output:# _____________________________________________________________________________sub LabBranch{ my $labbranch = "\L$_[0]"; my $spproject = $_[1]; my $header = $_[2]; my $op = $_[3]; my $cmdtype = $_[4]; my $branchview = "$ENV{TMP}\\branchview"; my $fullcmd = "";
# # trim out ws # $labbranch =~ s/[\t\s]*//g;
!$labbranch and die("\nMissing branch name. Run 'sdx labbranch /?' for more information.\n");
$main::V2 and do { print "\n\n\nbranch = '$labbranch'\n"; print "spproject = '$spproject'\n"; };
# # branch can't be Main # $labbranch eq "main" and die("\n'Main' is a reserved branch name.\n");
# # print lab dev branch instructions # $op eq "start" and do { printf "\n\nThis script will create virtual lab branch %s.\n", "\U$labbranch";
if ($cmdtype == 1) { printf "\nIf %s is a new branch, for each project you are enlisted in, a branch\n", "\U$labbranch"; print "view of\n";
print "\n //depot/main/<project>/... //depot/$labbranch/<project>/...\n";
print "\nwill be used to map files into the branch.\n";
printf "\nIf %s exists, you can edit its view to add or remove directories and files.\n", "\U$labbranch";
print "\nYou can then integrate changes into the branch.\n"; } else { print "\nLab branching is under construction for N:1 depots.\n"; }
print "\n\nIF YOU ARE NOT READY TO BRANCH, HIT CTRL-BREAK NOW.\n"; print " ==================\n\n\n"; print "Otherwise,\n\n"; system "pause";
print "\n\n"; };
# # create branch in this project or depot # # called from loop in OtherOp # $op eq "modify" and do { # # maybe use server:port # my $sp = SDX::ServerPort($cmdtype, $spproject);
# # if the branch already exists, the user just wants to modify it, so # give them the UI # else # create the default branch spec # if (SDX::BranchExists($labbranch, $sp, "", "by-name")) { my $fullcmd = "sd.exe $sp branch $labbranch"; $header .= "Updating branch $labbranch...\n";
SDX::RunSDCmd($header, $fullcmd); } else { $main::CreatingBranch = $main::TRUE;
# # create default spec # SDX::WriteDefaultBranch($spproject, $labbranch, $header, $sp, "lab"); } };
# # give the user instructions for adding the branch to their client view # $op eq "end" and do { print "\n\n\nDone.\n";
printf "\nTo use %s, you must:\n", "\U$labbranch";
print "\n 1. Populate the tools in the Root project\n";
print "\n 2. Enlist in the branch\n";
print "\n 3. Integrate changes to it and resolve merge conflicts\n";
print "\n 4. Submit your changes\n"; };}
# _____________________________________________________________________________## PrivateBranch## called from OtherOp() to create a private dev branch in each enlisted# project/depot## Parameters:# $labbranch branch name# $spproject server:port if cmd type 2, project name if type 1# $header user output# Output:# _____________________________________________________________________________sub PrivateBranch{ my $pbranch = "\L$_[0]"; my $spproject = $_[1]; my $header = $_[2]; my $op = $_[3]; my $cmdtype = $_[4];
# # trim out ws # $pbranch =~ s/[\t\s]*//g;
!$pbranch and die("\nMissing branch name. Run 'sdx privatebranch /?' for more information.\n");
$main::V2 and do { print "\n\n\nbranch = '$pbranch'\n"; print "spproject = '$spproject'\n"; };
# # branch can't be Main # $pbranch eq "main" and die("\n'Main' is a reserved branch name.\n");
# # print private dev branch instructions # $op eq "start" and do { printf "\n\nThis script will create or update private development branch %s.\n", "\U$pbranch";
printf "\nIf %s is a new branch, for each %s you are enlisted in this will:\n", "\U$pbranch", $cmdtype == 1 ? "project" : "depot";
print "\n 1. Create a default branch view, with placeholders representing\n"; printf " your project %s\n", $cmdtype == 1 ? "" : "and component";
print "\n 2. Ask you to edit the view to include only those directories and\n"; print " files you need in the branch\n";
printf "\nIf %s exists, you can edit its view to add or remove directories and files.\n", "\U$pbranch";
print "\nYou can then add the branched files to your client view and integrate\n"; print "changes into the branch.\n";
printf "\n\nIF YOU ARE NOT READY TO BRANCH, HIT CTRL-BREAK NOW.\n"; printf " ==================\n\n\n"; print "Otherwise,\n\n"; system "pause";
print "\n\n"; };
# # create branch in this project or depot # # called from loop in OtherOp # $op eq "modify" and do { # # maybe use server:port # my $sp = SDX::ServerPort($cmdtype, $spproject);
# # if the branch already exists, the user just wants to modify it, so # give them the UI # else # create and register the default branch spec, then call branch again # and let the user edit out the placeholders # if (SDX::BranchExists($pbranch, $sp, "", "by-name")) { my $fullcmd = "sd.exe $sp branch $pbranch"; $header .= "Updating branch $pbranch...\n";
SDX::RunSDCmd($header, $fullcmd); } else { $main::CreatingBranch = $main::TRUE;
# # create default spec # SDX::WriteDefaultBranch($spproject, $pbranch, $header, $sp, "private");
# # user must edit to remove the placeholders # SDX::EditBranch($sp, $pbranch); } };
# # give the user instructions for adding the branch to their client view # $op eq "end" and do { print "\n\n\nDone.\n";
printf "\nTo use %s, you must:\n", "\U$pbranch";
print "\n 1. Modify your client view to include the branched files\n";
print "\n 2. Integrate changes to the branch and resolve merge conflicts\n";
print "\n 3. Submit your changes\n"; };}
# _____________________________________________________________________________## WriteDefaultBranch## Parameters:## Output:## _____________________________________________________________________________sub WriteDefaultBranch(){ my $spproject = $_[0]; my $branch = $_[1]; my $header = $_[2]; my $sp = $_[3]; my $type = $_[4]; my $branchview = "$ENV{TMP}\\branchview"; my $fullcmd = "";
$type eq "lab" and do { # # create branch spec # open(BRANCHVIEW, ">$branchview") or die("\nCan't open $branchview for writing.\n"); print BRANCHVIEW "Branch:\t$branch\n"; print BRANCHVIEW "Owner:\t$main::SDDomainUser\n"; print BRANCHVIEW "Description:\n\tLab or milestone branch created by $main::SDDomainUser.\n"; print BRANCHVIEW "View:\n";
# # for type 1 depots, include the project name # if ($main::CodeBaseType == 1) { print BRANCHVIEW "\t//depot/main/$spproject/... //depot/$branch/$spproject/...\n"; } else { print BRANCHVIEW "\t//depot/main/... //depot/$branch/...\n"; }
close(BRANCHVIEW); };
$type eq "private" and do { # # for type 1 depots we know the project # my $proj = ($main::CodeBaseType == 1 ? $spproject : "<<Your-Project>>");
open(BRANCHVIEW, ">$branchview") or die("\nCan't open $branchview for writing.\n"); print BRANCHVIEW "Branch:\t$branch\n"; print BRANCHVIEW "Owner:\t$main::SDDomainUser\n"; print BRANCHVIEW "Description:\n\tPrivate branch created by $main::SDDomainUser.\n"; print BRANCHVIEW "View:\n"; print BRANCHVIEW "\t//depot/$main::SDMapBranch/$proj/<<PATH>>/<<FILE1>> //depot/private/$main::SDUser/$proj/<<PATH>>/<<FILE1>>\n"; print BRANCHVIEW "\t//depot/$main::SDMapBranch/$proj/<<PATH>>/<<FILE2>> //depot/private/$main::SDUser/$proj/<<PATH>>/<<FILE2>>\n"; print BRANCHVIEW "\t//depot/$main::SDMapBranch/$proj/<<PATH>>/<<FILE3>> //depot/private/$main::SDUser/$proj/<<PATH>>/<<FILE3>>\n"; close(BRANCHVIEW); };
# # register the branch # $fullcmd = "sd.exe $sp branch -i < $branchview 2>&1"; $header .= "Creating branch \U$branch...\n"; SDX::RunSDCmd($header, $fullcmd);}
# _____________________________________________________________________________## EditBranch## Parameters:## Output:## _____________________________________________________________________________sub EditBranch(){ my $sp = $_[0]; my $pbranch = $_[1]; my $found = $main::TRUE;
# # let the user customize the spec # SDX::EditBranchSpec($sp, $pbranch);
# # verify that the placeholders were removed # while ($found) { # # dump the branch and look for telltale signs #### @lines = `sd.exe $sp branch -o $pbranch`;
my $found2 = $main::FALSE; grep(/<<|>>/, `sd.exe $sp branch -o $pbranch`) and $found2 = $main::TRUE;
# # maybe edit again # $found2 and SDX::EditBranchSpec($sp, $pbranch);
# # else we're done # !$found2 and $found = $main::FALSE; }}
# _____________________________________________________________________________## EditBranchSpec#### Parameters:## Output:## _____________________________________________________________________________sub EditBranchSpec(){ my $sp = $_[0]; my $pbranch = $_[1]; my $fullcmd = "";
$fullcmd = "sd.exe $sp branch $pbranch"; my $msg = "Edit the branch view to contain only the projects and files to branch.\n";
sleep(1);
SDX::RunSDCmd($msg, $fullcmd);}
# _____________________________________________________________________________## Resolve## called from OtherOp() to resolve integrated files. uses sd -s to get# verbose output so we can catch errors## Parameters:# $labbranch branch name# $spproject server:port if codebase type 2, project name if type 1# $header user output## Output:# _____________________________________________________________________________sub Resolve{ my $userargs = $_[0]; my $spproject = $_[1]; my $header = $_[2]; my $cmdtype = $_[3]; my $fullcmd = "";
$main::V3 and do { print "\n\n\nuserargs = '$userargs'\n"; print "spproject = '$spproject'\n"; };
# # maybe use server:port # my $sp = SDX::ServerPort($cmdtype, $spproject); $fullcmd = "sd.exe $sp -s resolve $userargs 2>&1";
SDX::RunSDCmd($header, $fullcmd);}
# _____________________________________________________________________________## SyncFlush## called from OtherOp() to sync files or flush the sync state## Parameters:# $labbranch branch name# $spproject server:port if codebase type 2, project name if type 1# $header user output## Output:# _____________________________________________________________________________sub SyncFlush{ my $cmd = $_[0]; my $userargs = $_[1]; my $spproject = $_[2]; my $header = $_[3]; my $cmdtype = $_[4]; my $fullcmd = ""; my $nul = ""; my $userargs2 = ""; my $c1 = ""; my $c2 = ""; my $err = "Error getting changelists:"; my $minush = $main::MinusH;
$userargs2 = $userargs; $userargs =~ s/ -(a[mf]|i) //g;
$main::V2 and do { print "\n\n\ncmd = '$cmd'\n"; print "userargs = '$userargs'\n"; print "userargs2 = '$userargs2'\n"; print "spproject = '$spproject'\n"; };
###$spproject ne "base" and return;###print "\n\n\tBUGBUG comment this out:\n";
# # maybe use server:port # my $sp = SDX::ServerPort($cmdtype, $spproject);
# # if -h, user wants to see change lists go by, not files # get the most recent change number they have # # look for depot errors # $main::MinusH and do { my @changes = `sd.exe $sp changes -m 1 ...#have 2>&1`; grep(/error:/i, @changes) and $minush = SDX::SyncFlushErr($err,\@changes);
$main::MinusH and do { # # changelist number must be all digits # some SD auth errors aren't caught by the check above # $c1 = (split(/ /, @changes[0]))[1]; ($c1 =~ /[\D]+/) and $minush = SDX::SyncFlushErr($err,\@changes); }; };
# # do the sync or flush # $fullcmd = "sd.exe $sp $cmd $userargs 2>&1"; $header .= "\u$cmd" . "ing...\n"; SDX::RunSDCmd($header, $fullcmd);
# # get the most recent change number the user just picked up and # get the list of changes between this and the previous one # only get integration changes if MinusHI # $main::MinusH and do { my %changes = (); my $revrange = "#have"; my $hdr = "";
# # if -n we didn't actually sync or flush, so the 2nd change number # must be what the user would pick up, not what they currently have # $userargs =~ / -n / and $revrange = "";
# # get and verify change number # my @chgs = `sd.exe $sp changes -m 1 ...$revrange 2>&1`; grep(/error:/i, @chgs) and $minush = SDX::SyncFlushErr($err,\@chgs);
# # changelist number must be all digits # some SD auth errors aren't caught by the check above # $c2 = (split(/ /, @chgs[0]))[1]; ($c2 =~ /[\D]+/) and $minush = SDX::SyncFlushErr($err,\@chgs);
# # only show changes if we would or did pick something up # ($c1 != $c2) and do { $hdr = "\nListing changes..."; print "$hdr";
# # use the next change number so we don't show changes we already have # $c1++;
# # get the change list, first without, then with, integration changes # mark previous changes in hash with 1 # if MinusI # mark int changes (not already in hash) with 2 # sort # print int changes tab-indented # my @changes = `sd.exe $sp changes ...\@$c1,\@$c2 2>&1`; grep(/error:/i, @changes) and $minush = SDX::SyncFlushErr($err,\@changes);
@changes = grep {s/^Change //g} @changes;
foreach (@changes) { $changes{$_} = 1; print "."; }
$main::MinusI and do { my @changes = `sd.exe $sp changes -i ...\@$c1,\@$c2 2>&1`; grep(/error:/i, @changes) and $minush = SDX::SyncFlushErr($err,\@changes);
@changes = grep {s/^Change //g} @changes;
foreach (@changes) { !$changes{$_} and $changes{$_} = 2; }
print "."; };
sub nn { $b <=> $a; } @changes = sort nn keys %changes;
print ".";
# # print the changes, with integration changes indented # # maybe log the output # print "\n";
$main::Logging and do { (open LOG, ">>$main::Log" or die("\nCan't append $main::LOG\n")); print LOG "$hdr\n"; };
foreach $key (@changes) { my $ch = sprintf "%sChange $key", $changes{$key} == 2 ? " " : "";
print "$ch";
$main::Logging and print LOG "$ch";
# # keep stats for OtherOp() # $ch =~ /^Change / and $main::Changes++; $ch =~ / Change / and $main::IntegrationChanges++; }
$main::Logging and close LOG; };
$hdr = sprintf("Enlistment %s in sync through change number %s.\n", ($userargs2 =~ / -n / ? "would be" : "is"), $c2); print "$hdr";
# # print the changes, with integration changes indented # # maybe log the output #
$main::Logging and do { (open LOG, ">>$main::Log" or die("\nCan't append $main::LOG\n")); print LOG "$hdr\n"; close LOG; }; };
# # see if this is a sync with resolve # ($cmd eq "sync") and do { $userargs2 =~ /-am/ and do { $fullcmd = "sd.exe $sp -s resolve $userargs2 2>&1"; $header = "\nResolving...\n";
SDX::RunSDCmd($header, $fullcmd);
# remove -am for the next call $userargs2 =~ s/-am//g;
$fullcmd = "sd.exe $sp -s resolve -n $userargs2 2>&1"; $header = "\nLooking for files needing manual resolution...\n";
SDX::RunSDCmd($header, $fullcmd); };
$userargs2 =~ /-af/ and do { $fullcmd = "sd.exe $sp -s resolve $userargs2 2>&1"; $header = "\nResolving...\n";
SDX::RunSDCmd($header, $fullcmd); }; };
# # maybe restore # $main::MinusH = $minush;}
# _____________________________________________________________________________## SyncFlushErr## handle errors## Parameters:## Output:# _____________________________________________________________________________sub SyncFlushErr{ my $err = $_[0]; my ($list) = $_[1];
# # temporarily disable -h # print warning # $main::MinusH = $main::FALSE; print "\n$err\n\n@$list\n";
# # count for summary # $main::DepotErrors++;
return $main::TRUE;}
# _____________________________________________________________________________## Opened## called from OtherOp() to get opened files## Parameters:# $labbranch branch name# $spproject server:port if codebase type 2, project name if type 1# $header user output## Output:# _____________________________________________________________________________sub Opened{ my $userargs = $_[0]; my $spproject = $_[1]; my $header = $_[2]; my $cmdtype = $_[3]; my $fullcmd = ""; my $ch = "";
$main::V2 and do { print "\n\n\ncmd = '$cmd'\n"; print "userargs = '$userargs'\n"; print "spproject = '$spproject'\n"; };
# # maybe use server:port # my $sp = SDX::ServerPort($cmdtype, $spproject);
# # set the basic cmd # $fullcmd = "sd.exe $sp opened $userargs 2>&1";
SDX::RunSDCmd($header, $fullcmd);}
# _____________________________________________________________________________## Files## called from OtherOp() to list files## Parameters:# $labbranch branch name# $spproject server:port if codebase type 2, project name if type 1# $header user output## Output:# _____________________________________________________________________________sub Files{ my $userargs = $_[0]; my $spproject = $_[1]; my $header = $_[2]; my $cmdtype = $_[3]; my $fullcmd = ""; my $ch = "";
@main::FileChunks = (); $main::DepotFiles = 0;
$main::V2 and do { print "\n\n\ncmd = '$cmd'\n"; print "userargs = '$userargs'\n"; print "spproject = '$spproject'\n"; };
# # maybe use server:port # my $sp = SDX::ServerPort($cmdtype, $spproject);
# # set the basic cmd # $fullcmd = "sd.exe $sp files $userargs 2>&1";
# # if the user wants a summary file count, # chunk the depot into pieces that won't exceed MAXRESULTS # save the results in a list # use RunSDCmd to print total # if ($main::MinusA) { # # print header # SDX::PrintCmd($header, 0);
(!$main::V2) and do { my @list = (); my @dirs = `sd.exe $sp dirs //*/*/*`; foreach (@dirs) { chop $_; my @chunk = `sd.exe files $_/...`; push @list, sprintf "%-45s %7s", $_, $#chunk + 1; $main::DepotFiles += $#chunk + 1; print "."; }
push @main::FileChunks, @list; print "\n";
# # run it # SDX::RunCmd($fullcmd); }; } else { # #run it # SDX::RunSDCmd($header, $fullcmd); }}
# _____________________________________________________________________________## Status## called from OtherOp() to show opened/out of sync files## Parameters:# $labbranch branch name# $spproject server:port if codebase type 2, project name if type 1# $header user output## Output:# _____________________________________________________________________________sub Status{ my $userargs = $_[0]; my $project = $_[1]; my $header = $_[2]; my $cmdtype = $_[3]; my $fullcmd1 = ""; my $fullcmd2 = ""; my $arg = "";
$main::V2 and do { print "\n\n\nuserargs = '$userargs'\n"; print "project = '$project'\n"; };
# # for type 2 depots (N projects/depot) restrict scope to ... # # for the root project in a type 2 (other than NT), restrict scope to * # $main::CodeBaseType == 2 and do { $arg = ($project eq "root" and "\U$main::CodeBase" ne "NT") ? "*" : "..."; };
my $fullcmd1 = "sd.exe opened $arg 2>&1"; my $fullcmd2 = "sd.exe sync -n $arg 2>&1";
$header .= "Checking for open files...\n"; my $header2 = "\nChecking for files out of sync...\n";
if ($main::V2) { SDX::PrintCmd($header, 0); SDX::PrintCmd($fullcmd1, 1);
SDX::PrintCmd($header2, 0); SDX::PrintCmd($fullcmd2, 1); } else { SDX::PrintCmd($header, 0); SDX::RunCmd($fullcmd1);
SDX::PrintCmd($header2, 0); SDX::RunCmd($fullcmd2); }}
# _____________________________________________________________________________## Submit## called from OtherOp() to handle submit## Parameters:# $userargs user args# $project server:port if codebase type 2, project name if type 1# $header user output## Output:# _____________________________________________________________________________sub Submit{ my $userargs = $_[0]; my $spproject = $_[1]; my $header = $_[2]; my $cmdtype = $_[3]; my $fullcmd = "";
$main::V2 and do { print "\n\n\nuserargs = '$userargs'\n"; print "spproject = '$spproject'\n"; };
# # maybe use server:port # my $sp = SDX::ServerPort($cmdtype, $spproject);
# # assume a normal submit where the form gets brought up # $fullcmd = "sd.exe $sp submit $userargs 2>&1";
# # special case if the user put the comment on the cmd line # ($main::SubmitComment) and do { # # dump the default changelist # @main::InputForm = `sd.exe $sp change -o 2>&1`;
# # if it contains a file list, use it as the submit form, # inserting the comment # # add -i to the sd cmd before passing it on # if (grep(/Files:$/, @main::InputForm)) { foreach $_ (@main::InputForm) { $_ =~ s/<enter description here>/$main::SubmitComment/g; }
$main::V2 and print "submit form:\n\n'@main::InputForm'\n";
$fullcmd = "sd.exe $sp submit -i 2>&1"; } };
SDX::RunSDCmd($header, $fullcmd);}
# _____________________________________________________________________________## InitForEDR## Do some common initialization for enlist, repair and defect## Parameters:# Command Line Arguments## Output:## _____________________________________________________________________________sub InitForEDR{ my $enlisting = ($_[0] eq "enlist"); my $defecting = ($_[0] eq "defect"); my $repairing = ($_[0] eq "repair");
(!$enlisting && !$defecting && !$repairing) and die("\nUnknown operation in InitForEDR().\n");
# # init global vars and flags # $main::EnlistingMainBranch = $main::FALSE; $main::EnlistingGroupBranch = $main::FALSE; $main::EnlistingPrivateBranch = $main::FALSE; $main::ClientView = "$main::SDXRoot\\clientview"; $main::CBMProjectField = 0; # change these if you change $main::CBMGroupField = 1; # the ordering of fields in $main::CBMServerPortField = 2; # file PROJECTS.<CODEBASE> $main::CBMDepotNameField = 3; $main::CBMProjectRootField = 4; $main::MasterBranch = ""; @main::GroupBranches = (); @main::EnlistProjects = (); @main::EnlistGroups = (); @main::EnlistDepots = (); @main::DefectDepots = (); @main::DefectProjects = ();
# # if we're running from a razzle window, error out # $main::SDUser =~ /(x86|amd64|ia64)(fre|chk)/ and do { print "\nCan't run 'sdx enlist' from a build window -- can't use '$ENV{USERNAME}' as \%SDUSER\%.\n"; print "\nSet \%SDUSER\% to your login name or run 'sdx enlist' from a clean command\n"; print "window.\n"; die("\n"); };
# # make sure we have PROJECTS.<codebase> # !SDX::VerifyCBMap($main::CodeBase) and do { print "\n\nCan't find codebase map $main::CodeBaseMap.\n";
print "\nRun 'sdx repair $main::CodeBase $main::Branch' from the SDX share from which you originally\n"; print "enlisted.\n";
die("\n"); };
# # if not defecting, make the enlistment root # !$defecting and do { system "md $main::SDXRoot >nul 2>&1"; -e $main::SDXRoot or die("\nCan't create root dir $main::SDXRoot.\n"); };
# # read the codebase map # get MainBranch and GroupBranches list # get master list of project.group.server:port.depot.projroot mappings # SDX::ReadCodeBaseMap();
# # create the lists of all projects, groups and depots, removing any duplicates # SDX::MakePGDLists("");
# # make sure we have a valid Tools project # $main::ToolsProject and do { my $found = $main::FALSE; foreach $proj (@main::AllProjects) { (@$proj[0] eq $main::ToolsProject) and $found = $main::TRUE and last; }
!$found and die("\nUnknown tools project \U'$main::ToolsProject'. C\Lheck the codebase map.\n"); };}
# _____________________________________________________________________________## VerifyAccess## verify access to the relevant servers, dies if unable to access## Parameters:# none## Output:# prints status information to the screen while running and an error message# for fatal errors# _____________________________________________________________________________sub VerifyAccess { print "\nVerifying access to depots.";
for $depot (@main::VerifyDepots) { print ".";
my $serverport = @$depot[0];
my @err = `sd.exe -p $serverport client -o 2>&1`; grep(/ failed/, @err) and die("\n\n@err\n");
SDX::AccessDenied(\@err, $serverport) and die("\n"); }
print "\nok\n";}
# _____________________________________________________________________________## RemoveFromView## Parameters:## Output:# returns 1 if a reduced client view exists, 0 if the view ends up empty or client# doesn't exist in this depot# _____________________________________________________________________________sub RemoveFromView{ my $depot = $_[0]; my $serverport = @$depot[0]; my $depotname = @$depot[1];
unlink $main::ClientView;
# # write the default view lines for this depot and project(s) # SDX::WriteDefaultView($serverport, $depotname);
if (SDX::ClientExists($serverport, $main::SDClient)) { print "Editing client view.";
# # read the existing client view into @main::ExistingView # and write the existing header to $main::ClientView # SDX::GetClientView("defect", $serverport, $main::SDClient);
# # use the existing view lines as keys to a hash and # mark each entry in ascending order # # using the default view lines as keys to the same # hash, mark each entry found with 0 to indicate removed # # write the remaining hash lines back into the list # and sort it back to its original order, which is how # the user had it # my @tmpview = (); my @tmpview2 = (); my @finalview = (); my @finalview2 = (); my $linenum = 1;
# must be global for sort to work %existingview = (); %existingview2 = ();
# # lowercase the line, so we don't keep # duplicates that only differ by case # foreach $line (@main::ExistingView) { $existingview{"\L$line"} = $linenum++; }
$main::V3 and do { print "\nhash:\n"; while (($k,$v) = each %existingview) { printf "'%-50s'\t'%s'\n", $k, $v; } };
foreach $line (@main::DefaultView) { # # extract the LHS of the default line as line2 # add '-' to find negation mappings # @fields = split(/\//,$line); my $line2 = ""; for $x (0..4) { $line2 .= @fields[$x] . "/"; } chop $line2;
my $line3 = $line2; $line3 =~ s/\/\//-\/\//;
# # mark any lines in the existing view that match # the default line exactly # if ($existingview{"\L$line"}) { $existingview{"\L$line"} = 0; print "."; }
# # mark any lines which have the same LHS as the # default line, including those that begin with '-' # while (($k,$v) = each %existingview) { if (($k =~ /^$line2/) || ($k =~ /^$line3/)) {# print "\nmatch: '$k'\n"; $existingview{$k} = 0; } } }
$main::V3 and print "\n\n\n\nhash, edited:\n";
while (($k,$v) = each %existingview) { $v and push @tmpview, $k; $main::V3 and printf "'%-50s'\t'%s'\n", $k, $v; }
# # sort ascending on the numeric value of each key # sub ascending { my $rc = ($existingview{$a} <=> $existingview{$b}); } @finalview = sort ascending @tmpview;
$main::V2 and print "\nfinal view:\n@finalview\n";
# # if we still have a view and it still has valid project mappings, # finish writing the client view by appending the newly reduced view spec # else return #### if (@finalview && !SDX::PrivateView($depot, \@finalview)) if (@finalview) { open(CLIENTVIEW, ">>$main::ClientView") or die("\nCan't open $main::ClientView for writing.\n");
for $viewline (@finalview) { printf CLIENTVIEW $viewline; }
close(CLIENTVIEW);
return 1; } else { return 0; } } else { return 0; }}
# _____________________________________________________________________________## PrivateView## Determines if the list of view lines passed in contains any default project# mappings. A view still containing such mappings means we have more than just# the user's view customizations and can't throw the view away yet.## Parameters:# none## Output:# returns 1 if view has only private mappings and no default project lines in it# 0 otherwise# _____________________________________________________________________________sub PrivateView{ my $depot = $_[0]; my @view = $_[1];
my $serverport = @$depot[0];
# # load the remaining view lines into a hash and mark each, # ignoring lines beginning with '-' #
# # if hash is empty, return 1 #
# # else get the full list of project view lines for all projects in this depot #
# # for each view line, return as soon as we get a hit # if (hash{$viewline}) return 0 #
return 1;}
# _____________________________________________________________________________## ReadCodeBaseMap## reads master branch, group branch list, and project.group.server:port.depot.projroot# mappings into lists to manipulate later.## Parameters:## Output:# sets $main::MasterBranch# populates $main::GroupBranches list# populates $main::AllMappings list# _____________________________________________________________________________sub ReadCodeBaseMap{ open(CODEBASEMAP, $main::CodeBaseMap) or die("\nCan't open code base map $main::CodeBaseMap.\n");
while ($cbmline = <CODEBASEMAP>) { # # throw away comments # $cbmline =~ /^#/ and next;
chop $cbmline;
# # make sure the codebase we think we are matches SDX # if ($cbmline =~ /^CODEBASE[\t\s]*=/) { @fields = split(/[\t\s]*=[\t\s]*/, $cbmline); $actualcb = @fields[1]; $actualcb =~ s/[\t\s]*//g;
$main::CodeBase =~ /$actualcb/i or die("\nError: Codebase name '$actualcb' in $main::CodeBaseMap doesn't match '$main::CodeBase'.\n"); }
# # get the codebase type # if ($cbmline =~ /^CODEBASETYPE/) { $main::CodeBaseType = (split(/[\t\s]*=[\t\s]*/, $cbmline))[1]; next; }
# # get the master branch # if ($cbmline =~ /^MASTERBRANCH/) { @fields = split(/[\t\s]*=[\t\s]*/, $cbmline); $main::MasterBranch = @fields[1]; $main::MasterBranch =~ s/[\t\s]*//g; }
# # get the group branches # if ($cbmline =~ /^GROUPBRANCHES/) { $cbmline =~ s/^GROUPBRANCHES[\t\s]*=[\t\s]*//g; @main::GroupBranches = split(/[\t\s]+/, $cbmline); }
# # figure out whether we should give the user SD tools after # enlisting or not # if ($cbmline =~ /^TOOLS/) { $cbmline =~ s/^TOOLS[\t\s]*=[\t\s]*//g; @fields = split(/\\/, $cbmline);
# first token is always the project $main::ToolsProject = "\L@fields[0]";
# # if we have a project, get the relative and full paths to it # $main::ToolsProject and do { shift @fields; foreach $p (@fields) { $main::ToolsPath .= "\L$p" . "\\"; }
$main::ToolsPath and chop $main::ToolsPath;
# # if at the root, the full path doesn't include the project name #
# # only include a "\" below if SDXROOT doesn't end in one already # my $dblslash = ($main::SDXRoot =~ /\\$/ ? "" : "\\");
if ($main::ToolsProject eq "root") { # # if the CBM lists "root" for the tools and we have no path, error out # !$main::ToolsPath and die("\nTools project is ROOT but no path was specified in \U$main::CodeBaseMap.\n");
$main::ToolsProjectPath = $main::SDXRoot . $dblslash . $main::ToolsPath; $main::ToolsInRoot = $main::TRUE; } else { $main::ToolsProjectPath = $main::SDXRoot . $dblslash . $main::ToolsProject; $main::ToolsPath and $main::ToolsProjectPath .= "\\" . $main::ToolsPath; } }; }
# # get any other dirs to be sync'd on the user's behalf # if ($cbmline =~ /^OTHERDIRS/) { $cbmline =~ s/^OTHERDIRS[\t\s]*=[\t\s]*//g; @main::OtherDirs = split(/[\t\s]+/,$cbmline); }
# # get any required projects # if ($cbmline =~ /^DEFAULTPROJECTS/) { $cbmline =~ s/^DEFAULTPROJECTS[\t\s]*=[\t\s]*//g; @main::DefaultProjects = split(/[\t\s]+/,$cbmline); }
# # get any projects that need platform-specific subdirs trimmed # in the view # if ($cbmline =~ /^PLATFORMPROJECTS/) { $cbmline =~ s/^PLATFORMPROJECTS[\t\s]*=[\t\s]*//g; @main::PlatformProjects = split(/[\t\s]+/,$cbmline); }
# # see if we need to restrict the Root mapping # if ($cbmline =~ /^RESTRICTROOT/) { $cbmline =~ s/^RESTRICTROOT[\t\s]*=[\t\s]*//g; $restrict = $cbmline; $restrict =~ s/[\t\s]*//g;
if ($restrict eq "1" || "\U$restrict" eq "YES") { $main::RestrictRoot = $main::TRUE; } }
# # if not one of the above, the line is a project-group-server:port-depot-projroot mapping # # lowercase the whole line, split it, then push it onto a list # if ($cbmline =~ /[a-zA-Z0-9]+:[0-9]+/) { $main::nMappings++; @fields = split(/[\t\s]+/, "\L$cbmline"); push @main::AllMappings, [@fields]; } }
close(CODEBASEMAP);
$main::V3 and do { print "\n"; printf "readcbm: \# mappings = %s\n", $main::nMappings; printf "readcbm: codebase = '%s'\n", $main::CodeBase; printf "readcbm: codebasetype = '%s'\n", $main::CodeBaseType; printf "readcbm: masterbranch ='%s'\n", $main::MasterBranch;
if ($main::ToolsProject) { printf "readcbm: toolsproject='%s'\n", $main::ToolsProject; printf "readcbm: toolspath='%s'\n", $main::ToolsPath; printf "readcbm: toolsprojectpath='%s'\n", $main::ToolsProjectPath; }
if (@main::OtherDirs) { foreach $d (@main::OtherDirs) { printf "readcbm: otherdir='%s'\n", $d; } }
if (@main::DefaultProjects) { foreach $d (@main::DefaultProjects) { printf "readcbm: defproj='%s'\n", $d; } }
if (@main::PlatformProjects) { foreach $d (@main::PlatformProjects) { printf "readcbm: platproj='%s'\n", $d; } }
foreach $b (@main::GroupBranches) { printf "readcbm: grbr='%s'\n", $b; }
print "\n";
for $x (0..$main::nMappings-1) { for $y (0..4) { printf "readcbm: AllMappings[%s][%s] = %s\n", $x, $y, $main::AllMappings[$x][$y]; } print "\n"; } };}
# _____________________________________________________________________________## MakePGDLists## Munges $main::AllMappings to create lists of projects, groups and servers.## Parameters:## Output:# populates @main::AllProjects as 2D array with full mappings for all unique project names# populates @main::AllGroups with list of all unique dev groups# populates @main::AllDepots with list of all unique SD servers for this codebase# _____________________________________________________________________________sub MakePGDLists{ # # for each project, group, depot # unless already seen, add to hash and push to corresponding array # $p = 0; $g = 0; $d = 0; %seenproj = (); %projhash = (); %seengroup = (); %seenserverport = (); @fulldepotdesc = ();
for $x (0..$main::nMappings-1) { $proj = $main::AllMappings[$x][$main::CBMProjectField]; $group = $main::AllMappings[$x][$main::CBMGroupField]; $serverport = $main::AllMappings[$x][$main::CBMServerPortField]; $depotname = $main::AllMappings[$x][$main::CBMDepotNameField];
unless ($seenproj{$proj}) { $p++; $seenproj{$proj} = 1; push @main::AllProjects, [@{$main::AllMappings[$x]}];
# # place in hash -- use this later # $projhash{$proj} = [@{$main::AllMappings[$x]}]; }
unless ($seengroup{$group}) { $g++; $seengroup{$group} = 1; push @main::AllGroups, $group; }
unless ($seenserverport{$serverport}) { $d++; $seenserverport{$serverport} = 1; @fulldepotdesc = ("$serverport","$depotname"); push @main::AllDepots, [@fulldepotdesc]; } }
# # set up a hash of project types # # project is type 1 (1 project per depot) if Group field # in codebase map is "ntdev" # # project is type 2 (N projects per depot) otherwise # %main::ProjectType = (); foreach $project (@main::AllProjects) { $main::ProjectType{@$project[$main::CBMProjectField]} = ("\L@$project[$main::CBMGroupField]" eq "ntdev") ? 1 : 2; }
# # figure out depot types # # a depot is type 1 if its server:port appears in the AllProjects list only once and # its Group is "ntdev" # else type 2 # for $depot (@main::AllDepots) { $serverport = @$depot[0];
my $foundproj = ""; my $foundgroup = ""; my $count = 0; foreach $project (@main::AllProjects) { $p = @$project[0]; $group = @$project[1]; $sp = @$project[2];
($serverport eq $sp) and do { $count++; $foundproj = $p; $foundgroup = $group;
$count > 1 and last; } }
if ($count == 1) { @{$main::DepotType{$serverport}}[0] = ($foundgroup eq "ntdev") ? 1 : 2; @{$main::DepotType{$serverport}}[1] = ($foundgroup eq "ntdev") ? $foundproj : ""; } if ($count > 1) { @{$main::DepotType{$serverport}}[0] = 2; @{$main::DepotType{$serverport}}[1] = ""; } }
$main::V3 and do {# printf "\n\# of mappings = %s\n", $#main::AllMappings + 1;# foreach $line (@main::AllMappings)# {# print "pgdlists: AllMappings[] = @$line\n";# }
print "\n";
printf "\n\# of projects = %s\n", $#main::AllProjects + 1; foreach $project (@main::AllProjects) { print "pgdlists: AllProjects[] = @$project\n"; }
print "\n";
# print "pgdlists: \%projhash:\n";# while (($k,$v) = each %projhash)# {# printf "%20s\t", $k;# print "@$v\n";# }
print "pgdlists: \%ProjectType:\n"; while (($k,$v) = each %main::ProjectType) { printf "%20s\t", $k; print "$v\n"; }
printf "\n\# of groups = %s\n", $#main::AllGroups + 1;
for $group (@main::AllGroups) { printf "pgdlists: AllGroups[] = $group\n"; }
printf "\n\# of depots = %s\n", $#main::AllDepots + 1;
for $depot (@main::AllDepots) { printf "pgdlists: AllDepots[] = @$depot\n"; }
print "\npgdlists: \%DepotType:\n"; while (($k,$v) = each %main::DepotType) { (@$v[0] == 1) and do { printf " %-50s\t", $k; print "@$v[0], @$v[1]\n"; }; }
while (($k,$v) = each %main::DepotType) { (@$v[0] == 2) and do { printf " %-50s\t", $k; print "@$v[0], @$v[1]\n"; }; } };}
# _____________________________________________________________________________## MakeTargetLists## Munges @main::AllProjects and @main::AllDepots to create @main::EnlistProjects and# @main::EnlistDepots, the lists of just those projects and depots we'll actually# enlist in.## Parameters:## Output:# populates @main::EnlistProjects with projects to enlist# populates @main::EnlistDepots with depots to enlist# _____________________________________________________________________________sub MakeTargetLists{ my $enlisting = ($_[0] eq "enlist"); my $defecting = ($_[0] eq "defect"); my $repairing = ($_[0] eq "repair");
my @depots = (); my @projects = ();
(!$enlisting && !$defecting && !$repairing) and die("\nUnknown operation in MakeTargetLists().\n");
# # if EnlistAll or DefectAll, the projects list depends on the codebase map or SD.MAP # else the projects list consists of the rows for each in SomeProjects # if ($main::EnlistAll || $main::DefectAll) { # # enlist in everything # $main::EnlistAll and @projects = @main::AllProjects;
# # defect from everything in SD.MAP # $main::DefectAll and do { # # for each project in @main::SDMapProjects, get the full # project:group:depot:projroot mapping associated with it # from the AllProjects list # foreach $project (@main::SDMapProjects) { my $found = $main::FALSE; my $proj = @$project[0];
foreach $project2 (@main::AllProjects) { my $proj2 = @$project2[$main::CBMProjectField];
if ("\l$proj" eq "\l$proj2") { push @projects, [@{$project2}]; $found = $main::TRUE; last; } }
!$found and print "Unknown project $proj in SD.MAP.\n"; } }; } else { print "\n";
# # if enlisting # if EnlistAsOther # populate @main::SomeProjects with the list of projects # the other client is enlisted in # if ($enlisting) { if ($main::EnlistAsOther) { my $found = $main::FALSE; my %projects = ();
# # be verbose if there are more than 3 depots to search # my $verbose = ($#main::AllDepots > 2); $verbose and print "Getting client information for \U$main::OtherClient.";
# # if OtherClient exists in each depot, get the view lines # and extract the project names. put them in a hash for # uniqueness # foreach $depot (@main::AllDepots) { $verbose and print ".";
my $serverport = @$depot[0];
if (SDX::ClientExists($serverport, $main::OtherClient)) { $found = $main::TRUE;
SDX::GetClientView("repair", $serverport, $main::OtherClient);
# print "\n$main::OtherClient view in $serverport = \n'@main::ExistingView'\n";
my @fields = (); foreach $line (@main::ExistingView) { # # throw away " -//" negation lines # and //depot/private lines # $line =~ /^[\t\s]+-/ and next; $line =~ /^[\t\s]+\/\/depot\/private/ and next;
@fields = split(/\//,$line); $projects{$fields[4]} = 1; } } }
while (($k,$v) = each %projects) { push @main::SomeProjects, $k; }
$main::V2 and print "\n\n$main::OtherClient projects = @main::SomeProjects\n";
print "\n";
!$found and do { printf "\nClient %s was not found in any of the %s depots. Please choose\n", "\U$main::OtherClient", "\U$main::CodeBase"; print "another client as a template.\n"; die("\n"); }; }
# # for each proj in the DefaultProjects list, add it to # the SomeProjects list if it doesn't already exist there # and (for all but new enlistments) it's not already enlisted # # this should use a hash # foreach $defproj (@main::DefaultProjects) { $found = $main::FALSE;# print "defproj = '\l$defproj'\n";
foreach $someproj (@main::SomeProjects) {# print "\tsomeproj = \l$someproj\n";
("\l$defproj" eq "\l$someproj") and do { $found = $main::TRUE; last; } }
$main::IncrEnlist and do { foreach $p (@main::SDMapProjects) {# print "\t\tp = '\l@$p[0]'\n"; ("\l$defproj" eq "\l@$p[0]") and do { $found = $main::TRUE; last; } } };
!$found and push @main::SomeProjects, $defproj; } }
# # if defecting, don't let the user remove any Default Projects # if ($defecting) { # # load SomeProjects into a hash # # for each default project, mark it as unwanted (0) # # write the wanted (1) hash entries back into a list # @tmpproj = (); %someproj = (); foreach $sp (@main::SomeProjects) { $someproj{$sp} = 1; }
$main::V3 and do { while (($k,$v) = each %someproj) { printf "%20s\t%s\n", $k, $v; } };
$found = $main::FALSE; foreach $dp (@main::DefaultProjects) { if ($someproj{$dp} == 1) { $found = $main::TRUE; $someproj{$dp} = 0; printf "Ignoring default project %s.\n", "\U$dp"; } }
$found and print "\nUse -a to defect from required projects.\n\n";
while (($k,$v) = each %someproj) { $v and push @tmpproj, $k; $main::V3 and printf "%20s\t%s\n", $k, $v; }
@main::SomeProjects = sort @tmpproj; }
# # at this point @main::SomeProjects has been populated # # for each proj named in @main::SomeProjects, get the full # project:group:depot:projroot mapping associated with it # from the AllProjects list # foreach $project (@main::SomeProjects) { $found = $main::FALSE;
foreach $project2 (@main::AllProjects) { $proj = @$project2[$main::CBMProjectField];
if ("\L$project" eq "\L$proj") { push @projects, [@{$project2}]; $found = $main::TRUE; last; } }
!$found and print "Unknown project $project.\n"; } }
# # create a list of just those depots we will enlist in # # for each depot in the AllDepots list, if it exists in the # EnlistProjects list, add it to the EnlistDepots list # foreach $depot (@main::AllDepots) {# printf "%s\n", @$depot[0]; foreach $project (@projects) { $serverport = @$project[$main::CBMServerPortField];# printf "\t%s\n", $serverport;
if (@$depot[0] eq $serverport) {# printf "\t\t%s\n", $serverport; push @depots, [@{$depot}]; last; } } }
# # assign the depot/project lists accordingly # $enlisting and do { @main::EnlistDepots = @depots; @main::EnlistProjects = @projects; };
$defecting and do { @main::DefectDepots = @depots; @main::DefectProjects = @projects; };
# # remember relevant depots to check for access # @main::VerifyDepots = @depots; @main::VerifyProjects = @projects;
$main::V3 and do { if ($enlisting) { print "\n"; foreach $project (@main::EnlistProjects) { print "mtl: EnlistProjects[] = @$project\n"; }
print "\n"; foreach $depot (@main::EnlistDepots) { print "mtl: EnlistDepots = @$depot\n"; } }
if ($defecting) { print "\n"; foreach $project (@main::DefectProjects) { print "mtl: DefectProjects[] = @$project\n"; }
print "\n"; foreach $depot (@main::DefectDepots) { print "mtl: DefectDepots = @$depot\n"; } } };}
# _____________________________________________________________________________## SortDepots## Parameters:# @unsorted -- simple array of depot server:ports ## Output:# @sorted -- simple array, sorted first by type (1 or 2) then alpha for# the type 1's# _____________________________________________________________________________sub SortDepots{ my ($unsorted) = $_[0]; my @sorted = (); my @list = ();
# # for each type 1 depot, put its project name in a list # # sort the list # $main::V3 and print "\nunsorted depots:\n";
foreach $sp (@$unsorted) { (@{$main::DepotType{$sp}}[0] == 1) and push @list, @{$main::DepotType{$sp}}[1];
$main::V3 and printf " %20s %s\n", @{$main::DepotType{$sp}}[1], $sp; }
@list = sort @list;
foreach $p (@list) { foreach $sp (@$unsorted) { (@{$main::DepotType{$sp}}[1] eq $p) and push @sorted, $sp; } }
# # add the rest of the (type 2) depots to the list w/o sorting # foreach $sp (@$unsorted) { (@{$main::DepotType{$sp}}[0] == 2) and push @sorted, $sp; }
$main::V3 and do { print "\nsorted depots:\n"; foreach $sp (@sorted) { printf " %20s %s\n", @{$main::DepotType{$sp}}[1], $sp; } };
return @sorted;}
# _____________________________________________________________________________## VerifyBranch## Parameters:## Output:# _____________________________________________________________________________sub VerifyBranch{ my $enlisting = ($_[0] eq "enlist"); my $defecting = ($_[0] eq "defect"); my $repairing = ($_[0] eq "repair"); my $nd = $_[1]; my @depots = ();
printf "\nLooking for branch %s in the depot%s", "\U$main::Branch", $nd > 1 ? "s" : "";
$enlisting and @depots = @main::EnlistDepots; $defecting and @depots = @main::DefectDepots;
my $warning = $main::FALSE; foreach $depot (@depots) { print ".";
my $serverport = @$depot[0]; !grep(/Branch $main::Branch /, `sd.exe -p $serverport branches 2>&1`) and $warning = $main::TRUE; }
!$warning and print "\nok.\n"; return $warning;}
# _____________________________________________________________________________## VerifyClient## Parameters:## Output:# _____________________________________________________________________________sub VerifyClient{ my $client = "\U$main::SDClient"; print "\nChecking for client $client in the depots.";
foreach $depot (@main::AllDepots) { print ".";
my $serverport = @$depot[0];
if (SDX::ClientExists($serverport, $main::SDClient)) { print "\n\n$client already exists. Enlisting with \@<client> is only supported for new\n"; print "enlistents. If you want to keep $client as your client name, run 'sdx defect\n"; print "$main::CodeBase $main::Branch -a -f' to defect, or set \%SDCLIENT\% to another\n"; print "name, then rerun this command.\n";
die("\n"); } }
print "\nok.\n";};
# _____________________________________________________________________________## GetProjectsToRepair## Parameters:## Output:# populates @main::RepairDepots and @main::RepairProjects# returns 1 if successful, 0 otherwise# _____________________________________________________________________________sub GetProjectsToRepair{ @main::RepairDepots = (); @main::RepairProjects = (); %seen = ();
# # if only rewriting SD.INIs, base the depot/project repair lists on # whatever is in SD.MAP and the codebase map # if ($main::MinusI) { my %seen = ();
# # build list of depots # for $proj (@main::SDMapProjects) { for $proj2 (@main::AllProjects) { (@$proj[$main::CBMProjectField] eq @$proj2[$main::CBMProjectField]) and do { push @main::RepairProjects, $proj2;
my $sp = @$proj2[$main::CBMServerPortField]; unless ($seen{$sp}) { $seen{$sp} = 1; push @main::RepairDepots, [("$sp", "@$proj2[$main::CBMDepotNameField]")]; } } } }
# # adjust the list of actively used depots to # reflect what we got out of the codebase map # @main::ActiveDepots = (); for $depot (@main::RepairDepots) { push @main::ActiveDepots, @$depot[0]; }; } else { # # for each depot, see if the client exists # if so, get its view and munge it to see which # projects it includes # foreach $depot (@main::AllDepots) { $serverport = @$depot[0]; $main::V3 and print "\t$serverport\n";
if (SDX::ClientExists($serverport, $main::SDClient)) { # # add this depot to the list # push @main::RepairDepots, $depot;
# # read the existing client view into @main::ExistingView # SDX::GetClientView("repair", $serverport, $main::SDClient);
foreach $line (@main::ExistingView) { # # throw away negating view lines # $line =~ /^[\t\s]+-/ and next;
@fields = split(/\//, $line); $branch = @fields[3]; $project = @fields[4];
$project and do { # print "b/p $branch $project\n"; for $projectline (@main::AllProjects) { if ("\U$project" eq "\U@$projectline[$main::CBMProjectField]") { unless ($seen{$project}) { $seen{$project} = 1; push @main::RepairProjects, $projectline; }
last; } } }; } } } }
$main::V3 and do { foreach $depot (@main::RepairDepots) { print "RepairDepots: @$depot\n"; }
print "\n";
foreach $project (@main::RepairProjects) { print "RepairProjects: @$project\n"; } };
# # verify access for all depots in the repair list # @main::VerifyDepots = @main::RepairDepots;
# # return success as long as these two lists have values # (@main::RepairDepots && @main::RepairProjects) and return 1; return 0;}
# _____________________________________________________________________________## CreateView## Parameters:# Command Line Arguments## Output:## _____________________________________________________________________________sub CreateView{ $depot = $_[0]; my $enlisting = ($_[1] eq "enlist"); my $defecting = ($_[1] eq "defect"); my $repairing = ($_[1] eq "repair"); my $root = ""; my $clobber = $main::FALSE; my $crlf = $main::FALSE; $serverport = @$depot[0]; $depotname = @$depot[1]; @main::tmpView = (); @main::FinalView = ();
(!$enlisting && !$defecting && !$repairing) and die("\nUnknown operation in CreateView().\n");
unlink $main::ClientView;
# # write the default view lines for this depot and project(s) # SDX::WriteDefaultView($serverport, $depotname);
# # if we're doing a clean enlist or the client doesn't already exist, # use the default view # else merge the default view with the existing view # if ($main::CleanEnlist or !SDX::ClientExists($serverport, $main::SDClient)) { # # Root: field for client view depends on depot type # # for type 1 (1 project/depot), root includes project name # for type 2 (N projects/depot), root is just main::SDXRoot # # root is at least SDXRoot in either case # $root = $main::SDXRoot; (@{$main::DepotType{$serverport}}[0] == 1) and $root = SDX::Type1Root($root);
# # files in root project in NT are clobberable # # BUGBUG-2000/5/12-jeffmcd -- this should be an option in the codebase map -- ClobberRoot = 1 or 0 # 2002/9/5 -jeremyd -- the whole options line should be configurable and fall back to server defaults # if ("\U$main::CodeBase" eq "NT") { $project = @main::ProjectsInThisDepot[0]; $clobber = ("\L@$project[$main::CBMProjectField]" eq "root"); }
# # SQL SD server is setup as crlf # if ("\l$serverport" eq "sqldepot.sys-ntgroup.ntdev.microsoft.com:1666") { $crlf = $main::TRUE; }
# # write default view header # open(CLIENTVIEW, ">$main::ClientView") or die("\nCan't open $main::ClientView for writing.\n");
printf CLIENTVIEW "Client: %s\n\n", $main::SDClient; printf CLIENTVIEW "Owner: %s\n\n", $main::SDDomainUser; printf CLIENTVIEW "Description:\n Created by %s.\n\n", $main::SDDomainUser; printf CLIENTVIEW "Root: %s\n\n", $root; printf CLIENTVIEW "Options: noallwrite %sclobber nocompress %scrlf locked nomodtime\n\n", $clobber ? "" : "no", $crlf ? "" : "no"; printf CLIENTVIEW "View:\n";
# # append the default view # for $line (@main::DefaultView) { printf CLIENTVIEW $line;### push @clientview, $line; }
close(CLIENTVIEW);
$verb = "Creating"; } else { # # read the existing client view into @main::ExistingView # SDX:GetClientView("enlist", $serverport, $main::SDClient);
# # concat the existing view and the default view # for $line (@main::ExistingView) { push @main::tmpView, $line; }
for $line (@main::DefaultView) { push @main::tmpView, $line; }
$main::V3 and do { print "\nexisting + default:\n"; print @main::tmpView; };
# # sort the list for uniqueness, preserving order # %seen = (); @uniq = (); foreach $line (@main::tmpView) { # # lowercase the line for the check, but push the # unchanged version of line onto the list so # we preserve the user's case # unless ($seen{"\L$line"}) { $seen{"\L$line"} = 1; push @uniq, $line; } }
@main::FinalView = @uniq;
$main::V3 and do { print "\nfinal view:\n"; print @main::FinalView; };
# # now finish writing the client view by appending the # final view spec # open(CLIENTVIEW, ">>$main::ClientView") or die("\nCan't open $main::ClientView for writing.\n");
for $viewline (@main::FinalView) { printf CLIENTVIEW $viewline; }
close(CLIENTVIEW);
$verb = "Updating existing"; $repairing and $verb = "Verifying"; }
printf "\n%s client %s in depot %s.\n", $verb, $main::SDClient, $serverport;
$main::V1 and do { $main::V2 and do { printf "\ndepot mapping for %s (//%s) consists of %s project(s):\n\n", $serverport, $depotname, $#main::ProjectsInThisDepot+1; foreach $project (@main::ProjectsInThisDepot) { printf "\t%s\n", @$project[$main::CBMProjectField]; } };
print "\n\n"; system "type $main::ClientView 2>&1"; print "\n--------------------------------------------------\n\n"; };}
# _____________________________________________________________________________## WriteDefaultView## Create the default view lines for this depot/project and push them onto a list## Parameters:## Output:## _____________________________________________________________________________sub WriteDefaultView(){ $serverport = $_[0]; $depotname = $_[1];
$proj = ""; $group = ""; $projroot = ""; @main::DefaultView = ();
$main::V3 and do { print "sp = '$serverport'\n"; print "depotname = '$depotname'\n"; };
# # for each project in this depot, generate the depot mappings and push # them onto a list # foreach $project (@main::ProjectsInThisDepot) { $usingroot = $main::FALSE; $proj = @$project[$main::CBMProjectField]; $group = @$project[$main::CBMGroupField]; $projroot = @$project[$main::CBMProjectRootField];
# # flip any '\' in the proj root path into '/' for SD # $projroot =~ s/\\/\//g;
# # special case for enlisting a project directly in the root # if ($projroot eq "sdxroot") { $usingroot = $main::TRUE; }
# # if no project root was given in the codebase map, # assume the root is same as the project name # if (!$projroot) { $projroot = $proj; }
# # create and save the view line for this project # # handle special case for SD sources # handle special case for enlisting directly in %SDXROOT% # otherwise handle normal case #
# # see if this project is one for which we should exclude # some platform-specific dirs from its view # $found = $main::FALSE; $Exclude = $main::FALSE; foreach $someproj (@main::PlatformProjects) { if ("\U$proj" eq "\U$someproj") { $found = $main::TRUE; } }
if ($found && $main::Exclusions) { $Exclude = $main::TRUE;
if ("\U$main::Platform" eq "X86") { }
if ("\U$main::Platform" eq "AMD64") { @ExcludePlats = ("x86", "i386", "ia64"); }
if ("\U$main::Platform" eq "IA64") { @ExcludePlats = ("x86", "i386", "amd64"); } }
# # special case for handling the one project in the codebase map that can be enlisted directly # in $main::SDXRoot # if ($usingroot) { $projroot = $proj;
# # maybe restrict the scope of the root mapping # $rootspec = "..."; $main::RestrictRoot and do { $rootspec = "*"; };
# # generate some shorthand for the depot-branch-project on LHS of the view # my $dbp = SDX::MakeDBP($serverport, $depotname, $group, $projroot);
# # if this is the tools project and the user wants the minimal # tool set, customize the view # # else generate the normal view line # my $mintools = ("\U$proj" eq "\U$main::ToolsProject" and $main::MinimalTools);
if ($mintools) { # # add '/' if we have a tools path # my $tpath = ($main::ToolsPath ? "/$main::ToolsPath" : "");
# # flip any '\' in the tools path into '/' for SD # $tpath =~ s/\\/\//g;
# # -//depot/<branch>/<toolsproj>/... //<client>/... # $viewline = sprintf("\t-//%s/... //%s/...\n", $dbp, $main::SDClient); push @main::DefaultView, $viewline;
# # //depot/<branch>/<toolsproj>/* //<client>/* # $viewline = sprintf("\t//%s/* //%s/*\n", $dbp, $main::SDClient); push @main::DefaultView, $viewline;
# # //depot/<branch>/<toolsproj>[/<toolspath>/]* //<client>[/<toolspath>/]* # $viewline = sprintf("\t//%s%s/* //%s%s/*\n", $dbp, $tpath, $main::SDClient, $tpath); push @main::DefaultView, $viewline;
# # //depot/<branch>/<toolsproj>[/<toolspath>]/<PA>/*sd*exe //<client>[/<toolspath>]/<PA>/*sd*exe # $viewline = sprintf("\t//%s%s/%s/*sd*exe //%s%s/%s/*sd*exe\n", $dbp, $tpath, $main::Platform, $main::SDClient, $tpath, $main::Platform); push @main::DefaultView, $viewline;
# # //depot/<branch>/<toolsproj>[/<toolspath>]/<PA>/perl/... //<client>[/<toolspath>]/<PA>/perl/... # $viewline = sprintf("\t//%s%s/%s/perl/... //%s%s/%s/perl/...\n", $dbp, $tpath, $main::Platform, $main::SDClient, $tpath, $main::Platform); push @main::DefaultView, $viewline; } else { $viewline = sprintf("\t//%s/%s //%s/%s\n", $dbp, $rootspec, $main::SDClient, $rootspec); push @main::DefaultView, $viewline; }
# # if it's NT (or a codebase that uses NT's Root depot) and exclusionary mappings are allowed, # restrict the user's view of \developer to just themselves # $main::Exclusions and do {### HACKHACK -- rm check on $main::RestrictRoot when old NTTEST CBM goes away
# # BUGBUG-2000/01/18-jeffmcd -- add keyword USERSDIR=<some dir relative to root containing user-specific files> # ( "\U$main::CodeBase" eq "NT" or ("\U$main::CodeBase" eq "NTTEST" and !$main::RestrictRoot) or "\U$main::CodeBase" eq "NTSDK" or "\U$main::CodeBase" eq "NT.INTL" or "\U$main::CodeBase" eq "MPC" or "\U$main::CodeBase" eq "NGWS" or "\U$main::CodeBase" eq "MGMT" or "\U$main::CodeBase" eq "MOM" or "\U$main::CodeBase" eq "PDDEPOT" or "\U$main::CodeBase" eq "WINMEDIA" or "\U$main::CodeBase" eq "WINSS" ) and do { # # this negation line isn't necessary if we're doing minimal tools # !$mintools and do { $viewline = sprintf("\t-//%s/developer/... //%s/developer/...\n", $dbp, $main::SDClient); push @main::DefaultView, $viewline; };
$viewline = sprintf("\t//%s/developer/* //%s/developer/*\n", $dbp, $main::SDClient); push @main::DefaultView, $viewline;
$viewline = sprintf("\t//%s/developer/%s/... //%s/developer/%s/...\n", $dbp, $main::SDUser, $main::SDClient, $main::SDUser); push @main::DefaultView, $viewline; }; };
# # only do the exclude lines if the root isn't already restricted # and we're not doing minimal tools (since everything in Root will # already be restricted except what the user needs) # if ($Exclude && !$main::RestrictRoot && !$main::MinimalTools) { for $e (@ExcludePlats) { # # generate the view line and save it away # $viewline = sprintf("\t-//%s/.../%s/... //%s/.../%s/...\n", $dbp, $e, $main::SDClient, $e); push @main::DefaultView, $viewline; } } } else { # # generate the view line(s) # # # for the USERS project in Scratch depots, only map in \users\<this user> # # BUGBUG-2000/01/10-jeffmcd -- remove this when enlisting with <project>\path\path\path is supported # if ("\U$main::CodeBase" eq "SCRATCH" and $projroot eq "users") { # shorthand my $dbp = SDX::MakeDBP($serverport, $depotname, $group, $projroot);
# -//depot/<branch>/users/... //<client>/users/... $viewline = sprintf("\t-//%s/... //%s/%s/...\n", $dbp, $main::SDClient, $projroot); push @main::DefaultView, $viewline;
# //depot/<branch>/users/<this user>/... //<client>/users/<this user>/... $viewline = sprintf("\t//%s/%s/... //%s/%s/%s/...\n", $dbp, $main::SDUser, $main::SDClient, $projroot, $main::SDUser); push @main::DefaultView, $viewline; } else { # # the form of the project root depends on project type and codebase # my $proot = SDX::MakeProjectRoot($proj, $projroot);
# # some shorthand # my $dbp = SDX::MakeDBP($serverport, $depotname, $group, $proj); my $mintools = ("\U$main::ToolsProject" eq "\U$proj" and $main::MinimalTools);
# # if $proj is the tools project and the user wants the minimal # tool set, customize the view # # else generate the normal view line # if ($mintools) { # # add '/' if we have a tools path # add "/<project root>" if type 2 depot # my $tpath = ($main::ToolsPath ? "/$main::ToolsPath" : ""); # # flip any '\' in the tools path into '/' for SD # $tpath =~ s/\\/\//g;
# # 1: -//depot/<branch>/<proj>/... //<client>/... # 2: -//depot/<branch>/<proj>/... //<client>/<project root>/... # $viewline = sprintf("\t-//%s/... //%s%s/...\n", $dbp, $main::SDClient, $proot); push @main::DefaultView, $viewline; # # 1: //depot/<branch>/<proj>/<toolspath>/* //<client>/<toolspath>/* # 2: //depot/<branch>/<proj>/<toolspath>/* //<client>/<project root>/<toolspath>/* # $viewline = sprintf("\t//%s%s/* //%s%s%s/*\n", $dbp, $tpath, $main::SDClient, $proot, $tpath); push @main::DefaultView, $viewline; # # 1: //depot/<branch>/<proj>/<toolspath>/<PA>/*sd*exe //<client>/<toolspath>/<PA>/*sd*exe # 2: //depot/<branch>/<proj>/<toolspath>/<PA>/*sd*exe //<client>/<project root>/<toolspath>/<PA>/*sd*exe # $viewline = sprintf("\t//%s%s/%s/*sd*exe //%s%s%s/%s/*sd*exe\n", $dbp, $tpath, $main::Platform, $main::SDClient, $proot, $tpath, $main::Platform); push @main::DefaultView, $viewline; # # 1: //depot/<branch>/<proj>/<toolspath>/<PA>/perl/... //<client>/<toolspath>/<PA>/perl/... # 2: //depot/<branch>/<proj>/<toolspath>/<PA>/perl/... //<client>/<project root>/<toolspath>/<PA>/perl/... # $viewline = sprintf("\t//%s%s/%s/perl/... //%s%s%s/%s/perl/...\n", $dbp, $tpath, $main::Platform, $main::SDClient, $proot, $tpath, $main::Platform); push @main::DefaultView, $viewline; } else { # # 1: //depot/<branch>/project/... //<client>/... # 2: //depot/<branch>/<project>/... //<client>/<project root>/... # $viewline = sprintf("\t//%s/... //%s%s/...\n", $dbp, $main::SDClient, $proot); push @main::DefaultView, $viewline; } }
# # add exclude lines to the view if this project is marked as # having multiple platforms in the codebase map # if ($Exclude) { # shorthand my $dbp = "$depotname/$main::Branch/$proj";
for $e (@ExcludePlats) { # # generate the view line and save it away # # for type 1 projects (1 project/depot) project name can't be in RHS # # for type 2 projects (N projects/depot) project name must be in RHS # my $proot = SDX::MakeProjectRoot($proj, $projroot);
$viewline = sprintf("\t-//%s/.../%s/... //%s%s/.../%s/...\n", $dbp, $e, $main::SDClient, $proot, $e); push @main::DefaultView, $viewline; } } } }
$main::V2 and do { print "\ndefault view --------------------\n"; for $line (@main::DefaultView) { print "$line"; } print "---------------------------------\n"; };}
# _____________________________________________________________________________## MakeDBP## builds depot-branch-project string depending on project's group## Parameters:## Output:## string## _____________________________________________________________________________sub MakeDBP(){ my $sp = $_[0]; my $depotname = $_[1]; my $group = $_[2]; my $projroot = $_[3]; my $path = "//$depotname/$main::Branch/$projroot";
$main::V3 and do { print "\nmakedbp: sp = '$sp'\n"; print "makedbp: depotname = '$depotname'\n"; print "makedbp: group = '$group'\n"; print "makedbp: projroot = '$projroot'\n\n"; print "makedbp: path = '$path'\n\n"; };
# # start with depot name # my $dbp = $depotname;
# # determine branch # # NTDEV projects have lab branches, so we can use whichever one the user wants # # non-NTDEV projects (like Test, Spec, Intl projects) may or may not have the # user's lab branch -- if it exists, use it, else default to the master branch # if (("\U$group" eq "NTDEV") or (SDX::BranchExists($main::Branch, $sp, $path, "by-path"))) { $dbp .= "/$main::Branch/"; } else { $dbp .= "/$main::MasterBranch/"; }
# # add the project root # $dbp .= $projroot;
$main::V3 and print "makedbp: returning '$dbp'\n";
return $dbp;}
# _____________________________________________________________________________## ClientExists## Determine if $main::SDClient exists in the given depot## Parameters:## Output:## TRUE if client found in depot, FALSE otherwise# _____________________________________________________________________________sub ClientExists(){ my $serverport = $_[0]; my $client = $_[1]; my @out = (); my $found = $main::FALSE;
# # list clients and grep for client name # @out = `sd.exe -p $serverport clients 2>&1`; (grep /Client $client /i, @out) and $found = $main::TRUE;
# # die if we're ever denied access # SDX::AccessDenied(\@out, $serverport) and die("\n");
return $found;}
# _____________________________________________________________________________## BranchExists## Determine if a branch exists in the given depot## Parameters:## Output:## TRUE if found, FALSE otherwise# _____________________________________________________________________________sub BranchExists(){ my $branch = $_[0]; my $sp = "-p $_[1]"; my $path = $_[2]; my $method = $_[3];
$main::V2 and do { print "\nbranchexists: branch = '$branch'\n"; print "branchexists: sp = '$sp'\n"; print "branchexists: path = '$path'\n"; print "branchexists: method = '$method'\n\n"; };
# # list branches and look for branch name # ($method eq "by-name") and do { grep(/Branch $branch/i, `sd.exe $sp branches 2>&1`) and return 1; };
# # see if //<depot>/<branch>/<project> is found # # sd dirs is unreliable, so look at the first line returned by sd files ... # ($method eq "by-path") and do { my @out = (); open FILE, "sd.exe $sp files $path/... 2>&1 |" or die("\nBranchExists: can't open pipe.\n"); while (<FILE>) { push @out, $_; last; } close FILE;
grep(/ no such /, @out) and return 0; return 1; };
return 0;}
# _____________________________________________________________________________## GetClientView## Read the existing client view out of the depot for this client. Split it into# header and view lines. If enlisting/defecting, write the header directly to the# new client view file.## Parameters:# serverport depot server:port pair# client SDClient name to look up## Output:# populates @main::ExistingView if repairing# writes $main::ClientView if enlisting/defecting# _____________________________________________________________________________sub GetClientView(){ my $enlisting = ($_[0] eq "enlist"); my $defecting = ($_[0] eq "defect"); my $repairing = ($_[0] eq "repair"); my @view = ();
$serverport = $_[1]; $client = $_[2]; @main::ExistingView = ();
(!$enlisting && !$defecting && !$repairing) and die("\nUnknown operation in GetClientView().\n");
# # dump the client view spec # @view = `sd.exe -p $serverport client -o $client 2>&1`;
# # read the viewspec and maybe write the header for the new client view # ($enlisting || $defecting) and (open(CLIENTVIEW, ">$main::ClientView") or die("\nCan't open $main::ClientView for writing.\n"));
$header = $main::TRUE; foreach $line (@view) { # # throw away comments and blank lines # $line =~ /^#/ and next; $line =~ /^[\t\s]*$/ and next;
# # if we're still in the header, right the line directly # to the new view # otherwise push the view line into a list for later use # if ($header) { ($enlisting || $defecting) and printf CLIENTVIEW $line; } else { push @main::ExistingView, $line; }
@vline = split(/[\t\s]+/,$line); if ("\U$vline[0]" eq "VIEW:") { $header = $main::FALSE; } }
($enlisting || $defecting) and close(CLIENTVIEW);
$main::V3 and do {# print "\nexisting view header:\n";# system "type $main::ClientView";
print "\nexisting view -------------------\n"; print "'@main::ExistingView'\n"; print "---------------------------------\n"; };}
# _____________________________________________________________________________## UpdateSDMap## Creates or updates %SDXROOT%\SD.MAP, containing a list of projects and relative# paths to their roots in the enlistment where the SD.INI can be found.## Leaves these files read-only so they stay nailed down when we delete /S.## Parameters:## Output:# _____________________________________________________________________________sub UpdateSDMap{ my $op = $_[0];
my $enlisting = ($op eq "enlist"); my $defecting = ($op eq "defect"); my $repairing = ($op eq "repair");
(!$enlisting && !$defecting && !$repairing) and die("\nUnknown operation in UpdateSDMap().\n");
@main::tmpMap = ();
# # if we're doing a clean enlist (ie no SD.MAP exists), use the default map # else merge the default map with the existing map # ($enlisting || $repairing) and do { if (!(-e $main::SDMap)) { printf "%s SD.MAP", $enlisting ? "Creating" : "Restoring";
@null = (); SDX::WriteSDMap(\@null);
print "\n"; } else { printf "%s SD.MAP", $enlisting ? "Updating" : "Repairing";
# # load the default map into @main::DefaultMap # and write the SD.INIs # SDX:WriteDefaultMap($main::Null, $main::Null);
# # load the existing map into @main::ExistingMap # SDX::GetMapProjects($op);
# # concat these two lists # for $line (@main::DefaultMap) { push @main::tmpMap, $line; }
for $line (@main::ExistingMap) { push @main::tmpMap, $line; }
$main::V1 and do { print "\ntmp map:\n\t"; print @main::tmpMap; };
# # unique-ify and sort them # %seen = (); foreach $line (@main::tmpMap) { $seen{$line}++; }
@uniq = keys %seen;
$main::V1 and do { print "\nuniq map:\n\t"; print @uniq; };
@sorted = sort @uniq;
$main::V3 and do { print "\nsorted:\n\t"; print @sorted; };
# # write it # SDX::WriteSDMap(\@sorted);
print "\n"; } };
$defecting and do { if ($main::DefectAll) { SDX::KillSDMap(); } else { print "Removing projects from SD.MAP";
# # load the default map into @main::DefaultMap # SDX:WriteDefaultMap($main::Null,$main::Null);
# # load the existing map into @main::ExistingMap # if (SDX::GetMapProjects($op)) { # # use the existing map lines as keys to a hash, # lowercasing them to ignore upper/lowercase # distinctions # # for each line in the default map, mark it as # removed from the hash of existing lines # # write the unmarked hash lines back into the list # and sort it # @tmpmap = (); %existingmap = (); foreach $em (@main::ExistingMap) { $existingmap{"\L$em"} = 1; }
$main::V3 and do { print "\n\nexistingmap:\n"; while (($k,$v) = each %existingmap) { printf "%40s %s\n", $k, $v; } };
foreach $dm (@main::DefaultMap) { if ($existingmap{"\L$dm"} == 1) { $existingmap{"\L$dm"} = 0; } }
$main::V2 and print "\nexistingmap, edited:\n";
while (($k,$v) = each %existingmap) { $v and push @tmpmap, $k;
$main::V2 and do { my $vv = (!$v) ? " $v" : $v; printf "%40s %s\n", $k, $vv; } }
@sorted = sort @tmpmap;
$main::V3 and do { print "\nsorted:\n\t"; print @sorted; };
# # at this point, if we still have something to write in the map file, # write it out # else remove whatever's left of it # # this will happen in the case where there are no DefaultProjects in # the codebase map and the user lists all known projects on the defect # cmd line # ($main::V3 and @sorted) and print "\n\t\@sorted not empty.\n"; ($main::V3 and !@sorted) and print "\n\t\@sorted empty.\n";
if (@sorted) { SDX::WriteSDMap(\@sorted); print "\n"; } else { SDX::KillSDMap(); } } } };
# # if we still have a map file, make it RO, hidden # (-e $main::SDMap) and system "attrib +R +H $main::SDMap >nul 2>&1";}
# _____________________________________________________________________________## WriteSDMap## Parameters:## Output:# _____________________________________________________________________________sub WriteSDMap{ my ($sorted) = $_;
$main::V3 and print "\n\nwritesdmap: sorted = @sorted\n";
system "attrib -R -H -S $main::SDMap >nul 2>&1"; open(SDMAP, ">$main::SDMap") or die("\nCan't open $main::SDMap for writing.\n");
print SDMAP "#\n# SD.MAP -- autogenerated by SDX -- do not edit\n#\n";
print SDMAP "\nCODEBASE = $main::CodeBase\n";
SDX::WriteSDMapCodeBaseType($main::CodeBaseType, *SDMAP);
print SDMAP "BRANCH = $main::Branch\n"; print SDMAP "CLIENT = $main::SDClient\n";
print SDMAP "\n#\n# project root\n# ------------------- -----------------------------------------------------\n";
# # if we have a sorted list of projects, print them, # else write the default list # if (@sorted) { foreach $line (@sorted) { @fields = split(/=/, $line); printf SDMAP "%21s = %-52s\n", $fields[0], $fields[1]; } } else { # # append the default map lines to SD.MAP # SDX::WriteDefaultMap("append",*SDMAP); }
# # print the list of enlisted depots # SDX::WriteSDMapDepots(\@main::ActiveDepots, *SDMAP);
close(SDMAP);}
# _____________________________________________________________________________## WriteSDMapDepots## add list of enlisted depots to SD.MAP## Parameters:## Output:# _____________________________________________________________________________sub WriteSDMapDepots{ my ($depots) = $_[0]; my $sdmap = $_[1];
my $list = ""; for $d (@$depots) { $d =~ /\:/ and do { $list .= "$d "; }; }
$main::V3 and do { print "\nabout to write depot list = '$list'\n"; };
print $sdmap "\n#\n# depots\n#\n"; print $sdmap "DEPOTS = $list\n\n";}
# _____________________________________________________________________________## WriteSDMapCodeBaseType## add codebase type to SD.MAP## Parameters:## Output:# _____________________________________________________________________________sub WriteSDMapCodeBaseType{ my $type = $_[0]; my $sdmap = $_[1];
print $sdmap "CODEBASETYPE = $type\n";}
# _____________________________________________________________________________## KillSDMap## Parameters:## Output:# _____________________________________________________________________________sub KillSDMap{ -e $main::SDMap and do { print "Removing $main::SDMap\n";
system "attrib -R -H -S $main::SDMap >nul 2>&1"; unlink $main::SDMap; };}
# _____________________________________________________________________________## WriteDefaultMap# writes the project-specific SD.MAP lines to the actual SD.MAP (if enlisting# clean) or pushes them onto a list so we can sort them later.## Parameters:## Output:# _____________________________________________________________________________sub WriteDefaultMap{ my $appending = ($_[0] eq "append"); my $sdmap = $_[1];
@main::DefaultMap = ();
# # maybe just append to the real SD.MAP, which at this point # only contains the header # otherwise write to a temp file # foreach $project (@main::ProjectsInThisDepot) { print ".";
$usingroot = $main::FALSE; $proj = @$project[$main::CBMProjectField]; $serverport = @$project[$main::CBMServerPortField]; $projectroot = @$project[$main::CBMProjectRootField];
# # if no project root was given in the codebase map, # assume the root is same as the project name # if (!$projectroot) { $projectroot = $proj; }
# # special case for enlisting a project directly in the root # if ("\U$projectroot" eq "SDXROOT") { $usingroot = $main::TRUE; $projectroot = "."; }
# # convert '/' to '\' # $projectroot =~ s/\//\\/g;
# # push the map line onto the list so we can sort it # $mapline = sprintf("%s=%s", $proj, $projectroot); push @main::DefaultMap, $mapline; }
$appending and do { my @sorted = sort @main::DefaultMap; for $line (@sorted) { @fields = split(/=/, $line); printf $sdmap "%21s = %-52s\n", $fields[0], $fields[1]; } };
$main::V1 and do { print "\n\ndefault map:\n\t"; for $line (@main::DefaultMap) { print "$line"; } };}
# _____________________________________________________________________________## GetMapProjects## Parameters:## Output:# returns 1 if map found and list created, 0 otherwise# _____________________________________________________________________________sub GetMapProjects{ my $op = $_[0]; my $line = "";
@main::ExistingMap = ();
# # read the map again since it may be changing # if (SDX::ReadSDMap($op, $main::Null)) { for $p (@main::SDMapProjects) { $line = @$p[0] . "=" . @$p[1]; push @main::ExistingMap, $line; } }
$main::V3 and do { print "\nexisting map:\n\t"; for $line (@main::ExistingMap) { print "getmapproj: line = '$line'\n"; } };
@main::ExistingMap and return 1;
return 0;}
# _____________________________________________________________________________## UpdateSDINIs## If enlisting or repairing, creates an SD.INI in the root of each project which# points SDPORT to the server:port for that project and sets SDCLIENT.## If defecting,## Parameters:## Output:# _____________________________________________________________________________sub UpdateSDINIs{ my $enlisting = ($_[0] eq "enlist"); my $defecting = ($_[0] eq "defect"); my $repairing = ($_[0] eq "repair");
(!$enlisting && !$defecting && !$repairing) and die("\nUnknown operation in UpdateSDINIs().\n");
($enlisting || $repairing) and do { print "Writing SD.INIs in project roots";
foreach $project (@main::ProjectsInThisDepot) { print ".";
$usingroot = $main::FALSE; $proj = @$project[$main::CBMProjectField]; $serverport = @$project[$main::CBMServerPortField]; $projectroot = @$project[$main::CBMProjectRootField];
# # if no project root was given in the codebase map, # assume the root is same as the project name # if (!$projectroot) { $projectroot = $proj; }
# # special case for enlisting a project directly in the root # if ("\U$projectroot" eq "SDXROOT") { $usingroot = $main::TRUE; $projectroot = "."; }
# # convert '/' to '\' # $projectroot =~ s/\//\\/g;
# # write the corresponding SD.INI # SDX::WriteSDINI($projectroot, $serverport); } };
$defecting and do { # # sync #none the project and remove the whole thing # # can't just do sync #none across whole depot, since it would # remove TOOLS dir and/or other default projects we want the user to keep # printf "\nDefecting client %s from projects in depot %s.\n", $main::SDClient, $serverport; print "Please wait, syncing to remove files.";
foreach $project (@main::ProjectsInThisDepot) { $proj = @$project[$main::CBMProjectField]; $serverport = @$project[$main::CBMServerPortField]; $projectroot = @$project[$main::CBMProjectRootField];
# # if no project root was given in the codebase map, # assume the root is same as the project name # if (!$projectroot) { $projectroot = $proj; }
# # special case for enlisting a project directly in the root # if ("\U$projectroot" eq "SDXROOT") { $projectroot = "."; }
# # convert '/' to '\' # $projectroot =~ s/\//\\/g;
# # maybe ghost files and remove the project # # specifically ignore the Tools project, it will be handled # in FinishDefect() # $fullprojectroot = $main::SDXRoot . "\\" . $projectroot; if (-e $fullprojectroot) { # # sync #none to remove files # SDX::SyncFiles("defect", $fullprojectroot, $proj);
# # nuke it all # SDX::RemoveProject($fullprojectroot, $serverport, $proj); } }
print "\n"; };
!$defecting and print "\nok.\n";}
# _____________________________________________________________________________## WriteSDINI## Parameters:## Output:# _____________________________________________________________________________sub WriteSDINI{ $projectroot = $_[0]; $serverport = $_[1];
# # write the corresponding SD.INI and make it RO, hidden # $fullprojectroot = $main::SDXRoot . "\\" . $projectroot; $sdini = $fullprojectroot . "\\sd.ini";
system "mkdir $fullprojectroot >nul 2>&1"; -e $fullprojectroot or die "\nCan't create project root dir $fullprojectroot.\n";
# # make it fully writable # system "attrib -R -H -S $sdini >nul 2>&1";
# # write it # open(SDINI, ">$sdini") or die("\nCan't open $sdini for writing.\n"); printf SDINI "#\n# autogenerated by SDX - do not edit\n#\n"; printf SDINI "SDPORT=$serverport\n"; printf SDINI "SDCLIENT=$main::SDClient\n"; close(SDINI);
# # make it read-only, hidden # system "attrib +R +H $sdini >nul 2>&1";}
# _____________________________________________________________________________## SyncFiles## Parameters:## Output:# _____________________________________________________________________________sub SyncFiles{ my $enlisting = ($_[0] eq "enlist"); my $defecting = ($_[0] eq "defect"); my $repairing = ($_[0] eq "repair");
my $fullprojectroot = $_[1]; my $proj = $_[2]; my $root = ($proj eq "root"); my $filespec;
(!$enlisting && !$defecting && !$repairing) and die("\nUnknown operation in SyncFiles().\n");
$defecting and do { chdir $fullprojectroot or die("\nCan't chdir to $fullprojectroot.\n"); print ".";
# # handle the root carefully # if ($root) { # # sync files directly in the root # $filespec = "*"; system "sd.exe sync $filespec#none >nul 2>&1";
# # get the list of root subdirs # @main::RemovableRootDirs = SDX::GetImmediateSubDirs($proj);
# # sync in the subdirs of the root individually, except # for the tools dir # foreach $dir (@main::RemovableRootDirs) { $cmd = "sd.exe sync $dir\\...#none 2>&1"; SDX::ShowSyncProgress($cmd, 20); } } else { # # only sync if we're not in the tools project # if ($proj ne $main::ToolsProject) { $filespec = "...";
$cmd = "sd.exe sync $filespec#none 2>&1"; SDX::ShowSyncProgress($cmd, 20); } }
chdir $main::StartDir or die("\nCan't cd to start dir $main::StartDir.\n"); };
($enlisting || $repairing) and do { my @depotlist = (); $enlisting and @depotlist = @main::EnlistDepots; $defecting and @depotlist = @main::DefectDepots; $repairing and @depotlist = @main::RepairDepots;
foreach $depot (@depotlist) { $serverport = @$depot[0];
printf "\n\nSyncing files in depot %s.", $serverport;
$cmd = "sd.exe -p $serverport -c $main::SDClient sync"; SDX::ShowSyncProgress($cmd, 20); }
print "\n\n"; };}
# _____________________________________________________________________________## RemoveProject## Parameters:## Output:# _____________________________________________________________________________sub RemoveProject{ my $fullprojectroot = $_[0]; my $serverport = $_[1]; my $proj = $_[2]; my $root = ($proj eq "root");
my $sdini = $fullprojectroot . "\\sd.ini";
print ".";
chdir $fullprojectroot or die("\nCan't cd to $fullprojectroot.\n");
# # maybe remove everything in the project # $main::DefectWithPrejudice and do { # # if we're in the root project, don't just blindly delnode # figure out which dirs exist under the root and delete each of these, # excluding the Tools dir # if ($root) { # # delete only the subdirs of the root project, except # for the tools dir # foreach $dir (@main::RemovableRootDirs) { my $path = $main::SDXRoot . "\\" . $dir;
(-e $path) and do { chdir $path or die("\nCan't cd to root subdir $path.\n");
system "del /F /S /Q /A:RHS *.* >nul 2>&1";
chdir $main::StartDir or die("\nCan't cd to start dir $main::StartDir.\n"); print "."; system "rd /S /Q $path >nul 2>&1"; } } } else { # # only remove the project if it isn't the tools # if ($proj ne $main::ToolsProject) { system "del /F /S /Q /A:RHS *.* >nul 2>&1";
chdir $main::StartDir or die("\nCan't cd to start dir $main::StartDir.\n"); print "."; system "rd /S /Q $fullprojectroot >nul 2>&1"; } } };
# # lastly, remove SD.INI # system "attrib -R -H -S $sdini >nul 2>&1"; unlink $sdini;}
# _____________________________________________________________________________## GetImmediateSubDirs## Ask SD for the list of dirs directly below $proj## Parameters:## Output:# returns a list of subdirs# _____________________________________________________________________________sub GetImmediateSubDirs{ my $proj = $_[0]; my @list = (); my @lines = (); my $proj2 = "";
@lines = `sd.exe dirs //depot/$main::Branch/$proj/* 2>&1`; foreach $line (@lines) { if ($line =~ /no such file/) { @list = (); last; }
@fields = split(/\//,$line); $proj2 = "\L@fields[$#fields]"; chop $proj2;
if ($main::ToolsInRoot) { ($proj2 ne $main::ToolsPath) and push @list, $proj2; } else { ($proj2 ne $main::ToolsProject) and push @list, $proj2; } }
$main::V2 and do { print "\n\n\ngetimmediatesubdirs: list = '@list'\n\n\n"; };
return @list;}
# _____________________________________________________________________________## ToolsEtc## Puts the SD/SDX tools, batch files and aliases into the enlistment## Parameters:## Output:# _____________________________________________________________________________sub ToolsEtc{ my $op = $_[0];
my $enlisting = ($op eq "enlist"); my $defecting = ($op eq "defect"); my $repairing = ($op eq "repair");
(!$enlisting && !$defecting && !$repairing) and die("\nUnknown operation in ToolsEtc().\n");
# # if the codebase map gave us a tools project, go there and sync for the # user, otherwise handle the tools manually # if ($main::ToolsProject) { SDX::SyncTools($op); } else { SDX::CopyTools($op); }
# # write or remove the script to set the SD env vars # SDX::WriteSDINIT($op);
# # write or remove project navigation aliases from $main::SDMap # SDX::WriteAliases($op);
# # maybe clean up files in the root # $defecting and $main::DefectWithPrejudice and do { chdir $main::SDXRoot or die("\nCan't cd to $main::SDXRoot.\n"); system "del /Q /A:-R *.* >nul 2>&1"; chdir $main::StartDir or die("\nCan't cd to start dir $main::StartDir.\n"); };}
# _____________________________________________________________________________## SyncTools## Parameters:## Output:## _____________________________________________________________________________sub SyncTools{ my $op = $_[0];
my $enlisting = ($op eq "enlist"); my $defecting = ($op eq "defect"); my $repairing = ($op eq "repair");
my $n = 0;
(!$enlisting && !$defecting && !$repairing) and die("\nUnknown operation in SyncTools().\n");
(($enlisting and $main::NewEnlist) || ($repairing and $main::Sync)) and do { print "\n\nPlease wait, syncing tools $main::ToolsProjectPath.";
!(-e $main::ToolsProjectPath) and system "mkdir $main::ToolsProjectPath >nul 2>&1"; chdir $main::ToolsProjectPath;
$cmd = "sd.exe sync -f $main::ToolsProjectPath\\... 2>&1"; SDX::ShowSyncProgress($cmd, 10);
# # make sure the SD client and PERL runtimes are read-only, since SD will leave them writable # during the sync and susceptible to a clean build cleansing with del /s # system "attrib +R $main::ToolsProjectPath\\$main::Platform\\perl* >nul 2>&1"; system "attrib +R $main::ToolsProjectPath\\$main::Platform\\sd.exe >nul 2>&1"; };}
# _____________________________________________________________________________## CopyTools## Parameters:## Output:# _____________________________________________________________________________sub CopyTools{ my $enlisting = ($_[0] eq "enlist"); my $defecting = ($_[0] eq "defect"); my $repairing = ($_[0] eq "repair");
my $tools = "sdtools";
(!$enlisting && !$defecting && !$repairing) and die("\nUnknown operation in CopyTools().\n");
# # when defecting, be selective about which files we remove since most are # in use # ($enlisting || $repairing) and do { # # if we know the codebase map, add it to the list of things # to copy to the tools dir # $main::CodeBaseMapFile and push @{$main::SDXTools{toSDTools}}, $main::CodeBaseMapFile;
# # create the local tools dir # $destroot = "$main::SDXRoot\\$tools"; system "mkdir $destroot >nul 2>&1"; -e $destroot or die("\nCan't create tools dir $destroot.\n");
print "\n\nCopying Source Depot tools to $destroot"; };
foreach $file (@{$main::SDXTools{toSDXRoot}}) { $src = "$main::StartPath\\$file"; $dest = "$main::SDXRoot\\$file";
($enlisting || $repairing) and print "." and SDX::CopyFile($src, $dest);
$defecting and unlink $dest; }
($enlisting || $repairing) and do { foreach $file (@{$main::SDXTools{toSDTools}}) { print ".";
$src = "$main::StartPath\\$file"; $dest = "$main::SDXRoot\\$tools\\$file";
SDX::CopyFile($src, $dest); }
foreach $file (@{$main::SDXTools{toSDToolsPA}}) { print ".";
$src = "$main::StartPath\\$main::Platform\\$file"; $dest = "$main::SDXRoot\\$tools\\$file";
SDX::CopyFile($src, $dest); }
print "\nok.\n"; };}
# _____________________________________________________________________________## CopyFile## Parameters:## Output:# _____________________________________________________________________________sub CopyFile{ $#_ == 1 or die("\nNot enough arguments to CopyFile().\n");
$src = $_[0]; $dest = $_[1];
$main::V2 and do { printf "\ncopy /Y /V $src $dest\n"; };
system "copy /Y /V $src $dest >nul 2>&1"; -e $dest or die("\nCan't copy $src to enlistment root $dest.\n");}
# _____________________________________________________________________________## WriteSDINIT## Write the SD environment variables to a batch file for the user to run later.## Parameters:## Output:# _____________________________________________________________________________sub WriteSDINIT{ my $enlisting = ($_[0] eq "enlist"); my $defecting = ($_[0] eq "defect"); my $repairing = ($_[0] eq "repair");
(!$enlisting && !$defecting && !$repairing) and die("\nUnknown operation in WriteSDINIT().\n");
# # SDINIT.CMD goes in the tools dir if we have one # otherwise to SDXROOT # $file = "\\sdinit.cmd"; if ($main::ToolsProject) { $main::SDINIT = $main::ToolsProjectPath . $file; } else { $main::SDINIT = $main::SDXRoot . $file; }
# # make it writable # system "attrib -R -H -S $main::SDINIT >nul 2>&1";
# # maybe (re)write # (($enlisting and !(-e $main::SDINIT)) or $repairing) and do { open(SDINIT, ">$main::SDINIT") or die("\nCan't open $main::SDINIT for writing.\n");
printf SDINIT "\@if \"%%_ECHO%%\" == \"\" \@echo off\n\n"; printf SDINIT "rem\nrem SDINIT.CMD -- autogenerated by SDX\nrem\n\n"; printf SDINIT "set SDXROOT=%s\n", $main::SDXRoot; printf SDINIT "set SDCONFIG=sd.ini\n"; printf SDINIT "if \"%%SDEDITOR%%\" == \"\" set SDEDITOR=notepad.exe\n"; printf SDINIT "if \"%%SDDIFF%%\" == \"\" set SDDIFF=windiff.exe\n\n";
# # only change the user's path if there's no tools dir # !$main::ToolsProject and printf SDINIT "set PATH=\%SDXROOT\%\\sdtools;\%PATH\%\n\n";
if ($main::ToolsProject) { my $tools; $tools = $main::ToolsProject . "\\" . $main::ToolsPath; $main::ToolsInRoot and $tools = $main::ToolsPath;
printf SDINIT "if exist \%SDXROOT\%\\$tools\\%PROCESSOR_ARCHITECTURE\%\\alias.exe \%SDXROOT\%\\$tools\\%PROCESSOR_ARCHITECTURE\%\\alias -f \%SDXROOT\%\\%s\\alias.sdx -f \%SDXROOT\%\\%s\\alias.%s\n\n", $tools, $tools, $main::CodeBase; printf SDINIT "if exist \%SDXROOT\%\\%s\sdvars.cmd call \%SDXROOT\%\\%s\sdvars.cmd\n", $tools, $tools; } else { printf SDINIT "alias -f \%SDXROOT\%\\alias.sdx -f \%SDXROOT\%\\alias.%s\n\n", $main::CodeBase; printf SDINIT "if exist \%SDXROOT\%\\sdvars.cmd call \%SDXROOT\%\\sdvars.cmd\n"; }
close(SDINIT);
# # make it read-only # system "attrib +R $main::SDINIT >nul 2>&1"; };
# # maybe delete it # $defecting and unlink $main::SDINIT;}
# _____________________________________________________________________________## WriteAliases## Write ALIAS.<codebase> with project-specific aliases for CD'g around the tree## Parameters:## Output:# _____________________________________________________________________________sub WriteAliases{ my $op = $_[0]; my $enlisting = ($op eq "enlist"); my $defecting = ($op eq "defect"); my $repairing = ($op eq "repair");
(!$enlisting && !$defecting && !$repairing) and die("\nUnknown operation in WriteAliases().\n");
# # ALIAS.<codebase> goes in the tools dir if we have one # otherwise to SDXROOT # $file = "\\alias."; if ($main::ToolsProject) { $main::ALIASES = $main::ToolsProjectPath . $file . $main::CodeBase; } else { $main::ALIASES = $main::SDXRoot . $file . $main::CodeBase; }
# # make it writable # system "attrib -R -H -S $main::ALIASES >nul 2>&1";
# # maybe (re)write it # ($enlisting || $repairing) and do { # # get the list of projects and roots # need to reread the map since it may have changed # if (SDX::ReadSDMap($op, $main::Null)) { open(ALIASES, ">$main::ALIASES") or die("\nCan't open $main::ALIASES for writing.\n");
print ALIASES "\n#\n# autogenerated by SDX -- do not edit\n"; print ALIASES "#\n";
# # for each project and root, write an alias # foreach $projectandroot (@main::SDMapProjects) { $project = @$projectandroot[0]; $project =~ tr/A-Z/a-z/;
if (!exists($main::BadAliases{$project})) { printf ALIASES "%-24scd /d \%SDXROOT\%\\%s\\\$1\n", @$projectandroot[0], @$projectandroot[1]; } }
close(ALIASES);
# # make it read-only # system "attrib +R $main::ALIASES >nul 2>&1"; } };
$defecting and do { unlink $main::ALIASES; };
}
# _____________________________________________________________________________## FilesOpen## Parameters:# $serverport## Output:# returns TRUE if the client has files opened in any of the depots, FALSE# otherwise# _____________________________________________________________________________sub FilesOpen{ my $depot; my @open = ();
print "\nChecking for open files.";
# # look for open files in each depot # foreach $depot (@main::DefectDepots) { print ".";
my $serverport = @$depot[0]; push @open, `sd.exe -p $serverport -c $main::SDClient opened 2>&1`; }
my @err = (); (@err = grep(/failed/, @open)) and do { print "\n\nOne or more depots are unavailable:\n\n@err\n"; die("\n"); };
$main::V3 and print "open = '@open'\n";
(@open = grep(/\/\//, @open)) and print "\nok.\n";
# # if this list has anything in it, open files were found # @open;}
# _____________________________________________________________________________## GetCodeBases## Parameters:## Output:## _____________________________________________________________________________sub GetCodeBases{ $rc = system "dir /B $main::StartPath\\projects.* > $main::tmptmp 2>nul";
if ($rc / 256) { print "\t\t(none)\n"; } else { open(CBLIST, "<$main::tmptmp") or die("\nCan't open $main::tmptmp for reading.\n");
while ($line = <CBLIST>) { # # trim out noise # chop $line; $line =~ tr/a-z/A-Z/; $line =~ s/PROJECTS|CMD|INC|BAT|//g; $line =~ s/^\.//g;
if ($line) { printf "\t\t %s\n", $line; } }
close(CBLIST); }}
# _____________________________________________________________________________## VerifyCBMap## Parameters:## Output:## _____________________________________________________________________________sub VerifyCBMap{ my $codebase = $_[0]; my $rc;
# # make sure we have the codebase map file # $main::CodeBaseMapFile = "projects." . $codebase; $main::CodeBaseMap = $main::StartPath . "\\" . $main::CodeBaseMapFile;
$main::V3 and do { print "\nverifycbmap: codebase = '$codebase'\n"; print "verifycbmap: codebasemapfile = '$main::CodeBaseMapFile'\n"; print "verifycbmap: codebasemap = '$main::CodeBaseMap'\n"; };
return -e $main::CodeBaseMap;}
# _____________________________________________________________________________## SyncOtherDirs## Parameters:## Output:## _____________________________________________________________________________sub SyncOtherDirs{ my $enlisting = ($_[0] eq "enlist"); my $defecting = ($_[0] eq "defect"); my $repairing = ($_[0] eq "repair");
(!$enlisting && !$defecting && !$repairing) and die("\nUnknown operation in SyncOtherDirs().\n");
(($enlisting and $main::NewEnlist) || $repairing) and do { foreach $path (@main::OtherDirs) { if ($path eq ".") { my $fullpath = $main::SDXRoot; my $filespec = ($fullpath =~ /\\$/ ? "" : "\\") . "*"; $fullpath .= $filespec;
print "\n\nPlease wait, syncing $fullpath.";
chdir $fullpath;
print "."; system "sd.exe sync -f $fullpath >nul 2>&1"; print ".\n\n"; } else { my $fullpath = $main::SDXRoot . "\\" . $path;
print "\n\nSyncing $fullpath.";
chdir $fullpath;
print "."; system "sd.exe sync -f $fullpath\\... >nul 2>&1"; print ".\n\n"; } } };}
# _____________________________________________________________________________## ReadProfile## reads codebase, branch and list of projects from text file## Parameters:## Output:# sets $main::ProfileCodeBase# sets $main::ProfileBranch# populates $main::ProfileProjects# _____________________________________________________________________________sub ReadProfile{ if (-e $main::Profile) { open(PROFILE, "<$main::Profile") or die("\nCan't open profile $main::Profile for reading.\n");
while ($line = <PROFILE>) { # # throw away comments # $line =~ /^#/ and next;
chop $line;
# # get codebase name # if ($line =~ /^CODEBASE/) { @fields = split(/[\t\s]*=[\t\s]*/, $line); $main::ProfileCodeBase = @fields[1]; $main::ProfileCodeBase =~ s/[\t\s]*//g; }
# # get branch to enlist # if ($line =~ /^BRANCH/) { @fields = split(/[\t\s]*=[\t\s]*/, $line); $main::ProfileBranch = @fields[1]; $main::ProfileBranch =~ s/[\t\s]*//g; }
# # get any projects # if ($line =~ /^PROJECTS/) { $line =~ s/^PROJECTS[\t\s]*=[\t\s]*//g; @main::ProfileProjects = split(/[\t\s]+/,$line); } }
close(PROFILE);
$main::V2 and do { print "\n"; printf "readprofile: codebase = '%s'\n", $main::ProfileCodeBase; printf "readprofile: branch = '%s'\n\n", $main::ProfileBranch;
foreach $p (@main::ProfileProjects) { printf "readprofile: profileprojects = '%s'\n", $p; } };
# # make sure we have everything # $main::ProfileCodeBase and $main::ProfileBranch and @main::ProfileProjects and return 1;
print "The profile\n\n\t$main::Profile\n\nis missing the ";
!$main::ProfileCodeBase and print "codebase name.\n" and return 0; !$main::ProfileBranch and print "branch name.\n" and return 0; !@main::ProfileProjects and print "project list.\n"; } else { print "\nCan't find profile $main::Profile.\n"; }
return 0;}
# _____________________________________________________________________________## WriteDefaultSetEnv## Parameters:## Output:# _____________________________________________________________________________sub WriteDefaultSetEnv{ return;}
# _____________________________________________________________________________## Backup## Parameters:## Output:# _____________________________________________________________________________sub Backup{ return;}
# _____________________________________________________________________________## Restore## Parameters:## Output:# _____________________________________________________________________________sub Restore{ return;}
# _____________________________________________________________________________## Type1Root## Root: field for client view depends on codebase type## for type 1 (1 project/depot), root includes project name# for type 2 (N projects/depot), root is just main::SDXRoot## Parameters:## Output:# $root# _____________________________________________________________________________sub Type1Root{ my $root = $_[0]; my $project; my $proj; my $projroot;
# # only one project per depot # $project = @main::ProjectsInThisDepot[0]; $proj = @$project[$main::CBMProjectField]; $projroot = @$project[$main::CBMProjectRootField];
# # if no project root was given in the codebase map, assume # the root is same as the project name # !$projroot and $projroot = $proj;
# # if we're not the root project, append project name # !($projroot eq "sdxroot") and $root .= "\\$projroot";
return $root;}
# _____________________________________________________________________________## MakeUniqueClient## Returns a client name unique in the depots if $main::SDClient already# exists. Waits on a global mutex to guarantee name is unique.## Parameters:## Output:# existing $main::SDClient if it's unique# else a unique variation of $main::SDClient# _____________________________________________________________________________sub MakeUniqueClient{ my $client = $main::SDClient; my @list = ();
print "\nPlease wait, verifying client name $main::SDClient is available";
# # we want to know we're the only enlist process trying to generate # a unique client name # $main::V3 and print "\ncreating mutex\n"; $main::Mutex = Win32::Mutex->new($main::FALSE, "SDX_ENLIST");
# # wait til we get it # $main::V3 and print "waiting on mutex\n"; $main::Mutex->wait(0x7fffffff);
$main::V3 and print "got it\n"; $main::HaveMutex = $main::TRUE;
# # build a list of clients in each depot # # check for access denied as we go # foreach $depot (@main::VerifyDepots) { print "."; $serverport = @$depot[0]; $main::V3 and print "$serverport\n";
push (@list, `sd.exe -p $serverport clients 2>&1`);
SDX::AccessDenied(\@list, $serverport) and die("\n"); }
$main::V4 and print "\n\nclient list = @list\n";
# # loop til we have a unique name # $num = 1; while (grep(/Client $client /i, @list)) { print "."; $client = "$main::SDClient-" . $num++; }
# # hang onto the mutex until we've registered the first client # using the new name -- release it in Enlist() # $main::V3 and print "leaving MakeUniqueClient\n";
return $client;}
# _____________________________________________________________________________## VerifyCodeBaseAndBranch### Parameters:## Output:# returns TRUE if error and usage needed, else FALSE# _____________________________________________________________________________sub VerifyCodeBaseAndBranch{ my $codebase = $_[0]; my $branch = $_[1]; my $usage = $main::FALSE;
$main::V2 and print "codebase = '$codebase'\nbranch = '$branch'\n";
# # verify # ($codebase eq "") and print "\nMissing codebase.\n" and $usage = $main::TRUE;
(substr($codebase,0,1) =~ /[\/-]/) and do { $codebase !~ /\?/ and print "\nCodebase name '$codebase' appears to be a command switch.\n"; $usage = $main::TRUE; };
substr($codebase,0,1) =~ /@/ and print "\nCodebase name '$codebase' appears to be a client name.\n" and $usage = $main::TRUE;
($branch eq "") and print "\nMissing branch.\n" and $usage = $main::TRUE;
(substr($branch,0,1) =~ /[\/-]/) and print "\nBranch name '$branch' appears to be a command switch.\n" and $usage = $main::TRUE;
return $usage;}
# _____________________________________________________________________________## AccessDenied## Parameters:# $list -- to grep for access error# $serverport -- depot where access failed## Output:# error msg and return 1 if denied, else 0# _____________________________________________________________________________sub AccessDenied{ my ($list) = $_[0]; my $serverport = $_[1];
$main::V3 and do { print "accessdenied: list = '@$list'\n"; print "accessdenied: serverport = '$serverport'\n"; };
grep(/ don't have permission /, @$list) and do { print "\n\n\nAccess denied to depot $serverport.\n";
print "\nYour domain user account must have permission to use this depot, or belong\n"; print "to a domain group that has access. Please email INFRA for assistance.\n";
return 1; };
return 0;}
# _____________________________________________________________________________## ShowSyncProgress## Parameters:# $cmd -- sd sync cmd to run## Output:# ...# _____________________________________________________________________________sub ShowSyncProgress{ my $cmd = $_[0]; my $mod = $_[1];
open FILE, "$cmd |" or die("\nShowSyncProgress: can't open pipe for $cmd.\n"); while (<FILE>) { !(++$n % $mod) and print "."; } close FILE;}
# _____________________________________________________________________________## ShowSDProgress## Parameters:# $cmd -- sd cmd to run## Output:# ...# _____________________________________________________________________________sub ShowSDProgress{ my $cmd = $_[0]; my $mod = $_[1];
open FILE, "$cmd |" or die("\nShowSDProgress: can't open pipe for $cmd.\n"); while (<FILE>) { !(++$n % $mod) and print "."; } close FILE;}
# _____________________________________________________________________________## ServerPort## for type 1 depots we're in a project root and will have an SD.INI# to tell us server:port# for type 2 depots rely on passed in $sp## Parameters:## cmd or codebase type## Output:# ...# _____________________________________________________________________________sub ServerPort{ my $type = $_[0]; my $sp = $_[1];
return ($type == 2 ? "-p $sp" : "");}
# _____________________________________________________________________________## GetPublicChangeNum## get the public change number from $main::SDXROOT\public\public_changenum.sd# if there is one## Parameters:## Output:# set $main::PublicChangeNum# _____________________________________________________________________________sub GetPublicChangeNum{ ("\U$main::CodeBase" eq "NT") and do { my $pcn = "$main::SDXRoot\\public\\public_changenum.sd"; my $line = "";
if (open(FILE, "<$pcn")) { $line = <FILE>; close(FILE);
# # $line is of the form "Change XXXX created." # return (split(/ /, $line))[1]; } };
return 0;}
# _____________________________________________________________________________## GetDepotTypes## called by OtherOp only when executing type 2 commands ## Parameters:## Output:# populate %main::DepotType# _____________________________________________________________________________sub GetDepotTypes{ # # for type 2 commands read the codebase map # and figure out the depot type # if (SDX::VerifyCBMap($main::CodeBase)) { SDX::ReadCodeBaseMap(); SDX::MakePGDLists(); } else { print "\n\nError: Can't find codebase map $main::CodeBaseMap.\n"; die("\nContact the SDX alias.\n"); }}
# _____________________________________________________________________________## MakeProjectRoot## for type 1 projects (1 project/depot), the project name is# included in the Root: field of the client view and must not# be used in the RHS of the view line## for type 2 projects (N projects/depot) the project can't be part# of the root and so must be included in the RHS## Parameters:## Output:# returns # _____________________________________________________________________________sub MakeProjectRoot{ my $proj = $_[0]; my $projroot = $_[1];
$main::V3 and do { print "makeprojectroot: proj = '$proj'\n"; print "makeprojectroot: projroot = '$projroot'\n"; print "makeprojectroot: projtype{$proj} = $main::ProjectType{$proj}\n"; };
my $pr = ($main::ProjectType{$proj} == 2 ) ? "/$projroot" : "";
$main::V3 and print "makeprojectroot: returning '$pr'\n";
return $pr;}
# _____________________________________________________________________________## DepotErrors## format and print the number of errors we got trying to talk to depot## Parameters:## Output:# _____________________________________________________________________________sub DepotErrors{ my ($counters) = $_[0]; my $pad = $_[1]; my $errors = $_[2];
push @$counters, sprintf "\nSD CLIENT ERRORS:%s%s\n", $pad, $errors;};
# _____________________________________________________________________________## Changes## generate build changelist summary for Main and lab branch(es)# process all other sdx changes commands normally## Parameters:## Output:# _____________________________________________________________________________sub Changes{ $main::V3 and do { print "buildnum = $main::BuildNumber\n"; print "minusb = $main::MinusB\n"; print "sdcmd = $main::SDCmd\n"; print "userargs = $main::UserArgs\n"; };
# # if not looking for build change summary, handle sdx changes command # normally # if (!$main::MinusB) { SDX::OtherOp($main::SDCmd, $main::UserArgs); } else { # # return if not NT # ($main::CodeBase ne "NT") and do { print "\nsdx changes -b only supported for NT codebase.\n"; return; };
# # create hash of history # (!SDX::GetBuildHistory($main::BuildNumber)) and return;
(!$main::BuildHistory{$main::BuildNumber}{buildtype}) and do { print "\nCould not determine $main::BuildNumber build type from RI/integration change comments.\n"; return; };
# # generate the lists of changes in this build # $type = $main::BuildHistory{$main::BuildNumber}{buildtype};
# # Main # # consists of changes from lab branch(es) and Main # # sdx changes -b 2271 produces # changes.2271.main.txt # changes.2271.lab02_n.txt # changes.2271.lab03_n.txt # changes.2271.lab07_n.txt # ($type eq "MAIN") and do { $main::V2 and do { print "\n$main::BuildNumber is an RI:\n"; SDX::PrintBH(\%main::BuildHistory, $main::BuildNumber); };
SDX::GetMainChanges($main::BuildNumber, $type); };
# # BETA # # consists of changes from the beta branch # # sdx changes -b 2277 produces # changes.2277.beta1.txt # ($type eq "BETA") and do { $main::V2 and do { print "\n$main::BuildNumber is a BETA:\n"; SDX::PrintBH(\%main::BuildHistory, $main::BuildNumber); };
# # for beta builds there's only one contributing branch, betaX # use the first one in the list # my $branch = @{$main::BuildHistory{$main::BuildNumber}{branches}}[0]; SDX::GetBranchChanges($main::BuildNumber, $branch, $type); };
# # IDX # # consists of changes from the original RI build and the IDX branch # # sdx changes -b 2267 produces # changes.2267.main.txt # changes.2267.lab02_n.txt # changes.2267.idx01.txt # ($type eq "IDX") and do { $main::V2 and do { print "\n$main::BuildNumber is an IDX:\n"; SDX::PrintBH(\%main::BuildHistory, $main::BuildNumber); };
# # get changes from the original RI build # SDX::GetMainChanges($main::BuildNumber, "MAIN");
# # get changes from the IDX build # # for idx builds there's only one contributing branch, idx0N # use the first one in the list # my $branch = (grep {/idx/} @{$main::BuildHistory{$main::BuildNumber}{branches}})[0]; SDX::GetBranchChanges($main::BuildNumber, $branch, $type); }; }}
# _____________________________________________________________________________## GetMainChanges## Parameters:## Output:# _____________________________________________________________________________sub GetMainChanges{ my $buildnum = $_[0]; my $type = $_[1];
my $labbranch = "";
# # get changes that went into //depot/main for this build # SDX::GetBranchChanges($buildnum, "main", $type);
# # for each lab that RI'd, get changes that went into //depot/<lab> # my %seen = (); my @labbranches = sort grep {/lab/} @{$main::BuildHistory{$buildnum}{branches}};
foreach $labbranch (@labbranches) { $seen{$labbranch} and next; $seen{$labbranch} = 1;
SDX::GetBranchChanges($buildnum, $labbranch, $type); }}
# _____________________________________________________________________________## GetBranchChanges## Parameters:## Output:# _____________________________________________________________________________sub GetBranchChanges{ my $buildnum = $_[0]; my $branch = $_[1]; my $type = $_[2];
my $project = "";
$main::Logging = $main::TRUE; $main::Log = "$main::SDXRoot\\changes.$buildnum.$branch.txt"; unlink $main::Log;
print "\n\n\nGetting changes for $buildnum $branch...\n";
# # get changes that went into //depot/$branch for $buildnum # # for each project # get ts1, ts2 # get change list # foreach $proj (@main::SDMapProjects) { my $ts1 = ""; my $ts2 = "";
$project = "\l@$proj[0]"; my $header = "\n---------------- \U$project\n";
# # skip this project if the user negated it on the cmd line # $main::UserArgs =~ /~$project / and next; # # get path to SD.INI, make sure we have it, and cd there # $fpr = $main::SDXRoot . "\\" . @$proj[1]; $sdini = $fpr . "\\sd.ini"; (-e $sdini) or (print "$header\nCan't find $sdini.\n" and next); chdir $fpr or die("\nCan't cd to $fpr.\n");
# # ts1, ts2 depend on build type # ($type eq "BETA") and ($ts1, $ts2, $header) = SDX::GetBetaTimestamps($buildnum, $branch, $project, $header); ($type eq "IDX") and ($ts1, $ts2, $header) = SDX::GetIDXTimestamps($buildnum, $branch, $project, $header); ($type eq "MAIN") and ($ts1, $ts2, $header) = SDX::GetMainTimestamps($buildnum, $branch, $project, $header);
$ts1 = "\@$ts1"; $ts2 = ($type eq "IDX" and $ts2 eq "CURRENT") ? "" : "\@$ts2";
# # list changes # my $spec = "//depot/$branch/$project/...$ts1,$ts2"; my $cmd = "sd.exe changes $spec 2>&1"; $header .= "Getting changes for $spec\n\n"; SDX::RunSDCmd($header, $cmd); }}
# _____________________________________________________________________________## GetMainTimestamps## Parameters:## Output:# _____________________________________________________________________________sub GetMainTimestamps{ my $buildnum = $_[0]; my $branch = $_[1]; my $project = $_[2]; my $header = $_[3];
my %bh = %main::BuildHistory; my @ts = (); my $ts1 = ""; my $ts2 = ""; my $op = "";
=begin comment text
to trace integration records:
build contrib build type op branch branch project change/timestamp ----- ---- --- ------ ------- ---------- ------------------------- 2268 MAIN RI main lab07_n admin 15654 2000/09/08:17:00:04 2268 MAIN RI main lab07_n base 10928 2000/09/08:17:00:21 2268 MAIN RI main lab07_n com 1755 2000/09/08:17:00:29 2268 MAIN RI main lab07_n ds 4124 2000/09/08:17:00:54 2268 MAIN RI main lab07_n enduser 19639 2000/09/08:17:00:59 2268 MAIN RI main lab07_n inetsrv 1503 2000/09/08:17:01:23 2268 MAIN RI main lab07_n root 25483 2000/09/08:17:02:06
in Admin sd describe -s 15654 for each file in the RI sd changes //depot/lab07_n/admin/path/to/file.ext@ts1,@ts2 throw away data prior to ts1 push "change" lines ont list sort, unique print
[\\JEFFMCD5 E:\nt\admin] sd describe -s 15654 | qgrep -e integrate | awk "{print \"sd changes \"$2\"@2000/08/03:17:15:40,@2000/09/08:17:00:04\"}" | sed "s/#[0-9]+//g" | sed "s/\/main\//\/lab07_n\//g" | cmd.exe >>15654
[\\JEFFMCD5 E:\nt\admin] g Change 15654 | unique | sort /R
=end comment text=cut
# # main branch timestamps # ($branch eq "main") and do { # # ts1 = # # time of most recent event in Main (RI checkin, or integration to IDX/Beta branch) # for the build prior to the build in question # in //depot/main/$project # for all branches that contributed # # if no data for $project, default to Root # my $build = $buildnum - 1; my $p = $project;
($ts1, $op) = SDX::GetMainTS1($build, $p); (!$ts1) and do { $p = "root"; ($ts1, $op) = SDX::GetMainTS1($build, $p); }; $main::V2 and $header .= "ts1 = $build $branch $p $op = $ts1\n";
# # ts2 = # # time of event in Main (initial RI checkin if RI/IDX, or initial integration if BETA) # for the build following the build in question # in //depot/main/$project # for all branches that contributed # less five minutes # OR # # time of final RI checkin # for the build in question # for all branches that contributed # # if no data for $project, default to Root # @ts = (); $build = $buildnum + 1; $p = $project;
($ts2, $op) = SDX::GetMainTS2($build, $p); (!$ts2) and do { $p = "root"; ($ts2, $op) = SDX::GetMainTS2($build, $p); }; # # subtract 5 minutes if not using current build # ($build != $buildnum) and $ts2 = SDX::IncrDecrTS($ts2, 0, -5, 0);
$main::V2 and $header .= "ts2 = $build $branch $p $op = $ts2\n"; };
# # lab branch timestamps # ($branch =~ /lab/) and do { my @builds = sort keys %bh; my $first = @builds[0]; my $p = $project;
# # ts1 = time of last RI checkin of this VBL into Main # # default to current build Root RI time, less 10 min, if no data # for ($prev = $buildnum - 1; $prev > $first; $prev--) { (exists($bh{$prev}{main}{$branch}{$p})) and do { push @ts, $bh{$prev}{main}{$branch}{$p}[1]; last; }; }
@ts = reverse sort @ts; @ts and $ts1 = @ts[0];
(!$ts1) and do { $p = "root"; $prev = $buildnum; @ts = @{$bh{$buildnum}{main}{$branch}{$p}}; $ts1 = @ts[$#ts]; $ts1 = SDX::IncrDecrTS($ts1, 0, -10, 0); };
$main::V2 and $header .= "ts1 = $prev $branch $p RI = $ts1\n";
# # ts2 = time of final RI checkin for this VBL into Main # # default to Root if no data for this project # $p = $project; @ts = @{$bh{$buildnum}{main}{$branch}{$p}}; $ts2 = @ts[$#ts];
(!$ts2) and do { $p = "root"; @ts = @{$bh{$buildnum}{main}{$branch}{$p}}; $ts2 = @ts[$#ts]; };
$main::V2 and $header .= "ts2 = $buildnum $branch $p RI = $ts2\n"; };
(!$main::V2 and !($ts1 and $ts2)) and do { my $ts = !$ts1 ? "ts1" : "ts2"; die("\n\nGetMainTimestamps: missing $ts for $buildnum $branch $project.\n"); }; return ($ts1, $ts2, $header);}
# _____________________________________________________________________________## GetMainTS1## Parameters:## Output:# _____________________________________________________________________________sub GetMainTS1{ my $build = $_[0]; my $project = $_[1];
my %bh = %main::BuildHistory; my $bt = ""; my $op = ""; my @ts = ();
# # return if no data for this build # (!($bt = $bh{$build}{buildtype})) and return "";
($bt eq "MAIN") and do { my @labbranches = grep {/lab/} keys %main::AllBranches;
$op = "RI"; foreach (@labbranches) { (exists($bh{$build}{main}{$_}{$project})) and push @ts, $bh{$build}{main}{$_}{$project}[1]; } };
($bt eq "BETA") and do { my @betabranches = grep {/beta/} keys %main::AllBranches;
$op = "INT"; foreach (@betabranches) { (exists($bh{$build}{$_}{$_}{$project})) and push @ts, $bh{$build}{$_}{$_}{$project}[1]; } };
($bt eq "IDX") and do { my @idxbranches = grep {/idx/} keys %main::AllBranches;
$op = "INT"; foreach (@idxbranches) { (exists($bh{$build}{$_}{$_}{$project})) and push @ts, $bh{$build}{$_}{$_}{$project}[1]; } };
# # sort and reverse so final timestamp is first # @ts = reverse sort @ts;
return (@ts[0], $op);}
# _____________________________________________________________________________## GetMainTS2## Parameters:## Output:# _____________________________________________________________________________sub GetMainTS2{ my $build = $_[0]; my $project = $_[1];
my %bh = %main::BuildHistory; my $bt = ""; my $op = ""; my @ts = ();
# # return if no data for this build # (!($bt = $bh{$build}{buildtype})) and return "";
# # in the case of MAIN or IDX, we want the time of the blueline build # ($bt eq "MAIN" or $bt eq "IDX") and do { my @labbranches = grep {/lab/} keys %main::AllBranches;
$op = "RI"; foreach (@labbranches) { (exists($bh{$build}{main}{$_}{$project})) and push @ts, $bh{$build}{main}{$_}{$project}[$#{$bh{$build}{main}{$_}{$project}}]; } };
($bt eq "BETA") and do { my @betabranches = grep {/beta/} keys %main::AllBranches;
$op = "INT"; foreach (@betabranches) { (exists($bh{$build}{$_}{$_}{$project})) and push @ts, $bh{$build}{$_}{$_}{$project}[$#{$bh{$build}{$_}{$_}{$project}}]; } };
# # sort so the initial timestamp is first # and return it # @ts = sort @ts;
return (@ts[0], $op);}
# _____________________________________________________________________________## GetBetaTimestamps## Parameters:## Output:# _____________________________________________________________________________sub GetBetaTimestamps{ my $buildnum = $_[0]; my $branch = $_[1]; my $project = $_[2]; my $header = $_[3]; my %bh = %main::BuildHistory;
# # ts1 = time of the most recent Beta build's RI to Main for this project # # OR # earliest time of last full integration from Main to this branch for this project # my $ts1 = ""; my @ts = (); my $prev = $buildnum - 1; my @builds = sort keys %bh; my $first = @builds[0];
# # look for the last build in which this project RI'd to Main # for ($prev = $buildnum - 1; $prev > $first; $prev--) { if (@ts = @{$bh{$prev}{main}{$branch}{$project}}) { $ts1 = @ts[1]; $main::V2 and $header .= "ts1 = $prev $branch $project RI = $ts1\n"; last; } }
# # otherwise find the last full integration from Main for this project # (!$ts1) and do { for ($prev = $buildnum; $prev > $first; $prev--) { if (@ts = @{$bh{$prev}{$branch}{$branch}{$project}}) { $ts1 = @ts[$#ts]; $main::V2 and $header .= "ts1 = $prev $branch $project INT = $ts1\n"; last; } } };
# # ts2 = time of the final RI to Main of the build in question # # OR # if no timestamp for this project, use Root's, it's close enough # my $p = $project; @ts = @{$bh{$buildnum}{main}{$branch}{$project}}; my $ts2 = @ts[$#ts];
!$ts2 and do { $p = "root"; @ts = @{$bh{$buildnum}{main}{$branch}{$p}}; $ts2 = @ts[$#ts]; };
$main::V2 and $header .= "ts2 = $buildnum $branch $p RI = $ts2\n";
(!$main::V2 and !($ts1 and $ts2)) and do { my $ts = !$ts1 ? "ts1" : "ts2"; die("\n\nGetBetaTimestamps: missing $ts for $buildnum $branch $project.\n"); };
return ($ts1, $ts2, $header);}
# _____________________________________________________________________________## GetIDXTimestamps## Parameters:## Output:# _____________________________________________________________________________sub GetIDXTimestamps{ my $buildnum = $_[0]; my $branch = $_[1]; my $project = $_[2]; my $header = $_[3];
my %bh = %main::BuildHistory; my $prev; my $next; my @ts = (); my $ts1 = ""; my $ts2 = ""; my @builds = sort keys %bh; my $first = @builds[0]; my $last = @builds[$#builds];
# # ts1 = time of most recent INT from Main # to this IDX branch # for $project # OR # default to current build Root integration # my $p = $project; for ($prev = $buildnum; $prev >= $first; $prev--) { if (@ts = @{$bh{$prev}{$branch}{$branch}{$p}}) { $ts1 = @ts[1]; last; } }
(!$ts1) and do { $prev = $buildnum; $p = "root"; $ts1 = @{$bh{$buildnum}{$branch}{$branch}{$p}}[1]; };
$main::V2 and $header .= "ts1 = $prev $branch $p INT = $ts1\n";
# # ts2 = time of next full integration # to this IDX branch # for $project # less 5 min, # OR # default to current state if no integration found # for ($next = $buildnum + 1; $next <= $last; $next++) { if (@ts = @{$bh{$next}{$branch}{$branch}{$project}}) { $ts2 = @ts[1]; last; } }
if ($ts2) { $ts2 = SDX::IncrDecrTS($ts2, 0, -5, 0); } else { $next = $buildnum; $ts2 = "CURRENT"; } $main::V2 and $header .= "ts2 = $next $branch $project INT = $ts2\n";
# # verify and return # (!$main::V2 and !($ts1 and $ts2)) and do { my $ts = !$ts1 ? "ts1" : "ts2"; die("\n\nGetIDXTimestamps: missing $ts for $buildnum $branch $project.\n"); }; return ($ts1, $ts2, $header);}
# _____________________________________________________________________________## IncrDecrTS## Parameters:## Output:# _____________________________________________________________________________sub IncrDecrTS{ use Time::Local;
my ($ts, $dhour, $dmin, $dsec) = (@_);
(!$ts) and die("\nIncrDecrTS: null timestamp. Probably missing some build history.\n");
# # convert delta h/m/s to seconds # $dhour *= 3600; $dmin *= 60;
# # split $ts and convert to Epoch seconds # my ($year, $month, $day, $hour, $min, $sec) = split(/[:\/]/, $ts);; $month--; my $epoch = timelocal($sec, $min, $hour, $day, $month, $year);
# # add/sub to Epoch seconds # $epoch += $dhour + $dmin + $dsec;
# # convert Epoch seconds to y/m/d/h/m/s # ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst) = localtime($epoch); $year += 1900; $month++;# print "$year, $month, $day, $hour, $min, $sec [$wday, $yday, $isdst]\n";
# # join into new $ts # $ts = "$year/$month/$day:$hour:$min:$sec";
return $ts;}
# _____________________________________________________________________________## GetBuildHistory## Parameters:## Output:## A hash table and indices. Here's the output for sdx changes -b 2271 # for Root:## build contrib# build type op branch branch project change/timestamp# ----- ---- --- ------ ------- ---------- -------------------------# 2255 MAIN RI main lab06_n root 21432 2000/07/31:16:26:53# 2256 MAIN RI main lab07_n root 21857 2000/08/03:17:16:27# 2257 MAIN RI main lab01_n root 22110 2000/08/07:19:35:50 22108 2000/08/07:19:24:09# 2258 MAIN RI main lab02_n root 22392 2000/08/09:22:36:41# 2259 MAIN RI main lab04_n root 22581 2000/08/11:14:05:28# 2260 MAIN RI main lab06_n root 22889 2000/08/15:16:27:53# 2261 MAIN RI main lab03_n root 23320 2000/08/18:15:01:08# 2262 MAIN RI main lab02_n root 23634 2000/08/22:20:57:20# 2263 MAIN RI main lab06_n root 23779 2000/08/23:20:47:21 23778 2000/08/23:20:23:14# 2264 IDX INT idx02 idx02 root 24368 2000/08/29:12:14:53# 2264 IDX RI main lab01_n root 24060 2000/08/25:21:32:19# 2265 MAIN RI main lab04_n root 24730 2000/08/31:15:05:24# 2266 MAIN RI main lab03_n root 24901 2000/09/01:17:02:46# 2267 IDX INT idx01 idx01 root 25433 2000/09/08:12:22:27# 2267 IDX RI main lab02_n root 25230 2000/09/06:21:36:33# 2268 MAIN RI main lab07_n root 25483 2000/09/08:17:02:06# 2269 MAIN RI main lab01_n root 25714 2000/09/11:21:05:15 25710 2000/09/11:20:31:44# 2269 MAIN RI main lab04_n root 25714 2000/09/11:21:05:15 25710 2000/09/11:20:31:44# 2270 MAIN RI main lab06_n root 26211 2000/09/16:13:43:41# 2271 MAIN RI main lab02_n root 26594 2000/09/19:20:21:00# 2271 MAIN RI main lab03_n root 26602 2000/09/19:20:54:23# 2271 MAIN RI main lab07_n root 26585 2000/09/19:19:45:39 26583 2000/09/19:19:42:38# 2272 MAIN RI main lab01_n root 26732 2000/09/20:19:19:54# 2272 MAIN RI main lab04_n root 26739 2000/09/20:21:05:27# 2273 BETA INT beta1 beta1 root 26744 2000/09/20:22:15:52 26744 2000/09/20:22:15:52 26717 2000/09/20:16:59:39# 2273 BETA RI main beta1 root 27091 2000/09/23:18:32:20# 2274 BETA RI main beta1 root 27255 2000/09/25:22:46:33# 2275 BETA RI main beta1 root 27365 2000/09/26:18:03:00# 2276 BETA RI main beta1 root 27524 2000/09/27:17:25:33# 2277 BETA RI main beta1 root 27641 2000/09/28:16:54:01# 2278 BETA RI main beta1 root 27784 2000/09/29:17:25:06# 2280 BETA RI main beta1 root 28077 2000/10/03:16:18:28 28027 2000/10/03:12:02:17 27960 2000/10/02:21:24:52 27952 2000/10/02:19:35:15# 2281 BETA RI main beta1 root 28112 2000/10/03:17:17:41 28109 2000/10/03:17:16:26 28107 2000/10/03:17:12:09# _____________________________________________________________________________sub GetBuildHistory{ my $buildnum = $_[0]; my %bh = (); my %br = (); my $sdchanges = "sd.exe changes -m 500"; $main::BuildBranches = (); $main::AllBranches = ();
# # do a quick check in Main for RI/Int'n changes and bail # if no data for this build # chdir $main::SDXRoot; (!(grep {/ $main::BuildNumber /} grep {/'(RI|INT)[:]*/} `$sdchanges //depot/main/...`)) and do { print "\nNo build history for $main::BuildNumber found in RI/integration change comments.\n"; return 0; };
print "\nGetting build history..."; foreach $proj (@main::SDMapProjects) { my $project = "\l@$proj[0]"; my $header = "\n---------------- \U$project\n";
# # skip this project if the user negated it on the cmd line # $main::UserArgs =~ /~$project / and next; # # get path to SD.INI, make sure we have it, and cd there # $fpr = $main::SDXRoot . "\\" . @$proj[1]; $sdini = $fpr . "\\sd.ini"; (-e $sdini) or (print "$header\nCan't find $sdini.\n" and next); chdir $fpr or die("\nCan't cd to $fpr.\n");
$main::V3 and print $header; print "\n $project";
=begin comment text
# use this to fix change comments missing ri/i records:
my @main = grep {/$main::BuildNumber/i} `$sdchanges //depot/main/$project/...`; foreach (@main) { $ch = (split(/ /, $_))[1]; print "\n$ch: $_"; system "sd.exe change -f $ch"; } next;
=end comment text=cut
# # cast back in the major branches for integration/RI changes # # BUGBUG: change this to get last 500 ** from @1,@<timestamp of $main::BuildNumber> ** # my @main = grep {/'RI[:]*/i} `$sdchanges //depot/main/$project/...`; print "."; my @idx01 = grep {/'INT[:]*/i} `$sdchanges //depot/idx01/$project/...`; print "."; my @idx02 = grep {/'INT[:]*/i} `$sdchanges //depot/idx02/$project/...`; print "."; my @beta1 = grep {/'INT[:]*/i} `$sdchanges //depot/beta1/$project/...`; print ".";
# # hash of pointers to changelist arrays # %main::BuildBranches = (main => \@main, idx01 => \@idx01, idx02 => \@idx02, beta1 => \@beta1, beta2 => \@beta2);
# # populate the hash # # for each build branch # for each change # extract change number and timestamp # extract build number # extract branch(es) # for each contributing lab branch # store change number, timestamp # also store branch names seen # also keep track of branches affecting the build in question # while ($bb = each %main::BuildBranches) {# print ".";
foreach (@{$main::BuildBranches{$bb}}) { $main::V3 and print "$_";
my @f = split(/ /,$_); $change = @f[1]; $ts = "@f[3]:@f[4]";
# # munge the comment field to get build # and branch(es) involved # @f = split(/'/,$_); @f = split(/ /, @f[1]); my @bn = grep {/[0-9][0-9[0-9][0-9][,;:-]*$/} @f; $bn = @bn[0]; $bn =~ s/[,;:-]//g;##$bn =~ /^(22[78][0-9]|2269)/ and next;#print "bn = '$bn'\n"; # # for each branch in the comment, save this changenum/ts # @branches = grep {/(lab|idx|beta)/i} @f; foreach $br (@branches) { # # always lowercase, and lab branches # must end in _n # $br = "\l$br"; ($br =~ /lab/) and do { $br =~ s/_n//g; $br .= "_n"; }; $main::V3 and print " $bn, $bb, $br, $project = ($change $ts)\n"; push @{$bh{$bn}{$bb}{$br}{$project}}, ($change,$ts);
# store branch name $main::AllBranches{"\l$br"} = 1;
push @{$bh{$bn}{branches}}, $br; } }
$main::V3 and print "\n"; }
}
print "\n\n";
# # figure out build types # foreach $bn (sort keys %bh) { my @btb = @{$bh{$bn}{branches}};
(grep {/lab/} @btb) and $bh{$bn}{buildtype} = "MAIN"; (grep {/beta/} @btb) and $bh{$bn}{buildtype} = "BETA"; (grep {/idx/} @btb) and $bh{$bn}{buildtype} = "IDX"; }
($main::V2) and do { SDX::PrintBH(\%bh, 0);
print "\n all build branches: "; foreach $br (sort keys %main::BuildBranches) { print "'$br' "; } print "\n all lab branches: "; foreach $br (sort keys %main::AllBranches) { print "'$br' "; } print "\n $buildnum type = '$bh{$buildnum}{buildtype}'\n"; };
%main::BuildHistory = %bh;
return 1;}
# _____________________________________________________________________________## PrintBH## Parameters:## Output:# _____________________________________________________________________________sub PrintBH{ my ($bh, $buildnum) = @_;
print "\n";
# # if we have a specific build number, print just its data # else print the entire history # my $op = ""; my @bh2 = (); my @builds = $buildnum ? ("$buildnum") : sort keys %$bh; my @buildbranches = sort keys %main::BuildBranches; my @allbranches = sort keys %main::AllBranches;
foreach $bn (@builds) { foreach $bb (@buildbranches) { foreach $br (@allbranches) { foreach (@main::SDMapProjects) { my $p = @$_[0];
$op = $bb eq "main" ? "RI" : "INT"; (exists($$bh{$bn}{$bb}{$br}{$p})) and push @bh2, sprintf " %-5s %-4s %-3s %-6s %-7s %-10s @{$$bh{$bn}{$bb}{$br}{$p}}\n", $bn, $$bh{$bn}{buildtype}, $op, $bb, $br, $p; } } } }
print " build contrib\n"; print " build type op branch branch project change/timestamp\n"; print " ----- ---- --- ------ ------- ---------- -------------------------\n"; @bh2 = sort @bh2; foreach (@bh2) { print "$_"; }
print "\n\n";}
# _____________________________________________________________________________## GetActiveBranches## Parameters:## Output:# _____________________________________________________________________________sub GetActiveBranches{=begin comment text [\\JEFFMCD5 E:\nt] sd files //depot/*/root/* | qgrep -v -e delete -e /main | sed "s/\// /g" | awk "{print $2}" | sort | unique beta1 idx01 idx02 Lab01_N lab01_n-vc Lab01_N+1 Lab02_N Lab02_N+1 Lab03_N Lab03_N+1 Lab04_N Lab04_N+1 Lab06_N Lab06_N+1 Lab07_N Lab07_N+1 Lab21_N=end comment text=cut}
# _____________________________________________________________________________## VerifySubmitComment## Parameters:## Output:# _____________________________________________________________________________sub VerifySubmitComment{ # # if user is RI'g or integrating, standardize comment # RI: <lab(s)> <buildnum> <user-text> # INT: <lab(s)> <buildnum> <user-text> # ($main::MinusR or $main::MinusT) and do { my $sc = $main::SubmitComment; $sc =~ s/\+/PLUS/g; my @f = split(/ /, $sc);
# RI:/INT: my $op = $main::MinusR ? "RI:" : "INT:";
# branch(es) my @branches = grep {/(lab|idx|beta)/i} @f; if (!@branches) { print "\nMissing branch.\n"; print "\nSubmit comment must include the branch(es) being (reverse) integrated. Valid\n"; print "branch names are beta1, idx01, idx02, lab01_n, lab07_n+1, etc.\n"; die("\n"); } else { # # strip out redundant branch names # my %uniq = (); foreach (@branches) { $uniq{$_} = 1; } @branches = sort keys %uniq;
# # strip name from original comment, avoid duplicates # foreach (@branches) { $sc =~ s/$_//g; }
# # for bare lab branches, add _n # foreach (@branches) { ($_ =~ /lab[0-9][0-9]$/) and $_ .= "_n"; }
$branches = join ' ', @branches; }
# build number @bn = grep {/[0-9][0-9][0-9][0-9][,:;-]*/} @f; my $bn = @bn[0]; $bn =~ s/[,:;-]*//g; if (!$bn) { print "\nMissing build number.\n"; print "\nSubmit comment must include the build number being (reverse) integrated.\n"; die("\n"); } else { # strip buildnum from original comment $sc =~ s/$bn//g; }
$sc = "$op $branches $bn $sc"; $sc =~ s/PLUS/\+/g; $sc =~ s/[\t\s]+/ /g; $main::SubmitComment = $sc;
$main::V2 and print "comment = '$main::SubmitComment'\n"; };}
## if we get here, something's wrong#1;
|
