#---------------------------------------------------------------------------------
# File: FreshStep.eps
#
# Finds and puts "processinfo" files in upload dir.
#
# Modifications:
# 	07/08/2009	Created.
#	08/10/2009	Updates "find IP Addr" to account for exceptions
#
#---------------------------------------------------------------------------------

@echo off;

@include "_GetDirectory.epm";
@include "_GenericFunctions.epm";
@include "GenericFunctions.epm";

#---------------------------------------------------------------------------------
int $counter = 1;
string $files;
string $logsDir;
string $projname;
string $xmllogsDir;


ifnot (_GetLpLogsDirectory($logsDir)){
	echo "ERROR - could not location logs directory";
	return false;
}

$xmllogsDir = "$logsDir\\Xml";

echo "$logsDir";

# Get IP Address of Target
string $pathParts = Split("\\",$logsDir);
string $ipAddrParts;
string $ipAddr;
int $ipTest = 0;
int $in = 0;

while ($ipTest<sizeof($pathParts)){
	$ipAddrParts = Split("\.", $pathParts[$ipTest]);
	if((sizeof($ipAddrParts) == 4) && ($in == 0)){
		$ipAddr = "$ipAddrParts[0]\_$ipAddrParts[1]\_$ipAddrParts[2]\_$ipAddrParts[3]";
		echo "ipTest = $ipTest ; $ipAddr";
		$in = 1;
	}
	$ipTest++;
}

string $driveletter = $pathParts[0];

# Get project name from new function
ifnot(getProjName($projname)){
	echo "failed to get projname";
}	

string $dirtomake = "$driveletter\\to_pp\\freshstep_$projname\_$ipAddr";

# Create the directory to move files
ifnot( `local mkdir "$dirtomake"` ){
	echo "ERROR - could not make dir $dirtomake";
	return false;
}

# Generate list of processinfo files in XML directory
@record on;
	bool $ok;
	$ok = `local dir "*processinfo*" -path "$xmllogsDir"`;
@record off;

ifnot($ok){ 
	echo "ERROR - no processinfo files in $xmllogsDir";
	return false; 
}

$files = GetCmdData("name");

# Copy files into transfer directory
while ($counter < sizeof($files)){
	# create destination location
	string $dst = "$dirtomake\\$files[$counter]";
		
	ifnot (`local copy "$xmllogsDir\\$files[$counter]" "$dst"`){
		echo "ERROR - could not copy";
	}
	
	echo "Copying $files[$counter] ...";
	$counter++;
}

#############################
# Call CopyFast to move files
#############################
string $ScriptsDir;
_GetEPScriptsPath($ScriptsDir);

##################################################################
#$ScriptsDir = set the local copy of fast monkey location here...
##################################################################
$ScriptsDir = "$ScriptsDir.\\freshstepCopyFast.bat";

ifnot (`local run -command "attrib -r $driveletter/to_pp/freshstep_$projname\_$ipAddr/*" -redirect`){
	echo "ERROR - could not change attribs to RW at $driveletter/to_pp/freshstep_$projname\_$ipAddr/*";
}

ifnot (`local run -command "$ScriptsDir"`){
	echo "ERROR - could not fastmonkey files to high";
}

return true;