42 lines
985 B
PostScript
42 lines
985 B
PostScript
|
int $freshID=0;
|
||
|
|
|
||
|
|
@echo off;
|
||
|
|
@record on;
|
||
|
|
string $ScriptsDir;
|
||
|
|
if(`getdirectory -scripts`) {
|
||
|
|
string $Dir = GetCmdData("dir");
|
||
|
|
$ScriptsDir = $Dir[0];
|
||
|
|
}else{
|
||
|
|
$ScriptsDir="E:\\resources\\ep\\scripts";
|
||
|
|
}
|
||
|
|
@record off;
|
||
|
|
@echo on;
|
||
|
|
|
||
|
|
if (`local run -command "perl $ScriptsDir\\..\\..\\..\\Tools\\getFreshID.pl" -redirect ID`) {
|
||
|
|
@record on;
|
||
|
|
if (`local grep -mask shell.txt -path E: -pattern "ERROR"`) {
|
||
|
|
echo "There was an error in getting a fresh id. Sorry.";
|
||
|
|
return false;
|
||
|
|
} else if (`local grep -mask shell.txt -path E: -pattern "ID:"`) {
|
||
|
|
string $line_data=GetCmdData("line_data");
|
||
|
|
echo "got $line_data";
|
||
|
|
int $i=0;
|
||
|
|
while ($i < sizeof($line_data)) {
|
||
|
|
string $ids=split(":",$line_data[$i]);
|
||
|
|
int $id=<int>$ids[1];
|
||
|
|
ifnot ($id == 0) {
|
||
|
|
$freshID=$id;
|
||
|
|
echo "I got a fresh ID $freshID...now what?";
|
||
|
|
}
|
||
|
|
$i++;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
@record off;
|
||
|
|
}
|
||
|
|
|
||
|
|
`local del shell.txt -path E:`;
|
||
|
|
if ($freshID == 0) {
|
||
|
|
return false;
|
||
|
|
} else {
|
||
|
|
return true;
|
||
|
|
}
|