bbs/deb-mbse
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
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.
6f3d1997db
deb-mbse/mbfido/filemgr.c

974 lines
27 KiB
C
Raw Normal View History

Initial revision
2001-08-17 05:46:24 +00:00
/*****************************************************************************
*
Updates for splitting structures
2002-01-07 19:16:03 +00:00
* $Id$
Initial revision
2001-08-17 05:46:24 +00:00
* Purpose ...............: FileMgr
*
*****************************************************************************
Updates for splitting structures
2002-01-07 19:16:03 +00:00
* Copyright (C) 1997-2002
Initial revision
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
* Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
*****************************************************************************/
#include "../lib/libs.h"
#include "../lib/structs.h"
Updates for splitting structures
2002-01-07 19:16:03 +00:00
#include "../lib/users.h"
Initial revision
2001-08-17 05:46:24 +00:00
#include "../lib/records.h"
#include "../lib/common.h"
#include "../lib/clcomm.h"
#include "../lib/msg.h"
#include "../lib/msgtext.h"
#include "../lib/dbcfg.h"
#include "../lib/dbnode.h"
#include "../lib/dbtic.h"
#include "../lib/dbdupe.h"
#include "../lib/dbuser.h"
#include "../lib/dbftn.h"
#include "sendmail.h"
#include "mgrutil.h"
#include "filemgr.h"
/*
* External declarations
*/
extern int do_quiet;
Added email post protection and netmail bounce
2002-02-09 15:11:19 +00:00
extern char *tearline;
Initial revision
2001-08-17 05:46:24 +00:00
/*
* Global variables
*/
extern int net_in; /* Netmails received */
extern int net_out; /* Netmails forwarded */
extern int net_bad; /* Bad netmails (tracking errors */
extern int echo_in; /* Echomail received */
extern int echo_imp; /* Echomail imported */
extern int echo_out; /* Echomail forwarded */
extern int echo_bad; /* Bad fileecho */
extern int echo_dupe; /* Dupe fileecho */
int filemgr = 0; /* Nr of FileMgr messages */
int f_help = FALSE;
int f_list = FALSE;
int f_query = FALSE;
int f_stat = FALSE;
int f_unlnk = FALSE;
Upgrade CVS to 0.33.18 current
2001-08-25 19:53:11 +00:00
void F_Help(faddr *, char *);
void F_Help(faddr *t, char *replyid)
Initial revision
2001-08-17 05:46:24 +00:00
{
FILE *fp;
Syslog('+', "FileMgr: Help");
Upgrade CVS to 0.33.18 current
2001-08-25 19:53:11 +00:00
if ((fp = SendMgrMail(t, CFG.ct_KeepMgr, FALSE, (char *)"Filemgr", (char *)"FileMgr help", replyid)) != NULL) {
Initial revision
2001-08-17 05:46:24 +00:00
fprintf(fp, "Address all requests to '%s' (without quotes)\r", (char *)"Filemgr");
fprintf(fp, "Youre FileMgr password goes on the subject line.\r\r");
fprintf(fp, "In the body of the message to FileMgr:\r\r");
fprintf(fp, "+<ticname> To connect to an fileecho area\r");
fprintf(fp, "-<ticname> To disconnect from an fileecho area\r");
fprintf(fp, "%%+ALL To connect to all fileecho areas\r");
fprintf(fp, "%%-ALL To disconnect from all fileecho areas\r");
fprintf(fp, "%%+<group> To connect all fileecho areas of a group\r");
fprintf(fp, "%%-<group> To disconnect from all fileecho areas of a group\r");
fprintf(fp, "%%HELP To request this help message\r");
fprintf(fp, "%%LIST To request a list of available fileecho areas\r");
fprintf(fp, "%%QUERY To request a list of active fileecho areas\r");
fprintf(fp, "%%UNLINKED To request a list of available fileecho areas\r");
fprintf(fp, " to which you are not already connected\r");
fprintf(fp, "%%STATUS To request a status report for your system\r");
// fprintf(fp, "%%PAUSE To temporary disconnect from the connected areas\r");
// fprintf(fp, "%%RESUME To reconnect the temporary disconnected areas\r);
fprintf(fp, "%%PWD=newpwd To set a new AreaMgr and FileMgr password\r");
// fprintf(fp, "%%RESCAN <area> To request all files from 'area' again\r");
fprintf(fp, "%%MESSGAE=On/Off To switch the message function on or off\r");
fprintf(fp, "%%TICK=On/Off/Advanced To set the tic file mode off, normal or advanced\r");
fprintf(fp, "%%NOTIFY=On/Off To switch the notify function on or off\r");
// fprintf(fp, "%%RESEND <name> To resend file 'name' with tic file\r");
fprintf(fp, "[---] Everything below the tearline is ignored\r\r");
fprintf(fp, "Example:\r\r");
fprintf(fp, " By: %s\r", nodes.Sysop);
fprintf(fp, " To: %s, %s\r", (char *)"Filemgr", ascfnode(bestaka_s(t), 0xf));
fprintf(fp, " Re: %s\r", nodes.Fpasswd);
fprintf(fp, " St: Pvt Local Kill\r");
fprintf(fp, " ----------------------------------------------------------\r");
fprintf(fp, " +MBSE_BBS\r");
fprintf(fp, " -NODELIST\r");
fprintf(fp, " %%QUERY\r");
fprintf(fp, " %%LIST\r\r");
Added email post protection and netmail bounce
2002-02-09 15:11:19 +00:00
fprintf(fp, "%s\r", tearline);
Initial revision
2001-08-17 05:46:24 +00:00
CloseMail(fp, t);
net_out++;
} else
WriteError("Can't create netmail");
}
Upgrade CVS to 0.33.18 current
2001-08-25 19:53:11 +00:00
void F_Query(faddr *, char *);
void F_Query(faddr *t, char *replyid)
Initial revision
2001-08-17 05:46:24 +00:00
{
FILE *qp, *gp, *fp;
char *temp, *Group;
int i, First = TRUE, SubTot, Total = 0, Cons;
char Stat[4];
faddr *f;
sysconnect System;
Syslog('+', "FileMgr: Query");
f = bestaka_s(t);
Upgrade CVS to 0.33.18 current
2001-08-25 19:53:11 +00:00
if ((qp = SendMgrMail(t, CFG.ct_KeepMgr, FALSE, (char *)"Filemgr", (char *)"Your query request", replyid)) != NULL) {
Initial revision
2001-08-17 05:46:24 +00:00
temp = calloc(128, sizeof(char));
sprintf(temp, "%s/etc/tic.data", getenv("MBSE_ROOT"));
fp = fopen(temp, "r");
fread(&tichdr, sizeof(tichdr), 1, fp);
Cons = tichdr.syssize / sizeof(System);
sprintf(temp, "%s/etc/fgroups.data", getenv("MBSE_ROOT"));
gp = fopen(temp, "r");
fread(&fgrouphdr, sizeof(fgrouphdr), 1, gp);
fprintf(qp, "The following is a list of all connected file areas\r\r");
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) {
if ((!strcmp(fgroup.Name, Group)) &&
(fgroup.UseAka.zone == f->zone) &&
(fgroup.UseAka.net == f->net) &&
(fgroup.UseAka.node == f->node) &&
(fgroup.UseAka.point == f->point)) {
SubTot = 0;
fprintf(qp, "Group %s - %s\r\r", fgroup.Name, fgroup.Comment);
fprintf(qp, "Con File tic Description\r");
fprintf(qp, "------------------------------------------------------------------------\r");
fseek(fp, tichdr.hdrsize, SEEK_SET);
while (fread(&tic, tichdr.recsize, 1, fp) == 1) {
if (!strcmp(Group, tic.Group) && tic.Active) {
memset(&Stat, ' ', sizeof(Stat));
Stat[sizeof(Stat)-1] = '\0';
/*
* Now check if this node is connected,
* if so, set the Stat bits.
*/
for (i = 0; i < Cons; i++) {
fread(&System, sizeof(System), 1, fp);
if ((t->zone == System.aka.zone) &&
(t->net == System.aka.net) &&
(t->node == System.aka.node) &&
(t->point == System.aka.point)) {
if (System.receivefrom)
Stat[0] = 'S';
if (System.sendto)
Stat[1] = 'R';
if (System.pause)
Stat[2] = 'P';
if (System.sendto || System.receivefrom) {
fprintf(qp, "%s %-20s %s\r", Stat, tic.Name, tic.Comment);
SubTot++;
Total++;
}
}
}
} else
fseek(fp, tichdr.syssize, SEEK_CUR);
}
fprintf(qp, "------------------------------------------------------------------------\r");
fprintf(qp, "%d available area(s)\r\r\r", SubTot);
}
}
}
fclose(fp);
fclose(gp);
fprintf(qp, "Con means:\r");
fprintf(qp, " R - You receive files from my system\r");
fprintf(qp, " S - You may send files in this area\r");
fprintf(qp, " P - The file area is temporary paused\r\r");
fprintf(qp, "With regards, %s\r\r", CFG.sysop_name);
Added email post protection and netmail bounce
2002-02-09 15:11:19 +00:00
fprintf(qp, "%s\r", tearline);
Initial revision
2001-08-17 05:46:24 +00:00
CloseMail(qp, t);
net_out++;
free(temp);
} else
WriteError("Can't create netmail");
}
Upgrade CVS to 0.33.18 current
2001-08-25 19:53:11 +00:00
void F_List(faddr *t, char *replyid, int Notify)
Initial revision
2001-08-17 05:46:24 +00:00
{
FILE *qp, *gp, *fp;
char *temp, *Group;
int i, First = TRUE, SubTot, Total = 0, Cons;
char Stat[4];
faddr *f;
sysconnect System;
if (Notify)
Syslog('+', "FileMgr: Notify to %s", ascfnode(t, 0xff));
else
Syslog('+', "FileMgr: List");
f = bestaka_s(t);
Upgrade CVS to 0.33.18 current
2001-08-25 19:53:11 +00:00
if ((qp = SendMgrMail(t, CFG.ct_KeepMgr, FALSE, (char *)"Filemgr", (char *)"FileMgr List", replyid)) != NULL) {
Initial revision
2001-08-17 05:46:24 +00:00
WriteFileGroups(qp, f);
temp = calloc(128, sizeof(char));
sprintf(temp, "%s/etc/tic.data", getenv("MBSE_ROOT"));
fp = fopen(temp, "r");
fread(&tichdr, sizeof(tichdr), 1, fp);
Cons = tichdr.syssize / sizeof(System);
sprintf(temp, "%s/etc/fgroups.data", getenv("MBSE_ROOT"));
gp = fopen(temp, "r");
fread(&fgrouphdr, sizeof(fgrouphdr), 1, gp);
fprintf(qp, "The following is a list of all file areas\r\r");
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) {
if ((!strcmp(fgroup.Name, Group)) &&
(fgroup.UseAka.zone == f->zone) &&
(fgroup.UseAka.net == f->net) &&
(fgroup.UseAka.node == f->node) &&
(fgroup.UseAka.point == f->point)) {
SubTot = 0;
fprintf(qp, "Group %s - %s\r\r", fgroup.Name, fgroup.Comment);
fprintf(qp, "Con File tic Description\r");
fprintf(qp, "------------------------------------------------------------------------\r");
fseek(fp, tichdr.hdrsize, SEEK_SET);
while (fread(&tic, tichdr.recsize, 1, fp) == 1) {
if (!strcmp(Group, tic.Group) && tic.Active) {
memset(&Stat, ' ', sizeof(Stat));
Stat[sizeof(Stat)-1] = '\0';
/*
* Now check if this node is connected,
* if so, set the Stat bits.
*/
for (i = 0; i < Cons; i++) {
fread(&System, sizeof(System), 1, fp);
if ((t->zone == System.aka.zone) &&
(t->net == System.aka.net) &&
(t->node == System.aka.node) &&
(t->point == System.aka.point)) {
if (System.receivefrom)
Stat[0] = 'S';
if (System.sendto)
Stat[1] = 'R';
if (System.pause)
Stat[2] = 'P';
}
}
fprintf(qp, "%s %-20s %s\r", Stat, tic.Name, tic.Comment);
SubTot++;
Total++;
} else
fseek(fp, tichdr.syssize, SEEK_CUR);
}
fprintf(qp, "------------------------------------------------------------------------\r");
fprintf(qp, "%d available area(s)\r\r\r", SubTot);
}
}
}
fclose(fp);
fclose(gp);
fprintf(qp, "Con means:\r");
fprintf(qp, " R - You receive files from my system\r");
fprintf(qp, " S - You may send files in this area\r");
fprintf(qp, " P - The file area is temporary paused\r\r");
fprintf(qp, "With regards, %s\r\r", CFG.sysop_name);
Added email post protection and netmail bounce
2002-02-09 15:11:19 +00:00
fprintf(qp, "%s\r", tearline);
Initial revision
2001-08-17 05:46:24 +00:00
CloseMail(qp, t);
net_out++;
free(temp);
} else
WriteError("Can't create netmail");
}
Upgrade CVS to 0.33.18 current
2001-08-25 19:53:11 +00:00
void F_Status(faddr *, char *);
void F_Status(faddr *t, char *replyid)
Initial revision
2001-08-17 05:46:24 +00:00
{
FILE *fp;
int i;
Syslog('+', "FileMgr: Status");
if (Miy == 0)
i = 11;
else
i = Miy - 1;
Upgrade CVS to 0.33.18 current
2001-08-25 19:53:11 +00:00
if ((fp = SendMgrMail(t, CFG.ct_KeepMgr, FALSE, (char *)"Filemgr", (char *)"FileMgr Status", replyid)) != NULL) {
Initial revision
2001-08-17 05:46:24 +00:00
fprintf(fp, "Here is your fileecho status:\r\r");
fprintf(fp, "Netmail message %s\r", GetBool(nodes.Message));
fprintf(fp, "TIC files %s\r", GetBool(nodes.Tic));
if (nodes.Tic)
fprintf(fp, "Andvanced TIC files %s\r", GetBool(nodes.AdvTic));
fprintf(fp, "Notify messages %s\r", GetBool(nodes.Notify));
fprintf(fp, "Cost sharing %s\r", GetBool(nodes.Billing));
if (nodes.Billing) {
fprintf(fp, "Send bill direct %s\r", GetBool(nodes.BillDirect));
fprintf(fp, "Units debet %ld\r", nodes.Debet);
fprintf(fp, "Units credit %ld\r", nodes.Credit);
fprintf(fp, "Warning level %ld\r", nodes.WarnLevel);
}
fprintf(fp, "\r\rRecent flow:\r\r");
fprintf(fp, " Last week Last month Total ever\r");
fprintf(fp, " ---------- ---------- ----------\r");
fprintf(fp, "Files sent %-10ld %-10ld %-10ld\r", nodes.FilesSent.lweek, nodes.FilesSent.month[i], nodes.FilesSent.total);
fprintf(fp, "KBytes sent %-10ld %-10ld %-10ld\r", nodes.F_KbSent.lweek, nodes.F_KbSent.month[i], nodes.F_KbSent.total);
fprintf(fp, "Files received %-10ld %-10ld %-10ld\r", nodes.FilesRcvd.lweek, nodes.FilesRcvd.month[i], nodes.FilesRcvd.total);
fprintf(fp, "KBytes received %-10ld %-10ld %-10ld\r", nodes.F_KbRcvd.lweek, nodes.F_KbRcvd.month[i], nodes.F_KbRcvd.total);
fprintf(fp, "\rWith regards, %s\r\r", CFG.sysop_name);
Added email post protection and netmail bounce
2002-02-09 15:11:19 +00:00
fprintf(fp, "%s\r", tearline);
Initial revision
2001-08-17 05:46:24 +00:00
CloseMail(fp, t);
net_out++;
} else
WriteError("Can't create netmail");
}
Upgrade CVS to 0.33.18 current
2001-08-25 19:53:11 +00:00
void F_Unlinked(faddr *, char *);
void F_Unlinked(faddr *t, char *replyid)
Initial revision
2001-08-17 05:46:24 +00:00
{
FILE *qp, *gp, *fp;
char *temp, *Group;
int i, First = TRUE, SubTot, Total = 0, Cons;
char Stat[4];
faddr *f;
sysconnect System;
Syslog('+', "FileMgr: Unlinked");
f = bestaka_s(t);
Upgrade CVS to 0.33.18 current
2001-08-25 19:53:11 +00:00
if ((qp = SendMgrMail(t, CFG.ct_KeepMgr, FALSE, (char *)"Filemgr", (char *)"Your unlinked request", replyid)) != NULL) {
Initial revision
2001-08-17 05:46:24 +00:00
temp = calloc(128, sizeof(char));
sprintf(temp, "%s/etc/tic.data", getenv("MBSE_ROOT"));
fp = fopen(temp, "r");
fread(&tichdr, sizeof(tichdr), 1, fp);
Cons = tichdr.syssize / sizeof(System);
sprintf(temp, "%s/etc/fgroups.data", getenv("MBSE_ROOT"));
gp = fopen(temp, "r");
fread(&fgrouphdr, sizeof(fgrouphdr), 1, gp);
fprintf(qp, "The following is a list of all available file areas\r\r");
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) {
if ((!strcmp(fgroup.Name, Group)) &&
(fgroup.UseAka.zone == f->zone) &&
(fgroup.UseAka.net == f->net) &&
(fgroup.UseAka.node == f->node) &&
(fgroup.UseAka.point == f->point)) {
SubTot = 0;
fprintf(qp, "Group %s - %s\r\r", fgroup.Name, fgroup.Comment);
fprintf(qp, "Con File tic Description\r");
fprintf(qp, "------------------------------------------------------------------------\r");
fseek(fp, tichdr.hdrsize, SEEK_SET);
while (fread(&tic, tichdr.recsize, 1, fp) == 1) {
if (!strcmp(Group, tic.Group) && tic.Active) {
memset(&Stat, ' ', sizeof(Stat));
Stat[sizeof(Stat)-1] = '\0';
/*
* Now check if this node is connected,
* if so, set the Stat bits.
*/
for (i = 0; i < Cons; i++) {
fread(&System, sizeof(System), 1, fp);
if ((t->zone == System.aka.zone) &&
(t->net == System.aka.net) &&
(t->node == System.aka.node) &&
(t->point == System.aka.point)) {
if (System.receivefrom)
Stat[0] = 'S';
if (System.sendto)
Stat[1] = 'R';
if (System.pause)
Stat[2] = 'P';
}
}
if ((!System.sendto) && (!System.receivefrom)) {
fprintf(qp, "%s %-20s %s\r", Stat, tic.Name, tic.Comment);
SubTot++;
Total++;
}
} else
fseek(fp, tichdr.syssize, SEEK_CUR);
}
fprintf(qp, "------------------------------------------------------------------------\r");
fprintf(qp, "%d available area(s)\r\r\r", SubTot);
}
}
}
fclose(fp);
fclose(gp);
fprintf(qp, "Con means:\r");
fprintf(qp, " R - You receive files from my system\r");
fprintf(qp, " S - You may send files in this area\r");
fprintf(qp, " P - The file area is temporary paused\r\r");
fprintf(qp, "With regards, %s\r\r", CFG.sysop_name);
Added email post protection and netmail bounce
2002-02-09 15:11:19 +00:00
fprintf(qp, "%s\r", tearline);
Initial revision
2001-08-17 05:46:24 +00:00
CloseMail(qp, t);
net_out++;
free(temp);
} else
WriteError("Can't create netmail");
}
void F_Global(faddr *, char *, FILE *);
void F_Global(faddr *t, char *Cmd, FILE *tmp)
{
ShiftBuf(Cmd, 1);
Syslog('m', " FileMgr node %s global %s", ascfnode(t, 0x1f), Cmd);
}
void F_Disconnect(faddr *, char *, FILE *);
void F_Disconnect(faddr *t, char *Area, FILE *tmp)
{
int i, First;
char *Group;
faddr *b;
sysconnect Sys;
Syslog('+', "FileMgr: %s", Area);
ShiftBuf(Area, 1);
if (!SearchTic(Area)) {
fprintf(tmp, "Area %s not found\n", Area);
Syslog('m', " Area not found");
return;
}
Syslog('m', " Found %s group %s", tic.Name, fgroup.Name);
First = TRUE;
while ((Group = GetNodeFileGrp(First)) != NULL) {
First = FALSE;
if (strcmp(Group, fgroup.Name) == 0)
break;
}
if (Group == NULL) {
fprintf(tmp, "You may not disconnect from area %s\n", Area);
Syslog('m', " Group %s not available for node", fgroup.Name);
return;
}
b = bestaka_s(t);
i = metric(b, fido2faddr(fgroup.UseAka));
Syslog('m', "Aka match level is %d", i);
if (i > METRIC_POINT) {
fprintf(tmp, "You may not disconnect area %s with nodenumber %s\n", Area, ascfnode(t, 0x1f));
Syslog('m', " Node may not disconnect from group %s", fgroup.Name);
return;
}
memset(&Sys, 0, sizeof(Sys));
memcpy(&Sys.aka, faddr2fido(t), sizeof(fidoaddr));
Sys.sendto = FALSE;
Sys.receivefrom = FALSE;
if (!TicSystemConnected(Sys)) {
fprintf(tmp, "You are not connected to %s\n", Area);
Syslog('m', " Node is not connected to %s", Area);
return;
}
if (!TicSystemConnect(&Sys, FALSE)) {
/*
* Make sure to write an overview afterwards
*/
f_list = TRUE;
Syslog('+', "Disconnected file area %s", Area);
fprintf(tmp, "Disconnected from area %s\n", Area);
return;
}
fprintf(tmp, "You may not disconnect area %s, area is mandatory\n", Area);
Syslog('+', "Didn't disconnect %s from mandatory file area %s", ascfnode(t, 0x1f), Area);
}
void F_Connect(faddr *, char *, FILE *);
void F_Connect(faddr *t, char *Area, FILE *tmp)
{
int i, First;
char *Group;
faddr *b;
sysconnect Sys;
Syslog('+', "FileMgr: %s", Area);
if (Area[0] == '+')
ShiftBuf(Area, 1);
if (!SearchTic(Area)) {
fprintf(tmp, "Area %s not found\n", Area);
Syslog('m', " Area not found");
/* SHOULD CHECK FOR AREAS FILE AND ASK UPLINK
CHECK ALL GROUPRECORDS FOR AKA MATCH
IF MATCH CHECK FOR UPLINK AND AREAS FILE
IF FOUND, CREATE TIC AREA, CONNECT UPLINK
RESTORE NODERECORD (IS GONE!)
FALLTHRU TO CONNECT DOWNLINK
*/
return;
}
Syslog('m', " Found %s group %s", tic.Name, fgroup.Name);
First = TRUE;
while ((Group = GetNodeFileGrp(First)) != NULL) {
First = FALSE;
if (strcmp(Group, fgroup.Name) == 0)
break;
}
if (Group == NULL) {
fprintf(tmp, "You may not connect to area %s\n", Area);
Syslog('m', " Group %s not available for node %s", fgroup.Name);
return;
}
b = bestaka_s(t);
i = metric(b, fido2faddr(fgroup.UseAka));
Syslog('m', "Aka match level is %d", i);
if (i > METRIC_POINT) {
fprintf(tmp, "You may not connect area %s with nodenumber %s\n", Area, ascfnode(t, 0x1f));
Syslog('m', " Node may not connect to group %s", fgroup.Name);
return;
}
memset(&Sys, 0, sizeof(Sys));
memcpy(&Sys.aka, faddr2fido(t), sizeof(fidoaddr));
Sys.sendto = TRUE;
if (TicSystemConnected(Sys)) {
fprintf(tmp, "You are already connected to %s\n", Area);
Syslog('m', " Node is already connected to %s", Area);
return;
}
if (TicSystemConnect(&Sys, TRUE)) {
/*
* Make sure to write an overview afterwards
*/
f_list = TRUE;
Syslog('+', "Connected to file area %s", Area);
fprintf(tmp, "Connected to area %s\n", Area);
return;
}
fprintf(tmp, "Not connected to %s, internal error, sysop is notified\n", Area);
WriteError("Can't connect node %s to file area %s", ascfnode(t, 0x1f), Area);
}
void F_All(faddr *, int, FILE *, char *);
void F_All(faddr *t, int Connect, FILE *tmp, char *Grp)
{
FILE *fp, *gp;
char *Group, temp[81];
faddr *f;
int i, Link, First = TRUE, Cons;
sysconnect Sys;
long Pos;
if (Grp == NULL) {
if (Connect)
Syslog('+', "FileMgr: Connect All");
else
Syslog('+', "FileMgr: Disconnect All");
} else {
if (Connect)
Syslog('+', "FileMgr: Connect group %s", Grp);
else
Syslog('+', "FileMgr: Disconnect group %s", Grp);
}
f = bestaka_s(t);
sprintf(temp, "%s/etc/tic.data", getenv("MBSE_ROOT"));
fp = fopen(temp, "r+");
fread(&tichdr, sizeof(tichdr), 1, fp);
Cons = tichdr.syssize / sizeof(Sys);
sprintf(temp, "%s/etc/fgroups.data", getenv("MBSE_ROOT"));
gp = fopen(temp, "r");
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) {
if ((!strcmp(fgroup.Name, Group)) &&
((Grp == NULL) || (!strcmp(Group, Grp)))) {
fseek(fp, tichdr.hdrsize, SEEK_SET);
while (fread(&tic, tichdr.recsize, 1, fp) == 1) {
if ((!strcmp(Group, tic.Group)) && tic.Active &&
(metric(fido2faddr(fgroup.UseAka), f) == METRIC_EQUAL)) {
if (Connect) {
Link = FALSE;
for (i = 0; i < Cons; i++) {
fread(&Sys, sizeof(Sys), 1, fp);
if (metric(fido2faddr(Sys.aka), t) == METRIC_EQUAL)
Link = TRUE;
}
if (!Link) {
Pos = ftell(fp);
fseek(fp, - tichdr.syssize, SEEK_CUR);
for (i = 0; i < Cons; i++) {
fread(&Sys, sizeof(Sys), 1, fp);
if (!Sys.aka.zone) {
memset(&Sys, 0, sizeof(Sys));
memcpy(&Sys.aka, faddr2fido(t), sizeof(fidoaddr));
Sys.sendto = TRUE;
fseek(fp, - sizeof(Sys), SEEK_CUR);
fwrite(&Sys, sizeof(Sys), 1, fp);
Syslog('+', "FileMgr: Connected %s", tic.Name);
fprintf(tmp, "Connected area %s\n", tic.Name);
f_list = TRUE;
break;
}
}
fseek(fp, Pos, SEEK_SET);
}
} else {
for (i = 0; i < Cons; i++) {
fread(&Sys, sizeof(Sys), 1, fp);
if (metric(fido2faddr(Sys.aka), t) == METRIC_EQUAL) {
memset(&Sys, 0, sizeof(Sys));
fseek(fp, - sizeof(Sys), SEEK_CUR);
fwrite(&Sys, sizeof(Sys), 1, fp);
Syslog('+', "FileMgr: Disconnected %s", tic.Name);
fprintf(tmp, "Disconnected area %s\n", tic.Name);
f_list = TRUE;
}
}
}
} else
fseek(fp, tichdr.syssize, SEEK_CUR);
}
}
}
}
fclose(gp);
fclose(fp);
}
void F_Group(faddr *, char *, int, FILE *);
void F_Group(faddr *t, char *Area, int Connect, FILE *tmp)
{
ShiftBuf(Area, 2);
CleanBuf(Area);
F_All(t, Connect, tmp, Area);
}
void F_Pause(faddr *, int, FILE *);
void F_Pause(faddr *t, int Pause, FILE *tmp)
{
if (Pause)
Syslog('+', "FileMgr: Pause");
else
Syslog('+', "FileMgr: Resume");
}
void F_Message(faddr *t, char *Buf, FILE *tmp)
{
fidoaddr Node;
ShiftBuf(Buf, 8);
CleanBuf(Buf);
if (!strncasecmp(Buf, "on", 2))
nodes.Message = TRUE;
else if (!strncasecmp(Buf, "off", 3))
nodes.Message = FALSE;
else
return;
UpdateNode();
memcpy(&Node, faddr2fido(t), sizeof(fidoaddr));
SearchNode(Node);
Syslog('+', "FileMgr: Message %s", GetBool(nodes.Message));
fprintf(tmp, "FileMgr Message file is %s\n", GetBool(nodes.Message));
}
void F_Tick(faddr *t, char *Buf, FILE *tmp)
{
fidoaddr Node;
ShiftBuf(Buf, 5);
CleanBuf(Buf);
if (!strncasecmp(Buf, "on", 2)) {
nodes.Tic = TRUE;
nodes.AdvTic = FALSE;
} else if (!strncasecmp(Buf, "off", 3)) {
nodes.Tic = nodes.AdvTic = FALSE;
} else if (!strncasecmp(Buf, "advanced", 8)) {
nodes.Tic = nodes.AdvTic = TRUE;
} else
return;
UpdateNode();
memcpy(&Node, faddr2fido(t), sizeof(fidoaddr));
SearchNode(Node);
Syslog('+', "FileMgr: Tick %s, Advanced %s", nodes.Tic, nodes.AdvTic);
if (nodes.Tic)
if (nodes.AdvTic)
fprintf(tmp, "Tick mode is advanced");
else
fprintf(tmp, "Tick mode is normal");
else
fprintf(tmp, "Tick mode is off");
}
Upgrade CVS to 0.33.18 current
2001-08-25 19:53:11 +00:00
int FileMgr(faddr *f, faddr *t, char *replyid, char *subj, time_t mdate, int flags, FILE *fp)
Initial revision
2001-08-17 05:46:24 +00:00
{
int i, rc = 0, spaces;
char *Buf;
FILE *tmp, *np;
fidoaddr Node;
f_help = f_stat = f_unlnk = f_list = f_query = FALSE;
filemgr++;
if (SearchFidonet(f->zone))
f->domain = xstrcpy(fidonet.domain);
Syslog('+', "FileMgr msg from %s", ascfnode(f, 0xff));
/*
* If the password failed, we return silently and don't respond.
*/
if ((!strlen(subj)) || (strcasecmp(subj, nodes.Fpasswd))) {
WriteError("FileMgr: password expected \"%s\", got \"%s\"", nodes.Fpasswd, subj);
net_bad++;
return FALSE;
}
if ((tmp = tmpfile()) == NULL) {
WriteError("$FileMsr: Can't open tmpfile()");
net_bad++;
return FALSE;
}
Buf = calloc(2049, sizeof(char));
rewind(fp);
while ((fgets(Buf, 2048, fp)) != NULL) {
/*
* Make sure we refresh the nodes record.
*/
memcpy(&Node, faddr2fido(f), sizeof(fidoaddr));
SearchNode(Node);
spaces = 0;
for (i = 0; i < strlen(Buf); i++) {
if (*(Buf + i) == ' ')
spaces++;
if (*(Buf + i) == '\t')
spaces++;
if (*(Buf + i) == '\0')
break;
if (*(Buf + i) == '\n')
*(Buf + i) = '\0';
if (*(Buf + i) == '\r')
*(Buf + i) = '\0';
}
if (!strncmp(Buf, "---", 3))
break;
if (strlen(Buf) && (*(Buf) != '\001') && (spaces <= 1)) {
if (!strncasecmp(Buf, "%help", 5))
f_help = TRUE;
else if (!strncasecmp(Buf, "%query", 6))
f_query = TRUE;
else if (!strncasecmp(Buf, "%linked", 7))
f_query = TRUE;
else if (!strncasecmp(Buf, "%list", 5))
f_list = TRUE;
else if (!strncasecmp(Buf, "%status", 7))
f_stat = TRUE;
else if (!strncasecmp(Buf, "%unlinked", 9))
f_unlnk = TRUE;
else if (!strncasecmp(Buf, "%+all", 5))
F_All(f, TRUE, tmp, NULL);
else if (!strncasecmp(Buf, "%-all", 5))
F_All(f, FALSE, tmp, NULL);
else if (!strncasecmp(Buf, "%+*", 3))
F_All(f, TRUE, tmp, NULL);
else if (!strncasecmp(Buf, "%-*", 3))
F_All(f, FALSE, tmp, NULL);
else if (!strncasecmp(Buf, "%+", 2))
F_Group(f, Buf, TRUE, tmp);
else if (!strncasecmp(Buf, "%-", 2))
F_Group(f, Buf, FALSE, tmp);
else if (!strncasecmp(Buf, "%pause", 6))
F_Pause(f, TRUE, tmp);
else if (!strncasecmp(Buf, "%resume", 7))
F_Pause(f, FALSE, tmp);
else if (!strncasecmp(Buf, "%password", 9))
MgrPasswd(f, Buf, tmp, 9);
else if (!strncasecmp(Buf, "%pwd", 4))
MgrPasswd(f, Buf, tmp, 4);
else if (!strncasecmp(Buf, "%notify", 7))
MgrNotify(f, Buf, tmp);
else if (!strncasecmp(Buf, "%message", 8))
F_Message(f, Buf, tmp);
else if (!strncasecmp(Buf, "%tick", 5))
F_Tick(f, Buf, tmp);
else if (*(Buf) == '%')
F_Global(f, Buf, tmp);
else if (*(Buf) == '-')
F_Disconnect(f, Buf, tmp);
else
F_Connect(f, Buf, tmp);
}
}
if (ftell(tmp)) {
Upgrade CVS to 0.33.18 current
2001-08-25 19:53:11 +00:00
if ((np = SendMgrMail(f, CFG.ct_KeepMgr, FALSE, (char *)"Filemgr", (char *)"Your FileMgr request", replyid)) != NULL) {
Initial revision
2001-08-17 05:46:24 +00:00
fprintf(np, " Dear %s\r\r", nodes.Sysop);
fprintf(np, "Here is the result of your FileMgr request:\r\r");
fseek(tmp, 0, SEEK_SET);
while ((fgets(Buf, 2048, tmp)) != NULL) {
Buf[strlen(Buf)-1] = '\0';
fprintf(np, "%s\r", Buf);
Syslog('m', "Rep: %s", Buf);
}
fprintf(np, "\rWith regards, %s\r\r", CFG.sysop_name);
Added email post protection and netmail bounce
2002-02-09 15:11:19 +00:00
fprintf(np, "%s\r", tearline);
Initial revision
2001-08-17 05:46:24 +00:00
CloseMail(np, t);
net_out++;
} else
WriteError("Can't create netmail");
}
free(Buf);
fclose(tmp);
if (f_stat)
Upgrade CVS to 0.33.18 current
2001-08-25 19:53:11 +00:00
F_Status(f, replyid);
Initial revision
2001-08-17 05:46:24 +00:00
if (f_query)
Upgrade CVS to 0.33.18 current
2001-08-25 19:53:11 +00:00
F_Query(f, replyid);
Initial revision
2001-08-17 05:46:24 +00:00
if (f_list)
Upgrade CVS to 0.33.18 current
2001-08-25 19:53:11 +00:00
F_List(f, replyid, FALSE);
Initial revision
2001-08-17 05:46:24 +00:00
if (f_unlnk)
Upgrade CVS to 0.33.18 current
2001-08-25 19:53:11 +00:00
F_Unlinked(f, replyid);
Initial revision
2001-08-17 05:46:24 +00:00
if (f_help)
Upgrade CVS to 0.33.18 current
2001-08-25 19:53:11 +00:00
F_Help(f, replyid);
Initial revision
2001-08-17 05:46:24 +00:00
return rc;
}
Reference in New Issue Copy Permalink