/*


     .----------------------------------------------------------------.
     | NODE | LOGON | HANDLE                    | ACTIVITY            |
     |======|=======|===========================|=====================|
     |   1  | 17:45 | The Skeleton              | Downloading         |
     |------|-------|---------------------------|---------------------|
     |   2  | --:-- | Awaiting a call           | Idle                |
     |------|-------|---------------------------|---------------------|
     |   3  | --:-- | Awaiting a call           | Idle                |
     `----------------------------------------------------------------'

*/
//**********************
//*****  Includes  *****
//**********************

#include <proto/all.h>
#include <stdio.h>
#include <stdlib.h>
#include <exec/memory.h>
#include <stdarg.h>

#include <string.h>
#include <time.h>
#include <tempest/headers.h>
#include <tempest/defines.h>

//********************************
//*****  Structures/Defines  *****
//********************************

 struct MyMessage
  {
   struct Message Msg; // for Exec message routines
   ULONG  Command;     // Command to be executed.

   char   *text1,
          *text2,
          *text3;
   int    Value1,
          Value2;
   ULONG  LongValue;
   LONGBITS Flags;
   int    carrier;
   struct User       *User;
   struct SystemData *SystemData;
   struct NodeData   *NodeData;
   struct Today      *Today;
  };

struct MyMessage send;

struct User *User;
struct SystemData *SystemData;
struct NodeData *NodeData;
struct Today *Today;
struct MsgPort *MyPort = NULL;
struct MyMessage *msg;
struct node_info nody;

VOID Act(BYTE,TEXT *);
int  DoorStart(TEXT *);
int  DOORIO(WORD);
VOID CloseStuff(VOID);
VOID pl(TEXT *fmt,...);
char *Myctime(long *);
int Loadnody(int node);
int  CTRLC(VOID);

//******************************
//*****  Global Variables  *****
//******************************

int  Result,Error,NODE;
char nodename[255];

struct MsgPort *TempestPort;

//******************
//*****  Main  *****
//******************

int main(int argc,char *argv[])
{
 char string[200],string2[20];
 char Handle[40],Activity[30],Time[15];
 register int i;
 int NODES,stat;
 if(!DoorStart(argv[1])) { PutStr("TempesT Door\n"); exit(0); }

 if(!(User->NFlags1 & NF1_ViewNodeLists))
  {
   pl("\r\nAccess Denied!\r\n");
   CloseStuff();
  }
 Act(99,"Online Who Display");

//***************************
//*****  Load nodeinfo  *****
//***************************

 NODE = atoi(argv[1]);
 stat=Loadnody(NODE);
 if(stat==0)
  {
   pl("NodeInfo File Not Found!\r\n");
   CloseStuff();
  }
 NODES = nody.SystemDataInfo->NumberOfLines + 1;

 if(User->AnsiType<=1)
  {
   pl("\r\n\r\n     .------.-------.---------------------------.---------------------.\r\n");
   pl("     | NODE | LoGoN | HANDLE                    | ACTiViTY            |\r\n");
  }
 else
  {
   pl("\r\n\r\n     ÉÍÍÍÍÍÍËÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»\r\n");
   pl("     º NODE º LoGoN º HANDLE                    º ACTiViTY            º\r\n");
  }

//***************************
//*****  Who is Online  *****
//***************************

 i=0;
 do
  {
   stat=Loadnody(i);
   if(stat==0) goto EXIT;
   if(nody.GLOB->AN!=62)
    {
     if((nody.GLOB->hide==1)&&(nody.UserInfo->Slot_Number==1)&&(!(User->SFlags1 & SF1_SysopWho))) goto EXIT;
     strcpy(Handle,nody.UserInfo->Name);
     if((nody.GLOB->hide==1)&&(!(User->SFlags1 & SF1_SysopWho)))
         strcpy(Handle,"(Hidden from display)");
     if(nody.UserInfo->Name[0]==NULL)
         strcpy(Handle," ");
     sprintf(string,"%s",Myctime(&nody.UserInfo->Time_Last_Connect));
     strmid(string,Time,12,5);
     strcpy(Activity,nody.GLOB->activity);
     //**************************
     //*****  Final Output  *****
     //**************************
     sprintf(string2,"%2d",i);
     if(User->AnsiType<=1)
      {
       pl("     |------|-------|---------------------------|---------------------|\r\n");
       pl("     |  %2s  | %5s | %-25.25s | %-19s |\r\n",
           string2,Time,Handle,Activity);
      }
     else
      {
       pl("     ºÍÍÍÍÍͺÍÍÍÍÍÍͺÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͺÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹\r\n");
       pl("     º  %2s  º %5s º %-25.25s º %-19s º\r\n",
           string2,Time,Handle,Activity);
      }
    }
   EXIT:
   i++;
  }
 while(i<NODES);
 if(User->AnsiType<=1)
      pl("     `------^-------^---------------------------^---------------------'");
 else pl("     ÈÍÍÍÍÍÍÊÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ");
 CloseStuff();
}


