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/gxquick.cpp
2006-01-20 11:55:12 +00:00

270 lines
6.4 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 QuickBBS (old and new)
// ------------------------------------------------------------------
#include <cstdlib>
#include <gstrall.h>
#include <gmemdbg.h>
#if defined(__GOLD_GUI__)
#include <gvidall.h>
#include <gvidgui.h>
#endif
#undef GCFG_NOQBBS
#include <gedacfg.h>
#include <gs_qbbs.h>
// ------------------------------------------------------------------
// Read QuickBBS 2.60 (old) area config
void gareafile::ReadQ260(char* qbpath, char* origin, char* options) {
AreaCfg aa;
FILE* fp;
Path file;
Q260BrdRecP brd;
Q260CfgRecP cfg;
cfg = new Q260CfgRecT; throw_new(cfg);
brd = cfg->Boards;
MakePathname(file, qbpath, "config.bbs");
fp = fsopen(file, "rb", sharemode);
if (fp)
{
if (not quiet)
STD_PRINTNL("* Reading " << file);
fread(cfg, sizeof(Q260CfgRecT), 1, fp);
STRNP2C(cfg->OriginLine);
for(int n=0; n<200; n++) {
if(*brd[n].Name) {
aa.reset();
aa.board = n + 1;
aa.basetype = "HUDSON";
aa.setdesc(STRNP2C(brd[n].Name));
aa.setorigin(*cfg->OriginLine ? cfg->OriginLine : origin);
if(cfg->UseAka[n] == 0) {
aa.aka.zone = cfg->MatrixZone;
aa.aka.net = cfg->MatrixNet;
aa.aka.node = cfg->MatrixNode;
aa.aka.point = cfg->MatrixPoint;
}
else {
aa.aka.zone = cfg->AkaZone[cfg->UseAka[n]-1];
aa.aka.net = cfg->AkaNet[cfg->UseAka[n]-1];
aa.aka.node = cfg->AkaNode[cfg->UseAka[n]-1];
aa.aka.point = cfg->AkaPoint[cfg->UseAka[n]-1];
}
switch(brd[n].Typ) {
case 0:
aa.type = GMB_LOCAL;
aa.attr = attribslocal;
break;
case 1:
aa.type = GMB_NET;
aa.attr = attribsnet;
break;
default:
aa.type = GMB_ECHO;
aa.attr = attribsecho;
}
switch(brd[n].Kinds) {
case 1:
aa.attr.pvt1();
break;
case 0:
case 2:
aa.attr.pvt0();
break;
case 3:
aa.attr.r_o1();
break;
}
AddNewArea(aa);
}
}
fclose(fp);
}
throw_delete(cfg);
}
// ------------------------------------------------------------------
// Read QuickBBS 2.76.G2 (new) area config
void gareafile::ReadQ276(char* qbpath, char* origin, char* options) {
AreaCfg aa;
FILE* fp;
Path file;
Q276BrdRecP brd;
Q276CfgRecP cfg;
brd = new Q276BrdRecT; throw_new(brd);
cfg = new Q276CfgRecT; throw_new(cfg);
MakePathname(file, qbpath, "quickcfg.dat");
fp = fsopen(file, "rb", sharemode);
if (fp)
{
if (not quiet)
STD_PRINTNL("* Reading " << file);
fread(cfg, sizeof(Q276CfgRecT), 1, fp);
STRNP2C(cfg->MsgPath);
CfgHudsonpath(cfg->MsgPath);
fclose(fp);
}
MakePathname(file, qbpath, "MSGCFG.DAT");
fp = fsopen(file, "rb", sharemode);
if (fp)
{
if (not quiet)
STD_PRINTNL("* Reading " << file);
int _recs = (int)(filelength(fileno(fp)) / sizeof(Q276BrdRecT));
// int _fmt = (_recs > 200) ? GMB_GOLDBASE : GMB_HUDSON;
const char *_fmt = (_recs > 200) ? "GOLDBASE" : "HUDSON";
for(int n=0; n<_recs; n++) {
fread(brd, sizeof(Q276BrdRecT), 1, fp);
if(*brd->Name) {
aa.reset();
aa.board = n + 1;
aa.basetype = _fmt;
//aa.groupid = brd->Group;
aa.setorigin(*brd->OriginLine ? STRNP2C(brd->OriginLine) : origin);
aa.aka.zone = cfg->MatrixZone[brd->Aka];
aa.aka.net = cfg->MatrixNet[brd->Aka];
aa.aka.node = cfg->MatrixNode[brd->Aka];
aa.aka.point = cfg->MatrixPoint[brd->Aka];
aa.setdesc(STRNP2C(brd->Name));
switch(brd->Typ) {
case 0:
aa.type = GMB_LOCAL;
aa.attr = attribslocal;
break;
case 1:
aa.type = GMB_NET;
aa.attr = attribsnet;
break;
default:
aa.type = GMB_ECHO;
aa.attr = attribsecho;
}
switch(brd->Kinds) {
case 1:
aa.attr.pvt1();
break;
case 0:
case 2:
aa.attr.pvt0();
break;
case 3:
aa.attr.r_o1();
break;
}
AddNewArea(aa);
}
}
fclose(fp);
}
throw_delete(cfg);
throw_delete(brd);
}
// ------------------------------------------------------------------
// Read QuickBBS (old or new) configuration
void gareafile::ReadQuickBBS(char* tag) {
char* ptr;
Path qbpath;
char origin[80], options[80];
ptr = getenv("QUICKBBS");
if(ptr == NULL)
ptr = getenv("QBBS");
if(ptr)
AddBackslash(strcpy(qbpath, ptr));
else
strcpy(qbpath, areapath);
// Read AREAS.BBS
*qbpath = NUL;
*origin = NUL;
strcpy(options, tag);
ptr = strtok(tag, " \t");
while(ptr) {
if(*ptr != '-') {
if(is_dir(ptr) and (*qbpath == NUL))
AddBackslash(strcpy(qbpath, ptr));
else
GetAreasBBS(ptr, origin, options);
}
ptr = strtok(NULL, " \t");
}
// Detect general version range of QuickBBS
if(fexist(AddPath(qbpath, "quickcfg.dat")))
ReadQ276(qbpath, origin, options);
else
ReadQ260(qbpath, origin, options);
}
// ------------------------------------------------------------------