This repository has been archived on 2024-04-08. You can view files and clone it, but cannot push or open issues or pull requests.
deb-goldedplus/goldlib/gcfg/gxxmail.cpp
2000-02-25 10:15:17 +00:00

237 lines
6.0 KiB
C++

// 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>
#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, char* options) {
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, 8192);
if(not quiet)
cout << "* Reading " << file << endl;
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.msgbase = fidomsgtype;
aa.setdesc("xMail Netmail");
aa.setautoid("NETMAIL");
aa.setpath(val);
AddNewArea(aa);
break;
case CRC_ORIGIN:
CfgOrigin(val);
break;
case CRC_MESSAGEBASE:
if(*hudsonpath == NUL)
PathCopy(hudsonpath, MapPath(val));
break;
}
}
}
fclose(fp);
}
}
// ------------------------------------------------------------------
// Read areas from XMail
void gareafile::ReadXMail(char* tag) {
AreaCfg aa;
FILE* fp;
char* ptr;
int areano;
char options[80];
Path xmailpath, file;
EchoAreaRec area;
*xmailpath = NUL;
strcpy(options, tag);
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, options);
MakePathname(file, xmailpath, "areas.xm");
fp = fsopen(file, "rb", sharemode);
if(fp) {
setvbuf(fp, NULL, _IOFBF, 8192);
if(not quiet)
cout << "* Reading " << file << endl;
areano = 1;
while(fread(&area, sizeof(EchoAreaRec), 1, fp) == 1) {
if(*area.Name) {
aa.reset();
STRNP2C(area.MsgDirectory);
switch(area.StoreType) {
case FmtHudson:
aa.msgbase = GMB_HUDSON;
aa.board = areano;
break;
case FmtMsg:
aa.msgbase = fidomsgtype;
aa.setpath(ClipDosFilename(area.MsgDirectory));
break;
case FmtSquish:
aa.msgbase = GMB_SQUISH;
aa.setpath(ClipDosFilename(area.MsgDirectory));
break;
case FmtJam:
aa.msgbase = GMB_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);
}
}
// ------------------------------------------------------------------