/***********************************************************************************/
/*
 * siffi.c: CGI Programm, das Statistiken erstellt & ausgiebt
 *
 *
 ***********************************************************************************/

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>

#include <types.h>
#include <netinet\in.h>
#include <netdb.h>
#include <sys\socket.h>

/*********************/
/* Data File entries */
/*********************/
#define IPADDRESS "*IP:"
#define HOSTNAME  "#Hostname:"
#define ZEIT      "#Zeit:"
#define NAVIGATOR "#Navigator:"
#define EMAIL     "#email:"

/*********************************/
/* known & defined query_strings */
/*********************************/
#define COLLECT        "ds=gugus"
#define COLLECTSIFFI   "ds=siffi"
#define LIST           "ds=list"
#define LISTME         "ds=listme"
#define LISTALL        "ds=listall"
#define LISTMONTH      "ds=listmonth"
#define LISTSIFFIALL   "ds=listsiffiall"
#define LISTSIFFIMONTH "ds=listsiffimonth"

/*******************/
/* data file names */
/*******************/
#define KATFCOUNT      "sifficount.txt"
#define SIFFICOUNT     "siffihome.txt"
#define KnownNamesFile "SiffisVIP.txt"
#define GifFile        "best.gif"

/*****************/
/* defined links */
/*****************/
#define SIFFISMAIL "mailto:erich_siffert@notesbe.krinfo.ch"
#define SIFFISHOME "http://www.siffert.ch/"
#define KATFHOME   "http://www.siffert.ch/kat_f.htm"
#define MYSTAT     "http://notes.krinfo.ch/cgi-bin/siffi.exe?ds=listme"
#define ALLSTAT    "http://notes.krinfo.ch/cgi-bin/siffi.exe?ds=listall"
#define MONTHSTAT  "http://notes.krinfo.ch/cgi-bin/siffi.exe?ds=listmonth"
#define SIFFIMONTH "http://notes.krinfo.ch/cgi-bin/siffi.exe?ds=listsiffimonth"
#define SIFFIALL   "http://notes.krinfo.ch/cgi-bin/siffi.exe?ds=listsiffiall"


#define NOTME  2
#define ONLYME 1
#define ALLUSERS 0

#define MAXHIT 128

char*     query_string,             // query info passed to pgm. Appended to URL with "?"
    *     remote_host,              // remote hostname of user making the request
    *     remote_addr,              // remote IP address of user making the request
    *     remote_user,              // authenticated name of user
    *     remote_ident,             // only set if client supports RFC 931 & NCSA IdentityCheck flag enabled
    *     http_from,                // email address of user (most broswers do not support)
    *     http_user_agent,          // the browser the client is using to issue request
    *     http_referer;

char*     pLine;                    // Pointer to line from inputfile
char*     pIdent;
char*     DataFile;
char      chOutput [256];           // working array....
char      chTime[64];               // to hold the time...
char      Month [3] = "   ";

u_long    ip;                       // ip address
int       iFlag, i;
int       iPerCounter =0, iAllCounter = 0;   // hit-counters
//    struct sockaddr_in client;        /* client address information            */
struct    hostent *hostnm;          // struct containing client name information

FILE      *fp;                      // file pointer for "data" file
FILE      *fnames;                  // file pointer for file containing known names

char      buffer [4096];            // output buffer for gif-file

time_t    temp;                     // variable for local time
struct    tm  *timeptr;             // time-structure, used to build LOG-file name

struct UserTab {
    char IPAddress[20];
    char Hostname[32];
    char Time[3];
    int  hits;
} ;
struct UserTab HitTab [MAXHIT];

void ListMonth(void);
void WriteMonth(void);

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

  /**************************************/
  /* read the environment variables.... */
  /**************************************/
    query_string      = getenv ("QUERY_STRING");
    remote_host       = getenv ("REMOTE_HOST");
    remote_addr       = getenv ("REMOTE_ADDR");
    remote_user       = getenv ("REMOTE_USER");
    remote_ident      = getenv ("REMOTE_IDENT");
    http_from         = getenv ("HTTP_FROM");
    http_user_agent   = getenv ("HTTP_USER_AGENT");
    http_referer      = getenv ("HTTP_REFERER");

