107 lines
2.7 KiB
Text
107 lines
2.7 KiB
Text
|
# Translate dir tasking parameters to DSZ commands
|
||
|
|
|
||
|
|
@include "_StringIncludes.dsi";
|
||
|
|
sub _dirTasking(IN STRING $dirTxtFile, OUT STRING $dirCmd, OUT STRING $taskID, OUT STRING $targetID) {
|
||
|
|
|
||
|
|
string $lines;
|
||
|
|
if (!ReadFile ($dirTxtFile, $lines)) {
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
# Process dir parameters
|
||
|
|
string $taskIDStr;
|
||
|
|
string $targetIDStr;
|
||
|
|
string $pathStr, $path;
|
||
|
|
string $maskStr, $mask;
|
||
|
|
string $depthStr, $depth;
|
||
|
|
string $listallStr, $listall;
|
||
|
|
string $directionStr="";
|
||
|
|
string $direction = "";
|
||
|
|
string $timeTypeStr, $timeType;
|
||
|
|
string $timeStr, $time;
|
||
|
|
bool $timeTypeProvided = false;
|
||
|
|
$dirCmd = "dir";
|
||
|
|
|
||
|
|
echo "\nProcessing $dirTxtFile";
|
||
|
|
for (int $i=0; $i < sizeof($lines); $i++) {
|
||
|
|
string $line = $lines[$i];
|
||
|
|
|
||
|
|
# TargetID is required
|
||
|
|
if (RegexMatch("TargetID", $line)) {
|
||
|
|
RegExSplit(" ", $line, 2, $targetIDStr);
|
||
|
|
$targetID = $targetIDStr[1];
|
||
|
|
}
|
||
|
|
|
||
|
|
# TaskID is required
|
||
|
|
if (RegexMatch("TaskID", $line)) {
|
||
|
|
RegExSplit(" ", $line, 2, $taskIDStr);
|
||
|
|
$taskID = $taskIDStr[1];
|
||
|
|
}
|
||
|
|
|
||
|
|
# Path is required
|
||
|
|
if (RegexMatch("Path", $line)) {
|
||
|
|
RegExSplit(" ", $line, 2, $pathStr);
|
||
|
|
$path = $pathStr[1];
|
||
|
|
$dirCmd = "$dirCmd -path $path";
|
||
|
|
}
|
||
|
|
# Mask is required and defaults to * in the transform
|
||
|
|
if (RegexMatch("Mask", $line)) {
|
||
|
|
RegExSplit(" ", $line, 0, $maskStr);
|
||
|
|
$mask = $maskStr[1];
|
||
|
|
$dirCmd = "$dirCmd -mask $mask";
|
||
|
|
}
|
||
|
|
# Depth=0 means recursive; all other depth values are ignored (depth=one level)
|
||
|
|
if (RegexMatch("Depth", $line)) {
|
||
|
|
RegExSplit(" ", $line, 0, $depthStr);
|
||
|
|
$depth = $depthStr[1];
|
||
|
|
if ($depth == "0") {
|
||
|
|
$dirCmd = "$dirCmd -recursive";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
# Listall=false means just list directories
|
||
|
|
if (RegexMatch("Listall", $line)) {
|
||
|
|
RegExSplit(" ", $line, 0, $listallStr);
|
||
|
|
$listall = $listallStr[1];
|
||
|
|
if ($listall == "false")
|
||
|
|
{
|
||
|
|
$dirCmd = "$dirCmd -dirsonly";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (RegexMatch("Direction", $line)) {
|
||
|
|
RegExSplit(" ", $line, 0, $directionStr);
|
||
|
|
$direction = $directionStr[1];
|
||
|
|
}
|
||
|
|
if (RegexMatch("timeType", $line)) {
|
||
|
|
if (!$timeTypeProvided)
|
||
|
|
{
|
||
|
|
RegExSplit(" ", $line, 0, $timeTypeStr);
|
||
|
|
$timeType = $timeTypeStr[1];
|
||
|
|
$dirCmd = "$dirCmd -time $timeType";
|
||
|
|
$timeTypeProvided = true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (RegexMatch("Time ", $line)) {
|
||
|
|
RegExSplit(" ", $line, 0, $timeStr);
|
||
|
|
$time = $timeStr[1];
|
||
|
|
# Remove starting "P" character from duration string
|
||
|
|
string $testStr;
|
||
|
|
_Substring($timeStr[1], 0, 1, $testStr);
|
||
|
|
if ($testStr == "P"){
|
||
|
|
_Substring($timeStr[1], 1, $time);
|
||
|
|
}
|
||
|
|
if ($direction != "") {
|
||
|
|
if ($time != "") {
|
||
|
|
$dirCmd = "$dirCmd -$direction $time";
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|