/*****************************************************************************
 *
 * $Id$
 * Purpose ...............: Show mail outbound status
 *
 *****************************************************************************
 * Copyright (C) 1997-2005
 *   
 * Michiel Broek		FIDO:	2:280/2802
 * Beekmansbos 10
 * 1971 BV IJmuiden
 * the Netherlands
 *
 * This file is part of MBSE BBS.
 *
 * This BBS is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by the
 * Free Software Foundation; either version 2, or (at your option) any
 * later version.
 *
 * MBSE BBS is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with MBSE BBS; see the file COPYING.  If not, write to the Free
 * Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
 *****************************************************************************/

#include "../config.h"
#include "../lib/mbselib.h"
#include "../lib/nodelist.h"
#include "../lib/users.h"
#include "../lib/mbsedb.h"
#include "scanout.h"
#include "callstat.h"
#include "outstat.h"


extern int	do_quiet;


static struct _alist
{
	struct	_alist *next;
	faddr	addr;
	int	flavors;
	time_t	time;
	off_t	size;
} *alist = NULL;


#define F_NORMAL 1
#define F_CRASH  2
#define	F_IMM	 4
#define F_HOLD   8
#define F_FREQ  16
#define	F_POLL  32



void checkdir(char *, faddr *, char);
void checkdir(char *boxpath, faddr *fa, char flavor)
{
    char	    *temp;
    DIR             *dp = NULL;
    struct dirent   *de;
    struct stat     sb;
    struct passwd   *pw;

    temp = calloc(PATH_MAX, sizeof(char));
    pw = getpwnam((char *)"mbse");

    Syslog('o', "checking filebox %s (%s) flavor %c", boxpath, ascfnode(fa, 0xff), flavor);

    if ((dp = opendir(boxpath)) == NULL) {
	Syslog('o', "\"%s\" cannot be opened, proceed", MBSE_SS(boxpath));
    } else {
	while ((de = readdir(dp))) {
	    if (strcmp(de->d_name, ".") && strcmp(de->d_name, "..")) {
		snprintf(temp, PATH_MAX -1, "%s/%s", boxpath, de->d_name);
		if (stat(temp, &sb) == 0) {
		    Syslog('o' ,"checking: \"%s\"", de->d_name);
		    if (S_ISREG(sb.st_mode)) {
			if (pw->pw_uid == sb.st_uid) {
                            /*
                             * We own the file
                             */
                            if ((sb.st_mode & S_IRUSR) && (sb.st_mode & S_IWUSR)) {
                                each(fa, flavor, 0, temp);
                            } else {
                                Syslog('o', "no R/W permission on %s", temp);
                            }
                        } else if (pw->pw_gid == sb.st_gid) {
                            /*
                             * We own the file group
                             */
                            if ((sb.st_mode & S_IRGRP) && (sb.st_mode & S_IWGRP)) {
				each(fa, flavor, 0, temp);
                            } else {
                                Syslog('o', "no R/W permission on %s", temp);
                            }
                        } else {
                            /*
                             * No owner of file
                             */
                            if ((sb.st_mode & S_IROTH) && (sb.st_mode & S_IWOTH)) {
                                each(fa, flavor, 0, temp);
                            } else {
                                Syslog('o', "no R/W permission on %s", temp);
                            }
                        }
		    } else {
                        Syslog('o', "not a regular file");
                    }
                } else {
                    WriteError("Can't stat %s", temp);
                }
            }
	}
	closedir(dp);
    }
    free(temp);
}



