//  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 IMail 1.85  (and newer)
//  ------------------------------------------------------------------

//  The IM_STRUCT.H header from 1.85 and newer is restricted, so we
//  cannot distribute it. Sorry.

//#define HAVE_IM18X

#include <stdlib.h>
#include <gstrall.h>
#undef GCFG_NOIMAIL
#include <gedacfg.h>

#ifdef HAVE_IM18X
#include <gmemdbg.h>
#include <gs_im187.h>
#endif


//  ------------------------------------------------------------------
//  Read IMail IMAIL.CF and IMAIL.AR

#ifdef HAVE_IM18X
void gareafile::ReadIMail185(char* options, char* file, char* impath) {

  AreaCfg aa;
  FILE* fp;
  im_config_type* CF;
  mail_area_type AR;

  CF = new im_config_type; throw_new(CF);

  fp = fsopen(file, "rb", sharemode);
  if(fp) {

    if(not quiet)
      cout << "* Reading " << file << endl;

    fread(CF, sizeof(im_config_type), 1, fp);
    fclose(fp);

    if(*jampath == NUL)
      PathCopy(jampath, MapPath(CF->echojam));
    
    if(*hudsonpath == NUL)
      PathCopy(hudsonpath, MapPath(CF->quickbbs));
    
    // Fido netmail
    if(not strblank(CF->netmail)) {
      aa.reset();
      aa.msgbase = fidomsgtype;
      aa.type = GMB_NET;
      aa.attr = attribsnet;
      aa.aka = CAST(ftn_addr, CF->aka[0]);
      aa.setpath(CF->netmail);
      aa.setdesc("IMAIL Netmail");
      aa.setautoid("NETMAIL");
      AddNewArea(aa);
    }

    MakePathname(file, impath, "imail.ar");

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

      if(not quiet)
        cout << "* Reading " << file << endl;

      while(fread(&AR, sizeof(mail_area_type), 1, fp) == 1) {

        if(AR.active and (not AR.deleted)) {

          aa.reset();

          switch(AR.msg_base_type & BASEMASK) {

            case MSGTYPE_SDM:
              aa.msgbase = fidomsgtype;
              strcpy(aa.path, AR.msg_path);
              break;

            case MSGTYPE_SQUISH:
              aa.msgbase = GMB_SQUISH;
              strcpy(aa.path, AR.msg_path);
              break;

            case MSGTYPE_JAM:
              aa.msgbase = GMB_JAM;
              strcpy(aa.path, AR.msg_path);
              break;

            case MSGTYPE_HUDSON:
              aa.msgbase = GMB_HUDSON;
              if((AR.brd >= 1) and (AR.brd <= 200))
                aa.board = AR.brd;
              else {
                cout << "* Warning: Invalid board " << AR.brd << " (" << AR.aname << ") in IMAIL.AR - Skipping." << endl;
                continue;
              }
              break;

            case MSGTYPE_PASSTH:
            default:
              // Passthrough or unknown msgbase type
              continue;
          }

          switch(AR.msg_base_type & TYPEMASK) {

            case MSGTYPE_LOCAL:
              aa.type = GMB_LOCAL;
              aa.attr = attribslocal;
              break;

            case MSGTYPE_NET:
              aa.type = GMB_NET;
              aa.attr = attribsnet;
              break;

            case MSGTYPE_ECHO:
            default:
              aa.type = GMB_ECHO;
              aa.attr = attribsecho;
          }

          if(AR.o_addr)
            aa.aka = CAST(ftn_addr, CF->aka[AR.o_addr-1]);

          aa.groupid = AR.grp + 0x8000u;

          aa.setdesc(AR.comment);
          aa.setechoid(AR.aname);
          aa.setorigin(AR.origin);

          AddNewArea(aa);
        }
      }

      fclose(fp);
    }
  }

  throw_delete(CF);
}
#endif


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

void gareafile::ReadIMail(char* tag) {

  FILE* fp;
  char* ptr;
  byte imver[2];
  byte imstructver[2];
  char options[80];
  Path impath, file;

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

  MakePathname(file, impath, "imail.cf");

  fp = fsopen(file, "rb", sharemode);
  if(fp) {
    fread(imver, 2, 1, fp);
    fread(imstructver, 2, 1, fp);
    fclose(fp);
    if((imver[0] >= 1) and (imver[1] >= 60) and (imstructver[0] >= 4)) {
      switch(imstructver[0]) {
        case 4:
          ReadIMail160(options, file, impath);
          return;
        case 5:
          ReadIMail170(options, file, impath);
          return;
        #ifdef HAVE_IM18X
        case 6:
          ReadIMail185(options, file, impath);
          return;
        #endif
      }
    }
    cout << "* Error: IMAIL " << imver[0] << '.' << setfill('0') << setw(2) << imver[1] << " (structure revision " << imstructver[0] << '.' << setfill('0') << setw(2) << imstructver[1] << ") is not supported - Skipping." << endl;
  }
}


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