//  This may look like C code, but it is really -*- C++ -*-

//  ------------------------------------------------------------------
//  The Goldware Library
//  Copyright (C) 1990-1999 Odinn Sorensen
//  ------------------------------------------------------------------
//  This library is free software; you can redistribute it and/or
//  modify it under the terms of the GNU Library General Public
//  License as published by the Free Software Foundation; either
//  version 2 of the License, or (at your option) any later version.
//
//  This library 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
//  Library General Public License for more details.
//
//  You should have received a copy of the GNU Library General Public
//  License along with this program; if not, write to the Free
//  Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
//  MA 02111-1307, USA
//  ------------------------------------------------------------------
//  $Id$
//  ------------------------------------------------------------------
//  Read areas from XMail
//  ------------------------------------------------------------------

#include <cstdlib>
#include <gcrcall.h>
#include <gstrall.h>
#if defined(__GOLD_GUI__)
    #include <gvidall.h>
    #include <gvidgui.h>
#endif
#undef GCFG_NOXMAIL
#include <gedacfg.h>
#include <gs_xmail.h>


//  ------------------------------------------------------------------
//  Clip a long filename to DOS compatible 8 chars

char* gareafile::ClipDosFilename(char* __file)
{

    // Only work on strings longer than 8 chars
    uint _len = strlen(__file);
    if(_len > 8)
    {

        // Point to last char before NUL
        char* _ptr = __file + _len - 1;

        // Find the last slash, if any
        while(_len and not isslash(*_ptr))
            _ptr--, _len--;

        // Point to first char after the slash, if any
        if(isslash(*_ptr))
            _ptr++;

        // Cut filename if too long
        if(strlen(_ptr) > 8)
            _ptr[8] = NUL;
    }

    // Return pointer to the filename
    return __file;
}


//  ------------------------------------------------------------------

void gareafile::ReadxMailFile(char* file)
{

    const word CRC_SYSOP = 0x967F;
    const word CRC_NODEADR = 0x4B51;
    const word CRC_AKA = 0x13A4;
    const word CRC_NETMAIL = 0xE42E;
    const word CRC_ORIGIN = 0x4CE5;
    const word CRC_MESSAGEBASE = 0x213E;

    AreaCfg aa;
    char buf[512];

    FILE* fp = fsopen(file, "rb", sharemode);
    if (fp)
    {
        setvbuf(fp, NULL, _IOFBF, BUFSIZ);

        if (not quiet)
            STD_PRINTNL("* Reading " << file);

        aa.reset();

        while(fgets(buf, sizeof(buf), fp))
        {

            char* ptr = strskip_wht(strtrim(buf));
            if(*ptr != ';' and *ptr)
            {

                char* key;
                char* val = ptr;
                switch(getkeyvalcrc(&key, &val))
                {
                case CRC_SYSOP:
                    //CfgUsername(val);
                    break;
                case CRC_NODEADR:
                case CRC_AKA:
                    CfgAddress(val);
                    break;
                case CRC_NETMAIL:
                    aa.reset();
                    aa.type = GMB_NET;
                    aa.attr = attribsnet;
                    aa.basetype = fidomsgtype;
                    aa.setdesc("xMail Netmail");
                    aa.setautoid("NETMAIL");
                    aa.setpath(val);
                    AddNewArea(aa);
                    break;
                case CRC_ORIGIN:
                    CfgOrigin(val);
                    break;
                case CRC_MESSAGEBASE:
                    CfgHudsonpath(val);
                    break;
                }
            }
        }

        fclose(fp);
    }
}


//  ------------------------------------------------------------------
//  Read areas from XMail

void gareafile::ReadXMail(char* tag)
{

    AreaCfg aa;
    FILE* fp;
    char* ptr;
    int areano;
    Path xmailpath, file;
    EchoAreaRec area;

    *xmailpath = NUL;
    ptr = strtok(tag, " \t");
    while(ptr)
    {
        if(*ptr != '-')
        {
            AddBackslash(strcpy(xmailpath, ptr));
            break;
        }
        ptr = strtok(NULL, " \t");
    }
    if(*xmailpath == NUL)
    {
        ptr = getenv("XM");
        if(ptr)
            AddBackslash(strcpy(xmailpath, ptr));
    }
    if(*xmailpath == NUL)
        strcpy(xmailpath, areapath);

    MakePathname(file, xmailpath, "xmail.cfg");
    ReadxMailFile(file);

    MakePathname(file, xmailpath, "areas.xm");
    fp = fsopen(file, "rb", sharemode);
    if (fp)
    {
        setvbuf(fp, NULL, _IOFBF, BUFSIZ);

        if (not quiet)
            STD_PRINTNL("* Reading " << file);

        areano = 1;
        while(fread(&area, sizeof(EchoAreaRec), 1, fp) == 1)
        {

            if(*area.Name)
            {

                aa.reset();
                STRNP2C(area.MsgDirectory);

                switch(area.StoreType)
                {
                case FmtHudson:
                    aa.basetype = "HUDSON";
                    aa.board = areano;
                    break;
                case FmtMsg:
                    aa.basetype = fidomsgtype;
                    aa.setpath(ClipDosFilename(area.MsgDirectory));
                    break;
                case FmtSquish:
                    aa.basetype = "SQUISH";
                    aa.setpath(ClipDosFilename(area.MsgDirectory));
                    break;
                case FmtJam:
                    aa.basetype = "JAM";
                    aa.setpath(ClipDosFilename(area.MsgDirectory));
                    break;
                default:
                    // Passthrough or unknown
                    continue;
                }

                aa.setdesc(STRNP2C(area.Descr));
                aa.setechoid(STRNP2C(area.Name));
                aa.setorigin(STRNP2C(area.OriginLine));

                aa.aka.zone  = area.AreaAddress.Zone;
                aa.aka.net   = area.AreaAddress.Net;
                aa.aka.node  = area.AreaAddress.Node;
                aa.aka.point = area.AreaAddress.Point;

                switch(area.MailType)
                {
                case Localmail:
                    aa.type = GMB_LOCAL;
                    aa.attr = attribslocal;
                    break;
                case Netmail:
                    aa.type = GMB_NET;
                    aa.attr = attribsnet;
                    break;
                case Echomail:
                default:
                    aa.type = GMB_ECHO;
                    aa.attr = attribsecho;
                }

                AddNewArea(aa);
            }

            areano++;
        }

        fclose(fp);
    }
}


//  ------------------------------------------------------------------
