/* 
:                                 .            
¡               . .               :            
|               :.:.              :            
`-->            ::::              ¡            
      _________ ::::_____   ___   |            
      \   _    \_:_\___  \__\  \_ `--------->  
       \__/     /    _/   /     /.             
     .:: /     /    /    /     /:::.  <-----.  
kDz!::::/_____/_________/_____/::::::. >tAI<|  
·------>\_____\_::::____\_____\cD!<---------· 
                ::::                          
                .:.:                          
                :.:.                          
                . .                             
tAI N0dEINf0 [V1.1] by rEdCr0W ^tAI/^Area51 [29.11.95] 
                
                   bUgfIXed Version 
*/


options results;
changewhere "tAI-N0dEINf0"

/* **************************CONFIGURATION************************** */
/* ++++++++++++INFO: USE NO MCI-CODES IN THIS CONFIG !!!++++++++++++ */

LowNode=0    /* Lowest PortNumber you would like to be displayed     */
HighNode=3   /* Highest PortNumber you would like to be displayed    */
/* -------------------------------------------------------           */

Node.0="N0dE0 [l0CAl]:" /*Small Description about the first Node     */
Node.1="N0dE1 [ USR ]:" /*Small Description about the second Node    */ 
Node.2="N0dE2 [ TKR ]:" /* "                         "third  "       */
Node.3="N0dE3 [Zyxel]:" /* "                         "4th    "       */

/*      123..........14 
->This Description should'nt be longer than
  14 Chars and could include the modemname
  of each port */
/*
    .4
    .5
    .6
     |
    \_/
    .x
!!!ADD HERE AS MUCH NODE-DESCRIPTIONS AS YOU'VE GOT NODES TO BE DISPLAYED!!!*/

/*--------------------------------------------------------------------------*/

Inf.0="MAnAgEMEnt P0Rt"         /*The Node-Info about the first Node  */
Inf.1="hIGhSpEED lINE V.34"     /*The Node-Info about the second Node */
Inf.2="hIGhSpEED lINE V.fASt"   /* "                      "third  "   */ 
Inf.3="PRiVatE lINE ZyXel E+"   /* "                      "4th    "   */

/*     123.................21 
-> MAX. : 21 Chars !               
The NodeInfo could include the speed or the name of this port or
the Main-reason to use this port (Use your Head ;-)!!!)               */
/*
    .4
    .5
    .6
     |
    \_/
    .x
!!!ADD HERE AS MUCH NODE-INFOS AS YOU'VE GOT NODES TO BE DISPLAYED!!!*/

/**************************CONFIGURATION-END***************************/
               /* !!! DON'T CHANGE  ANYTHING ELSE !!! */

tr=transmit;tr"f1>18}c4u1                                 c1____c4       u0";tr">18} c1u1   u0 u1            u0  u1              u0\  /u1   u0     ";tr">18}  u1 u0//     u1  u0     \/     u1 u0     \   \/   /     ";tr">18}    \u1     u0/      /     u1  u0     /       /u1  u0 u1 u0  ";tr">18}    CD!u1         u0/u1      u0/u1     u0/u1       u0//u1  u0    ";tr;tr">18}c4u1   c1[ rEdCr0W ^tAI PReSeNtS  >N0dE INf0< ]c4   u0n1";tr">9c4u1z1 P0Rt           Wh0 ?               BpS  N0dE-INf0            z0c7u0n1";do a=LowNode to HighNode;getportid a ;who.a=result;something=0;if ablaba~=1 then;do;loadscratch who.a;if who.a~>-1 then;FLAG=1;end;getscratch 1 ;handle.a=result;getwhere a ;where.a=result;getscratch 1101137 ; computer.a=result;c=computer.a;savescratch who.a;if exists("sysdata:log/port"a)=1 then;do;open(i,"sysdata:log/port"a,"R");first=readln(i);cps.a=right(left(first,43),3);if cps.a="DE " then cps.a="LOC";cps.a=strip(cps.a,"T","0");if cps.a=12 then cps.a=120;c=0;do until eof(i)=1;c=c+1;log.c=readln(i);end;close(i);end;endif;if FLAG=1 then;do;handle.a="[WAItING 4 CAlL]";cps.a=0;if upper(where.a)="(OFFLINE)" then handle.a="[0fFlINE]";end;tr ">9z1c15}"left(Node.a,15)"z0c7 "left(handle.a,16)"    "right(cps.a,3)"  "left(inf.a,21)"n1";tr">9c4u1                                                              u0c7n1";end;
/* Optimized with RexxOpt 1.6 */