/*
[SKEL-TDL v1.6] Top Downloaders Lister

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

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

#include <string.h>
#include <skeleton/commas.h>
#include <Tempest/Headers.h>
#include <Tempest/Skel-Data.h>

VOID Sort(VOID);
VOID Print(VOID);

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

struct Downloads
 {
  char   Handle[31],Location[31];
  long   BytesUL,BytesDL;
  USHORT TimesCalled;
 };
struct Downloads *DOWN;
struct User User;
struct SKEL SKEL;

/*******************************/
/*****  Global Varialbes  ******/
/*******************************/

char  string[200],OUTPATH[200],shit1[200];
int   RANK;
float Percent;

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

void main(int argc,char *argv[])
{
 int stat,slot = 0,fd;
 sprintf(shit1,"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"");
 if(argc != 4 )
  {
   PutStr("\n    _______ _________\n");
   PutStr("   / ___/ // / ___/ /    [SKEL-TDL v3.29] - Top Downloaders Lister\n");
   PutStr("  /__  /   _/ ___/ /__\n");
   PutStr(" /____/_/\\_)____/____/   For Tempest BBS - [Programmer: Michael Bockert]\n");
   PutStr(shit1);
   PutStr("\n   USAGE: SKEL-TDL OutFile [#] BBS:\n");
   PutStr(" EXAMPLE: SKEL-TDL RAM:TEST 12 BBS:\n\n");
   PutStr("[OutFile] Path & Name of the created file\n");
   PutStr("      [#] Number of Users you want listed\n");
   PutStr("   [BBS:] Path of Accounts.Data File\n\n");
   exit(0);
  }
 strcpy(OUTPATH,argv[1]);
 RANK   = atoi(argv[2]);
 if(!(DOWN=(struct Downloads *)AllocVec((ULONG)sizeof(struct Downloads)*(RANK),MEMF_PUBLIC | MEMF_CLEAR)))
  {
   PutStr("\nCan't Allocate Memory\n");
   exit(0);
  }

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

 sprintf(string,"%sSetup/Skel-Data.Data",argv[3]);
 fd=Open(string,MODE_OLDFILE);
 if(fd==0)
  {
   PutStr("Skel-Data.Data not found!\n");
   setmem(&SKEL,sizeof(struct SKEL),NULL);
  }
 else
  {
   Read(fd,(char *)&SKEL, sizeof(struct SKEL));
   Close(fd);
  }

/********************************/
/*****  Load Accounts.Data  *****/
/********************************/

 sprintf(string,"%sAccounts.data",argv[3]);
 fd=Open(string,MODE_OLDFILE);
 if(fd==0)
  {
   PutStr("\nAccounts.data not found.\n");
   FreeVec(DOWN);
   exit(0);
  }
 NEXTFILE:
 stat=Read(fd,(char *)&User, sizeof(struct User));
 slot++;
 if(stat <=0 )
  {
   Close(fd);
   if(RANK>slot)
     RANK=slot-1;
   Print();
   PutStr("\nSKEL-TDL Done!\n");
   FreeVec(DOWN);
   exit(0);
  }
 Sort();
 goto NEXTFILE;
}

/***************************/
/*****  Download Sort  *****/
/***************************/

VOID Sort(VOID)
{
 register int x =0,y,HOLDER;
 do
  {
   if((User.Slot_Number==1)||(User.Status!=1)||(User.Total_DLBytes<1000000L))
       break;
   if(User.Total_DLBytes >= DOWN[x].BytesDL)  /* move other entries down one */
    {
     HOLDER = x;
     y=0;
     while(x+1<RANK)
      {
       y++;
       CopyMem(&DOWN[RANK-(y+1)],&DOWN[RANK-y],sizeof(struct Downloads));
       x++;
      }
     x=HOLDER;
     strcpy(DOWN[x].Handle,User.Name);
     strcpy(DOWN[x].Location,User.City);
     DOWN[x].BytesUL     = User.Total_ULBytes;
     DOWN[x].BytesDL     = User.Total_DLBytes;
     DOWN[x].TimesCalled = User.Total_Calls;
     return;
    }
   x++;
  }
 while(x < RANK);
}

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

VOID Print(VOID)
{
 register int x=0;
 char Ratio2[40];
 float Ratio;
 FILE *out2;
 out2=fopen(OUTPATH,"w");
 if(out2==NULL)
  {
   PutStr("Error writing output file!\n");
   FreeVec(DOWN);
   exit(0);
  }
 fprintf(out2,"\f~+[SKEL-TDL] Top Downloaders Lister By Michael Bockert\n");
 fprintf(out2,"%s\"\"\"\"\"\"\"\n",shit1);
 fprintf(out2,"  #  Alias/Handle             DL Bytes Percent Ratio Calls Location/Group\n");
 fprintf(out2,"====-==================-==============-=======-=====-=====-====================\n");
 strcpy(shit1,"-----------------------------");
 do
  {
   Ratio = (float) DOWN[x].BytesDL / DOWN[x].BytesUL;
   if((Ratio>3.00) && (DOWN[x].BytesDL > 1000000L))
      strcpy(Ratio2,"LEECH");
   else
    {
     if((Ratio < 0.16) && (Ratio >= 0.00) && (DOWN[x].BytesUL >= 5000000L))
         strcpy(Ratio2,"ELITE");
     else
         sprintf(Ratio2,"%4.2f",Ratio);
    }
   Percent = (float) (DOWN[x].BytesDL / 1024L) / (SKEL.TotalDLKB / 100L);
   if(strlen(DOWN[x].Handle) > 2)
    {
     fprintf(out2,"%3d. %-18.18s [%13s %5.2f%] %5s %4d  %-20.20s\n",
         x+1,DOWN[x].Handle,commas(DOWN[x].BytesDL,buff),Percent,Ratio2,DOWN[x].TimesCalled,DOWN[x].Location);
    }
   x++;
  }
 while(x<RANK);
 fprintf(out2,".%s.-.-------------.-.%s.\n",shit1,shit1);
 fprintf(out2,"| ULed Files   [%9s]    |=| Users [%3d] |=| DLed Files   [",
                               commas(SKEL.TotalUL,buff),SKEL.TotalUsers);
 fprintf(out2,"%9s]    |\n",commas(SKEL.TotalDL,buff));
 fprintf(out2,"| ULed Bytes [%11s] KB | `-------------' | DLed Bytes [",
                            commas(SKEL.TotalULKB,buff));
 fprintf(out2,"%11s] KB |\n",commas(SKEL.TotalDLKB,buff));
 fprintf(out2,"`%s'                 `%s'~r\n",shit1,shit1);
 fclose(out2);
}