/*
 * (C) COPYRIGHT IBM CORPORATION 1987, 1998
 * LICENSED MATERIALS - PROPERTY OF IBM
 */

#include <afs/param.h>
#include <sys/types.h>
#ifdef AFS_NT40_ENV
#include <winsock2.h>
#else
#include <sys/socket.h>
#include <netinet/in.h>
#include <netdb.h>
#endif
#include <stdio.h>
#include <errno.h>

#include "bc.h"

struct bc_config *bc_globalConfig;

static TrimLine(abuffer,aport)
afs_int32 *aport;
register char *abuffer; {
    register int tc;
    char garb[100];

    *aport = 0;
    sscanf(abuffer,"%s %u",garb,aport);
    while(tc = *abuffer) {
	if (tc == ' ') {
	    *abuffer = 0;
	    return 0;
	}
	abuffer++;
    }
    return 0;
}

FILE *bc_open(aconfig, aname, aext, amode)
register struct bc_config *aconfig;
char *amode;
char *aext;
char *aname; {
    register FILE *tf;
    char tpath[256];

    strcpy(tpath, aconfig->path);
    strcat(tpath, "/");
    strcat(tpath, aname);
    if (aext) strcat(tpath, aext);
    tf = fopen(tpath, amode);
    return tf;
}

bc_InitConfig(apath) 
    char *apath;
{
    register struct bc_config *tb;
    register struct bc_hostEntry *the;

    /* initialize global config structure */
    tb = (struct bc_config *) malloc(sizeof(struct bc_config));
    if (!tb) return(BC_NOMEM);

    bc_globalConfig = tb;
    bzero(tb, sizeof(struct bc_config));
    tb->path = (char *) malloc(strlen(apath)+1);
    if (!tb->path) 
    {
        free(tb);
        return(BC_NOMEM);
    }

    strcpy(tb->path, apath);

    /* now read the important config files; no file means empty list during system init */

    return 0;
}

static HostAdd(alist, aname,aport)
struct bc_hostEntry **alist;
afs_int32 aport;
char *aname; {
    register struct bc_hostEntry **tlast, *tentry;
    struct hostent *th;

    /* check that the host address is real */
    th = gethostbyname(aname);
    if (!th) return -1;

    /* check if this guy is already in the list */
    for(tentry = *alist; tentry; tentry=tentry->next)
	if (tentry->portOffset == aport) return EEXIST;

    /* add this guy to the end of the list */
    tlast = alist;
    for(tentry = *tlast; tentry; tlast = &tentry->next, tentry = *tlast);

    /* tlast now points to the next pointer (or head pointer) we should overwrite */
    tentry = (struct bc_hostEntry *) malloc(sizeof(struct bc_hostEntry));
    bzero(tentry, sizeof(*tentry));
    tentry->name = (char *) malloc(strlen(aname)+1);
    strcpy(tentry->name, aname);
    *tlast = tentry;
    tentry->next = (struct bc_hostEntry *) 0;
    tentry->addr.sin_family = AF_INET;
    bcopy(th->h_addr, &tentry->addr.sin_addr.s_addr, sizeof(afs_int32));
    tentry->addr.sin_port = 0;
    tentry->portOffset = aport;
    return 0;
}

static HostDelete(alist, aname,aport)
struct bc_hostEntry **alist;
afs_int32 aport;
char *aname; {
    register struct bc_hostEntry **tlast, *tentry;

    /* find guy to zap */
    tlast = alist;
    for(tentry = *tlast; tentry; tlast = &tentry->next, tentry = *tlast)
	if (strcmp(tentry->name, aname) == 0 && (aport == tentry->portOffset))
	    break;
    if (!tentry) return	ENOENT;	/* failed to find it */

    /* otherwise delete the entry from the list and free appropriate structures */
    *tlast = tentry->next;
    free(tentry->name);
    free(tentry);
    return 0;
}

bc_AddTapeHost(aconfig, aname,aport)
struct bc_config *aconfig;
afs_int32 aport;
char *aname; {
    register afs_int32 code;

    code = HostAdd(&aconfig->tapeHosts, aname,aport);

    return code;
}

bc_DeleteTapeHost(aconfig, aname, aport)
struct bc_config *aconfig;
afs_int32 aport;
char *aname; {
    register afs_int32 code;

    code = HostDelete(&aconfig->tapeHosts, aname, aport);

    return code;
}