48 lines
No EOL
1.1 KiB
PostScript
48 lines
No EOL
1.1 KiB
PostScript
### Get system path
|
|
string $systemroot;
|
|
|
|
@echo off;
|
|
|
|
@record on;
|
|
ifnot(`lpgetenv -option systemroot`) {
|
|
`script syspath.eps`;
|
|
ifnot(`lpgetenv -option systemroot`) {
|
|
return false;
|
|
} else {
|
|
$systemroot=GetCmdData("value");
|
|
}
|
|
} else {
|
|
$systemroot=GetCmdData("value");
|
|
}
|
|
string $curpath;
|
|
ifnot (`pwd`) {
|
|
echo "Could not get current path using pwd. Continuing, but you may end up in the temp directory.";
|
|
} else {
|
|
$curpath=GetCmdData("string_val");
|
|
}
|
|
@record off;
|
|
echo "Cur path is $curpath";
|
|
|
|
# only set if temp path exists
|
|
string $temppath="$systemroot\\temp";
|
|
if (`cd "$temppath"`) {
|
|
`lpsetenv -option temppath -value "$temppath"`;
|
|
`cd "$curpath"`;
|
|
return true;
|
|
} else {
|
|
# get windows installation drive letter
|
|
string $sysRootPaths=split("\\",$systemroot);
|
|
string $driveLetter=$sysRootPaths[0];
|
|
# if \\temp not valid, try \recycled or \recycler
|
|
# TODO: incorporate old MakeHomeBase.eps script
|
|
$temppath="$driveLetter\\recycler";
|
|
if (`cd "$temppath"`) {
|
|
`lpsetenv -option temppath -value "$temppath"`;
|
|
`cd "$curpath"`;
|
|
return true;
|
|
}
|
|
}
|
|
|
|
@echo on;
|
|
|
|
return false; |