ServerNet Cluster Web

== This is the main procssing routine. It gets executed once at the
== bottom of the TACL macro.
[#def mainBody routine
|BODY|
#output Determining the total of number of processors...
#output
#set listProcessors [#processorstatus]
#set ptrChar [#charfindrv listProcessors [#charcount listProcessors] "-1"]
#set numProcessors -1 == Initialize to -1 because we always overshoot by 1
[#loop
|WHILE| [ptrChar]
|DO|
#set ptrChar [#charfindrv listProcessors [#compute [ptrChar]-1] " "]
#set numProcessors [#compute numProcessors + 1]
]
[#if numProcessors <= 4
|THEN|
#output In order to properly configure this system for Servernet
#output Clusters we need to know how many processors it has.
#output
#output Based on the number of processors currently running, it appears
#output that this system has a total of [numProcessors] processors.
[#loop
|DO|
#set parseTest [parseResponse &
[#input Is this the correct number of processors? (YES/NO/QUIT)]]
[#if parseTest = 4 |THEN| #return]
|UNTIL| parseTest = 2 or parseTest = 3]
== Does the user want to specify the number of processors?
[#if parseTest = 3
|THEN|
[#loop
|DO|
#set numProcessors &
[#input Please enter the total number of processors or QUIT->]
#set parseTest [parseResponse [numProcessors]]
[#if parseTest = 4 |THEN| #return]
|UNTIL| parseTest = 1
]
]
]
#output
#output Deleting the existing $ZPM entries...
#output
== Collect the $ZZKRN information in a variable called scf^output.
== The next time we are in SCF, we will parse that variable for
== configuration information.
scf /name, outv scf^output/ ; info process $zzkrn.*
scf /name, inline, out [#myterm]/