2001-08-17 05:46:24 +00:00
|
|
|
/*****************************************************************************
|
|
|
|
*
|
2002-01-07 19:16:03 +00:00
|
|
|
* $Id$
|
2001-08-17 05:46:24 +00:00
|
|
|
* Purpose ...............: AreaMgr and FileMgr utilities.
|
|
|
|
*
|
|
|
|
*****************************************************************************
|
2004-01-25 10:57:35 +00:00
|
|
|
* Copyright (C) 1997-2004
|
2001-08-17 05:46:24 +00:00
|
|
|
*
|
|
|
|
* Michiel Broek FIDO: 2:280/2802
|
|
|
|
* Beekmansbos 10
|
|
|
|
* 1971 BV IJmuiden
|
|
|
|
* the Netherlands
|
|
|
|
*
|
|
|
|
* This file is part of MBSE BBS.
|
|
|
|
*
|
|
|
|
* This BBS 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, or (at your option) any
|
|
|
|
* later version.
|
|
|
|
*
|
|
|
|
* MBSE BBS 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 MBSE BBS; see the file COPYING. If not, write to the Free
|
2003-08-15 20:05:34 +00:00
|
|
|
* Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
|
2001-08-17 05:46:24 +00:00
|
|
|
*****************************************************************************/
|
|
|
|
|
2002-06-30 12:48:44 +00:00
|
|
|
#include "../config.h"
|
2004-02-21 17:22:00 +00:00
|
|
|
#include "../lib/mbselib.h"
|
2002-01-07 19:16:03 +00:00
|
|
|
#include "../lib/users.h"
|
2004-02-21 17:22:00 +00:00
|
|
|
#include "../lib/mbsedb.h"
|
2002-03-29 22:58:53 +00:00
|
|
|
#include "../lib/diesel.h"
|
2001-08-17 05:46:24 +00:00
|
|
|
#include "sendmail.h"
|
2002-03-03 15:09:59 +00:00
|
|
|
#include "rollover.h"
|
|
|
|
#include "addpkt.h"
|
2002-04-27 21:06:51 +00:00
|
|
|
#include "createm.h"
|
|
|
|
#include "createf.h"
|
2001-08-17 05:46:24 +00:00
|
|
|
#include "mgrutil.h"
|
|
|
|
|
|
|
|
|
2002-03-03 17:05:05 +00:00
|
|
|
extern int net_out;
|
2002-04-29 19:02:27 +00:00
|
|
|
extern int do_quiet;
|
2002-08-05 13:30:44 +00:00
|
|
|
extern int do_flush;
|
2002-03-03 17:05:05 +00:00
|
|
|
|
|
|
|
|
2002-04-27 21:06:51 +00:00
|
|
|
void tidy_arealist(AreaList **);
|
|
|
|
void fill_arealist(AreaList **, char *, int);
|
|
|
|
|
|
|
|
|
|
|
|
|
2002-03-31 13:09:23 +00:00
|
|
|
void MacroRead(FILE *fi, FILE *fp)
|
|
|
|
{
|
|
|
|
char *line, *temp;
|
|
|
|
int res;
|
|
|
|
|
|
|
|
line = calloc(256, sizeof(char));
|
|
|
|
temp = calloc(256, sizeof(char));
|
|
|
|
|
|
|
|
while ((fgets(line, 254, fi) != NULL) && ((line[0]!='@') || (line[1]!='|'))) {
|
|
|
|
/*
|
|
|
|
* Skip comment lines
|
|
|
|
*/
|
|
|
|
if (line[0] != '#') {
|
|
|
|
Striplf(line);
|
|
|
|
if (strlen(line) == 0) {
|
|
|
|
/*
|
|
|
|
* Empty lines are just written
|
|
|
|
*/
|
|
|
|
fprintf(fp, "\r");
|
|
|
|
} else {
|
|
|
|
strncpy(temp, ParseMacro(line,&res), 254);
|
|
|
|
if (res)
|
|
|
|
Syslog('!', "Macro error line: \"%s\"", line);
|
|
|
|
/*
|
|
|
|
* Only output if something was evaluated
|
|
|
|
*/
|
|
|
|
if (strlen(temp))
|
|
|
|
fprintf(fp, "%s\r", temp);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
free(line);
|
|
|
|
free(temp);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2001-08-17 05:46:24 +00:00
|
|
|
|
2002-03-02 13:27:44 +00:00
|
|
|
/*
|
|
|
|
* Write Echomail groups list to tempfile
|
|
|
|
*/
|
2001-08-17 05:46:24 +00:00
|
|
|
void WriteMailGroups(FILE *fp, faddr *f)
|
|
|
|
{
|
2002-03-31 20:07:04 +00:00
|
|
|
int Count = 0, First = TRUE;
|
|
|
|
char *Group, *temp;
|
|
|
|
FILE *gp,*fi;
|
2002-06-17 20:36:06 +00:00
|
|
|
faddr *g, *Temp;
|
2002-03-31 20:07:04 +00:00
|
|
|
fpos_t fileptr;
|
2001-08-17 05:46:24 +00:00
|
|
|
|
2002-04-10 20:29:57 +00:00
|
|
|
if ((fi = OpenMacro("areamgr.group", nodes.Language, FALSE)) == NULL)
|
2002-03-31 20:07:04 +00:00
|
|
|
return;
|
|
|
|
|
|
|
|
MacroRead(fi, fp);
|
|
|
|
fgetpos(fi,&fileptr);
|
|
|
|
|
|
|
|
temp = calloc(PATH_MAX, sizeof(char));
|
|
|
|
sprintf(temp, "%s/etc/mgroups.data", getenv("MBSE_ROOT"));
|
|
|
|
|
|
|
|
if ((gp = fopen(temp, "r")) == NULL) {
|
|
|
|
WriteError("$Can't open %s", temp);
|
2001-08-17 05:46:24 +00:00
|
|
|
free(temp);
|
2002-03-31 20:07:04 +00:00
|
|
|
fclose(fi);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
fread(&mgrouphdr, sizeof(mgrouphdr), 1, gp);
|
|
|
|
|
|
|
|
while (TRUE) {
|
|
|
|
Group = GetNodeMailGrp(First);
|
|
|
|
if (Group == NULL)
|
|
|
|
break;
|
|
|
|
First = FALSE;
|
|
|
|
|
|
|
|
fseek(gp, mgrouphdr.hdrsize, SEEK_SET);
|
|
|
|
while (fread(&mgroup, mgrouphdr.recsize, 1, gp) == 1) {
|
2002-06-17 20:36:06 +00:00
|
|
|
Temp = fido2faddr(mgroup.UseAka);
|
|
|
|
g = bestaka_s(Temp);
|
2002-03-31 20:07:04 +00:00
|
|
|
if ((!strcmp(mgroup.Name, Group)) &&
|
|
|
|
(g->zone == f->zone) && (g->net == f->net) && (g->node == f->node) && (g->point == f->point)) {
|
|
|
|
MacroVars("gh", "ss", mgroup.Name, mgroup.Comment);
|
|
|
|
fsetpos(fi, &fileptr);
|
|
|
|
MacroRead(fi, fp);
|
|
|
|
Count++;
|
|
|
|
break;
|
|
|
|
}
|
2002-06-17 20:36:06 +00:00
|
|
|
tidy_faddr(Temp);
|
2002-03-31 20:07:04 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
MacroVars("b", "d", Count);
|
|
|
|
MacroRead(fi, fp);
|
|
|
|
fclose(fi);
|
|
|
|
fclose(gp);
|
|
|
|
free(temp);
|
2001-08-17 05:46:24 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
2002-03-02 13:27:44 +00:00
|
|
|
/*
|
|
|
|
* Write ticarea groups to tempfile
|
|
|
|
*/
|
2001-08-17 05:46:24 +00:00
|
|
|
void WriteFileGroups(FILE *fp, faddr *f)
|
|
|
|
{
|
2002-03-31 20:07:04 +00:00
|
|
|
int Count = 0, First = TRUE;
|
|
|
|
char *Group, *temp;
|
|
|
|
FILE *gp, *fi;
|
2002-06-17 20:36:06 +00:00
|
|
|
faddr *g, *Temp;
|
2002-03-31 20:07:04 +00:00
|
|
|
fpos_t fileptr;
|
2001-08-17 05:46:24 +00:00
|
|
|
|
2002-04-10 20:29:57 +00:00
|
|
|
if ((fi = OpenMacro("filemgr.group", nodes.Language, FALSE)) == NULL)
|
2002-03-31 20:07:04 +00:00
|
|
|
return;
|
2001-08-17 05:46:24 +00:00
|
|
|
|
2002-03-31 20:07:04 +00:00
|
|
|
MacroRead(fi, fp);
|
|
|
|
fgetpos(fi,&fileptr);
|
2001-08-17 05:46:24 +00:00
|
|
|
|
2004-08-07 11:25:44 +00:00
|
|
|
temp = calloc(PATH_MAX, sizeof(char));
|
2002-03-31 20:07:04 +00:00
|
|
|
sprintf(temp, "%s/etc/fgroups.data", getenv("MBSE_ROOT"));
|
|
|
|
|
|
|
|
if ((gp = fopen(temp, "r")) == NULL) {
|
|
|
|
WriteError("$Can't open %s", temp);
|
|
|
|
free(temp);
|
|
|
|
fclose(fi);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
fread(&fgrouphdr, sizeof(fgrouphdr), 1, gp);
|
|
|
|
|
|
|
|
while (TRUE) {
|
|
|
|
Group = GetNodeFileGrp(First);
|
|
|
|
if (Group == NULL)
|
|
|
|
break;
|
|
|
|
First = FALSE;
|
|
|
|
|
|
|
|
fseek(gp, fgrouphdr.hdrsize, SEEK_SET);
|
|
|
|
while (fread(&fgroup, fgrouphdr.recsize, 1, gp) == 1) {
|
2002-06-17 20:36:06 +00:00
|
|
|
Temp = fido2faddr(fgroup.UseAka);
|
|
|
|
g = bestaka_s(Temp);
|
2002-03-31 20:07:04 +00:00
|
|
|
if ((!strcmp(fgroup.Name, Group)) &&
|
|
|
|
(g->zone == f->zone) && (g->net == f->net) && (g->node == f->node) && (g->point == f->point)) {
|
|
|
|
MacroVars("gh", "ss", fgroup.Name, fgroup.Comment );
|
|
|
|
fsetpos(fi,&fileptr);
|
|
|
|
MacroRead(fi, fp);
|
|
|
|
Count++;
|
|
|
|
break;
|
|
|
|
}
|
2002-06-17 20:36:06 +00:00
|
|
|
tidy_faddr(Temp);
|
2002-03-31 20:07:04 +00:00
|
|
|
}
|
|
|
|
}
|
2001-08-17 05:46:24 +00:00
|
|
|
|
2002-03-31 20:07:04 +00:00
|
|
|
MacroVars("b", "d", Count );
|
|
|
|
MacroRead(fi, fp);
|
|
|
|
fclose(fi);
|
|
|
|
fclose(gp);
|
|
|
|
free(temp);
|
2001-08-17 05:46:24 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
2002-03-02 13:27:44 +00:00
|
|
|
/*
|
|
|
|
* Shift all characters in Buf Cnt places to left
|
|
|
|
*/
|
2001-08-17 05:46:24 +00:00
|
|
|
void ShiftBuf(char *Buf, int Cnt)
|
|
|
|
{
|
|
|
|
int i;
|
|
|
|
|
|
|
|
for (i = Cnt; i < strlen(Buf); i++)
|
|
|
|
Buf[i - Cnt] = Buf[i];
|
|
|
|
Buf[i - Cnt] = '\0';
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
2002-03-02 13:27:44 +00:00
|
|
|
/*
|
|
|
|
* Remove spaces and = characters from begin of line
|
|
|
|
*/
|
2001-08-17 05:46:24 +00:00
|
|
|
void CleanBuf(char *Buf)
|
|
|
|
{
|
|
|
|
while (strlen(Buf) && ((Buf[0] == ' ') || (Buf[0] == '=')))
|
|
|
|
ShiftBuf(Buf, 1);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
2002-03-02 13:27:44 +00:00
|
|
|
/*
|
|
|
|
* Change AreaMgr and FileMgr password for a node
|
|
|
|
*/
|
2002-03-29 22:58:53 +00:00
|
|
|
void MgrPasswd(faddr *t, char *Buf, FILE *tmp, int Len, int mgr)
|
2001-08-17 05:46:24 +00:00
|
|
|
{
|
|
|
|
ShiftBuf(Buf, Len);
|
|
|
|
CleanBuf(Buf);
|
2002-03-29 22:58:53 +00:00
|
|
|
MacroVars("SsP", "sss", CFG.sysop_name, nodes.Sysop, mgr?(char *)"Filemgr":(char *)"Areamgr");
|
2001-08-17 05:46:24 +00:00
|
|
|
if ((strlen(Buf) < 3) || (strlen(Buf) > 15)) {
|
2002-03-29 22:58:53 +00:00
|
|
|
MacroVars("RABCDE", "ssssss",(char *)"ERR_PASS_LEN",(char *)"",(char *)"",(char *)"",(char *)"",(char *)"");
|
2004-08-08 11:55:43 +00:00
|
|
|
MsgResult(mgr?"filemgr.responses":"areamgr.responses",tmp,'\n');
|
2002-09-28 22:22:50 +00:00
|
|
|
Mgrlog("%s: Password length %d, not changed", mgr?(char *)"Filemgr":(char *)"Areamgr", strlen(Buf));
|
2002-03-29 22:58:53 +00:00
|
|
|
return;
|
2001-08-17 05:46:24 +00:00
|
|
|
}
|
|
|
|
|
2002-03-02 13:27:44 +00:00
|
|
|
memset(&nodes.Apasswd, 0, sizeof(nodes.Apasswd));
|
|
|
|
strncpy(nodes.Apasswd, tu(Buf), 15);
|
2002-03-29 22:58:53 +00:00
|
|
|
MacroVars("RABCDE", "ssssss",(char *)"OK_PASS",nodes.Apasswd,(char *)"",(char *)"",(char *)"",(char *)"");
|
2004-08-08 11:55:43 +00:00
|
|
|
MsgResult(mgr?"filemgr.responses":"areamgr.responses",tmp,'\n');
|
2002-09-28 22:22:50 +00:00
|
|
|
Mgrlog("%s: Password \"%s\" for node %s", mgr?(char *)"Filemgr":(char *)"Areamgr", nodes.Apasswd, ascfnode(t, 0x1f));
|
2002-03-29 22:58:53 +00:00
|
|
|
MacroClear();
|
2001-08-17 05:46:24 +00:00
|
|
|
UpdateNode();
|
2002-03-02 15:42:08 +00:00
|
|
|
SearchNodeFaddr(t);
|
2001-08-17 05:46:24 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
2002-03-02 13:27:44 +00:00
|
|
|
/*
|
|
|
|
* Change AreaMgr/FileMgr nodify flag for node
|
|
|
|
*/
|
2002-03-29 22:58:53 +00:00
|
|
|
void MgrNotify(faddr *t, char *Buf, FILE *tmp, int mgr)
|
2001-08-17 05:46:24 +00:00
|
|
|
{
|
|
|
|
/*
|
|
|
|
* First strip leading garbage
|
|
|
|
*/
|
|
|
|
ShiftBuf(Buf, 7);
|
|
|
|
CleanBuf(Buf);
|
|
|
|
|
|
|
|
if (!strncasecmp(Buf, "on", 2))
|
|
|
|
nodes.Notify = TRUE;
|
|
|
|
else if (!strncasecmp(Buf, "off", 3))
|
2002-02-11 22:07:45 +00:00
|
|
|
nodes.Notify = FALSE;
|
|
|
|
else
|
|
|
|
return;
|
2001-08-17 05:46:24 +00:00
|
|
|
|
|
|
|
UpdateNode();
|
2002-03-02 15:42:08 +00:00
|
|
|
SearchNodeFaddr(t);
|
2002-09-28 22:22:50 +00:00
|
|
|
Mgrlog("%s: Notify %s", mgr?(char *)"Filemgr":(char *)"Areamgr", nodes.Notify?"Yes":"No");
|
2002-03-29 22:58:53 +00:00
|
|
|
MacroVars("SsP", "sss", CFG.sysop_name, nodes.Sysop,mgr?(char *)"Filemgr":(char *)"Areamgr");
|
2002-03-31 21:33:16 +00:00
|
|
|
MacroVars("RABCDE", "sdssss",(char *)"NOTIFY",nodes.Notify,(char *)"",(char *)"",(char *)"",(char *)"");
|
2004-08-08 11:55:43 +00:00
|
|
|
MsgResult(mgr?"filemgr.responses":"areamgr.responses",tmp,'\n');
|
2002-03-29 22:58:53 +00:00
|
|
|
MacroClear();
|
2001-08-17 05:46:24 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2002-03-03 15:09:59 +00:00
|
|
|
|
|
|
|
/*
|
|
|
|
* Create uplink areamgr request. One netmail per request.
|
2002-04-28 15:49:28 +00:00
|
|
|
* More is possible, cmd is then: "+area1\r+area2\r-area3"
|
2002-03-03 15:09:59 +00:00
|
|
|
* Return values:
|
|
|
|
* 0 - Ok
|
|
|
|
* 1 - Node not in setup
|
|
|
|
* 2 - No Uplink mgr program in setup
|
|
|
|
* 3 - No uplink password in setup
|
|
|
|
* 4 - Can't add mail to outbound
|
|
|
|
*/
|
2002-06-17 19:53:22 +00:00
|
|
|
int UplinkRequest(faddr *t, faddr *From, int FileMgr, char *cmd)
|
2002-03-03 15:09:59 +00:00
|
|
|
{
|
|
|
|
FILE *qp;
|
|
|
|
time_t Now;
|
|
|
|
struct tm *tm;
|
|
|
|
fidoaddr Orig, Dest;
|
|
|
|
unsigned flags = M_PVT;
|
2002-12-07 15:34:28 +00:00
|
|
|
char ext[4], *mgrname, *subj, cmdline[81];
|
|
|
|
int i, j;
|
2002-03-03 15:09:59 +00:00
|
|
|
|
|
|
|
memset(&Orig, 0, sizeof(Orig));
|
2002-06-17 19:53:22 +00:00
|
|
|
Orig.zone = From->zone;
|
|
|
|
Orig.net = From->net;
|
|
|
|
Orig.node = From->node;
|
|
|
|
Orig.point = From->point;
|
|
|
|
sprintf(Orig.domain, "%s", From->domain);
|
2002-03-03 15:09:59 +00:00
|
|
|
|
|
|
|
memset(&Dest, 0, sizeof(Dest));
|
|
|
|
Dest.zone = t->zone;
|
|
|
|
Dest.net = t->net;
|
|
|
|
Dest.node = t->node;
|
|
|
|
Dest.point = t->point;
|
|
|
|
sprintf(Dest.domain, "%s", t->domain);
|
|
|
|
|
|
|
|
if (!SearchNode(Dest)) {
|
|
|
|
Syslog('+', "Can't find node %s in setup", aka2str(Dest));
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (FileMgr) {
|
|
|
|
if (strlen(nodes.UplFmgrPgm) == 0) {
|
|
|
|
Syslog('!', "FileMgr program not defined in setup of node %s", aka2str(Dest));
|
|
|
|
return 2;
|
|
|
|
}
|
|
|
|
mgrname = xstrcpy(nodes.UplFmgrPgm);
|
2004-08-08 11:55:43 +00:00
|
|
|
if (strlen(nodes.UplFmgrPass) == 0) {
|
|
|
|
Syslog('!', "No FileMgr password set for node %s", aka2str(Dest));
|
|
|
|
return 3;
|
|
|
|
}
|
|
|
|
subj = xstrcpy(nodes.UplFmgrPass);
|
2002-03-03 15:09:59 +00:00
|
|
|
} else {
|
|
|
|
if (strlen(nodes.UplAmgrPgm) == 0) {
|
|
|
|
Syslog('!', "AreaMgr program not defined in setup of node %s", aka2str(Dest));
|
|
|
|
return 2;
|
|
|
|
}
|
|
|
|
mgrname = xstrcpy(nodes.UplAmgrPgm);
|
2004-08-08 11:55:43 +00:00
|
|
|
if (strlen(nodes.UplAmgrPass) == 0) {
|
|
|
|
Syslog('!', "No AreaMgr password set for node %s", aka2str(Dest));
|
|
|
|
return 3;
|
|
|
|
}
|
|
|
|
subj = xstrcpy(nodes.UplAmgrPass);
|
2002-03-03 15:09:59 +00:00
|
|
|
}
|
|
|
|
|
2002-12-07 16:59:01 +00:00
|
|
|
Mgrlog("Sending uplink request from %s to \"%s\" at %s", aka2str(Orig), mgrname, ascfnode(t, 0x1f));
|
2002-03-03 15:09:59 +00:00
|
|
|
|
|
|
|
Now = time(NULL) - (gmt_offset((time_t)0) * 60);
|
|
|
|
flags |= (nodes.Crash) ? M_CRASH : 0;
|
|
|
|
flags |= (nodes.Hold) ? M_HOLD : 0;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Increase counters, update record and reload.
|
|
|
|
*/
|
|
|
|
StatAdd(&nodes.MailSent, 1L);
|
|
|
|
UpdateNode();
|
|
|
|
SearchNode(Dest);
|
|
|
|
|
|
|
|
memset(&ext, 0, sizeof(ext));
|
|
|
|
if (nodes.PackNetmail)
|
|
|
|
sprintf(ext, (char *)"qqq");
|
|
|
|
else if (nodes.Crash)
|
|
|
|
sprintf(ext, (char *)"ccc");
|
|
|
|
else if (nodes.Hold)
|
|
|
|
sprintf(ext, (char *)"hhh");
|
|
|
|
else
|
|
|
|
sprintf(ext, (char *)"nnn");
|
|
|
|
|
|
|
|
if ((qp = OpenPkt(Orig, Dest, (char *)ext)) == NULL)
|
|
|
|
return 4;
|
|
|
|
|
2002-06-17 19:53:22 +00:00
|
|
|
if (AddMsgHdr(qp, From, t, flags, 0, Now, mgrname, CFG.sysop_name, subj)) {
|
2002-03-03 15:09:59 +00:00
|
|
|
fclose(qp);
|
|
|
|
return 4;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (Dest.point)
|
|
|
|
fprintf(qp, "\001TOPT %d\r", Dest.point);
|
|
|
|
if (Orig.point)
|
|
|
|
fprintf(qp, "\001FMPT %d\r", Orig.point);
|
|
|
|
|
|
|
|
fprintf(qp, "\001INTL %d:%d/%d %d:%d/%d\r", Dest.zone, Dest.net, Dest.node, Orig.zone, Orig.net, Orig.node);
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Add MSGID, REPLY and PID
|
|
|
|
*/
|
|
|
|
fprintf(qp, "\001MSGID: %s %08lx\r", aka2str(Orig), sequencer());
|
2004-02-23 16:22:38 +00:00
|
|
|
fprintf(qp, "\001PID: MBSE-FIDO %s (%s-%s)\r", VERSION, OsName(), OsCPU());
|
2002-03-03 15:09:59 +00:00
|
|
|
fprintf(qp, "\001TZUTC: %s\r", gmtoffset(Now));
|
|
|
|
|
2002-12-07 15:34:28 +00:00
|
|
|
/*
|
|
|
|
* Send command, may be format *AREA1\r+AREA2\r=AREA3
|
|
|
|
*/
|
|
|
|
j = 0;
|
|
|
|
for (i = 0; i < strlen(cmd); i++) {
|
2002-03-03 15:09:59 +00:00
|
|
|
putc(cmd[i], qp);
|
2002-12-07 15:34:28 +00:00
|
|
|
if (cmd[i] == '\r') {
|
|
|
|
cmdline[j] = '\0';
|
|
|
|
Mgrlog("%s", cmdline);
|
|
|
|
j = 0;
|
|
|
|
} else {
|
|
|
|
cmdline[j] = cmd[i];
|
|
|
|
j++;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
putc('\r', qp); /* There is no return after the last one. */
|
|
|
|
cmdline[j] = '\0';
|
|
|
|
Mgrlog("%s", cmdline);
|
|
|
|
Mgrlog("---");
|
2002-03-03 15:09:59 +00:00
|
|
|
fprintf(qp, TearLine());
|
2002-12-07 15:34:28 +00:00
|
|
|
|
2002-04-28 15:49:28 +00:00
|
|
|
/*
|
|
|
|
* Add a warning after the tearline.
|
|
|
|
*/
|
|
|
|
fprintf(qp, "Please note, this is an automatic created message\r");
|
2002-03-03 15:09:59 +00:00
|
|
|
|
|
|
|
tm = gmtime(&Now);
|
|
|
|
fprintf(qp, "\001Via %s @%d%02d%02d.%02d%02d%02d.02.UTC %s\r",
|
|
|
|
ascfnode(bestaka_s(t), 0x1f), tm->tm_year+1900, tm->tm_mon+1, tm->tm_mday,
|
|
|
|
tm->tm_hour, tm->tm_min, tm->tm_sec, VERSION);
|
|
|
|
|
|
|
|
putc(0, qp);
|
|
|
|
fclose(qp);
|
|
|
|
|
|
|
|
free(mgrname);
|
|
|
|
free(subj);
|
2002-03-03 17:05:05 +00:00
|
|
|
net_out++;
|
2002-03-03 15:09:59 +00:00
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2002-03-31 13:09:23 +00:00
|
|
|
|
2002-03-29 22:58:53 +00:00
|
|
|
void GetRpSubject(const char *report, char* subject)
|
|
|
|
{
|
2002-03-31 13:09:23 +00:00
|
|
|
FILE *fi;
|
|
|
|
char *temp;
|
|
|
|
int res;
|
|
|
|
|
2002-03-29 22:58:53 +00:00
|
|
|
temp = calloc(256,sizeof(char));
|
2002-04-10 20:29:57 +00:00
|
|
|
if ((fi=OpenMacro(report, nodes.Language, FALSE))!=NULL){
|
2002-03-29 22:58:53 +00:00
|
|
|
while ( fgets(temp, 254, fi) != NULL )
|
2002-03-31 13:09:23 +00:00
|
|
|
if (temp[0] != '#')
|
2002-03-29 22:58:53 +00:00
|
|
|
ParseMacro(temp,&res);
|
|
|
|
fclose(fi);
|
|
|
|
}
|
2002-03-31 13:09:23 +00:00
|
|
|
|
|
|
|
res=diesel((char *)"@(getvar,subject)",temp);
|
|
|
|
|
2002-03-29 22:58:53 +00:00
|
|
|
if(res==0)
|
|
|
|
sprintf(subject,"%s",temp);
|
|
|
|
free(temp);
|
|
|
|
}
|
|
|
|
|
2002-03-31 13:09:23 +00:00
|
|
|
|
|
|
|
|
2004-08-08 11:55:43 +00:00
|
|
|
int MsgResult(const char * report, FILE *fo, char eol)
|
2002-03-29 22:58:53 +00:00
|
|
|
{
|
2002-03-31 13:09:23 +00:00
|
|
|
FILE *fi;
|
2002-03-31 21:33:16 +00:00
|
|
|
char *temp, *resp;
|
2002-03-31 13:09:23 +00:00
|
|
|
int res;
|
|
|
|
|
2002-03-29 22:58:53 +00:00
|
|
|
temp = calloc(256,sizeof(char));
|
2002-03-31 21:33:16 +00:00
|
|
|
resp = calloc(256,sizeof(char));
|
|
|
|
|
2002-04-10 20:29:57 +00:00
|
|
|
if ((fi = OpenMacro(report, nodes.Language, FALSE)) != NULL){
|
2002-03-29 22:58:53 +00:00
|
|
|
while ( fgets(temp, 254, fi) != NULL ){
|
2002-03-31 21:33:16 +00:00
|
|
|
if (temp[0] != '#') {
|
|
|
|
strncpy(resp, ParseMacro(temp, &res), 80);
|
|
|
|
if ((res == 0) && strlen(resp))
|
2004-08-08 11:55:43 +00:00
|
|
|
fprintf(fo,"%s%c",ParseMacro(temp,&res), eol);
|
2002-03-31 21:33:16 +00:00
|
|
|
}
|
2002-03-29 22:58:53 +00:00
|
|
|
}
|
|
|
|
fclose(fi);
|
|
|
|
res=1;
|
2002-03-31 20:07:04 +00:00
|
|
|
} else {
|
|
|
|
res = 0;
|
2002-03-29 22:58:53 +00:00
|
|
|
}
|
2002-03-31 20:07:04 +00:00
|
|
|
|
2002-03-31 21:33:16 +00:00
|
|
|
free(resp);
|
2002-03-29 22:58:53 +00:00
|
|
|
free(temp);
|
|
|
|
return res;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
2002-04-27 21:06:51 +00:00
|
|
|
void tidy_arealist(AreaList **fdp)
|
|
|
|
{
|
|
|
|
AreaList *tmp, *old;
|
|
|
|
|
|
|
|
for (tmp = *fdp; tmp; tmp = old) {
|
|
|
|
old = tmp->next;
|
|
|
|
free(tmp);
|
|
|
|
}
|
|
|
|
*fdp = NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
void fill_arealist(AreaList **fdp, char *tag, int DoDelete)
|
|
|
|
{
|
|
|
|
AreaList **tmp;
|
|
|
|
|
|
|
|
for (tmp = fdp; *tmp; tmp = &((*tmp)->next));
|
|
|
|
*tmp = (AreaList *)malloc(sizeof(AreaList));
|
|
|
|
(*tmp)->next = NULL;
|
|
|
|
strcpy((*tmp)->Name, tag);
|
|
|
|
(*tmp)->IsPresent = FALSE;
|
|
|
|
(*tmp)->DoDelete = DoDelete;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
2002-12-07 15:34:28 +00:00
|
|
|
/*
|
|
|
|
* Process areas commandline. Check for missing records in message and
|
|
|
|
* file groups or areas dropped from the area taglists. Supported taglists
|
|
|
|
* are plain areaname description lists and for file areas the filegate.zxx
|
|
|
|
* formatted lists.
|
|
|
|
*/
|
2002-04-27 21:06:51 +00:00
|
|
|
int Areas(void)
|
|
|
|
{
|
|
|
|
FILE *gp, *ap, *fp;
|
2002-04-28 15:49:28 +00:00
|
|
|
char *temp, *buf, *tag, *desc, *p, *cmd = NULL;
|
2002-04-27 21:06:51 +00:00
|
|
|
AreaList *alist = NULL, *tmp;
|
2002-04-28 14:27:23 +00:00
|
|
|
int i, count = 0, Found;
|
2002-04-27 21:06:51 +00:00
|
|
|
sysconnect System;
|
2002-06-17 20:36:06 +00:00
|
|
|
faddr *From, *To;
|
2002-04-27 21:06:51 +00:00
|
|
|
|
2002-12-07 16:59:01 +00:00
|
|
|
Mgrlog("Process areas taglists");
|
2002-04-27 21:06:51 +00:00
|
|
|
|
2002-04-29 19:02:27 +00:00
|
|
|
if (!do_quiet) {
|
|
|
|
colour(3, 0);
|
|
|
|
printf("Processing areas taglists...\n");
|
|
|
|
}
|
|
|
|
|
2002-04-27 21:06:51 +00:00
|
|
|
temp = calloc(PATH_MAX, sizeof(char));
|
|
|
|
buf = calloc(4097, sizeof(char));
|
|
|
|
|
|
|
|
sprintf(temp, "%s/etc/mgroups.data", getenv("MBSE_ROOT"));
|
|
|
|
if ((gp = fopen(temp, "r")) == NULL) {
|
|
|
|
WriteError("Can't open %s", temp);
|
|
|
|
} else {
|
|
|
|
fread(&mgrouphdr, sizeof(mgrouphdr), 1, gp);
|
|
|
|
fseek(gp, mgrouphdr.hdrsize, SEEK_SET);
|
|
|
|
|
|
|
|
while ((fread(&mgroup, mgrouphdr.recsize, 1, gp)) == 1) {
|
|
|
|
if (mgroup.Active && mgroup.AutoChange && strlen(mgroup.AreaFile)) {
|
2002-04-29 19:02:27 +00:00
|
|
|
if (!do_quiet) {
|
|
|
|
colour(CYAN, BLACK);
|
|
|
|
printf("\rEcho group %-12s ", mgroup.Name);
|
|
|
|
fflush(stdout);
|
|
|
|
}
|
2002-04-27 21:06:51 +00:00
|
|
|
Syslog('+', "Checking mail group %s, file %s", mgroup.Name, mgroup.AreaFile);
|
|
|
|
sprintf(temp, "%s/%s", CFG.alists_path, mgroup.AreaFile);
|
|
|
|
if ((ap = fopen(temp, "r")) == NULL) {
|
|
|
|
WriteError("Can't open %s", temp);
|
|
|
|
} else {
|
|
|
|
while (fgets(buf, 4096, ap)) {
|
|
|
|
if (strlen(buf) && isalnum(buf[0])) {
|
|
|
|
tag = strtok(buf, "\t \r\n\0");
|
|
|
|
fill_arealist(&alist, tag, FALSE);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
fclose(ap);
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Mark areas already present in the taglist.
|
|
|
|
*/
|
2002-04-29 19:02:27 +00:00
|
|
|
if (!do_quiet) {
|
|
|
|
colour(LIGHTRED, BLACK);
|
|
|
|
printf("(check missing areas)\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b");
|
|
|
|
fflush(stdout);
|
|
|
|
}
|
2002-04-27 21:06:51 +00:00
|
|
|
sprintf(temp, "%s/etc/mareas.data", getenv("MBSE_ROOT"));
|
|
|
|
if ((fp = fopen(temp, "r")) == NULL) {
|
|
|
|
WriteError("Can't open %s", temp);
|
|
|
|
tidy_arealist(&alist);
|
|
|
|
free(buf);
|
|
|
|
free(temp);
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
fread(&msgshdr, sizeof(msgshdr), 1, fp);
|
|
|
|
for (tmp = alist; tmp; tmp = tmp->next) {
|
|
|
|
fseek(fp, msgshdr.hdrsize, SEEK_SET);
|
2002-04-29 19:02:27 +00:00
|
|
|
if (CFG.slow_util && do_quiet)
|
2004-01-25 10:57:35 +00:00
|
|
|
msleep(1);
|
2002-04-27 21:06:51 +00:00
|
|
|
while (fread(&msgs, msgshdr.recsize, 1, fp) == 1) {
|
|
|
|
if (msgs.Active && !strcmp(msgs.Group, mgroup.Name) && !strcmp(msgs.Tag, tmp->Name))
|
|
|
|
tmp->IsPresent = TRUE;
|
|
|
|
fseek(fp, msgshdr.syssize, SEEK_CUR);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Add areas to AreaList not in the taglist, they must be deleted.
|
|
|
|
*/
|
2002-04-29 19:02:27 +00:00
|
|
|
if (!do_quiet) {
|
|
|
|
printf("(check deleted areas)\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b");
|
|
|
|
fflush(stdout);
|
|
|
|
}
|
2002-04-27 21:06:51 +00:00
|
|
|
fseek(fp, msgshdr.hdrsize, SEEK_SET);
|
|
|
|
while (fread(&msgs, msgshdr.recsize, 1, fp) == 1) {
|
2002-09-29 20:08:32 +00:00
|
|
|
if (msgs.Active && !strcmp(msgs.Group, mgroup.Name) && (msgs.Type == ECHOMAIL)) {
|
2002-04-27 21:06:51 +00:00
|
|
|
Found = FALSE;
|
|
|
|
for (tmp = alist; tmp; tmp = tmp->next) {
|
|
|
|
if (!strcmp(msgs.Tag, tmp->Name))
|
|
|
|
Found = TRUE;
|
|
|
|
}
|
|
|
|
if (!Found)
|
|
|
|
fill_arealist(&alist, msgs.Tag, TRUE);
|
|
|
|
}
|
|
|
|
fseek(fp, msgshdr.syssize, SEEK_CUR);
|
|
|
|
}
|
|
|
|
fclose(fp);
|
2002-04-29 19:02:27 +00:00
|
|
|
if (!do_quiet) {
|
|
|
|
printf("(update database) \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b");
|
|
|
|
fflush(stdout);
|
|
|
|
}
|
|
|
|
|
2002-04-27 21:06:51 +00:00
|
|
|
/*
|
|
|
|
* Make modification, first add missing areas
|
|
|
|
*/
|
|
|
|
for (tmp = alist; tmp; tmp = tmp->next) {
|
2002-04-28 15:49:28 +00:00
|
|
|
if (!tmp->IsPresent && !tmp->DoDelete) {
|
|
|
|
/*
|
|
|
|
* Autocraete group, don't sent uplink request yet.
|
|
|
|
*/
|
|
|
|
CheckEchoGroup(tmp->Name, FALSE, NULL);
|
|
|
|
if (cmd == NULL) {
|
|
|
|
cmd = xstrcpy((char *)"+");
|
|
|
|
} else {
|
|
|
|
cmd = xstrcat(cmd, (char *)"\r+");
|
|
|
|
}
|
|
|
|
cmd = xstrcat(cmd, tmp->Name);
|
2002-04-29 19:02:27 +00:00
|
|
|
if (CFG.slow_util && do_quiet)
|
2004-01-25 10:57:35 +00:00
|
|
|
msleep(1);
|
2002-04-28 15:49:28 +00:00
|
|
|
}
|
2002-04-27 21:06:51 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
2002-04-28 14:27:23 +00:00
|
|
|
* Now remove deleted areas. If there are messages in the area,
|
|
|
|
* the area is set to read-only and all links are disconnected.
|
|
|
|
* If the area is empty, it is removed from the setup.
|
2002-04-27 21:06:51 +00:00
|
|
|
*/
|
|
|
|
sprintf(temp, "%s/etc/mareas.data", getenv("MBSE_ROOT"));
|
|
|
|
if ((fp = fopen(temp, "r+")) == NULL) {
|
|
|
|
WriteError("Can't open %s for r/w");
|
|
|
|
} else {
|
|
|
|
fread(&msgshdr, sizeof(msgshdr), 1, fp);
|
|
|
|
for (tmp = alist; tmp; tmp = tmp->next) {
|
|
|
|
if (!tmp->IsPresent && tmp->DoDelete) {
|
|
|
|
fseek(fp, msgshdr.hdrsize, SEEK_SET);
|
|
|
|
Syslog('m', "Delete %s", tmp->Name);
|
2002-04-29 19:02:27 +00:00
|
|
|
if (CFG.slow_util && do_quiet)
|
2004-01-25 10:57:35 +00:00
|
|
|
msleep(1);
|
2002-04-27 21:06:51 +00:00
|
|
|
while (fread(&msgs, msgshdr.recsize, 1, fp) == 1) {
|
|
|
|
if (msgs.Active && !strcmp(msgs.Group, mgroup.Name) && !strcmp(msgs.Tag, tmp->Name)) {
|
|
|
|
fseek(fp, - msgshdr.recsize, SEEK_CUR);
|
2002-04-28 14:27:23 +00:00
|
|
|
sprintf(temp, "%s.jhr", msgs.Base);
|
|
|
|
if (strlen(msgs.Base) && (file_size(temp) != 1024)) {
|
2002-12-07 16:59:01 +00:00
|
|
|
Mgrlog("Marking echo %s, group %s, area %d read-only", msgs.Tag, mgroup.Name,
|
|
|
|
((ftell(fp) - msgshdr.hdrsize) / (msgshdr.recsize + msgshdr.syssize)) + 1);
|
2002-04-28 14:27:23 +00:00
|
|
|
msgs.MsgKinds = RONLY; // Area read-only
|
|
|
|
sprintf(msgs.Group, "DELETED"); // Make groupname invalid
|
|
|
|
} else {
|
2002-12-07 16:59:01 +00:00
|
|
|
Mgrlog("Removing empty echo %s, group %s, area %d", msgs.Tag, mgroup.Name,
|
|
|
|
((ftell(fp) - msgshdr.hdrsize) / (msgshdr.recsize + msgshdr.syssize)) + 1);
|
2002-04-28 14:27:23 +00:00
|
|
|
memset(&msgs, 0, sizeof(msgs));
|
|
|
|
msgs.DaysOld = CFG.defdays;
|
|
|
|
msgs.MaxMsgs = CFG.defmsgs;
|
|
|
|
msgs.Type = ECHOMAIL;
|
|
|
|
msgs.MsgKinds = PUBLIC;
|
|
|
|
msgs.UsrDelete = TRUE;
|
2004-02-23 14:46:06 +00:00
|
|
|
msgs.Charset = FTNC_NONE;
|
2002-04-28 14:27:23 +00:00
|
|
|
msgs.MaxArticles = CFG.maxarticles;
|
|
|
|
strcpy(msgs.Origin, CFG.origin);
|
|
|
|
}
|
2002-04-27 21:06:51 +00:00
|
|
|
fwrite(&msgs, msgshdr.recsize, 1, fp);
|
2002-04-28 14:27:23 +00:00
|
|
|
/*
|
|
|
|
* Always clear all connections, the area doesn't exist anymore.
|
|
|
|
*/
|
|
|
|
memset(&System, 0, sizeof(System));
|
2002-04-27 21:06:51 +00:00
|
|
|
for (i = 0; i < (msgshdr.syssize / sizeof(sysconnect)); i++)
|
|
|
|
fwrite(&System, sizeof(system), 1, fp);
|
2002-04-28 15:49:28 +00:00
|
|
|
/*
|
|
|
|
* Prepare uplink command
|
|
|
|
*/
|
|
|
|
if (cmd == NULL)
|
|
|
|
cmd = xstrcpy((char *)"-");
|
|
|
|
else
|
|
|
|
cmd = xstrcat(cmd, (char *)"\r-");
|
|
|
|
cmd = xstrcat(cmd, tmp->Name);
|
2002-04-27 21:06:51 +00:00
|
|
|
break;
|
|
|
|
} else {
|
|
|
|
fseek(fp, msgshdr.syssize, SEEK_CUR);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
2002-04-28 14:27:23 +00:00
|
|
|
fclose(fp);
|
2002-04-27 21:06:51 +00:00
|
|
|
}
|
|
|
|
tidy_arealist(&alist);
|
2002-04-28 15:49:28 +00:00
|
|
|
if (cmd != NULL) {
|
|
|
|
/*
|
|
|
|
* Sent one uplink command with additions and deletions
|
|
|
|
*/
|
2002-05-12 17:59:55 +00:00
|
|
|
if (mgroup.UpLink.zone) {
|
2002-06-17 20:36:06 +00:00
|
|
|
From = fido2faddr(mgroup.UseAka);
|
|
|
|
To = fido2faddr(mgroup.UpLink);
|
|
|
|
if (UplinkRequest(To, From, FALSE, cmd)) {
|
2002-05-12 17:59:55 +00:00
|
|
|
WriteError("Uplink request failed");
|
|
|
|
} else {
|
2002-09-28 22:22:50 +00:00
|
|
|
Mgrlog("AreaMgr request sent to %s", aka2str(mgroup.UpLink));
|
2002-05-12 17:59:55 +00:00
|
|
|
}
|
2002-06-17 20:36:06 +00:00
|
|
|
tidy_faddr(From);
|
|
|
|
tidy_faddr(To);
|
2002-04-28 15:49:28 +00:00
|
|
|
} else {
|
2002-05-12 17:59:55 +00:00
|
|
|
Syslog('+', "No uplink defined, not sending a AreaMgr request");
|
2002-04-28 15:49:28 +00:00
|
|
|
}
|
|
|
|
free(cmd);
|
|
|
|
cmd = NULL;
|
|
|
|
}
|
2002-04-29 19:02:27 +00:00
|
|
|
if (!do_quiet) {
|
|
|
|
printf(" \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b");
|
|
|
|
fflush(stdout);
|
|
|
|
}
|
2002-04-27 21:06:51 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
fclose(gp);
|
|
|
|
}
|
|
|
|
|
|
|
|
sprintf(temp, "%s/etc/fgroups.data", getenv("MBSE_ROOT"));
|
|
|
|
if ((gp = fopen(temp, "r")) == NULL) {
|
|
|
|
WriteError("Can't open %s", temp);
|
|
|
|
} else {
|
|
|
|
fread(&fgrouphdr, sizeof(fgrouphdr), 1, gp);
|
|
|
|
fseek(gp, fgrouphdr.hdrsize, SEEK_SET);
|
|
|
|
|
|
|
|
while ((fread(&fgroup, fgrouphdr.recsize, 1, gp)) == 1) {
|
|
|
|
if (fgroup.Active && fgroup.AutoChange && strlen(fgroup.AreaFile)) {
|
2002-04-29 19:02:27 +00:00
|
|
|
if (!do_quiet) {
|
|
|
|
colour(CYAN, BLACK);
|
|
|
|
printf("\r TIC group %-12s ", fgroup.Name);
|
|
|
|
fflush(stdout);
|
|
|
|
}
|
2002-04-27 21:06:51 +00:00
|
|
|
Syslog('+', "Checking tic group %s, file %s", fgroup.Name, fgroup.AreaFile);
|
2002-04-28 14:27:23 +00:00
|
|
|
sprintf(temp, "%s/%s", CFG.alists_path, fgroup.AreaFile);
|
|
|
|
if ((ap = fopen(temp, "r")) == NULL) {
|
|
|
|
WriteError("Can't open %s", temp);
|
|
|
|
} else {
|
|
|
|
if (fgroup.FileGate) {
|
|
|
|
/*
|
|
|
|
* filegate.zxx format
|
|
|
|
*/
|
|
|
|
Found = FALSE;
|
|
|
|
while (fgets(buf, 4096, ap)) {
|
|
|
|
/*
|
|
|
|
* Each group starts with % FDN: FileGroup Descrition
|
|
|
|
*/
|
|
|
|
if (strlen(buf) && !strncmp(buf, "% FDN:", 6)) {
|
|
|
|
tag = strtok(buf, "\t \r\n\0");
|
|
|
|
p = strtok(NULL, "\t \r\n\0");
|
|
|
|
p = strtok(NULL, "\r\n\0");
|
|
|
|
desc = p;
|
|
|
|
while ((*desc == ' ') || (*desc == '\t'))
|
|
|
|
desc++;
|
|
|
|
if (!strcmp(desc, fgroup.Comment)) {
|
|
|
|
Syslog('f', "Start of group \"%s\" found", desc);
|
|
|
|
while (fgets(buf, 4096, ap)) {
|
|
|
|
if (!strncasecmp(buf, "Area ", 5)) {
|
|
|
|
Syslog('f', "Area: %s", buf);
|
|
|
|
tag = strtok(buf, "\t \r\n\0");
|
|
|
|
tag = strtok(NULL, "\t \r\n\0");
|
|
|
|
Found = TRUE;
|
|
|
|
fill_arealist(&alist, tag, FALSE);
|
|
|
|
}
|
|
|
|
if (strlen(buf) && !strncmp(buf, "% FDN:", 6)) {
|
|
|
|
/*
|
|
|
|
* All entries in group are seen, the area wasn't there.
|
|
|
|
*/
|
|
|
|
Syslogp('f', buf);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (Found)
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
/*
|
|
|
|
* Normal taglist format
|
|
|
|
*/
|
|
|
|
while (fgets(buf, 4096, ap)) {
|
|
|
|
if (strlen(buf) && isalnum(buf[0])) {
|
|
|
|
tag = strtok(buf, "\t \r\n\0");
|
|
|
|
fill_arealist(&alist, tag, FALSE);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
fclose(ap);
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Mark areas already present in the taglist.
|
|
|
|
*/
|
2002-04-29 19:02:27 +00:00
|
|
|
if (!do_quiet) {
|
|
|
|
colour(LIGHTRED, BLACK);
|
|
|
|
printf("(check missing areas)\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b");
|
|
|
|
fflush(stdout);
|
|
|
|
}
|
2002-04-28 14:27:23 +00:00
|
|
|
sprintf(temp, "%s/etc/tic.data", getenv("MBSE_ROOT"));
|
|
|
|
if ((fp = fopen(temp, "r")) == NULL) {
|
|
|
|
WriteError("Can't open %s", temp);
|
|
|
|
tidy_arealist(&alist);
|
|
|
|
free(buf);
|
|
|
|
free(temp);
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
fread(&tichdr, sizeof(tichdr), 1, fp);
|
|
|
|
for (tmp = alist; tmp; tmp = tmp->next) {
|
|
|
|
fseek(fp, tichdr.hdrsize, SEEK_SET);
|
2002-04-29 19:02:27 +00:00
|
|
|
if (CFG.slow_util && do_quiet)
|
2004-01-25 10:57:35 +00:00
|
|
|
msleep(1);
|
2002-04-28 14:27:23 +00:00
|
|
|
while (fread(&tic, tichdr.recsize, 1, fp) == 1) {
|
|
|
|
if (tic.Active && !strcmp(tic.Group, fgroup.Name) && !strcmp(tic.Name, tmp->Name))
|
|
|
|
tmp->IsPresent = TRUE;
|
|
|
|
fseek(fp, tichdr.syssize, SEEK_CUR);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Add areas to AreaList not in the taglist, they must be deleted.
|
|
|
|
*/
|
2002-04-29 19:02:27 +00:00
|
|
|
if (!do_quiet) {
|
|
|
|
printf("(check deleted areas)\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b");
|
|
|
|
fflush(stdout);
|
|
|
|
}
|
2002-04-28 14:27:23 +00:00
|
|
|
fseek(fp, tichdr.hdrsize, SEEK_SET);
|
|
|
|
while (fread(&tic, tichdr.recsize, 1, fp) == 1) {
|
|
|
|
if (tic.Active && !strcmp(tic.Group, fgroup.Name)) {
|
|
|
|
Found = FALSE;
|
|
|
|
for (tmp = alist; tmp; tmp = tmp->next) {
|
|
|
|
if (!strcmp(tic.Name, tmp->Name))
|
|
|
|
Found = TRUE;
|
|
|
|
}
|
|
|
|
if (!Found)
|
|
|
|
fill_arealist(&alist, tic.Name, TRUE);
|
|
|
|
}
|
|
|
|
fseek(fp, tichdr.syssize, SEEK_CUR);
|
|
|
|
}
|
|
|
|
fclose(fp);
|
2002-04-29 19:02:27 +00:00
|
|
|
if (!do_quiet) {
|
|
|
|
printf("(update database) \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b");
|
|
|
|
fflush(stdout);
|
|
|
|
}
|
2002-04-28 14:27:23 +00:00
|
|
|
|
|
|
|
/*
|
|
|
|
* Now we have a list of actions to perform
|
|
|
|
*/
|
2002-12-07 16:59:01 +00:00
|
|
|
Syslog('F', "Area tag Oke Del");
|
2002-04-27 21:06:51 +00:00
|
|
|
for (tmp = alist; tmp; tmp = tmp->next) {
|
2002-12-07 16:59:01 +00:00
|
|
|
Syslog('F', "%-20s %s %s", tmp->Name, tmp->IsPresent?"Yes":"No ", tmp->DoDelete?"Yes":"No ");
|
2002-04-27 21:06:51 +00:00
|
|
|
}
|
|
|
|
|
2002-04-28 14:27:23 +00:00
|
|
|
/*
|
|
|
|
* Make modification, first add missing areas
|
|
|
|
*/
|
|
|
|
for (tmp = alist; tmp; tmp = tmp->next) {
|
2002-04-28 15:49:28 +00:00
|
|
|
if (!tmp->IsPresent && !tmp->DoDelete) {
|
|
|
|
/*
|
|
|
|
* Autocraete group, don't sent uplink request yet.
|
|
|
|
*/
|
|
|
|
CheckTicGroup(tmp->Name, FALSE, NULL);
|
|
|
|
if (cmd == NULL) {
|
|
|
|
cmd = xstrcpy((char *)"+");
|
|
|
|
} else {
|
|
|
|
cmd = xstrcat(cmd, (char *)"\r+");
|
|
|
|
}
|
|
|
|
cmd = xstrcat(cmd, tmp->Name);
|
2002-04-29 19:02:27 +00:00
|
|
|
if (CFG.slow_util && do_quiet)
|
2004-01-25 10:57:35 +00:00
|
|
|
msleep(1);
|
2002-04-28 15:49:28 +00:00
|
|
|
}
|
2002-04-28 14:27:23 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Mark TIC areas for deletion. The original file areas
|
|
|
|
* are not deleted. They probably contain files and we
|
|
|
|
* may want to keep these. If the area was empty we are
|
|
|
|
* still warned about that by the "mbfile check" command.
|
|
|
|
*/
|
|
|
|
Found = FALSE;
|
|
|
|
sprintf(temp, "%s/etc/tic.data", getenv("MBSE_ROOT"));
|
|
|
|
if ((fp = fopen(temp, "r+")) == NULL) {
|
|
|
|
WriteError("Can't open %s for r/w");
|
|
|
|
} else {
|
|
|
|
fread(&tichdr, sizeof(tichdr), 1, fp);
|
|
|
|
for (tmp = alist; tmp; tmp = tmp->next) {
|
|
|
|
if (!tmp->IsPresent && tmp->DoDelete) {
|
|
|
|
fseek(fp, tichdr.hdrsize, SEEK_SET);
|
|
|
|
Syslog('f', "Delete %s", tmp->Name);
|
2002-04-29 19:02:27 +00:00
|
|
|
if (CFG.slow_util && do_quiet)
|
2004-01-25 10:57:35 +00:00
|
|
|
msleep(1);
|
2002-04-28 14:27:23 +00:00
|
|
|
while (fread(&tic, tichdr.recsize, 1, fp) == 1) {
|
|
|
|
if (tic.Active && !strcmp(tic.Group, fgroup.Name) && !strcmp(tic.Name, tmp->Name)) {
|
|
|
|
fseek(fp, - tichdr.recsize, SEEK_CUR);
|
2002-12-07 16:59:01 +00:00
|
|
|
Mgrlog("Marked TIC area %s, group %s for deletion", tmp->Name, fgroup.Name);
|
2002-04-28 14:27:23 +00:00
|
|
|
tic.Deleted = TRUE;
|
|
|
|
tic.Active = FALSE;
|
|
|
|
fwrite(&tic, tichdr.recsize, 1, fp);
|
|
|
|
Found = TRUE;
|
2002-04-28 15:49:28 +00:00
|
|
|
/*
|
|
|
|
* Prepare uplink command
|
|
|
|
*/
|
|
|
|
if (cmd == NULL)
|
|
|
|
cmd = xstrcpy((char *)"-");
|
|
|
|
else
|
|
|
|
cmd = xstrcat(cmd, (char *)"\r-");
|
|
|
|
cmd = xstrcat(cmd, tmp->Name);
|
2002-04-28 14:27:23 +00:00
|
|
|
}
|
|
|
|
fseek(fp, tichdr.syssize, SEEK_CUR);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
fclose(fp);
|
|
|
|
}
|
|
|
|
if (Found) {
|
|
|
|
/*
|
|
|
|
* Purge marked records
|
|
|
|
*/
|
|
|
|
sprintf(buf, "%s/etc/tic.temp", getenv("MBSE_ROOT"));
|
|
|
|
if ((fp = fopen(temp, "r")) == NULL) {
|
|
|
|
WriteError("Can't open %s", temp);
|
|
|
|
} else if ((ap = fopen(buf, "w")) == NULL) {
|
|
|
|
WriteError("Can't create %s", buf);
|
|
|
|
fclose(fp);
|
|
|
|
} else {
|
|
|
|
fread(&tichdr, tichdr.hdrsize, 1, fp);
|
|
|
|
fwrite(&tichdr, tichdr.hdrsize, 1, ap);
|
|
|
|
while (fread(&tic, tichdr.recsize, 1, fp) == 1) {
|
|
|
|
if (tic.Deleted && !tic.Active) {
|
|
|
|
fseek(fp, tichdr.syssize, SEEK_CUR);
|
|
|
|
count++;
|
|
|
|
} else {
|
|
|
|
fwrite(&tic, tichdr.recsize, 1, ap);
|
|
|
|
for (i = 0; i < (tichdr.syssize / sizeof(System)); i++) {
|
|
|
|
fread(&System, sizeof(System), 1, fp);
|
|
|
|
fwrite(&System, sizeof(System), 1, ap);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
fclose(fp);
|
|
|
|
fclose(ap);
|
|
|
|
unlink(temp);
|
|
|
|
rename(buf, temp);
|
2002-12-07 16:59:01 +00:00
|
|
|
Mgrlog("Purged %d TIC areas", count);
|
2002-04-28 14:27:23 +00:00
|
|
|
}
|
|
|
|
}
|
2002-04-27 21:06:51 +00:00
|
|
|
|
2002-04-28 14:27:23 +00:00
|
|
|
tidy_arealist(&alist);
|
2002-04-28 15:49:28 +00:00
|
|
|
if (cmd != NULL) {
|
|
|
|
/*
|
|
|
|
* Sent one uplink command with additions and deletions
|
|
|
|
*/
|
2002-05-12 17:59:55 +00:00
|
|
|
if (fgroup.UpLink.zone) {
|
2002-06-17 20:36:06 +00:00
|
|
|
From = fido2faddr(fgroup.UseAka);
|
|
|
|
To = fido2faddr(fgroup.UpLink);
|
|
|
|
if (UplinkRequest(To, From, TRUE, cmd)) {
|
2002-05-12 17:59:55 +00:00
|
|
|
WriteError("Uplink request failed");
|
|
|
|
} else {
|
2002-12-07 16:59:01 +00:00
|
|
|
Mgrlog("FileMgr request sent to %s", aka2str(fgroup.UpLink));
|
2002-05-12 17:59:55 +00:00
|
|
|
}
|
2002-06-17 20:36:06 +00:00
|
|
|
tidy_faddr(From);
|
|
|
|
tidy_faddr(To);
|
2002-04-28 15:49:28 +00:00
|
|
|
} else {
|
2002-05-12 17:59:55 +00:00
|
|
|
Syslog('+', "No uplink defined, not sending a FileMgr request");
|
2002-04-28 15:49:28 +00:00
|
|
|
}
|
|
|
|
free(cmd);
|
|
|
|
cmd = NULL;
|
|
|
|
}
|
2002-04-29 19:02:27 +00:00
|
|
|
if (!do_quiet) {
|
|
|
|
printf(" \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b");
|
|
|
|
fflush(stdout);
|
|
|
|
}
|
2002-04-28 14:27:23 +00:00
|
|
|
}
|
2002-04-27 21:06:51 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
fclose(gp);
|
|
|
|
}
|
|
|
|
|
2002-04-29 19:02:27 +00:00
|
|
|
if (!do_quiet)
|
|
|
|
printf("\r \r");
|
|
|
|
|
2002-04-27 21:06:51 +00:00
|
|
|
free(buf);
|
|
|
|
free(temp);
|
2002-04-29 19:02:27 +00:00
|
|
|
if (net_out)
|
2002-08-05 13:30:44 +00:00
|
|
|
do_flush = TRUE;
|
2002-04-27 21:06:51 +00:00
|
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|