/*********************************************************************
*  io_log - v.1.0 by Stig Johansen 9531.47                           *
*  io_log - v.1.1 modified by Rune Johansen 9758.88                  *
*                                                                    *
*  io_log: is a collection of functions making a bulletin with not   *
*  only login hours by users, but also logout hours. This file       *
*  contains 2 functions which should be used in your ASCRIPT.BZ,     *
*  RSCRIPT.BZ and GSCRIPT.BZ. If you implement all of these, the     *
*  script will function quite satisfactory.                          *
*                                                                    *
*  usage:                                                            *
*  Blogin(number);                                                   *
*                                                                    *
*  where number is either 0 or 1:                                    *
*   0 = Ordinary user (use in ascript)                               *
*   1 = New user (use in rscript)                                    *
*                                                                    *
*  Blogout();                                                        *
*                                                                    *
*  examples:                                                         *
*  ->ascript.bz<-                                                    *
*  #include <io_log.bz>                                              *
*                                                                    *
*  function main() {                                                 *
*     Blogin(0);                                                     *
*  }                                                                 *
*  ->end<-                                                           *
*                                                                    *
*  ->rscript.bz<-                                                    *
*  #include <io_log.bz>                                              *
*                                                                    *
*  function main() {                                                 *
*     Blogin(1);                                                     *
*  }                                                                 *
*  ->end<-                                                           *
*                                                                    *
*  ->gscript.bz<-                                                    *
*  #include <io_log.bz>                                              *
*                                                                    *
*  function main() {                                                 *
*     Blogout();                                                     *
*  }                                                                 *
*  ->end<-                                                           *
*                                                                    *
*  You may have to change the paths etc. before using this function. *
*  It uses the following paths:                                      *
*                                                                    *
*  $data/                     : datafiles storage, should always     *
*                               be there                             *
*  <global menudir>/bull69.gr  : bulletin file                       *
*                                                                    *
*  You should have an event running every midnight which deletes the *
*  following files: $data/$io_log.*                                  *
*  and it should also delete the bulletin file (menus/bull69.gr)     *
*                                                                    *
*  io_log will NOT add local logins, but you can include them by     *
*  setting local_net_allowed to 1 in readcfig().                     *
*                                                                    *
*  This source file is hereby released to the Public Domain by the   *
*  author: Stig Johansen.                                            *
*  I can be reached at these addresses:                              *
*   FidoNet:    Stig Johansen@2:210/20                               *
*                                                                    *
*  Have fun... and: release all of your source codes!!!              *
**********************************************************************/


// make_header(): makes a new file with header if it don't exist
//                lname = pathname to list-file
//                returns true if header was made!
int make_header(char destination) {
    int fil;
    if ((fil=fopen(destination,"rt"))==-1) {
        fil=fopen(destination,"wt");
        fprintf(fil,"\e[40m\e[1;1H\e[2J\e[0;1;34;44mÚÄ´\e[41m \e[37mlogins \e[34;44mÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ\e[0;30;44m¿\e[0m\n");
        fprintf(fil,"\e[1;34;44m³ \e[0;30;44mÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ\e[1;34m¿ \e[0;30;44m³\e[0m\n");
        fprintf(fil,"\e[1;34;44m³ \e[0;30;44m³  \e[1;37mno\e[0;44m. \e[1;33muser                       \e[35mspeed   \e[32mlogin  \e[31mlogout \e[36mnode \e[34m³ \e[0;30;44m³\e[0m\n");
        fprintf(fil,"\e[1;34;44m³ \e[0;30;44mÀ\e[1;34mÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ \e[0;30;44m³\e[0m\n");
        fprintf(fil,"\e[1;34;44m³ \e[0;30;44mÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ\e[1;34m¿ \e[0;30;44m³\e[0m\n");
        fclose(fil);
        return (1);
    }
    fclose(fil);
    return(0);
}

// copyfile(): Copies a file
//
int copyfile(char destination,source) {
    char inputt;
    char fil1, fil2;

    if ((fil1=fopen(destination,"wt"))!=-1) {
        fil2=fopen(source,"rt");
        while (!feof(fil2)) {
            inputt = fgets(fil2);
            if (!feof(fil2)) fprintf(fil1,"%s\n",inputt);
        }
        fclose(fil2);
        fclose(fil1);
    }
}


// append_footer(): appends a footer to a file
//
int append_footer(char destination) {
    int fil;
    if ((fil=fopen(destination,"at"))!=-1) {
        fprintf(fil,"\e[1;34;44m³ \e[0;30;44mÀ\e[1;34mÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ \e[0;30;44m³\e[0m\n");
        fprintf(fil,"\e[1;34;44m³                                                  \e[31m! = new user  \e[0;30;44m³\e[0m\n");
        fprintf(fil,"\e[1;34;44mÀ\e[0;30;44mÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ\e[0m\n");
        fclose(fil);
    }

}

int a_total_nr, a_today_nr, a_temp;
int s_total, s_today;
char bname, lname, inputt, nodef;
int linenumber;
int local_net_allowed;

int readcfig() {

    bname = strcat(bg_menudir,"bull69.gr");
    nodef = sprintf("$data/$io_list.%u",bv_nodenumber);
    lname = "$data/$io_list.lst";
    s_total = "$data/$io_tot";
    s_today = "$data/$io_list.day";
    local_net_allowed = 0;

}

