1072 lines
25 KiB
C++
1072 lines
25 KiB
C++
|
|
// ------------------------------------------------------------------
|
|
// GoldED+
|
|
// Copyright (C) 1990-1999 Odinn Sorensen
|
|
// Copyright (C) 1999-2000 Alexander S. Aganichev
|
|
// ------------------------------------------------------------------
|
|
// This program is free software; you can redistribute it and/or
|
|
// modify it under the terms of the GNU General Public License as
|
|
// published by the Free Software Foundation; either version 2 of the
|
|
// License, or (at your option) any later version.
|
|
//
|
|
// This program 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
|
|
// General Public License for more details.
|
|
//
|
|
// You should have received a copy of the GNU 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$
|
|
// ------------------------------------------------------------------
|
|
// Common code for the area compile.
|
|
// ------------------------------------------------------------------
|
|
|
|
#include <golded.h>
|
|
#include <gmoprot.h>
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
// Fix up the echoid and make default if none specified
|
|
|
|
void FixEchoid(char* echoid, int type) {
|
|
|
|
static uint netnum = 1;
|
|
static uint echonum = 1;
|
|
static uint localnum = 1;
|
|
|
|
if(*echoid == NUL) {
|
|
const char* t = CFG->areaautoid == AUTOID_LONG ? "MAIL" : "";
|
|
if(type & GMB_NET)
|
|
sprintf(echoid, "NET%s%03u", t, netnum++);
|
|
else if(type & GMB_ECHO)
|
|
sprintf(echoid, "ECHO%s%03u", t, echonum++);
|
|
else if(type & GMB_LOCAL)
|
|
sprintf(echoid, "LOCAL%03u", localnum++);
|
|
}
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
// Sort a group of areas
|
|
|
|
void AreaList::SortAreaGroup(const char* options, int beginarea, int endarea) {
|
|
|
|
if(beginarea != endarea) {
|
|
const char* ptr = striinc("-S", options);
|
|
if(ptr) {
|
|
ptr += 2;
|
|
if(*ptr == '=')
|
|
ptr++;
|
|
Sort(ptr, beginarea, endarea);
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
// Rename an echoid
|
|
|
|
void RenameArea(char* echoid) {
|
|
|
|
std::vector<EchoRen>::iterator n;
|
|
for(n = CFG->arearename.begin(); n != CFG->arearename.end(); n++) {
|
|
if(strieql(echoid, n->from.c_str())) {
|
|
strxcpy(echoid, n->to.c_str(), sizeof(Echo));
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
// Check if the echoid is on the exclusion list
|
|
|
|
bool CheckExcl(char* echoid) {
|
|
|
|
gstrarray::iterator n, x;
|
|
for(n = CFG->areaexcl.begin(); n != CFG->areaexcl.end(); n++) {
|
|
if(strwild(echoid, n->c_str())) {
|
|
|
|
// Found excl, now check for incl
|
|
for(x = CFG->areaincl.begin(); x != CFG->areaincl.end(); x++)
|
|
if(strwild(echoid, x->c_str()))
|
|
return false;
|
|
|
|
return true; // Echoid is excluded
|
|
}
|
|
}
|
|
return false;
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
// Check if the echo is email or news
|
|
|
|
void CheckEMailOrNews(char* echoid, uint& type) {
|
|
|
|
gstrarray::iterator i;
|
|
|
|
for(i = CFG->areaisemail.begin(); i != CFG->areaisemail.end(); i++) {
|
|
if(strwild(echoid, i->c_str())) {
|
|
type = GMB_EMAIL | GMB_NET;
|
|
break;
|
|
}
|
|
}
|
|
|
|
for(i = CFG->areaisnews.begin(); i != CFG->areaisnews.end(); i++) {
|
|
if(strwild(echoid, i->c_str())) {
|
|
type = GMB_NEWSGROUP | GMB_ECHO;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
// Add or update area data
|
|
|
|
void AddNewArea(AreaCfg* aa) {
|
|
|
|
AL.AddNewArea(aa);
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
// Add or update area data
|
|
|
|
void AddNewArea(AreaCfg& aa) {
|
|
|
|
AL.AddNewArea(&aa);
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
// Add or update area data
|
|
|
|
void AreaList::AddNewArea(AreaCfg* aa) {
|
|
|
|
if(veryverbose) {
|
|
std::string temp;
|
|
std::cout << " fmt=" << aa->basetype << ", eid=\"" << aa->echoid <<
|
|
"\", pth=\"" << aa->path << "\", brd=" << aa->board <<
|
|
", gid=" << aa->groupid << ", aka=" << aa->aka.make_string(temp);
|
|
std::cout << " " << aa->attr.make_string(temp) << std::endl;
|
|
}
|
|
|
|
Desc desc;
|
|
char buf[256];
|
|
bool newarea = true;
|
|
static int serial = 0;
|
|
static int net1st = false;
|
|
|
|
*desc = NUL;
|
|
|
|
// Make sure the path field is 100% correct for the msgbase
|
|
if(streql(aa->basetype, "FTS1") or streql(aa->basetype, "OPUS")) {
|
|
if(*aa->path == NUL)
|
|
return;
|
|
MapPath(aa->path);
|
|
AddBackslash(aa->path);
|
|
strschg_environ(aa->path);
|
|
}
|
|
#ifndef GMB_NOHUDS
|
|
else if(streql(aa->basetype, "HUDSON")) {
|
|
if((aa->board < 1) or (aa->board > 200)) // Ignore areas with invalid numbers
|
|
return;
|
|
sprintf(aa->path, "%u", aa->board);
|
|
}
|
|
#endif
|
|
#ifndef GMB_NOGOLD
|
|
else if(streql(aa->basetype, "GOLDBASE")) {
|
|
if((aa->board < 1) or (aa->board > 500)) // Ignore areas with invalid numbers
|
|
return;
|
|
sprintf(aa->path, "%u", aa->board);
|
|
}
|
|
#endif
|
|
#ifndef GMB_NOEZY
|
|
else if(streql(aa->basetype, "EZYCOM")) {
|
|
// Ignore areas with invalid numbers
|
|
if((aa->board < 1) or (aa->board > 1536))
|
|
return;
|
|
sprintf(aa->path, "%u", aa->board);
|
|
}
|
|
#endif
|
|
#ifndef GMB_NOWCAT
|
|
else if(streql(aa->basetype, "WILDCAT")) {
|
|
if(*aa->path == NUL)
|
|
return;
|
|
MapPath(aa->path);
|
|
StripBackslash(aa->path);
|
|
strschg_environ(aa->path);
|
|
}
|
|
#endif
|
|
#ifndef GMB_NOXBBS
|
|
else if(streql(aa->basetype, "ADEPTXBBS")) {
|
|
if(*aa->path == NUL)
|
|
return;
|
|
MapPath(aa->path);
|
|
StripBackslash(aa->path);
|
|
strschg_environ(aa->path);
|
|
}
|
|
#endif
|
|
#ifndef GMB_NOSQSH
|
|
else if(streql(aa->basetype, "SQUISH")) {
|
|
if(*aa->path == NUL)
|
|
return;
|
|
MapPath(aa->path);
|
|
StripBackslash(aa->path);
|
|
strschg_environ(aa->path);
|
|
}
|
|
#endif
|
|
#ifndef GMB_NOJAM
|
|
else if(streql(aa->basetype, "JAM")) {
|
|
if(*aa->path == NUL)
|
|
return;
|
|
MapPath(aa->path);
|
|
StripBackslash(aa->path);
|
|
strschg_environ(aa->path);
|
|
}
|
|
#endif
|
|
#ifndef GMB_NOPCB
|
|
else if(streql(aa->basetype, "PCBOARD")) {
|
|
MapPath(aa->path);
|
|
StripBackslash(aa->path);
|
|
strschg_environ(aa->path);
|
|
}
|
|
#endif
|
|
#ifndef GMB_NOSMB
|
|
else if(streql(aa->basetype, "SMB")) {
|
|
if(*aa->path == NUL)
|
|
return;
|
|
MapPath(aa->path);
|
|
StripBackslash(aa->path);
|
|
strschg_environ(aa->path);
|
|
}
|
|
#endif
|
|
else if(streql(aa->basetype, "SEPARATOR")) {
|
|
}
|
|
else {
|
|
return;
|
|
}
|
|
|
|
// Note msgbase type
|
|
if(not find(basetypes, aa->basetype))
|
|
basetypes.push_back(aa->basetype);
|
|
|
|
// Things to do for real areas only
|
|
if(not aa->isseparator()) {
|
|
|
|
// If the echoid is missing, try to find it in the echolist
|
|
if(strblank(aa->echoid))
|
|
AFILE->echolist.FindEcho(aa->echoid, aa->path, aa->desc);
|
|
|
|
// Fix up the echoid
|
|
FixEchoid(aa->echoid, aa->type);
|
|
|
|
// Rename the echoid if necessary
|
|
RenameArea(aa->echoid);
|
|
|
|
// Do not accept excluded areas
|
|
if(CheckExcl(aa->echoid))
|
|
return;
|
|
|
|
// Fix description
|
|
if(strblank(aa->desc))
|
|
strxcpy(aa->desc, aa->echoid, sizeof(aa->desc));
|
|
}
|
|
|
|
// Check if it's email or news
|
|
CheckEMailOrNews(aa->echoid, aa->type);
|
|
|
|
// Give each area a unique serial number
|
|
aa->areaid = serial++;
|
|
|
|
// Check if we already have the area (dup echoid or path)
|
|
int _currarea = 0;
|
|
area_iterator ap;
|
|
for(ap = idx.begin(); ap != idx.end(); ap++) {
|
|
++_currarea;
|
|
int eq_echoid = strieql(aa->echoid, (*ap)->echoid());
|
|
if(eq_echoid) {
|
|
newarea = false;
|
|
if(not (*ap)->isseparator()) {
|
|
if(strblank((*ap)->desc()))
|
|
strxcpy(desc, aa->desc, sizeof(desc));
|
|
}
|
|
break;
|
|
}
|
|
else if(not (*ap)->isseparator()) {
|
|
bool eq_path = strieql(aa->path, (*ap)->path());
|
|
bool eq_board = (aa->board == (*ap)->board());
|
|
bool eq_msgbase = streql(aa->basetype, (*ap)->basetype());
|
|
bool eq_isfido = ((streql(aa->basetype, "OPUS") or streql(aa->basetype, "FTS1"))
|
|
and (streql((*ap)->basetype(), "OPUS") or streql((*ap)->basetype(), "FTS1")));
|
|
if(eq_path and eq_board and (eq_msgbase or eq_isfido)) {
|
|
// We had it already, so override with the new data
|
|
newarea = false;
|
|
if(strblank((*ap)->desc()))
|
|
strxcpy(desc, aa->desc, sizeof(desc));
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
// If first netmail area, set default for AREAFREQTO and AREAREPLYTO
|
|
if((aa->isnet() and not aa->isseparator()) and not net1st) {
|
|
net1st = true;
|
|
if(not *CFG->areafreqto)
|
|
strcpy(CFG->areafreqto, aa->echoid);
|
|
if(not *CFG->areareplyto)
|
|
strcpy(CFG->areareplyto, aa->echoid);
|
|
}
|
|
|
|
// Increase area index size if new area
|
|
if(newarea) {
|
|
idx.push_back(NewArea(aa->basetype));
|
|
throw_new(idx[_currarea]);
|
|
ap = idx.end(); --ap;
|
|
}
|
|
|
|
// Add aka if not found
|
|
if(aa->aka.net) {
|
|
bool found = false;
|
|
for(std::vector<gaka>::iterator i = CFG->aka.begin(); i != CFG->aka.end(); i++)
|
|
if(aa->aka == i->addr) {
|
|
found = true;
|
|
break;
|
|
}
|
|
if(not found) // Then add it
|
|
CfgAddress(aa->aka.make_string(buf)); // Add the aka
|
|
}
|
|
else {
|
|
// If address is missing, use main address
|
|
if(not CFG->aka.empty())
|
|
aa->aka = CFG->aka[0].addr;
|
|
}
|
|
|
|
// Copy the data
|
|
if(newarea) {
|
|
(*ap)->set_echoid(aa->echoid);
|
|
(*ap)->set_path(aa->path);
|
|
(*ap)->set_board(aa->board);
|
|
(*ap)->set_basetype(aa->basetype);
|
|
}
|
|
(*ap)->set_desc(newarea or strblank(desc) ? aa->desc : desc);
|
|
(*ap)->set_areaid(aa->areaid);
|
|
(*ap)->set_groupid(aa->groupid);
|
|
(*ap)->set_type(aa->type);
|
|
(*ap)->set_aka(aa->aka);
|
|
(*ap)->set_originno(aa->originno);
|
|
(*ap)->set_attr(aa->attr);
|
|
(*ap)->set_scan(aa->scan);
|
|
(*ap)->set_scanexcl(aa->scanexcl);
|
|
(*ap)->set_scanincl(aa->scanincl);
|
|
(*ap)->set_pmscan(aa->pmscan);
|
|
(*ap)->set_pmscanexcl(aa->pmscanexcl);
|
|
(*ap)->set_pmscanincl(aa->pmscanincl);
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
// Get areas from other programs
|
|
|
|
void AreaList::GetAreafile(char* value) {
|
|
|
|
const word CRC_ECHOLIST = 0xCE70;
|
|
|
|
word crcval;
|
|
char* keyword;
|
|
char* options;
|
|
int beginarea, endarea;
|
|
|
|
crcval = getkeyvalcrc(&keyword, &value);
|
|
options = throw_strdup(value);
|
|
|
|
beginarea = idx.size();
|
|
|
|
if(crcval == CRC_ECHOLIST)
|
|
ReadEcholist(value);
|
|
else {
|
|
AFILE->quiet = quiet;
|
|
AFILE->sharemode = CFG->sharemode;
|
|
AFILE->fidomsgtype = CFG->fidomsgtype;
|
|
AFILE->ra2usersbbs = CFG->ra2usersbbs;
|
|
AFILE->squishuserno = CFG->squishuserno;
|
|
AFILE->areapath = CFG->areapath;
|
|
AFILE->pcboardpath = CFG->pcboardpath;
|
|
|
|
if(not CFG->aka.empty())
|
|
AFILE->primary_aka = CFG->aka[0].addr;
|
|
else
|
|
AFILE->primary_aka = 0;
|
|
|
|
AFILE->attribsnet = CFG->attribsnet;
|
|
AFILE->attribsecho = CFG->attribsecho;
|
|
AFILE->attribsnews = CFG->attribsnews;
|
|
AFILE->attribsemail = CFG->attribsemail;
|
|
AFILE->attribslocal = CFG->attribslocal;
|
|
|
|
AFILE->ReadAreafile(crcval, value);
|
|
|
|
CFG->ra2usersbbs = AFILE->ra2usersbbs;
|
|
CFG->squishuserno = AFILE->squishuserno;
|
|
}
|
|
|
|
endarea = idx.size();
|
|
SortAreaGroup(options, beginarea, endarea);
|
|
|
|
throw_free(options);
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
// Get area definition
|
|
|
|
void AreaList::GetArea(char* def) {
|
|
|
|
AreaCfg aa;
|
|
char* ptr;
|
|
char* tag;
|
|
char* desc;
|
|
char* base;
|
|
char* loc;
|
|
char* attr;
|
|
|
|
if(strnieql(def, "-FILE ", 6)) // Check for alternate formats
|
|
GetAreafile(def+6);
|
|
else {
|
|
tag = def;
|
|
desc = strskip_txt(tag);
|
|
*desc = NUL;
|
|
|
|
aa.reset();
|
|
|
|
// Split up the string definition
|
|
desc = strskip_wht(desc+1);
|
|
switch(*desc) {
|
|
case '\"':
|
|
base = strskip_to(desc+1, '\"')+1;
|
|
break;
|
|
case '\'':
|
|
base = strskip_to(desc+1, '\'')+1;
|
|
break;
|
|
default:
|
|
base = strskip_txt(desc);
|
|
}
|
|
*base = NUL;
|
|
base = strskip_wht(base+1);
|
|
loc = strskip_txt(base);
|
|
*loc = NUL;
|
|
loc = strskip_wht(loc+1);
|
|
attr = strpbrk(loc, " \t");
|
|
if(attr and *attr) {
|
|
*attr = NUL;
|
|
attr = strskip_wht(attr+1);
|
|
}
|
|
|
|
// Parse the individual parts
|
|
|
|
aa.setechoid(tag); // Copy the echotag
|
|
|
|
StripQuotes(desc); // Copy description, stripping quotes ("")
|
|
aa.setdesc(desc);
|
|
|
|
switch(toupper(*base)) { // Store area info
|
|
|
|
case '-':
|
|
aa.basetype = "SEPARATOR";
|
|
break;
|
|
|
|
case 'M':
|
|
aa.basetype = "SQUISH";
|
|
aa.setpath(loc);
|
|
break;
|
|
|
|
case 'Y':
|
|
aa.basetype = "SMB";
|
|
aa.setpath(loc);
|
|
break;
|
|
|
|
case 'H':
|
|
case 'R':
|
|
case 'Q':
|
|
aa.basetype = "HUDSON";
|
|
aa.board = (uint) atoi(loc);
|
|
break;
|
|
|
|
case 'G':
|
|
aa.basetype = "GOLDBASE";
|
|
aa.board = (uint) atoi(loc);
|
|
break;
|
|
|
|
case 'E':
|
|
aa.basetype = "EZYCOM";
|
|
aa.board = (uint) atoi(loc);
|
|
break;
|
|
|
|
case 'J':
|
|
aa.basetype = "JAM";
|
|
aa.setpath(loc);
|
|
break;
|
|
|
|
case 'P':
|
|
aa.basetype = "PCBOARD";
|
|
aa.setpath(loc);
|
|
break;
|
|
|
|
case 'W':
|
|
aa.basetype = "WILDCAT";
|
|
aa.setpath(loc);
|
|
break;
|
|
|
|
case 'X':
|
|
aa.basetype = "ADEPTXBBS";
|
|
aa.setpath(loc);
|
|
break;
|
|
|
|
case 'S':
|
|
aa.basetype = "FTS1";
|
|
aa.setpath(loc);
|
|
break;
|
|
|
|
case 'F':
|
|
case 'O':
|
|
default:
|
|
aa.basetype = "OPUS";
|
|
aa.setpath(loc);
|
|
}
|
|
|
|
aa.type = GMB_ECHO;
|
|
aa.attr = CFG->attribsecho;
|
|
strupr(base);
|
|
if(strchr(base, 'N')) {
|
|
aa.type = GMB_NET;
|
|
aa.attr = CFG->attribsnet;
|
|
}
|
|
if(strchr(base, 'L')) {
|
|
aa.type = GMB_LOCAL;
|
|
aa.attr = CFG->attribslocal;
|
|
}
|
|
if(strchr(base, 'E')) {
|
|
aa.type = GMB_ECHO;
|
|
aa.attr = CFG->attribsecho;
|
|
}
|
|
if(attr) { // Get attributes and AKAs
|
|
GetAttribstr(&aa.attr, attr);
|
|
if((ptr = strpbrk(attr, "0123456789")) != NULL) {
|
|
int n = atoi(ptr);
|
|
if((n < 0) or ((uint) n >= CFG->aka.size()))
|
|
n = 0;
|
|
if(not CFG->aka.empty())
|
|
aa.aka = CFG->aka[n].addr; // Found AKA number
|
|
}
|
|
}
|
|
|
|
if(not aa.aka.net and not CFG->aka.empty())
|
|
aa.aka = CFG->aka[0].addr;
|
|
|
|
AddNewArea(&aa);
|
|
}
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
// Get area definition (new)
|
|
//
|
|
// Syntax of AREADEF keyword:
|
|
//
|
|
// AREADEF <echoid> <"desc"> <group> <type> <msgbase> <path/board> <aka> <(attrs)> ["origin"]
|
|
//
|
|
// Examples:
|
|
//
|
|
// AREADEF NET.ALL "Netmail, Line 1" N Net Opus R:\NETMAIL\ 2:231/77 (PVT K/S)
|
|
// AREADEF TEST "Testing..." D Echo Hudson 67 . ()
|
|
// AREADEF 1LOCAL "Sysop <-> Users" L Local Squish R:\MAX\MSG\LOC\1LOCAL . (PVT) "Your Sysop * The Goldware BBS Line 1"
|
|
// AREADEF DANEINFO "DaneNet Info" D Echo Squish R:\MAX\MSG\231\DANEINFO . (R/O)
|
|
|
|
bool AreaList::GetAreaFirstPart(AreaCfg& aa, char*& key, char*& val) {
|
|
|
|
const word CRC_NET = 0xEC5E;
|
|
const word CRC_ECHO = 0xC2D1;
|
|
const word CRC_LOCAL = 0x4CD5;
|
|
const word CRC_EMAIL = 0x9C64;
|
|
const word CRC_NEWS = 0x61F1;
|
|
|
|
// Get echoid
|
|
getkeyval(&key, &val);
|
|
aa.setechoid(key);
|
|
|
|
// Get description
|
|
getkeyval(&key, &val);
|
|
aa.setdesc(key);
|
|
|
|
// Get group (letter)
|
|
getkeyval(&key, &val);
|
|
aa.groupid = getgroup(key);
|
|
|
|
// Get type
|
|
word crc = getkeyvalcrc(&key, &val);
|
|
switch(crc) {
|
|
case CRC_NET:
|
|
aa.type = GMB_NET;
|
|
aa.attr = CFG->attribsnet;
|
|
break;
|
|
case CRC_ECHO:
|
|
aa.type = GMB_ECHO;
|
|
aa.attr = CFG->attribsecho;
|
|
break;
|
|
case CRC_LOCAL:
|
|
aa.type = GMB_LOCAL;
|
|
aa.attr = CFG->attribslocal;
|
|
break;
|
|
case CRC_EMAIL:
|
|
aa.type = GMB_EMAIL | GMB_NET;
|
|
aa.attr = CFG->attribsemail;
|
|
break;
|
|
case CRC_NEWS:
|
|
aa.type = GMB_NEWSGROUP | GMB_ECHO;
|
|
aa.attr = CFG->attribsnews;
|
|
break;
|
|
default:
|
|
return false;
|
|
}
|
|
|
|
return true;
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
void AreaList::GetAreaSep(char* val) {
|
|
|
|
char* key;
|
|
AreaCfg aa;
|
|
|
|
aa.reset();
|
|
aa.basetype = "SEPARATOR";
|
|
|
|
if(not GetAreaFirstPart(aa, key, val))
|
|
return;
|
|
|
|
// Get aka
|
|
getkeyval(&key, &val);
|
|
if(not CFG->aka.empty()) // Seed aka with main address
|
|
aa.aka = CFG->aka[0].addr;
|
|
|
|
aa.aka.set(key);
|
|
|
|
AddNewArea(&aa);
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
void AreaList::GetAreaDef(char* val) {
|
|
|
|
const word CRC_SEP = 0x2FC6;
|
|
const word CRC_FIDO = 0x3AC8;
|
|
const word CRC_OPUS = 0x1254;
|
|
const word CRC_SDMSG = 0xAEC0;
|
|
const word CRC_FTS1 = 0xEE2A;
|
|
const word CRC_FTSC = 0xEE58;
|
|
const word CRC_QBBS = 0x175B;
|
|
const word CRC_HUDSON = 0xBAB1;
|
|
const word CRC_SQUISH = 0xFCF6;
|
|
const word CRC_EZYCOM = 0xC81B;
|
|
const word CRC_JAM = 0xA8C3;
|
|
const word CRC_GOLD = 0x6134;
|
|
const word CRC_GOLDBASE = 0x560D;
|
|
const word CRC_PCB = 0x19B7;
|
|
const word CRC_PCBOARD = 0x84EC;
|
|
const word CRC_WCAT = 0xAEDB;
|
|
const word CRC_WILDCAT = 0x7F3A;
|
|
const word CRC_XBBS = 0xADC3;
|
|
const word CRC_SMB = 0x27D4;
|
|
|
|
char* key;
|
|
AreaCfg aa;
|
|
|
|
aa.reset();
|
|
|
|
if(not GetAreaFirstPart(aa, key, val))
|
|
return;
|
|
|
|
// Get format
|
|
word crc = getkeyvalcrc(&key, &val);
|
|
getkeyval(&key, &val); // Get path/board
|
|
switch(crc) {
|
|
case CRC_SEP:
|
|
aa.basetype = "SEPARATOR";
|
|
break;
|
|
case CRC_FIDO:
|
|
case CRC_OPUS:
|
|
case CRC_SDMSG:
|
|
aa.basetype = "OPUS";
|
|
aa.setpath(key);
|
|
break;
|
|
case CRC_FTS1:
|
|
case CRC_FTSC:
|
|
aa.basetype = "FTS1";
|
|
aa.setpath(key);
|
|
break;
|
|
case CRC_QBBS:
|
|
case CRC_HUDSON:
|
|
aa.basetype = "HUDSON";
|
|
aa.board = (uint) atoi(key);
|
|
if((aa.board < 1) or (aa.board > 200)) {
|
|
return;
|
|
}
|
|
break;
|
|
case CRC_GOLD:
|
|
case CRC_GOLDBASE:
|
|
aa.basetype = "GOLDBASE";
|
|
aa.board = atoi(key);
|
|
if((aa.board < 1) or (aa.board > 500)) {
|
|
return;
|
|
}
|
|
break;
|
|
case CRC_SQUISH:
|
|
aa.basetype = "SQUISH";
|
|
aa.setpath(key);
|
|
break;
|
|
case CRC_SMB:
|
|
aa.basetype = "SMB";
|
|
aa.setpath(key);
|
|
break;
|
|
case CRC_EZYCOM:
|
|
aa.basetype = "EZYCOM";
|
|
aa.board = atoi(key);
|
|
break;
|
|
case CRC_JAM:
|
|
aa.basetype = "JAM";
|
|
aa.setpath(key);
|
|
break;
|
|
case CRC_PCB:
|
|
case CRC_PCBOARD:
|
|
aa.basetype = "PCBOARD";
|
|
aa.setpath(key);
|
|
break;
|
|
case CRC_WCAT:
|
|
case CRC_WILDCAT:
|
|
aa.basetype = "WILDCAT";
|
|
aa.setpath(key);
|
|
break;
|
|
case CRC_XBBS:
|
|
aa.basetype = "ADEPTXBBS";
|
|
aa.setpath(key);
|
|
break;
|
|
default:
|
|
return;
|
|
}
|
|
|
|
// Get aka
|
|
getkeyval(&key, &val);
|
|
if(not CFG->aka.empty()) // Seed aka with main address
|
|
aa.aka = CFG->aka[0].addr;
|
|
|
|
aa.aka.set(key);
|
|
|
|
// Get attributes
|
|
getkeyval(&key, &val);
|
|
GetAttribstr(&aa.attr, key);
|
|
|
|
// Get origin (optional)
|
|
getkeyval(&key, &val);
|
|
aa.setorigin(key);
|
|
|
|
// Add to arealist
|
|
AddNewArea(&aa);
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
void ReadEcholist(char* val) {
|
|
|
|
AL.ReadEcholist(val);
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
void getdztoken(char** key, char** val) {
|
|
|
|
char* p = *val;
|
|
|
|
*key = p;
|
|
p = strskip_to(p, ',');
|
|
if(*p == ',')
|
|
*p++ = NUL;
|
|
*val = p;
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
void AreaList::ReadEcholist(char* val) {
|
|
|
|
FILE* fp;
|
|
char* key;
|
|
Path file;
|
|
char buf[256], options[80];
|
|
bool is_sqafix = false;
|
|
bool is_dz = false;
|
|
|
|
// Get filename or options
|
|
*file = NUL;
|
|
*options = NUL;
|
|
while(*val) {
|
|
getkeyval(&key, &val);
|
|
if(*key == '-') {
|
|
// Get option
|
|
if(strieql(key+1, "SQAFIX"))
|
|
is_sqafix = true;
|
|
else if(strieql(key+1, "DZ"))
|
|
is_dz = true;
|
|
else {
|
|
strcat(options, key);
|
|
strcat(options, " ");
|
|
}
|
|
continue;
|
|
}
|
|
strcpy(file, key);
|
|
}
|
|
|
|
if(*file) {
|
|
|
|
fp = fsopen(file, "rt", CFG->sharemode);
|
|
if(fp) {
|
|
|
|
void (*tok)(char**, char**);
|
|
|
|
if(is_dz)
|
|
tok = getdztoken;
|
|
else
|
|
tok = getkeyval;
|
|
|
|
if(not quiet)
|
|
std::cout << "* Reading " << file << std::endl;
|
|
|
|
while(fgets((val=buf), sizeof(buf), fp)) {
|
|
|
|
// Get echoid
|
|
if(is_sqafix) {
|
|
tok(&key, &val);
|
|
if(not strieql(key, "EchoArea"))
|
|
continue;
|
|
}
|
|
else if(is_dz) {
|
|
if(not isalpha(*val) and (*val != ','))
|
|
continue;
|
|
tok(&key, &val);
|
|
}
|
|
tok(&key, &val);
|
|
if(*key and (*key != ';') and (*key != '%')) {
|
|
if(is_sqafix) {
|
|
char *grp, *desc;
|
|
tok(&grp, &val);
|
|
if((desc = strchr(val, '\"')) != NULL) {
|
|
char *p = strchr(++desc, '\"');
|
|
if(p)
|
|
*p = NUL;
|
|
else
|
|
desc = NULL;
|
|
}
|
|
for(area_iterator ap = idx.begin(); ap != idx.end(); ap++) {
|
|
if(strieql(key, (*ap)->echoid())) {
|
|
(*ap)->set_groupid(toupper(*grp));
|
|
if(desc)
|
|
(*ap)->set_desc(desc);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
else {
|
|
char *desc;
|
|
if(is_dz)
|
|
tok(&desc, &val);
|
|
else
|
|
desc = val;
|
|
for(area_iterator ap = idx.begin(); ap != idx.end(); ap++) {
|
|
if(strieql(key, (*ap)->echoid())) {
|
|
(*ap)->set_desc(desc);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
fclose(fp);
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
void AreaList::GetAreaDesc(char* val) {
|
|
|
|
char* key;
|
|
Area* aa = NULL;
|
|
|
|
// Get echoid and find area
|
|
getkeyval(&key, &val);
|
|
for(area_iterator ap = idx.begin(); ap != idx.end(); ap++) {
|
|
if(strieql(key, (*ap)->echoid())) {
|
|
aa = *ap;
|
|
break;
|
|
}
|
|
}
|
|
if(aa == NULL) // Not found, ignore
|
|
return;
|
|
|
|
// Get description
|
|
getkeyval(&key, &val);
|
|
aa->set_desc(key);
|
|
|
|
// Get group letter (optional)
|
|
getkeyval(&key, &val);
|
|
if(*key) {
|
|
if(*key != '-') {
|
|
aa->set_groupid(getgroup(key));
|
|
}
|
|
|
|
// Get aka (optional)
|
|
getkeyval(&key, &val);
|
|
if(*key) {
|
|
|
|
if(*key != '-') {
|
|
ftn_addr aka;
|
|
if(not CFG->aka.empty()) // Seed aka with main address
|
|
aka = CFG->aka[0].addr;
|
|
|
|
aka.set(key);
|
|
aa->set_aka(aka);
|
|
}
|
|
|
|
// Get attributes (optional)
|
|
getkeyval(&key, &val);
|
|
if(*key) {
|
|
|
|
if(*key != '-') {
|
|
Attr attr;
|
|
GetAttribstr(&attr, key);
|
|
aa->set_attr(attr);
|
|
}
|
|
|
|
// Get origin (optional)
|
|
getkeyval(&key, &val);
|
|
if(*key)
|
|
aa->set_origin(key);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
Area::Area(gmo_area* a) {
|
|
|
|
throw_new(a);
|
|
|
|
area = a;
|
|
adat = NULL;
|
|
bookmark = 0;
|
|
marks = 0;
|
|
unread = 0;
|
|
isvalidchg = false;
|
|
isunreadchg = false;
|
|
isreadmark = false;
|
|
isreadpm = false;
|
|
isscanned = false;
|
|
ispmscanned = false;
|
|
istossed = false;
|
|
findfirst = true;
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
Area::~Area() {
|
|
|
|
if(isopen())
|
|
Close();
|
|
|
|
throw_delete(area);
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|
|
char* MapPath(char* map, bool reverse) {
|
|
|
|
Path buf, cmap;
|
|
|
|
strxcpy(cmap, map, sizeof(Path));
|
|
if(reverse)
|
|
strchg(cmap, GOLD_WRONG_SLASH_CHR, GOLD_SLASH_CHR);
|
|
|
|
std::vector< std::pair<std::string, std::string> >::iterator i;
|
|
for(i = CFG->mappath.begin(); i != CFG->mappath.end(); i++) {
|
|
const char* p = reverse ? i->second.c_str() : i->first.c_str();
|
|
const char* q = reverse ? i->first.c_str() : i->second.c_str();
|
|
if(strnieql(cmap, p, strlen(p))) {
|
|
strxcpy(buf, map, sizeof(Path));
|
|
strxmerge(map, sizeof(Path), q, buf+strlen(p), NULL);
|
|
char sl1, sl2;
|
|
char* ptr;
|
|
|
|
ptr = strpbrk((char *)p, "/\\");
|
|
sl1 = ptr ? *ptr : NUL;
|
|
ptr = strpbrk((char *)q, "/\\");
|
|
sl2 = ptr ? *ptr : NUL;
|
|
|
|
if(sl1 and sl2 and (sl1 != sl2))
|
|
strchg(map, sl1, sl2);
|
|
|
|
break;
|
|
}
|
|
}
|
|
return map;
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
// Set area origin
|
|
|
|
int AreaCfgBase::setorigin(std::string& _origin) {
|
|
|
|
if(not strblank(_origin.c_str())) {
|
|
|
|
// Check if it already exists
|
|
gstrarray::iterator n;
|
|
for(n = CFG->origin.begin(), originno = 0; n != CFG->origin.end(); originno++, n++)
|
|
if(*n == _origin)
|
|
return originno;
|
|
|
|
// Not found, so add it
|
|
CfgOrigin(_origin.c_str());
|
|
// originno = CFG->origin.size()-1;
|
|
}
|
|
|
|
return originno;
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
// Set area echoid
|
|
|
|
const char* AreaCfg::setautoid(const char* _echoid) {
|
|
|
|
return strxcpy(echoid, CFG->areaautoid ? "" : _echoid, sizeof(Echo));
|
|
}
|
|
|
|
|
|
// ------------------------------------------------------------------
|
|
|