int outstat()
{
    int		    rc;
    struct _alist   *tmp, *old;
    char	    digit[6], flstr[6], *temp, *temp2, flavor;
    time_t	    age;
    faddr	    *fa;
    callstat        *cst;
    FILE	    *fp;
    DIR		    *dp = NULL;
    struct dirent   *de;
    struct stat	    sb;

    if ((rc = scanout(each))) {
	WriteError("Error scanning outbound, aborting");
	return MBERR_OUTBOUND_SCAN;
    }

    /*
     * Check private outbound box for nodes in the setup.
     * Also, check directory outbounds for FTP nodes.
     */
    temp = calloc(PATH_MAX, sizeof(char));
    snprintf(temp, PATH_MAX -1, "%s/etc/nodes.data", getenv("MBSE_ROOT"));
    if ((fp = fopen(temp, "r")) == NULL) {
	WriteError("$Error open %s, aborting", temp);
	free(temp);
	return MBERR_OUTBOUND_SCAN;
    }
    fread(&nodeshdr, sizeof(nodeshdr), 1, fp);
    fseek(fp, 0, SEEK_SET);
    fread(&nodeshdr, nodeshdr.hdrsize, 1, fp);

    while ((fread(&nodes, nodeshdr.recsize, 1, fp)) == 1) {
	if (strlen(nodes.OutBox)) {
	    if (nodes.Crash)
		flavor = 'c';
	    else if (nodes.Hold)
		flavor = 'h';
	    else
		flavor = 'o';
	    fa = fido2faddr(nodes.Aka[0]);
	    checkdir(nodes.OutBox, fa, flavor);
	    tidy_faddr(fa);
	}
	if ((nodes.Session_out == S_DIR) && strlen(nodes.Dir_out_path)) {
	    fa = fido2faddr(nodes.Aka[0]);
	    flavor = 'h';   /* Directory outbound files are always on hold */
	    checkdir(nodes.Dir_out_path, fa, flavor);
	    tidy_faddr(fa);
	}
	fseek(fp, nodeshdr.filegrp + nodeshdr.mailgrp, SEEK_CUR);
    }
    fclose(fp);

    /*
     * Start checking T-Mail fileboxes
     */
    if (strlen(CFG.tmailshort) && (dp = opendir(CFG.tmailshort))) {
	Syslog('o', "Checking T-Mail short box \"%s\"", CFG.tmailshort);
	while ((de = readdir(dp))) {
	    if (strcmp(de->d_name, ".") && strcmp(de->d_name, "..")) {
		snprintf(temp, PATH_MAX -1, "%s/%s", CFG.tmailshort, de->d_name);
		if (stat(temp, &sb) == 0) {
		    Syslog('o' ,"checking \"%s\"", de->d_name);
		    if (S_ISDIR(sb.st_mode)) {
			int i;
			char b=0;
			for (i=0; (i<8) && (!b); ++i) {
			    char c = tolower(de->d_name[i]);
			    if ( (c<'0') || (c>'v') || ((c>'9') && (c<'a')) ) 
				b=1;
			}
			if (de->d_name[8]!='.') 
			    b=1;
			for (i=9; (i<11) && (!b); ++i) {
			    char c = tolower(de->d_name[i]);
			    if ( (c<'0') || (c>'v') || ((c>'9') && (c<'a')) ) 
				b=1;
			}
			if (b) 
			    continue;
			if (de->d_name[11]==0) 
			    flavor='o';
			else if ((tolower(de->d_name[11])=='h') && (de->d_name[12]==0)) 
			    flavor='h';
			else 
			    continue;
			fa = (faddr*)malloc(sizeof(faddr));
			fa->name = NULL;
			fa->domain = NULL;
			memset(&digit, 0, sizeof(digit));
			digit[0] = de->d_name[0];
			digit[1] = de->d_name[1];
			fa->zone = strtol(digit, NULL, 32);
			memset(&digit, 0, sizeof(digit));
			digit[0] = de->d_name[2];
			digit[1] = de->d_name[3];
			digit[2] = de->d_name[4];
			fa->net = strtol(digit, NULL, 32);
			memset(&digit, 0, sizeof(digit));
			digit[0] = de->d_name[5];
			digit[1] = de->d_name[6];
			digit[2] = de->d_name[7];
			fa->node = strtol(digit, NULL, 32);
			memset(&digit, 0, sizeof(digit));
			digit[0] = de->d_name[9];
			digit[1] = de->d_name[10];
			fa->point = strtol(digit, NULL, 32);
			if (SearchFidonet(fa->zone)) {
			    fa->domain = xstrcpy(fidonet.domain);
			    checkdir(temp, fa, flavor);
			}
			tidy_faddr(fa);
		    }
		}
	    }
	}
	closedir(dp);
    }
    if (strlen(CFG.tmaillong) && (dp = opendir(CFG.tmaillong))) {
	temp2 = calloc(PATH_MAX, sizeof(char));
	Syslog('o', "Checking T-Mail long box \"%s\"", CFG.tmaillong);
	while ((de = readdir(dp))) {
	    if (strcmp(de->d_name, ".") && strcmp(de->d_name, "..")) {
		snprintf(temp, PATH_MAX -1, "%s/%s", CFG.tmaillong, de->d_name);
		if (stat(temp, &sb) == 0) {
		    Syslog('o' ,"checking \"%s\"", de->d_name);
		    if (S_ISDIR(sb.st_mode)) {
			char	c, d;
			int	n;
			snprintf(temp2, PATH_MAX -1, "%s", de->d_name);
			fa = (faddr*)malloc(sizeof(faddr));
			fa->name = NULL;
			fa->domain = NULL;
                        n = sscanf(temp2, "%u.%u.%u.%u.%c%c", &(fa->zone), &(fa->net), &(fa->node), &(fa->point), &c, &d);
                        if ((n==4) || ((n==5) && (tolower(c)=='h'))) {
                            if (SearchFidonet(fa->zone)) {
                                fa->domain = xstrcpy(fidonet.domain);
				if (n==4) 
				    flavor = 'o';
				else 
				    flavor = 'h';
				checkdir(temp, fa, flavor);
			    }
			}
			tidy_faddr(fa);
		    }	
		}
	    }
	}
	closedir(dp);
	free(temp2);
    }

    if (!do_quiet) {
	mbse_colour(LIGHTGREEN, BLACK);
	printf("flavor try      size age    address\n");
	mbse_colour(CYAN, BLACK);
    }

    Syslog('+', "Flavor Try      Size Age    Address");
    for (tmp = alist; tmp; tmp = tmp->next) {
	if ((tmp->flavors & F_FREQ) || (tmp->size) || 1) {
	    strcpy(flstr,"......");
	    if ((tmp->flavors) & F_IMM   ) flstr[0]='D';
	    if ((tmp->flavors) & F_CRASH ) flstr[1]='C';
	    if ((tmp->flavors) & F_NORMAL) flstr[2]='N';
	    if ((tmp->flavors) & F_HOLD  ) flstr[3]='H';
	    if ((tmp->flavors) & F_FREQ  ) flstr[4]='R';
	    if ((tmp->flavors) & F_POLL  ) flstr[5]='P';

	    cst = getstatus(&(tmp->addr));
	    age = time(NULL);
	    age -= tmp->time;
	    snprintf(temp, PATH_MAX -1, "%s %3d %9u %s %s", 
		    flstr, cst->tryno, (int)tmp->size, str_time(age), ascfnode(&(tmp->addr), 0x1f));

	    if (!do_quiet)
		printf("%s\n", temp);
	    Syslog('+', "%s", temp);
	}
    }

    free(temp);
    for (tmp = alist; tmp; tmp = old) {
	old = tmp->next;
	free(tmp->addr.domain);
	free(tmp);
    }
    alist = NULL;

    return 0;
}



