V 10
1
LANG:1 0 
PANEL,-1 -1 362 82 N "_3DFace" 1
"$2"
"#uses \"trd_wienerHostsP2.ctl\"
#uses \"trd_wienerChannelsP2.ctl\"
#uses \"dcsUiBase.ctc\"
main()
{
        int i, ping;
        string SM, num, colour;
        
        SM = substr($2, 2, 2);
        
        switch (SM) 
        {
        case \"00\" : fillWienerHostSM00();
          break;
        case \"08\" : fillWienerHostSM08();
          break;
        }

// Write wieXXX on objetcs            
    for (i = 0; i < dynlen(wienerHosts); i++)  
      {
        sprintf(num, \"%02d\", i+1);       
        setValue(\"wiener\"+num, \"text\", substr(wienerHosts[i+1],0,12));                                                                 
      }

// Start monitoring (always)     
  while(TRUE)
  {
    for (i = 0; i < dynlen(wienerHosts); i++)
      {
        sprintf(num, \"%02d\", i+1);
        colour = dcsUiBase_TestNetworkConnection(wienerHosts[i+1]) ? \"FwStateOKPhysics\" : \"FwStateAttention3\";
        setValue(\"wiener\"+num, \"backCol\", colour);
      }
/*  JUST TESTING IN MUENSTER       
    ping = system(\"cmd /MIN /c ping -n 1 -w 1000 wiener03.trd.net\"); 
    if (ping = 1) 
      colour = \"green\";
    else
      colour = \"yellow\";
    DebugN(\"----------------->   \"+ping);
    setValue(\"wiener03\", \"backCol\", colour);
*/    
    delay(5,0);
  }  
}" 0
 E E E E 1 -1 -1 0  -5.6843418860808e-014 0
""0  1
E E 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 0 
30 0
"FRAME1"
""
1 580 133 E E E 1 E 1 E N "_WindowText" E N {0,0,0} E E
 E E
1 0 0 0 0 0
E E E
1
1
LANG:1 0 

1
"dashclr"N "_Transparent"
"main()
{
  string f = \"Arial Black,8,-1,5,50,0,0,0,0,0\"; 
  this.font = f;
  this.text = \"W-IE-NE-R monitor\";   
}" 0
 E 0 0 1 0 1 E 1.09090909090909 0 0.62992125984252 -632.727272727272 -83.7795275590552 0 E 580 133 911 261
1
LANG:1 98 -*-MS Shell Dlg-*-r-normal-*-11-*-100-100-*-*-iso8859-1|-11,0,0,0,505,0,0,0,0,0,0,0,0,MS Shell Dlg
0 ""
1
LANG:1 14 Wiener Monitor
2 2
"wiener02"
""
1 430 30 E E E 1 E 1 E N {0,0,0} E N "_Button" E E
 E E
5 0 0 0 0 0
E E E
0
1
LANG:1 0 

1
"dashclr"N "_Transparent"
E E 0 1 1 0 1 E U  1 E 97 23 173 39
1 2 0 "0s" 0 0 0 65 0 0  97 23 1
1
LANG:1 87 -*-Arial-bold-r-normal-*-11-*-100-100-*-*-iso8859-1|-11,0,0,0,758,0,0,0,0,0,0,0,0,Arial
0 ""
1
LANG:1 1 -
2 3
"wiener05"
""
1 430 30 E E E 1 E 1 E N {0,0,0} E N "_Button" E E
 E E
7 0 0 0 0 0
E E E
0
1
LANG:1 0 

1
"dashclr"N "_Transparent"
E E 0 1 1 0 1 E U  1 E 9 51 85 67
1 2 0 "0s" 0 0 0 65 0 0  9 51 1
1
LANG:1 87 -*-Arial-bold-r-normal-*-11-*-100-100-*-*-iso8859-1|-11,0,0,0,758,0,0,0,0,0,0,0,0,Arial
0 ""
1
LANG:1 1 -
2 4
"wiener01"
""
1 430 30 E E E 1 E 1 E N {0,0,0} E N "_Button" E E
 E E
9 0 0 0 0 0
E E E
0
1
LANG:1 0 

1
"dashclr"N "_Transparent"
E E 0 1 1 0 1 E U  1 E 9 23 85 39
1 2 0 "0s" 0 0 0 65 0 0  9 23 1
1
LANG:1 87 -*-Arial-bold-r-normal-*-11-*-100-100-*-*-iso8859-1|-11,0,0,0,758,0,0,0,0,0,0,0,0,Arial
0 ""
1
LANG:1 1 -
2 6
"wiener06"
""
1 430 28.0000000000001 E E E 1 E 1 E N {0,0,0} E N "_Button" E E
 E E
13 0 0 0 0 0
E E E
0
1
LANG:1 0 

1
"dashclr"N "_Transparent"
E E 0 1 1 0 1 E U  1 E 97 51 173 67
1 2 0 "0s" 0 0 0 65 0 0  97 51 1
1
LANG:1 87 -*-Arial-bold-r-normal-*-11-*-100-100-*-*-iso8859-1|-11,0,0,0,758,0,0,0,0,0,0,0,0,Arial
0 ""
1
LANG:1 1 -
2 7
"wiener04"
""
1 430 30 E E E 1 E 1 E N {0,0,0} E N "_Button" E E
 E E
15 0 0 0 0 0
E E E
0
1
LANG:1 0 

1
"dashclr"N "_Transparent"
E E 0 1 1 0 1 E U  1 E 274 23 350 39
1 2 0 "0s" 0 0 0 65 0 0  274 23 1
1
LANG:1 87 -*-Arial-bold-r-normal-*-11-*-100-100-*-*-iso8859-1|-11,0,0,0,758,0,0,0,0,0,0,0,0,Arial
0 ""
1
LANG:1 1 -
2 8
"wiener03"
""
1 430 30 E E E 1 E 1 E N {0,0,0} E N "_Button" E E
 E E
17 0 0 0 0 0
E E E
0
1
LANG:1 0 

1
"dashclr"N "_Transparent"
E E 0 1 1 0 1 E U  1 E 185 23 261 39
1 2 0 "0s" 0 0 0 65 0 0  185 23 1
1
LANG:1 87 -*-Arial-bold-r-normal-*-11-*-100-100-*-*-iso8859-1|-11,0,0,0,758,0,0,0,0,0,0,0,0,Arial
0 ""
1
LANG:1 1 -
2 9
"wiener07"
""
1 430 30 E E E 1 E 1 E N {0,0,0} E N "_Button" E E
 E E
19 0 0 0 0 0
E E E
0
1
LANG:1 0 

1
"dashclr"N "_Transparent"
E E 0 1 1 0 1 E U  1 E 185 51 261 67
1 2 0 "0s" 0 0 0 65 0 0  185 51 1
1
LANG:1 87 -*-Arial-bold-r-normal-*-11-*-100-100-*-*-iso8859-1|-11,0,0,0,758,0,0,0,0,0,0,0,0,Arial
0 ""
1
LANG:1 1 -
2 10
"wiener08"
""
1 430 30 E E E 1 E 1 E N {0,0,0} E N "_Button" E E
 E E
21 0 0 0 0 0
E E E
0
1
LANG:1 0 

1
"dashclr"N "_Transparent"
E E 0 1 1 0 1 E U  1 E 274 51 350 67
1 2 0 "0s" 0 0 0 65 0 0  274 51 1
1
LANG:1 87 -*-Arial-bold-r-normal-*-11-*-100-100-*-*-iso8859-1|-11,0,0,0,758,0,0,0,0,0,0,0,0,Arial
0 ""
1
LANG:1 1 -
0
LAYER, 1 
1
LANG:1 0 
0
LAYER, 2 
1
LANG:1 0 
0
LAYER, 3 
1
LANG:1 0 
0
LAYER, 4 
1
LANG:1 0 
0
LAYER, 5 
1
LANG:1 0 
0
LAYER, 6 
1
LANG:1 0 
0
LAYER, 7 
1
LANG:1 0 
0
0