/*                          UserStatus.mod

.----------------------------------------.------------------------------------.
| Handle:                                |   Slot Number: 1,222               |
|   From: 123456789012345678901234567890 | Computer Type:                     |
|  Phone:                                |     Last Call: 06/06/93 @ 22:22:22 |
|-------------------------.--------------^----------.-------------------------|
| Security Level: 233     | Daily Time: 1,000       | Bulletins Access: Yes   |
|     Byte Ratio:         |  Time Left: 1,000       |      Door Access:       |
|     File Ratio: Off     |  Time Bank: 1,000       |      File Access:       |
`-------------------------^-------------------------^-------------------------'

         Totals                   Today's Stats               Limits
.-------------------------.-------------------------.-------------------------.
|    Calls: 11,000        |    Calls: 11,000        |    Calls: 11,000        |
| Messages: 11,000        | Messages: 11,000        | Messages: 22,099        |
|-------------------------|-------------------------|-------------------------|
| UL Files: 1,000         | UL Files: 1,000         |                         |
| UL Bytes: 1,000,000,000 | UL Bytes: 1,000,000,000 |                         |
|-------------------------|-------------------------|-------------------------|
| DL Files: 1,000         | DL Files: 1,000         | DL Files: 1,000         |
| DL Bytes: 1,000,000,000 | DL Bytes: 1,000,000,000 | DL Bytes: 1,000,000,000 |
`-------------------------^-------------------------^-------------------------'
*/
//**********************
//*****  Includes  *****
//**********************

#include <proto/all.h>
#include <stdio.h>
#include <stdlib.h>
#include <time.h>

#include <stdarg.h>
#include <string.h>
#include <tempest/headers.h>
#include <Skeleton/Commas.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;

int  DoorStart(TEXT *);
int  DOORIO(WORD);
VOID CloseStuff(VOID);
VOID pl(TEXT *,...);
VOID GetStr(TEXT *,int);

struct MsgPort *TempestPort;

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

int main(int argc,char *argv[])
{
 char string[200],string1[200];
 char Day[5],Month[5],Year[5];
 int x=1;
 if(!DoorStart(argv[1])) { PutStr("TempesT Door\n"); exit(0); }
//********************************************************************


 pl("\f.----------------------------------------.------------------------------------.\r\n");
 pl("| Handle: %-30s |   Slot Number: %-5s               |\r\n",
     User->Name,commas(User->Slot_Number,buff));
 pl("|   From: %-30s | Computer Type: %-19.19s |\r\n",
     User->City,User->ComputerType);
 pl("|  Phone: %-12s                   |     Last Call:                     |\r\n",
     User->VoicePhone);
 pl("|-------------------------.--------------^----------.-------------------------|\r\n");
 pl("| Security Level: %3d     | Daily Time: %-5s       | Bulletins Access:       |\r\n",
     User->Security,commas((User->Limit_Time),buff));
 pl("|     Byte Ratio: %-2d      |  Time Left: %-5s       |      Door Access:       |\r\n",
     User->B_Ratio,commas(User->Left_Time,buff));

 pl("|     File Ratio: %-2d      |  Time Bank: %-5s       |      File Access:       |\r\n",
     User->F_Ratio,commas((User->Total_TimeBank),buff));
 pl("`-------------------------^-------------------------^-------------------------'\r\n\r\n");

 pl("         Totals                   Today's Stats               Limits\r\n");
 pl(".-------------------------.-------------------------.-------------------------.\r\n");
 pl("|    Calls: %-6s        |    Calls: ",
     commas(User->Total_Calls,buff));
 pl("%-6s        |    Calls: ",
     commas(User->Period_Calls,buff));
 pl("%-6s        |\r\n",commas(User->Limit_Calls,buff));


 pl("| Messages: %-6s        | Messages: ",
     commas(User->Total_Posts,buff));
 pl("%-6s        | Messages: ",
     commas(User->Period_Posts,buff));
 pl("%-6s        |\r\n",commas(User->Limit_Posts,buff));

 pl("|-------------------------|-------------------------|-------------------------|\r\n");
 pl("| UL Files: %-6s        | UL Files: ",
     commas(User->Total_ULFiles,buff));
 pl("%-6s        |                         |\r\n",commas(User->Period_ULFiles,buff));


 pl("| UL Bytes: %-13s | UL Bytes: ",
     commas(User->Total_ULBytes,buff));
 pl("%-13s |                         |\r\n",commas(User->Period_ULBytes,buff));

 pl("|-------------------------|-------------------------|-------------------------|\r\n");
 pl("| DL Files: %-6s        | DL Files: ",
     commas(User->Total_DLFiles,buff));
 pl("%-5s         | DL Files: ",
     commas(User->Period_DLFiles,buff));
 pl("%-5s         |\r\n",commas(User->Limit_DLFiles,buff));

 pl("| DL Bytes: %-13s | DL Bytes: ",
     commas(User->Total_DLBytes,buff));
 pl("%-13s | DL Bytes: ",
     commas(User->Period_DLBytes,buff));
 pl("%-13s |\r\n",commas(User->Limit_DLBytes,buff));
 pl("`-------------------------^-------------------------^-------------------------'\r\n");


// strcpy(string,Myctime(&User->Time_Last_Logoff));
// strmid(string,Month,5,3);
// strmid(string,Day,9,2);
// strmid(string,Year,23,2);
// pl("Lst Date On : %2s %s %s\r\n",Day,Month,Year);
//********************************************************************
// pl("Security Lv : %d\r\n",User->Security);
//********************************************************************
// pl("# Times On  : %-5d       Today : %d\r\n",User->Total_Calls,User->Period_Calls);
//********************************************************************
// pl("Msgs Posted : %-5d       Today : %d\r\n",User->Total_Posts,User->Period_Posts);
//********************************************************************
// if(User->F_Ratio==0) strcpy(string1,"Disabled");
// else                sprintf(string1,"%d/1",User->B_Ratio);
// pl("File Ratio  : %s\r\n",string1);
//********************************************************************
// if(User->B_Ratio==0) strcpy(string1,"Disabled");
// else                sprintf(string1,"%d/1",User->B_Ratio);
// pl("Byte Ratio  : %s\r\n",string1);
//********************************************************************
// pl("# Downloads : %-4d        Today : %d\r\n",User->Total_DLFiles,User->Period_DLFiles);
//********************************************************************
// pl("# Uploads   : %-4d        Today : %d\r\n",User->Total_ULFiles,User->Period_ULFiles);
//********************************************************************
// pl("Bytes DL'd  : %-10ld  Today : %ld \r\n",User->Total_DLBytes,User->Period_DLBytes);
//********************************************************************
// pl("Bytes UL'd  : %-10ld  Today : %ld\r\n",User->Total_ULBytes,User->Period_ULBytes);
//********************************************************************
// GetStr(string1,19);
// pl("Online Baud : %s\r\n",string1);
//********************************************************************
// pl("Bytes Avail : %ld\r\n\r\n",User->Limit_DLBytes);
//********************************************************************

//*************************
//*****  Close Stuff  *****
//*************************
 CloseStuff();
}



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



//************************
//*****  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);
}
//*********************************
//*****  GetStr (Get String)  ***** // Command 33
//*********************************
VOID GetStr(TEXT *s,int opt)
{
 send.Value1=opt;
 strcpy(s,"");
 send.text1=s;
 DOORIO(33);
}
//*****************************
//*****  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);
}