int each(faddr *addr, char flavor, int isflo, char *fname)
{
    struct _alist   **tmp;
    struct stat	    st;
    FILE	    *fp;
    char	    buf[256], *p;

    Syslog('o', "each(%s, %c, %s, %s)", ascfnode(addr, 0x2f), flavor, isflo?"isflo":"noflo", fname);

    if ((isflo != OUT_PKT) && (isflo != OUT_FLO) && (isflo != OUT_REQ) && (isflo != OUT_POL))
	return 0;

    for (tmp = &alist; *tmp; tmp = &((*tmp)->next))
	if (((*tmp)->addr.zone  == addr->zone) && ((*tmp)->addr.net   == addr->net) &&
		    ((*tmp)->addr.node  == addr->node) && ((*tmp)->addr.point == addr->point) &&
		    (((*tmp)->addr.domain == NULL) || (addr->domain == NULL) ||
		     (strcasecmp((*tmp)->addr.domain,addr->domain) == 0)))
	    break;
    if (*tmp == NULL) {
	*tmp = (struct _alist *)malloc(sizeof(struct _alist));
	(*tmp)->next = NULL;
	(*tmp)->addr.name   = NULL;
	(*tmp)->addr.zone   = addr->zone;
	(*tmp)->addr.net    = addr->net;
	(*tmp)->addr.node   = addr->node;
	(*tmp)->addr.point  = addr->point;
	(*tmp)->addr.domain = xstrcpy(addr->domain);
	(*tmp)->flavors = 0;
	(*tmp)->time = time(NULL);
	(*tmp)->size = 0L;
    }

    if ((isflo == OUT_FLO) || (isflo == OUT_PKT)) 
	switch (flavor) {
	    case '?':	break;
	    case 'd':	(*tmp)->flavors |= F_IMM; break;
	    case 'o':	(*tmp)->flavors |= F_NORMAL; break;
	    case 'c':	(*tmp)->flavors |= F_CRASH; break;
	    case 'h':	(*tmp)->flavors |= F_HOLD; break;
	    default:	WriteError("Unknown flavor: '%c'\n",flavor); break;
	}

    if (stat(fname,&st) != 0) {
	WriteError("$Can't stat %s", fname);
	st.st_size = 0L;
	st.st_mtime = time(NULL);
    }

    /*
     * Find the oldest time
     */
    if (st.st_mtime < (*tmp)->time) 
	(*tmp)->time = st.st_mtime;

    if (isflo == OUT_FLO) {
	if ((fp = fopen(fname,"r"))) {
	    while (fgets(buf, sizeof(buf) - 1, fp)) {
		if (*(p = buf + strlen(buf) - 1) == '\n') 
		    *p-- = '\0';
		while (isspace(*p)) 
		    *p-- = '\0';
		for (p = buf; *p; p++) 
		    if (*p == '\\') 
			*p='/';
		for (p = buf; *p && isspace(*p); p++);
		    if (*p == '~') 
			continue;
		if ((*p == '#') || (*p == '-') || (*p == '^') || (*p == '@') || (*p == '~')) 
		    p++;
		if (stat(p, &st) != 0) {
		    if (strlen(CFG.dospath)) {
			if (stat(Dos2Unix(p), &st) != 0) {
			    /*
			     * Fileattach dissapeared, maybe
			     * the node doesn't poll enough and
			     * is losing mail or files.
			     */
			    st.st_size = 0L;
			    st.st_mtime = time(NULL);
			}
		    } else {
			if (stat(p, &st) != 0) {
			    st.st_size = 0L;
			    st.st_mtime = time(NULL);
			}
		    }
		}

		if ((p = strrchr(fname,'/'))) 
		    p++;
		else 
		    p = fname;
		if ((strlen(p) == 12) && (strspn(p,"0123456789abcdefABCDEF") == 8) && (p[8] == '.')) {
		    if (st.st_mtime < (*tmp)->time) 
			(*tmp)->time = st.st_mtime;
		}
		(*tmp)->size += st.st_size;
	    }
	    fclose(fp);
	} else 
	    WriteError("$Can't open %s", fname);

    } else if (isflo == OUT_PKT) {
	(*tmp)->size += st.st_size;
    } else if (isflo == OUT_REQ) {
	(*tmp)->flavors |= F_FREQ;
    } else if (isflo == OUT_POL) {
	(*tmp)->flavors |= F_POLL;
    }

    return 0;
}