//===========================* Beginning of Module *===========================
char *Myctime(long *secs)
{
 struct tm *tm;
 tm=gmtime(secs);
 return(asctime(tm));
}

//************************
//*****  Load Nody  ******
//************************

int Loadnody(int node)
{
 char string[50];
 register int y;
 int file;
 sprintf(string,"Node:NodeInfo_%d",node);
 for(y=1;y<3;y++)
  {
   file=Open(string,MODE_OLDFILE);
   if(file!=0)
    {
     Read(file,(char *)&nody,sizeof(struct node_info));
     Close(file);
     return(1);
    }
  }
 return(0);
}

//************************
//*****  Door Start  ***** // MUST BE INCLUDED IN ALL DOORS!
//************************
int DoorStart(TEXT *node)
{
 char string[60];
 send.carrier=0;
 sprintf(string,"%s:TEMPEST_DOOR",node);
 TempestPort=FindPort(string);
 if(TempestPort==NULL) return(int)FALSE;
 MyPort=CreateMsgPort();
 if(MyPort==NULL) return(int)FALSE;
 DOORIO(0);
 User=*&send.User;
 SystemData=*&send.SystemData;
 NodeData=*&send.NodeData;
 Today=*&send.Today;
 return(int)TRUE;
}
//********************
//*****  DoorIO  ***** // MUST BE INCLUDED IN ALL DOORS!
//********************
int DOORIO(WORD Command)
{
 if(send.carrier) return(0);
 send.Command=Command;
 send.Msg.mn_Node.ln_Type = NT_MESSAGE;
 send.Msg.mn_Length = sizeof(send);
 send.Msg.mn_ReplyPort = MyPort;
 send.carrier=0;
 PutMsg((struct MsgPort *)TempestPort,(struct Message *)&send);
 Wait(1 << MyPort->mp_SigBit);
 GetMsg(MyPort);
 if((send.carrier)&&(send.Command!=999)) CloseStuff();
 return(1);
}
//*************************
//*****  Close Stuff  ***** // MUST BE INCLUDED IN ALL DOORS!
//*************************
VOID CloseStuff(VOID)
{
 DOORIO(999);
 while(msg=(struct MyMessage *)GetMsg(MyPort)) ReplyMsg((struct Message *)msg);
 if(MyPort) DeleteMsgPort(MyPort);
 exit(0);
}
//*************************
//*****  CTRLC CHECK  ***** // Command 10
//*************************
int CTRLC(VOID)
{
 DOORIO(10);
 return(send.Value1);
}
//*****************************
//*****  PL (Print Line)  ***** // Command 1 with "%s %d",xxx,xxx) paramter support
//*****************************
VOID pl(TEXT *fmt,...)
{
 va_list args;
 TEXT s[255];
 va_start(args,fmt);
 vsprintf(s,fmt,args);
 va_end(args);
 send.text1=&s[0];
 DOORIO(1);
}
//**********************
//*****  Activity  ***** // Command 44
//**********************
VOID Act(BYTE act,TEXT *s)
{
 send.Value1=act;
 send.text1=s;
 DOORIO(44);
}