/*
.--------------.--------------.
| SKEL-RS v1.2 | Record Stats |
`--------------^--------------'

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

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

#include <string.h>
#include <skeleton/commas.h>
#include <tempest/headers.h>
#include <tempest/Skel-Data.h>
#include <tempest/Skel-Current.h>

/************************/
/*****  Structures  *****/
/************************/

struct User User;
struct SKEL SKEL;
struct Current Current;

char *mon[]={ "Jan","Feb","Mar","Apr","May","Jun",
              "Jul","Aug","Sep","Oct","Nov","Dec" };

/**************************/
/*****  Main Program  *****/
/**************************/

void main(int argc,char *argv[])
{
/************************/
/*****  Variables  ******/
/************************/

 char Outname[120],shit1[200],string1[60],string2[50],string3[50];
 char Date[9][15];
 int i=1,Month;
 int fd;
 FILE *out2;

/****************************/
/*****  CLI Interface  ******/
/****************************/

 sprintf(shit1,"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"");
 if(argc != 3)
  {
   PutStr("\n    _______ _________\n");
   PutStr("   / ___/ // / ___/ /    [SKEL-RS v3.27] - Record Stats\n");
   PutStr("  /__  /   _/ ___/ /__\n");
   PutStr(" /____/_/\\_)____/____/   For Tempest BBS - [Programmer: Michael Bockert]\n");
   PutStr(shit1);
   PutStr("\n   USAGE: SKEL-RS [BBS Path] [OutFile]\n");
   PutStr(" EXAMPLE: SKEL-RS TEMPEST: RAM:TEST\n\n");
   PutStr("[BBSPath] Path to BBS Files and Setup Directory\n\n");
   PutStr("[OutFile] Path & Name of the created file\n\n");
   exit(0);
  }

/*************************************/
/*****  Load Skel-Current.Data  ******/
/*************************************/

 fd=Open("S:SKEL-Current.Data",MODE_OLDFILE);
 if(fd==0)
  {
   PutStr("\nS:Skel-Current.Data not found!\nRun Skel-Updater Util!\n");
   exit(0);
  }
 Read(fd,(char *)&Current, sizeof(struct Current));
 Close(fd);

/*********************************/
/*****  Load Skel-Data.Data  *****/
/*********************************/

 sprintf(Outname,"%sSetup/Skel-Data.Data",argv[1]);
 fd=Open(Outname,MODE_OLDFILE);
 if(fd==0)
  {
   PutStr("\nSkel-Data.Data not found!\nRun Skel-Updater Util!\n");
   exit(0);
  }
 Read(fd,(char *)&SKEL, sizeof(struct SKEL));
 Close(fd);

/********************/
/*****  Output  *****/
/********************/

 out2=fopen(argv[2],"w");
 if(out2==NULL)
  {
   PutStr("Error writing output file!\n");
   exit(0);
  }
/*
 Dates[1] = Calls
 Dates[2] = Messages
 Dates[3] = Busy
 Dates[4] = NewUser
 Dates[5] = UL
 Dates[6] = ULKB
 Dates[7] = DL
 Dates[8] = DLKB
*/

 do
  {
   strmid(SKEL.RDates[i],string1,3,2);
   Month = atoi(string1);
   strcpy(string1,mon[Month-1]);
   strmid(SKEL.RDates[i],string2,1,2);
   strmid(SKEL.RDates[i],string3,5,2);
   sprintf(Date[i],"%s %2s,19%s",string1,string2,string3);
   i++;
  }
 while(i<9);
 fprintf(out2,"\f~+                       Record Stats for [ %d] Node(s)\n",
                                             Current.Nodes);
 fprintf(out2,"%s\"\"\"\"\"\"\"\n",shit1);
 fprintf(out2,".-------------.----------------------.   .-------------.----------------------.\n");
 fprintf(out2,"| Record Date | All Time Records     |   | Record Date | All Time Records     |\n");
 fprintf(out2,"|-------------|----------------------|   |-------------|----------------------|\n");
 fprintf(out2,"| %s |  [%4d]  Calls       |  /| %s |     [%4d] Uploads   |\n",
                Date[1],SKEL.RCalls,Date[5],SKEL.RUL);
 fprintf(out2,"| %s |  [%4d]  Messages    |\\/ | %s | [ %7s] UL KB     |\n",
                Date[2],SKEL.RMessages,Date[6],commas(SKEL.RULKB,buff));
 fprintf(out2,"| %s |   [%3d]  New Users   |   | %s |     [%4d] Downloads |\n",
                Date[4],SKEL.RNewUsers,Date[7],SKEL.RDL);
 fprintf(out2,"| %s | [%5d]  Mins Busy   |   | %s | [ %7s] DL KB     |\n",
                Date[3],SKEL.RBusy,Date[8],commas(SKEL.RDLKB,buff));
 fprintf(out2,"`---.---------^------------------.---'   `---.---------^------------------.---'\n");
 fprintf(out2,"    O                            O            O                           O\n");
 fprintf(out2,"    O                            O            O                           O\n");
 fprintf(out2,".---`----------------------------'---.   .---`----------------------------'---.\n");
 fprintf(out2,"|       -+- Today's  Stats -+-       |   |     -+- Yesterday's  Stats -+-     |\n");
 fprintf(out2,"|------------------------------------|   |------------------------------------|\n");
 fprintf(out2,"| Calls     [%4d] New Users   [%3d] |/\\ | Calls     [%4d] New Users   [%3d] |\n",
                           Current.Calls,Current.NewUsers,SKEL.HCalls[1],SKEL.HNewUsers[1]);
 fprintf(out2,"| Messages  [%4d] Mins Busy [ %4d] |  \\| Messages  [%4d] Mins Busy [ %4d] |\n",
                          Current.Messages,Current.Busy,SKEL.HMessages[1],SKEL.HBusy[1]);
 fprintf(out2,"| Uploads   [%4d] UL KB  [ %7s] |   | Uploads   [%4d] UL KB  [ ",
                          Current.UL,commas(Current.ULKB,buff),SKEL.HUL[1]);
 fprintf(out2,"%7s] |\n",
              commas(SKEL.HULKB[1],buff));
 fprintf(out2,"| Downloads [%4d] DL KB  [ %7s] |   | Downloads [%4d] DL KB  [ ",
                          Current.DL,commas(Current.DLKB,buff),SKEL.HDL[1]);
 fprintf(out2,"%7s] |\n",
              commas(SKEL.HDLKB[1],buff));
 fprintf(out2,"`------------------------------------'   `------------------------------------'~r\n");
 fclose(out2);
 PutStr("\nSKEL-RS Done!\n");
 exit(0);
}