int IsZMH(void);
int IsZMH()
{
    static  char buf[81];

    snprintf(buf, 81, "SBBS:0;");
    if (socket_send(buf) == 0) {
	strncpy(buf, socket_receive(), 80);
	if (strncmp(buf, "100:2,2", 7) == 0)
	    return TRUE;
    }
    return FALSE;
}



int pollnode(faddr *addr, int stop)
{
    char	    *pol;
    int		    rc = 0;
    FILE	    *fp;
    callstat	    *cst;
    node	    *nlent;
    
    if (addr == NULL)
	return 0;

    pol = xstrcpy(polname(addr));
    mkdirs(pol, 0770);

    if (stop) {
	if (access(pol, R_OK) == 0) {
	    rc = unlink(pol);
	    if (rc == 0) {
		Syslog('+', "Removed poll for %s", ascfnode(addr, 0x1f));
		if (!do_quiet)
		    printf("Removed poll for %s\n", ascfnode(addr, 0x1f));
		}
		CreateSema((char *)"scanout");
	    } else {
		Syslog('+', "No poll found for %s", ascfnode(addr, 0x1f));
	}
    } else {
	nlent = getnlent(addr);
	if (nlent->pflag == NL_DUMMY) {
	    Syslog('+', "Node %s not in nodelist", ascfnode(addr, 0x1f));
	    if (!do_quiet)
		printf("Node %s not in nodelist", ascfnode(addr, 0x1f));
	    free(pol);
	    return MBERR_NODE_NOT_IN_LIST;
	}
	if (nlent->pflag == NL_DOWN) {
	    Syslog('+', "Node %s has status Down", ascfnode(addr, 0x1f));
	    if (!do_quiet)
		printf("Node %s has status Down", ascfnode(addr, 0x1f));
	    free(pol);
	    return MBERR_NODE_MAY_NOT_CALL;
	}
	if (nlent->pflag == NL_HOLD) {
	    Syslog('+', "Node %s has status Hold", ascfnode(addr, 0x1f));
	    if (!do_quiet)
		printf("Node %s has status Hold", ascfnode(addr, 0x1f));
	    free(pol);
	    return MBERR_NODE_MAY_NOT_CALL;
	}
	
	if ((fp = fopen(pol, "w+")) == NULL) {
	    WriteError("$Can't create poll for %s", ascfnode(addr, 0x1f));
	    if (!do_quiet)
		printf("Can't create poll for %s\n", ascfnode(addr, 0x1f));
	    rc = MBERR_CANNOT_MAKE_POLL;
	} else {
	    fclose(fp);
	    if (((nlent->can_pots && nlent->is_cm) == FALSE) && ((nlent->can_ip && nlent->is_icm) == FALSE) && (!IsZMH())) {
		Syslog('+', "Created poll for %s, non-CM node outside ZMH", ascfnode(addr, 0x1f));
		if (!do_quiet)
		    printf("Created poll for %s, non-CM node outside ZMH\n", ascfnode(addr, 0x1f));
	    } else {
		Syslog('+', "Created poll for %s", ascfnode(addr, 0x1f));
		if (!do_quiet)
		    printf("Created poll for %s\n", ascfnode(addr, 0x1f));
	    }
	    cst = getstatus(addr);
	    if ((cst->trystat == MBERR_NODE_LOCKED) || 
		(cst->trystat == MBERR_NOT_ZMH) ||
		(cst->trystat == MBERR_NO_CONNECTION) ||
		(cst->trystat == MBERR_SESSION_ERROR) ||
		(cst->trystat == MBERR_UNKNOWN_SESSION) ||
		(cst->trystat == MBERR_NO_PORT_AVAILABLE) ||
		(cst->trystat == MBERR_MODEM_ERROR)) {
		putstatus(addr, 0, -1);
	    }
	    CreateSema((char *)"scanout");
	}
	if (nlent->url)
	    free(nlent->url);
    }

    free(pol);
    return 0;
}



int reset(faddr *addr)
{
    if (addr == NULL)
	return 0;

    putstatus(addr, 0, -1);
    Syslog('+', "Reset try-counter for %s", ascfnode(addr, 0x1f));
    if (!do_quiet)
	printf("Reset try-counter for %s\n", ascfnode(addr, 0x1f));
    CreateSema((char *)"scanout");

    return 0;
}



int freq(faddr *addr, char *fname)
{
    char    *req;
    FILE    *fp;

    /*
     * Append filename to .req file
     */
    req = xstrcpy(reqname(addr));
    mkdirs(req, 0770);
    if ((fp = fopen(req, "a")) == NULL) {
	WriteError("$Can't append to %s", req);
	if (!do_quiet)
	    printf("File request failed\n");
	free(req);
	return MBERR_REQUEST;
    }
    fprintf(fp, "%s\r\n", fname);
    fclose(fp);

    Syslog('+', "File request \"%s\" from %s", fname, ascfnode(addr, 0x1f));
    if (!do_quiet)
	printf("File request \"%s\" from %s\n", fname, ascfnode(addr, 0x1f));

    free(req);
    return 0;
}