94 lines
2.9 KiB
PostScript
94 lines
2.9 KiB
PostScript
##################################################
|
|
#checkpsp.eps
|
|
#version 0.2 - 04/18/2008
|
|
#Version 0.1 - 04/10/2008
|
|
#Used to try and identify running known PSP's
|
|
#Will also try to compare current running config to previous config's if known
|
|
#If we see a running PSP that we know how to investigate, we run the appropriate script
|
|
##################################################
|
|
@include "PSPHelpers.epm";
|
|
@include "PerlFunctions.epm";
|
|
|
|
#struct defined in PSPHelpers.epm
|
|
metaData @metaData;
|
|
init(@metaData);
|
|
|
|
#have we already run this script on a target before?
|
|
@echo off;
|
|
if(`local fileperms -file "@metaData.$logdir\\pspConfig.txt"` ||
|
|
`local fileperms -file "@metaData.$logdir\\pspInformation.txt"`){
|
|
if(prompt "It appears that you've already run this script here. Should I exit?"){ return TRUE;}
|
|
}
|
|
@echo on;
|
|
|
|
openMetaData(@metaData);
|
|
|
|
#Variables
|
|
string %canRun;
|
|
#string $shouldCreate;
|
|
string %shouldCreate;
|
|
string $PSPHistory;
|
|
string $line;
|
|
|
|
echo "Checking for any running known PSP's...\r";
|
|
#checkProcList(%canRun,$shouldCreate,@metaData.$driveLetter);
|
|
checkProcList(%canRun,%shouldCreate,@metaData.$driveLetter);
|
|
echo "Checking for target PSP history...\r";
|
|
|
|
@echo off;
|
|
ifnot(@metaData.$history){
|
|
@echo on;
|
|
echo "No target history found. Checked @metaData.$prepsDir\\@metaData.$projectName\\@metaData.$ipw\\pspConfig.txt\r";
|
|
#if(sizeof($shouldCreate)==0 && sizeof(%canRun)==0){
|
|
if(sizeof(%shouldCreate)==0 && sizeof(%canRun)==0){
|
|
echo "I don't see any known PSP's running.";
|
|
WriteFile("@metaData.$logdir\\noPSP.txt",TRUE,"No known PSP running");
|
|
closeMetaData(@metaData);
|
|
return FALSE;
|
|
}
|
|
if(sizeof(%canRun)>0){
|
|
echo "Saw PSP's we can act on. Grabbing configs for what we can";
|
|
runList(%canRun);
|
|
}
|
|
#if(sizeof($shouldCreate)>0){
|
|
if(sizeof(%shouldCreate)>0){
|
|
createList(%shouldCreate,@metaData);
|
|
}
|
|
closeMetaData(@metaData);
|
|
return TRUE;
|
|
}else{
|
|
ifnot(ReadFile("@metaData.$prepsDir\\@metaData.$projectName\\@metaData.$ipw\\pspConfig.txt",$PSPHistory)){
|
|
echo "\r\rSorry, can't read @metaData.$prepsDir\\@metaData.$projectName\\@metaData.$ipw\\pspConfig.txt";
|
|
echo "File exists, but permissions might be wrong.\rFix and run this again\r";
|
|
return FALSE;
|
|
}
|
|
}
|
|
|
|
#we've made it this far. They have previous config info for us.
|
|
@echo on;
|
|
string $run;
|
|
string $key;
|
|
foreach $line($PSPHistory){
|
|
$run = split(":",$line);
|
|
foreach $key(keys %canRun) {
|
|
if ($key == $run[0]) {
|
|
echo "Found configuration history for $run[0]. Running script\r";
|
|
`script PSP\\$run[0].eps`;
|
|
#remove from the list of options to run. don't want to run twice
|
|
undef(%canRun{'$run[0]'});
|
|
}
|
|
}
|
|
}
|
|
|
|
if(sizeof(%canRun)>0){
|
|
echo "Now grabbing configs for PSP's with no history";
|
|
runList(%canRun);
|
|
}
|
|
|
|
#if(sizeof($shouldCreate)>0){
|
|
if(sizeof(%shouldCreate)>0){
|
|
createList(%shouldCreate,@metaData);
|
|
}
|
|
|
|
closeMetaData(@metaData);
|
|
return TRUE;
|