int read_and_updatestat() {
    int fil;
    a_total_nr = 0;
    if ((fil=fopen(s_total,"rt"))!=-1) {
        a_total_nr = fgets(fil);
        fclose(fil);
    }
    a_total_nr = a_total_nr + 1;
    fil=fopen(s_total,"wt");
    fprintf(fil,"%i\n",a_total_nr);
    fclose(fil);

    a_today_nr = 0;
    if ((fil=fopen(s_today,"rt"))!=-1) {
        a_today_nr = fgets(fil);
        fclose(fil);
    }

    a_today_nr = a_today_nr + 1;
    fil=fopen(s_today,"wt");
    fprintf(fil,"%i\n",a_today_nr);
    fclose(fil);

    fil=fopen(nodef,"wt");
    fprintf(fil,"%u\n",a_today_nr+4);
    fclose(fil);
}

char mixedcase(char s) {
    char temp,dest,ch,len,i;
    char upcase, upcasenext;

    temp = stlocase(s);
    len = strlen(temp)+1;
    upcase = 1; upcasenext = 0;
    dest = "";
    for (i=1;i<len;i=i+1) {
        ch = copy(temp,i,1);
        switch (ch) {
            case " ":
            case "-":
            case "_": {
                upcasenext = 1;
            }
            default: {
                if (upcase) { ch = stupcase(ch); upcase = 0; }
                dest = strcat(dest,ch);
                if (upcasenext) { upcase = 1; upcasenext = 0; }
                break;
            }
        }
    }
    return(dest);
}


int new_entry(char destination,new) {
    char temp, temp2, temp3;
    int fil;

    if ((fil=fopen(destination,"at"))!=-1) {
        if (bn_bstatus&1) temp = "M"; else temp = " ";
        switch (bn_speed) {
            case 0: { temp2 = "  local"; break; }
            case 1: { temp2 = "   net "; break; }
            default: { temp2 = sprintf("%7i",bn_speed); break; }
        }
        if (new) temp3 = "\e[31m!"; else temp3 = " ";
        fprintf(fil,"\e[1;34;44m³ \e[0;30;44m³\e[1;37m%4i\e[0;44m. \e[1;33m%-25s\e[35m%s %s \e[32m%02u\e[0;44m:\e[1;32m%02u  \e[0;37;44m--:--  \e[1;36m%3i %s\e[34m³ \e[0;30;44m³\e[0m\n",
                    a_today_nr,
                    mixedcase(bu_name),
                    temp2,
                    temp,
                    bv_loginhour,
                    bv_loginmin,
                    bv_nodenumber,
                    temp3);
        fclose(fil);
    }
}


int login_update(char new_user) {

    make_header(lname);
    new_entry(lname,new_user);
    copyfile(bname,lname);
    append_footer(bname);
}

int showstat() {

    printf("\e[0;1;34;44mÚÄ´\e[41m \e[37muser count \e[34;44mÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ\e[0;30;44m¿\e[0m\n");
    printf("\e[1;34;44m³\e[37m  You are user number \e[36m%4i\e[37m today! \e[0;30;44m³\e[0m\n",a_today_nr);
    printf("\e[1;34;44m³\e[37m  Total user logins \e[36m%6i\e[37m        \e[0;30;44m³\e[0m\n",a_total_nr);
    printf("\e[1;34;44mÀ\e[0;30;44mÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ\e[0m\n");
}


int Blogin(char new) {

    readcfig();
    if (((!bn_speed)||(bn_speed==1))&&(!local_net_allowed));
    else {
        read_and_updatestat();
        login_update(new);
        showstat();
    }
}

/*****************************************************************************/

int logoutcfig() {
    int fil;
    if ((fil=fopen(nodef,"rt"))!=-1) {
        linenumber = fgets(fil);
        fclose(fil);
        remove(nodef);
    } else linenumber = 0;

}

int logout_update() {
    int i;
    int fil0, fil1;

    if (linenumber) {
        if ((fil0=fopen(lname,"rt"))!=-1) {
            if ((fil1=fopen(nodef,"wt"))!=-1) {
                for (i=0;i<linenumber;i = i+1) {
                    inputt = fgets(fil0);
                    fprintf(fil1,"%s\n",inputt);
                }
                inputt = fgets(fil0);
                fprintf(fil1,"%s",copy(inputt,1,116));
                fprintf(fil1,"\e[1;31m%02u\e[0;44m:\e[1;31m%02u",bf_hour,bf_min);
                fprintf(fil1,"%s\n",copy(inputt,132,strlen(inputt)-131));
                while (!feof(fil0)) {
                    inputt = fgets(fil0);
                    if (!feof(fil0)) fprintf(fil1,"%s\n",inputt);
                }
                fclose(fil1);
                fclose(fil0);
                copyfile(lname,nodef);
                copyfile(bname,nodef);
                remove(nodef);
                append_footer(bname);
            }
        }
    }
}

int Blogout() {

    readcfig();
    if (((!bn_speed)||(bn_speed==1))&&(!local_net_allowed));
    else {
        logoutcfig();
        logout_update();
    }
}