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

//  ------------------------------------------------------------------
//  The Goldware Library
//  Copyright (C) 1990-1999 Odinn Sorensen
//  Copyright (C) 1999-2000 Alexander S. Aganichev
//  ------------------------------------------------------------------
//  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 an AREAS.BBS file (any type!)
//  ------------------------------------------------------------------

#include <cstdlib>
#include <cstring>
#include <gedacfg.h>


//  ------------------------------------------------------------------
//  Read one or more AREAS.BBS files

void gareafile::ReadAreasBBS(char* tag)
{

    AreaCfg aa;
    int echos;
    char origin[80];
    char* ptr;
    char* echoid=NULL;
    char* path=NULL;
    char* desc=NULL;

    *origin = NUL;
    ptr = strtok(tag, " \t");

    // Read each AREAS.BBS
    while(ptr)
    {
        if(*ptr != '-')
        {
            int echos_before = echolist.Echos();
            GetAreasBBS(ptr, origin);
            echos = echolist.Echos();
            for(int n=echos_before; n<echos; n++)
            {
                echolist.GetEcho(n, &echoid, &path, &desc);
                aa.reset();
                aa.type = GMB_ECHO;
                aa.attr = attribsecho;
                aa.board = atoi(path);
                if(aa.board and (aa.board < 201))
                    aa.basetype = "HUDSON";
                else if((aa.board > 200) and (aa.board < 501))
                    aa.basetype = "GOLDBASE";
                else if(*path == '$')
                {
                    aa.basetype = "SQUISH";
                    adjustpath(path+1);
                    aa.setpath(path+1);
                }
                else if(*path == '!')
                {
                    aa.basetype = "JAM";
                    adjustpath(path+1);
                    aa.setpath(path+1);
                }
                else if((path[0] == 'P') and (path[1] == ' '))
                {
                    aa.basetype = "WILDCAT";
                    adjustpath(path+2);
                    aa.setpath(path+2);
                }
                else if(strnieql(path, "BBS ", 4))
                {
                    aa.basetype = "WILDCAT";
                    adjustpath(path+4);
                    aa.setpath(path+4);
                }
                else if(*path == '!')
                {
                    aa.basetype = "JAM";
                    adjustpath(path+1);
                    aa.setpath(path+1);
                }
                else
                {
                    aa.basetype = fidomsgtype;
                    adjustpath(path);
                    aa.setpath(path);
                }
                aa.setdesc(desc);
                aa.setechoid(echoid);
                aa.setorigin(origin);
                AddNewArea(aa);
            }
        }
        ptr = strtok(NULL, " \t");
    }
}


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