V 10
1
LANG:1 8 (NoName)
PANEL,-1 -1 166 81 N "dcsUiWindowBack" 2
"$HostName"
"$SystemName"
"main()
{
	sHostName = $HostName;
	sSystemName = $SystemName;

	// Host control
	setValue(\"txtSystem\",\"toolTipText\",sHostName+\" - \"+sSystemName);

	// Verify if is distribuited
	if(!isDistributed())
	{
		string sHost;
		sHost = substr(getSystemName(),0,strlen(getSystemName())-1); 
		if(sHost == sSystemName)
		{
			// This means that this is the own singular system
			setMultiValue(\"txtSystem\",\"backCol\",\"FwStateOKPhysics\");
		}
		else
		{
			// This means that this is a distributed system in a not distributed
			setMultiValue(\"txtSystem\",\"backCol\",\"DpDoesNotExist\");
		}
		return;
	}

	// Distributed
	setMultiValue(\"txtSystem\",\"backCol\",\"FwStateOKPhysics\");
	// connect the State of Distribution
        if(dpExists(getSystemName()+\"_DistManager.State.SystemNums\"))
  	  dpConnect(\"_DistribConnectionStatus\",getSystemName()+\"_DistManager.State.SystemNums:_original.._value\");
        if(dpExists(sSystemName+\":_MemoryCheck.Status\"))
  	  dpConnect(\"_DistribHwStatus\",sSystemName+\":_MemoryCheck.Status:_original.._value\",sSystemName+\":_ArchivDisk.Status:_original.._value\");
        else
          setValue(\"txtSystem\",\"backCol\",\"FwStateAttention2\");
	
}

_DistribHwStatus(string dpe, string sMem, string dp2, string sDsk)
{
	if(sMem != \"OK\" || sDsk != \"OK\")
		setValue(\"txtSystem\",\"backCol\",\"FwStateAttention1\");
	else
		setValue(\"txtSystem\",\"backCol\",\"FwStateOKPhysics\");
	return;

}

_DistribConnectionStatus(string dpe, dyn_int diNums)
{
int i;
string sNome;

	if( getSystemName() == sSystemName +\":\" )
	{
		setValue(\"txtSystem\",\"backCol\",\"FwStateOKPhysics\");
		return;
	}
	for(i=1;i<= dynlen(diNums);i++)
	{
		sNome = getSystemName(diNums[i]);
		if(sSystemName == substr(sNome,0,strlen(sNome)-1))
		{
			setValue(\"txtSystem\",\"backCol\",\"FwStateOKPhysics\");
			return;
		}
	}
	setValue(\"txtSystem\",\"backCol\",\"FwStateAttention2\");
	return;
}


" 0
 E E E E 1 0 0 0  10 48
""0  1
E "global string sHostName = \"\";
global string sSystemName = \"\";" 0
 2
"CBRef""1"
"EClose"E
""
DISPLAY_LAYER, 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0
LAYER, 0 
1
LANG:1 6 Layer1
0
LAYER, 1 
1
LANG:1 6 Layer2
0
LAYER, 2 
1
LANG:1 6 Layer3
0
LAYER, 3 
1
LANG:1 6 Layer4
0
LAYER, 4 
1
LANG:1 6 Layer5
0
LAYER, 5 
1
LANG:1 6 Layer6
0
LAYER, 6 
1
LANG:1 6 Layer7
0
LAYER, 7 
1
LANG:1 6 Layer8
6 3
"txtSystem"
""
1 10 22 E E E 1 E 1 E N "_WindowText" E N {153,153,153} E E
 E E
4 0 0 0 0 0
E E E
2
1
LANG:1 0 

2
"hoverfclr" "N <{255,0,0},3,{102,0,0},1,{0,0,0},0,{0,0,0},0,{0,0,0},0,{0,0,0},0>"
"dashclr"N "_Transparent"
"main()
{

}" 0
 "// SimpleCtrlScriptStart {invalid}
main()
{
  EP_childPanelOn();
}

EP_childPanelOn()
{
  ChildPanelOnCentralModal(\"dcsFsmTools/dcsHostStatus.pnl\",
      \"HostStatus\",
      makeDynString(\"$HostName:\" + sHostName, \"$SystemName:\" + sSystemName));
}

// SimpleCtrlScript {EP_childPanelOn}
// Function {ChildPanelOnCentralModal}
// File {dcsFsmTools/dcsHostStatus.pnl}
// Panel {HostStatus}
// Parent {}
// Module {}
// OffsetX {0}
// OffsetY {0}
// PanelPara1 {$HostName:$HostName}
// PanelPara2 {$SystemName:$SystemName}
// SimpleCtrlScriptEnd {EP_childPanelOn}
" 0
 0 1 1 0 1 E U  1 E 10 10 23 22
0
0