// Test-Stuff
//query_string = "ds=listsiffimonth";
//query_string = "ds=siffi";
//remote_addr = "193.192.19.143";

  /**************************************/
  /* initialize current date and time   */
  /**************************************/
    temp    = time(NULL);
    timeptr = localtime(&temp);
    strftime(chTime,sizeof(chTime)-1,"%a, %b %d %Y at %H:%M:%S", timeptr);

    /*********************************************************************/
    /* received an empty query string... do nothing in this case         */
    /*********************************************************************/
    if (query_string == NULL) {
        printf("Content-type: text/plain\n\n");
        printf("You didn't supply any information to siffi.exe,"
               " this means: the query string is null and the program has no idea what to do!" );
    }

    /********************************************************************************/
    /* in this section we collect the statistics and try to display an image....... */
    /********************************************************************************/

    else if ( strlen(query_string) > 0 && ( memcmp(query_string, COLLECT, strlen( COLLECT ) ) == 0 ||
              memcmp(query_string, COLLECTSIFFI, strlen(COLLECTSIFFI) ) == 0 ) ) {

        /*********************************************************************************/
        /* print out a "dummy" gif file to collect data                                  */
        /* (this is done by adding a link like <img src="../cgi-bin/siffi.exe?ds=gugus"> */
        /*********************************************************************************/
        if ( (fp = fopen( GifFile, "rb" ) ) == NULL) {       // read the Gif-file
            printf("Content-type: text/plain\n\n");          // and print it to the screen
            fprintf(stderr, "Could not open %s\n", GifFile); // really quick'n'dirty!
        }
        else {
            printf("Content-type: image/gif\n\n");
            while ( !feof (fp) ) {
                i = fread( buffer, 1, sizeof(buffer), fp);
                if ( ferror(fp) ) {
                    printf("Error while reading %s\n", GifFile);
                }
                fwrite( buffer, i, 1, stdout);
            }
        }
        fclose(fp);

        /********************************************/
        /* set the data file name                   */
        /********************************************/
        if (memcmp(query_string, COLLECT, strlen(COLLECT) ) == 0) {
            DataFile = KATFCOUNT;
        }
        else if (memcmp(query_string, COLLECTSIFFI, strlen(COLLECTSIFFI) ) == 0) {
            DataFile = SIFFICOUNT;
        }
        else {
            printf("No valid Data File name to open received!");
        }

        if ((fp = fopen( DataFile, "a")) == NULL) {
            fprintf(stderr, "Could not open datafile");
        }
        else {

            fprintf( fp, "%s%s\n", IPADDRESS, remote_addr);   // get the users ip address

//          sock_init();

            ip = inet_addr(remote_addr);                      // get the users hostname
            hostnm = gethostbyaddr( (char *) &ip, sizeof(ip), AF_INET );

            if (hostnm != NULL) {
                fprintf(fp,"%s%s\n", HOSTNAME, hostnm->h_name);
                fflush(fp);
            }
            else {
                fprintf(fp, "%s(no hostname defined)\n", HOSTNAME);
            }

            fprintf( fp, "%s%s\n", ZEIT, chTime);             // print current time

            if (http_user_agent != NULL) {                    // save info concering used browser
                fprintf( fp, "%s%s\n", NAVIGATOR, http_user_agent);
            }

            if (http_from != NULL) {                          // get email address if possible
                fprintf( fp, "%s%s\n", EMAIL, http_from);
            }

            fclose(fp);                                       // all done, close datafile
        }
    }

    /********************************************************************************/
    /* in this section we are going to display the stored data                      */
    /********************************************************************************/
    else if ( strlen(query_string) > 0 && memcmp(query_string, LIST, strlen( LIST ) ) == 0) {

        printf ( "Content-type: text/html\n\n");
        printf ( "<HTML><head><title>Listing access statistic for %s at %s</title></head>"
                 "<BODY BGCOLOR=\"#eeeeff\" TEXT=\"#000000\" LINK=\"#990000\" ALINK=\"#333399\" VLINK=\"#333399\">"
                 "<center><h2>", remote_addr, chTime);

        /**********************************************************/
        /* well-known ip addresses are contained in this file.    */
        /* prepare a personal welcome if we know this user!       */
        /**********************************************************/
        if ((fnames = fopen( KnownNamesFile, "r")) == NULL) {  // do nothing ...
        }
        else {
            while ( !feof(fnames) ) {                          // loop over this file
                if (( (pLine = fgets(chOutput, sizeof(chOutput)-1, fnames)) != NULL) &&
                    (memcmp(pLine, remote_addr, strlen(remote_addr)) == 0) ) {
                    pLine = strchr(chOutput, '#');
                    if (pLine != NULL) {
                        pLine++;
                        printf("%s<hr>", pLine);               // print the personal welcome msg
                    }
                }
            }
            fclose(fnames);
        }

        /*******************************************************/
        /* check now what we have to do: read the query_string */
        /* and make necessary settings...                      */
        /*******************************************************/
        if (memcmp(query_string, LISTALL, strlen(LISTALL) ) == 0) {          // list everything
            pIdent = "the overall statistic for <br>the Kat F Homepage</h2>";
            DataFile = KATFCOUNT;
        }
        else if (memcmp(query_string, LISTMONTH, strlen(LISTMONTH) ) == 0) { //list by month
            pIdent = "the overall by month statistic for <br>the Kat F Homepage</h2>";
            DataFile = KATFCOUNT;
        }
        else if (memcmp(query_string, LISTME, strlen(LISTME) ) == 0) {       // list my entries                                                 // list only my entries
            pIdent = "YOUR personal statistic for <br>the Kat F Homepage</h2>";
            DataFile = KATFCOUNT;
        }
        else if (memcmp(query_string, LISTSIFFIALL, strlen(LISTSIFFIALL) ) == 0) { // siffis home
            pIdent = " the overall statistic for <br>Siffis Homepage</h2>";
            DataFile = SIFFICOUNT;
        }
        else if (memcmp(query_string, LISTSIFFIMONTH, strlen(LISTSIFFIMONTH) ) == 0) {
            pIdent = "the overall by month statistic for <br>Siffis Homepage</h2>";
            DataFile = SIFFICOUNT;
        }
        else {  // unusable & strange stuff supplied!
            printf("Sorry, but I have no idea what you really want &amp; I can't help you!<br>"
                   "Please try it again with a valid query_string<br>"
                   "<strong>This program will be terminated now (w/o error)....");
            printf("</BODY></HTML>");

            return;
        }

        /******************************/
        /* print welcome message      */
        /******************************/
        printf ( "Dear user at %s, I'll prepare now %s"
                 "(btw: your are coming from <a href=\"%s\">%s</a>)<hr>",
                 remote_addr, pIdent, KATFHOME, http_referer, http_referer);

        printf ("<h3>Local time in Bern, Switzerland is %s</h3></center><P>\n", chTime);

        /**********************************/
        /* open the datafile in read mode */
        /**********************************/
        if ((fp = fopen( DataFile, "r")) == NULL) {
            printf("<strong><blink>Could not open the data file %s</strong></blink><br>");
            printf("Please inform <a href=\"%s\">Siffi</a> and try later!", DataFile, SIFFISMAIL);
        }
        else {

            /******************************************************/
            /* Listing by month is required. Got to "ListMonth()" */
            /******************************************************/
            if (memcmp(query_string, LISTMONTH, strlen (LISTMONTH) ) == 0 ||
                memcmp(query_string, LISTSIFFIMONTH, strlen(LISTSIFFIMONTH) ) == 0) {
                ListMonth();
            }

            else {

                printf("<TABLE BORDER=4 CELLPADDING=3 CELLSPACING=3>\n");

                printf("<TR>\n"
                       "<TH>IP-Address</TH>\n"
                       "<TH>Hostname</TH>\n"
                       "<TH>Time (CET)</TH>\n"
                       "<TH>Navigator</TH>\n"
                       "<TH>email</TH>\n"
                       "\n");

                /**********************************/
                /* read all entries from datafile */
                /**********************************/
                while ( !feof(fp)) {

                    if ((pLine = fgets(chOutput, sizeof(chOutput)-1, fp)) != NULL) {

                        if (*pLine == '*') {           // first entry: '*IPADDRESS:'
                            pLine += strlen(IPADDRESS);
                            iAllCounter++;

                            if (memcmp(query_string, LISTALL, strlen(LISTALL)) == 0 ||
                                memcmp(query_string, LISTSIFFIALL, strlen(LISTSIFFIALL) ) == 0) {
                                iFlag = ALLUSERS;
                            }
                            else {     // List only my Hits!
                                if (memcmp(remote_addr, pLine, strlen(remote_addr) ) == 0) {
                                    iFlag = ONLYME;
                                    iPerCounter++;
                                }
                                else {  // we found a hit from another user...
                                    iFlag = NOTME;
                                }
                            }
                            if (iFlag != NOTME) {
                               printf("</TR>\n");
                            }
                        }

                        else if (memcmp(pLine, HOSTNAME, strlen(HOSTNAME) ) == 0) {
                            pLine += strlen( HOSTNAME);
                        }
                        else if (memcmp(pLine, ZEIT, strlen(ZEIT) ) == 0) {
                            pLine += strlen( ZEIT);
                        }
                        else if (memcmp(pLine, NAVIGATOR, strlen(NAVIGATOR) ) == 0) {
                            pLine += strlen( NAVIGATOR);
                        }
                        else if (memcmp(pLine, EMAIL, strlen(EMAIL) ) == 0) {
                            pLine += strlen( EMAIL);
                        }

                        if (iFlag != NOTME) {
                            printf("<TD><FONT SIZE=\"-1\">%s</FONT></TD>", pLine);
                        }
                    }
                }

                fclose(fp);                  // close the data file

                printf("</TR></TABLE>\n");   // make proper html code

                if (memcmp(query_string, LISTME, strlen(LISTME) ) == 0) {
                    printf("<p><hr><center><strong>Dear %s, you had %i hits on the Kat-F "
                           "Homepage (overall %i hits since Jan 28 1998)</strong></center>", remote_addr, iPerCounter, iAllCounter);
                }
                else if (memcmp(query_string, LISTSIFFIALL, strlen(LISTSIFFIALL) ) == 0) {
                    printf("<p><hr><center><strong>Dear %s, Siffis "
                           "Homepage had %i hits since Feb 27 1998</strong></center>", remote_addr, iAllCounter);
                }

                else {
                    printf("<p><hr><center><strong>Dear %s, the Kat-F "
                           "Homepage had %i hits since Jan 28 1998</strong></center>", remote_addr, iAllCounter);
                }

            }
        }

        printf ("<p><hr><center>\n");

        if (memcmp(query_string, LISTME, strlen(LISTME) ) == 0) {
            printf("[ <a href=\"%s\">Overall statistic</a>  ", ALLSTAT);
            printf("| <a href=\"%s\">Monthly statistic/per Address</a> ", MONTHSTAT);
        }

        else if (memcmp(query_string, LISTMONTH, strlen(LISTMONTH) ) == 0) {
            printf("[ <small><a href=\"%s\">Your personal statistic</a> ", MYSTAT);
            printf("| <a href=\"%s\">Overall statistic</a> ", ALLSTAT);
        }

        else if (memcmp(query_string, LISTSIFFIMONTH, strlen(LISTSIFFIMONTH) ) == 0) {
            printf("[ <small><a href=\"%s\">Overall statistic</a> ", SIFFIALL);
        }
        else if (memcmp(query_string, LISTSIFFIALL, strlen(LISTSIFFIALL) ) == 0) {
            printf("[ <small><a href=\"%s\">Monthly /by hostname</a> ", SIFFIMONTH);
        }

        else {
            printf("[ <small><a href=\"%s\">Your personal statistic</a> ", MYSTAT);
            printf("| <a href=\"%s\">Monthly statistic/per Address</a> ", MONTHSTAT);
        }

        printf (" | Contact <a href=\"%s\">Siffi</a> | "
                " <a href=\"%s\">Kat F Home</a> | "
                " <a href=\"%s\">Siffi's home</a>]\n", SIFFISMAIL, KATFHOME, SIFFISHOME);
        printf ( "</center></BODY></HTML>");
    }

    /********************************************************************/
    /* no query_string supplied. copy this to the browser...            */
    /********************************************************************/
    else {
        printf("Content-type: text/html\n\n");
        printf("<HTML><BODY>Sorry, you didn't supply any information (or unusable information) to \"Siffi.exe\" and in this case"
               " nothing will happen of course....<hr>" );
        printf("The only thing you can do: <a href=\"%s\">Go back</a> to your last page...<br>"
               "see you soon!</BODY></HTML>", http_referer);
    }

    return;
}
/***************************************************/
/* Function ListMonth: lists entries by Month      */
/***************************************************/
void ListMonth( void ) {

    int it = 0, iFound = 0;

    iPerCounter = iAllCounter = i = 0;

    printf("<center><TABLE BORDER=4 CELLPADDING=3 CELLSPACING=3>\n");

    printf("<TR>\n"
           "<TH>Month</TH>\n"
           "<TH>Hostname</TH>\n"
           "<TH>IP-Address</TH>\n"
           "<TH># of Hits</TH>\n"
           "\n");

    while ( !feof(fp) && i < MAXHIT ) {

        if ((pLine = fgets(chOutput, sizeof(chOutput)-1, fp)) != NULL) {

            if (*pLine == '*') {           // first entry: '*IPADDRESS:'
                pLine += strlen(IPADDRESS);
                iAllCounter++;
                iPerCounter++;

                for ( it = 0; it <= i; it++) {   // check if already in HitTab!
                    if (memcmp(HitTab [it].IPAddress, pLine, strlen(pLine)) == 0) {
                        HitTab[it].hits++;
                        iFound++;
                        break;
                    }
                }

                if (iFound == 0) {              // no, not yet in HitTab. Copy this entry
                    memset(HitTab [i].IPAddress, '\0', sizeof(HitTab[i].IPAddress) );
                    memcpy(HitTab [i].IPAddress, pLine, strlen(pLine) );
                    HitTab[i].hits = 1;
                }
            }
            else if (memcmp(pLine, HOSTNAME, strlen(HOSTNAME) ) == 0 && iFound == 0) {
                pLine += strlen( HOSTNAME);
                memset(HitTab [i].Hostname, '\0', sizeof(HitTab[i].Hostname) );
                memcpy(HitTab [i].Hostname, pLine, strlen(pLine) );

                i++;
            }
            else if (memcmp(pLine, ZEIT, strlen(ZEIT) ) == 0) {
                pLine = strchr(chOutput, ',');
                pLine += 2;

                if (memcmp(&Month[0], pLine, 3) != 0 && i > 1) {
                    // another month! Write content of HitTab to client, reset everything
                    WriteMonth ();
                    i = 0;
                    iPerCounter = 0;
                }

                memcpy(&Month[0], pLine, 3);

                iFound = 0;
            }
        }

        if (i >= MAXHIT) {
           printf("<p><STRONG>Sorry but the &lt;HitTab&gt;-struct is too small for the existing"
                  "ammount of data!<STRONG> The output will be stopped now!<br>Please inform "
                  "<a href=\"%s?Subject=Please increase HitTab-struct (%s)\">Siffi</a> and try later<br>"
                  "<hr>Thanks a lot!", SIFFISMAIL, chTime);
           fclose(fp);
           return;
        }
    }

    fclose(fp);

    WriteMonth();

    printf("</TR></TABLE></center>\n");
    printf("<br><strong><center>Overall Counts: %i</center></strong><br>", iAllCounter);

    return;
}

/********************************************/
/* write one month to clients browser       */
/********************************************/
void WriteMonth(void) {
    int iCount = 0;

    printf("</TR><TR><TD><FONT SIZE=\"-1\"><center><strong>"
           "%s</center></strong></FONT></TD></TR>", Month);

    while ( iCount < i) {
        printf("</TR><TR><TD></TD><TD><FONT SIZE=\"-1\">%s</FONT></TD>", HitTab[iCount].Hostname);
        printf("<TD><FONT SIZE=\"-1\">%s</FONT></TD>", HitTab[iCount].IPAddress);
        if (HitTab[iCount].hits >= 10) {
            printf("<TD><FONT SIZE=\"-1\"><strong><center>%i</center></strong></FONT></TD>", HitTab[iCount].hits);
        }
        else {
            printf("<TD><FONT SIZE=\"-1\"><center>%i</center></FONT></TD>", HitTab[iCount].hits);
        }
        iCount++;
    }
    printf("</TR><TR><TD><FONT SIZE=\"-1\">Total in <strong>%s</strong>: %i</FONT></TD>", Month, iPerCounter);
    return;
}