use diagnostics;
use ElectricCommander;
my $ec = new ElectricCommander();

my $componentNames = $ec->getProperty("/myCall/componentNames")->findnodes("//value")->string_value();
print "componentNames : " . $componentNames. "\n";

my $workDir = $ec->getProperty("/myParent/workDir")->findnodes("//value")->string_value();
my $region = $ec->getProperty("/myParent/region")->findnodes("//value")->string_value();
my $product = $ec->getProperty("/myParent/product")->findnodes("//value")->string_value();
my $buildType = $ec->getProperty("/myParent/buildType")->findnodes("//value")->string_value();
my $sourceProject =  '$[/myProject/projectName]';

my $server = "";
if ((index(lc($product), "ford") != -1) || (index(lc($product), "gen3") != -1)) {
  $server = "gen3";
} elsif (index(lc($product), "factual") != -1 || index(lc($product), "infog") != -1) {
  $server = "factual";
} else {
  $server = "denali";
}


my $resourceName = $ec->getProperty("/projects[$sourceProject]/envs/$server/$region/$buildType/resourcePool")->findvalue("//value")->string_value();
print "resourceName : $resourceName\n";

my $jobID = '$[jobId]';

#Create a new procedure
my $procedureName = "VarStep_Checkout_SelectedComponent_${jobID}_${region}_${product}";
$ec->createProcedure("$sourceProject", "$procedureName", { resourceName => "$resourceName" });

# Store off the procedure name
$ec->setProperty("/myParent/runCheckoutSelectedComponents", "$procedureName");

# Read component name from array
my @componentsArray = split(/,/,$componentNames);

foreach my $componentName (@componentsArray)
{
  print "componentName is:".$componentName."\n";
  $response = $ec->createStep("$sourceProject", "$procedureName", "Checkout_".$componentName,{
    subprocedure => "CheckoutCode",
    subproject => "$[/server/svnPluginVersion]",
    parallel => "0",
    actualParameter => [
       {actualParameterName => "dest", value => $workDir. "/" . $componentName},
       {actualParameterName => "CheckoutType", value => "D"},
       {actualParameterName => "config", value => "Telenav"},
       {actualParameterName => "SubversionRevision", value => "$[/myParent/svnRevision]"},
       {actualParameterName => "SubversionUrl", value => "$[/myProject/svnRootUrl]/$[/myParent/svnBranch]/SearchQualityPlatform"}
    ]});
}