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-mbse/mbfido/filefind.c

528 lines
13 KiB
C
Raw Normal View History

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 ...............: Announce new files and FileFind
*
*****************************************************************************
* Copyright (C) 1997-2007
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"
2001-08-17 05:46:24 +00:00
#include "../lib/msg.h"
#include "../lib/msgtext.h"
2002-04-01 19:06:09 +00:00
#include "../lib/diesel.h"
2001-08-17 05:46:24 +00:00
#include "fflist.h"
#include "filefind.h"
#include "msgutil.h"
/*
* The next constants are to prevent overflowing the echomail areas
* with huge replies. MAX_DESC_LINES limits the number of file description
* lines, 5 should be enough. The other two are the maximum files to report
* if in the same area or different area.
* For netmail replies there is a different limit.
*/
#define MAX_DESC_LINES 5
2002-04-01 19:06:09 +00:00
#define MAX_FILES_SAMEBOARD 25
2001-08-17 05:46:24 +00:00
#define MAX_FILES_OTHERBOARD 50
#define MAX_FILES_NETMAIL 100
extern int do_quiet; /* Suppress screen output */
2001-08-17 05:46:24 +00:00
struct _filerecord T_File; /* Internal announce record */
int Requests = 0; /* Total found request */
int Replies = 0; /* Total generated replies */
void Back(int);
void Back(int count)
{
2002-04-01 19:06:09 +00:00
int i;
2001-08-17 05:46:24 +00:00
2002-04-01 19:06:09 +00:00
if (do_quiet)
return;
2001-08-17 05:46:24 +00:00
2002-04-01 19:06:09 +00:00
for (i = 0; i < count; i++)
printf("\b");
fflush(stdout);
2001-08-17 05:46:24 +00:00
}
void Clean(int);
void Clean(int count)
{
2002-04-01 19:06:09 +00:00
int i;
2001-08-17 05:46:24 +00:00
2002-04-01 19:06:09 +00:00
if (do_quiet)
return;
2001-08-17 05:46:24 +00:00
2002-04-01 19:06:09 +00:00
for (i = 0; i < count; i++)
printf(" ");
Back(count);
2001-08-17 05:46:24 +00:00
}
void ScanArea(ff_list **);
void ScanArea(ff_list **ffl)
{
2005-10-11 20:49:41 +00:00
unsigned int Number, Highest;
2002-04-01 19:06:09 +00:00
if (!do_quiet) {
2005-08-19 20:48:54 +00:00
mbse_colour(CYAN, BLACK);
2002-04-01 19:06:09 +00:00
printf("\r %-40s", scanmgr.Comment);
2005-08-19 20:48:54 +00:00
mbse_colour(LIGHTRED, BLACK);
2002-04-01 19:06:09 +00:00
printf(" (Scanning) ");
2005-08-19 20:48:54 +00:00
mbse_colour(LIGHTMAGENTA, BLACK);
2002-04-01 19:06:09 +00:00
fflush(stdout);
}
Syslog('+', "Scanning %s", scanmgr.Comment);
if (Msg_Open(scanmgr.ScanBoard)) {
Number = Msg_Lowest();
Highest = Msg_Highest();
do {
if (!do_quiet) {
2005-10-11 20:49:41 +00:00
printf("%6u / %6u", Number, Highest);
2002-04-01 19:06:09 +00:00
Back(15);
}
if (CFG.slow_util && do_quiet)
2004-01-25 10:57:35 +00:00
msleep(1);
2002-04-01 19:06:09 +00:00
if (Msg_ReadHeader(Number) == TRUE) {
if (((!strcasecmp(Msg.To, "allfix")) || (!strcasecmp(Msg.To, "filefind"))) && (!Msg.Received)) {
2005-10-11 20:49:41 +00:00
Syslog('m', "Msg: %s (%u) [%s]", Msg.From, Number, Msg.Subject);
2002-04-01 19:06:09 +00:00
Msg.Received = TRUE;
Msg.Read = time(NULL);
if (Msg_Lock(30L)) {
Msg_WriteHeader(Number);
Msg_UnLock();
Syslog('m', "Marked message received");
}
if (strlen(Msg.Subject) && strlen(Msg.FromAddress)) {
fill_fflist(ffl);
Requests++;
}
}
}
2001-08-17 05:46:24 +00:00
2002-04-01 19:06:09 +00:00
} while (Msg_Next(&Number) == TRUE);
2001-08-17 05:46:24 +00:00
2002-04-01 19:06:09 +00:00
Msg_Close();
Clean(15);
} else
WriteError("$Can't open %s", scanmgr.ScanBoard);
2001-08-17 05:46:24 +00:00
2002-04-01 19:06:09 +00:00
Back(54);
Clean(54);
2001-08-17 05:46:24 +00:00
}
2005-10-11 20:49:41 +00:00
int StartReply(ff_list *);
int StartReply(ff_list *ffl)
2001-08-17 05:46:24 +00:00
{
2002-04-01 19:06:09 +00:00
char *temp;
2005-10-11 20:49:41 +00:00
unsigned int crc = -1;
2001-08-17 05:46:24 +00:00
2002-04-01 19:06:09 +00:00
if (strlen(scanmgr.ReplBoard)) {
if (!Msg_Open(scanmgr.ReplBoard))
return -1;
else
CountPosted(scanmgr.ReplBoard);
} else {
if (!Msg_Open(scanmgr.ScanBoard))
return -1;
2001-08-17 05:46:24 +00:00
else
2002-04-01 19:06:09 +00:00
CountPosted(scanmgr.ScanBoard);
}
if (!Msg_Lock(30L)) {
Msg_Close();
return -1;
}
Msg_New();
2007-03-05 12:25:18 +00:00
chartran_init((char *)"CP437", get_ic_ftn(scanmgr.charset), 'f');
2002-04-01 19:06:09 +00:00
temp = calloc(PATH_MAX, sizeof(char));
2005-08-28 15:33:23 +00:00
snprintf(Msg.From, 101, "%s", CFG.sysop_name);
2007-03-05 12:25:18 +00:00
snprintf(Msg.To, 101, "%s", chartran(ffl->from));
snprintf(Msg.Subject, 101, "Re: %s", chartran(ffl->subject));
2005-08-28 15:33:23 +00:00
snprintf(Msg.FromAddress, 101, "%s", aka2str(scanmgr.Aka));
2002-04-01 19:06:09 +00:00
Msg.Written = time(NULL);
Msg.Arrived = time(NULL);
Msg.Local = TRUE;
if (scanmgr.NetReply){
Msg.Netmail = TRUE;
2005-08-28 15:33:23 +00:00
snprintf(Msg.ToAddress, 101, "%d:%d/%d.%d", ffl->zone, ffl->net, ffl->node, ffl->point);
Msg.Private = TRUE;
2002-04-01 19:06:09 +00:00
} else
Msg.Echomail = TRUE;
/*
* Start message text including kludges
*/
Msg_Id(scanmgr.Aka);
2005-08-28 15:33:23 +00:00
snprintf(temp, PATH_MAX, "\001REPLY: %s", ffl->msgid);
2002-04-01 19:06:09 +00:00
MsgText_Add2(temp);
Msg.ReplyCRC = upd_crc32(temp, crc, strlen(temp));
free(temp);
2007-03-05 12:25:18 +00:00
Msg_Pid(scanmgr.charset);
2002-04-01 19:06:09 +00:00
return Msg_Top(scanmgr.template, scanmgr.Language, scanmgr.Aka);
2001-08-17 05:46:24 +00:00
}
2005-10-11 20:49:41 +00:00
void FinishReply(int, int, int);
void FinishReply(int Reported, int Total, int filepos)
2001-08-17 05:46:24 +00:00
{
2002-04-01 19:06:09 +00:00
char *temp;
FILE *fp, *fi;
temp = calloc(PATH_MAX, sizeof(char));
2002-04-10 20:29:57 +00:00
if ((fi = OpenMacro(scanmgr.template, scanmgr.Language, FALSE)) != NULL) {
2002-04-01 19:06:09 +00:00
MacroVars("CD", "dd", Reported, Total);
fseek(fi, filepos, SEEK_SET);
Msg_Macro(fi);
fclose(fi);
MacroClear();
}
if (strlen(scanmgr.Origin))
Msg_Bot(scanmgr.Aka, scanmgr.Origin, scanmgr.template);
else
Msg_Bot(scanmgr.Aka, CFG.origin, scanmgr.template);
Msg_AddMsg();
Msg_UnLock();
Syslog('+', "Posted message %ld", Msg.Id);
2007-03-05 12:25:18 +00:00
chartran_close();
2005-08-28 15:33:23 +00:00
snprintf(temp, PATH_MAX, "%s/tmp/%smail.jam", getenv("MBSE_ROOT"), scanmgr.NetReply?"net":"echo");
2002-04-01 19:06:09 +00:00
if ((fp = fopen(temp, "a")) != NULL) {
if (strlen(scanmgr.ReplBoard))
2005-10-11 20:49:41 +00:00
fprintf(fp, "%s %u\n", scanmgr.ReplBoard, Msg.Id);
2001-08-17 05:46:24 +00:00
else
2005-10-11 20:49:41 +00:00
fprintf(fp, "%s %u\n", scanmgr.ScanBoard, Msg.Id);
2002-04-01 19:06:09 +00:00
fclose(fp);
}
2001-08-17 05:46:24 +00:00
2002-04-01 19:06:09 +00:00
Msg_Close();
free(temp);
2001-08-17 05:46:24 +00:00
}
/*
* Scan for files for one request.
*/
void ScanFiles(ff_list *);
void ScanFiles(ff_list *tmp)
{
2002-04-01 19:06:09 +00:00
char *temp, *kwd, *BigDesc, *line;
2004-05-06 20:06:07 +00:00
FILE *pAreas, *fi;
2005-10-11 20:49:41 +00:00
unsigned int areanr = 0, found = 0, SubSize = 0;
2002-04-01 19:06:09 +00:00
int i, j, k, keywrd, Found;
rf_list *rfl = NULL, *rft;
int Rep = 0, Sub = 0, Stop = FALSE;
2005-10-11 20:49:41 +00:00
int filepos, filepos1 = 0, filepos2 = 0, filepos3 = 0, filepos4 = 0;
2004-05-06 20:06:07 +00:00
struct _fdbarea *fdb_area = NULL;
2002-04-01 19:06:09 +00:00
kwd = calloc(81, sizeof(char));
2005-08-28 15:33:23 +00:00
temp = calloc(PATH_MAX, sizeof(char));
BigDesc = calloc(1231, sizeof(char));
2002-04-01 19:06:09 +00:00
2005-08-28 15:33:23 +00:00
snprintf(temp, PATH_MAX, "%s (%d:%d/%d.%d)", tmp->from, tmp->zone, tmp->net, tmp->node, tmp->point);
2002-04-01 19:06:09 +00:00
Syslog('+', "ff: %s [%s]", temp, tmp->subject);
if (!do_quiet) {
2005-08-19 20:48:54 +00:00
mbse_colour(CYAN, BLACK);
2002-04-01 19:06:09 +00:00
temp[40] = '\0';
printf("\r %-40s", temp);
2005-08-19 20:48:54 +00:00
mbse_colour(LIGHTRED, BLACK);
2002-04-01 19:06:09 +00:00
printf(" (Searching)");
2005-08-19 20:48:54 +00:00
mbse_colour(LIGHTMAGENTA, BLACK);
2002-04-01 19:06:09 +00:00
fflush(stdout);
}
2005-08-28 15:33:23 +00:00
snprintf(temp, PATH_MAX, "%s/etc/fareas.data", getenv("MBSE_ROOT"));
2002-04-01 19:06:09 +00:00
if ((pAreas = fopen(temp, "r")) != NULL) {
fread(&areahdr, sizeof(areahdr), 1, pAreas);
while (fread(&area, areahdr.recsize, 1, pAreas) == 1) {
areanr++;
Nopper();
if (CFG.slow_util && do_quiet)
2004-01-25 10:57:35 +00:00
msleep(1);
2002-04-01 19:06:09 +00:00
if (!do_quiet) {
2005-10-11 20:49:41 +00:00
printf("%6u / %6u", areanr, found);
2002-04-01 19:06:09 +00:00
Back(15);
}
if (area.Available && area.FileFind) {
2004-05-06 20:06:07 +00:00
if ((fdb_area = mbsedb_OpenFDB(areanr, 30))) {
while (fread(&fdb, fdbhdr.recsize, 1, fdb_area->fp) == 1) {
2002-04-01 19:06:09 +00:00
for (i = 0; i < 25; i++)
2005-08-28 15:33:23 +00:00
snprintf(BigDesc, 1230, "%s%s", BigDesc, *(fdb.Desc + i));
snprintf(temp, PATH_MAX, "%s", tmp->subject);
2002-04-01 19:06:09 +00:00
Found = FALSE;
while (strlen(temp) && (!Found)) {
/*
* Split the search request in separate words.
*/
k = strlen(temp);
for (i = 0; i < k; i++)
if (temp[i] == ' ')
break;
if (i < k) {
strncpy(kwd, temp, i);
kwd[i] = '\0';
for (j = 0; j < (k - i -1); j++)
temp[j] = temp[j+i+1];
temp[j] = '\0';
} else {
snprintf(kwd, 80, "%s", temp);
2002-04-01 19:06:09 +00:00
temp[0] = '\0';
}
/*
* Check if it's a filename search or a keyword search.
*/
keywrd = FALSE;
if ((kwd[0] == '/') || (kwd[0] == '\\')) {
keywrd = TRUE;
for (i = 1; i < strlen(kwd); i++)
kwd[i-1] = kwd[i];
kwd[i-1] = '\0';
}
2004-03-17 20:24:59 +00:00
if (strlen(kwd) > scanmgr.keywordlen) {
if ((strcasestr(fdb.Name, kwd) != NULL) || (strcasestr(fdb.LName, kwd) != NULL)) {
2002-04-01 19:06:09 +00:00
Found = TRUE;
Syslog('m', "Found '%s' in %s in filename", kwd, fdb.LName);
2002-04-01 19:06:09 +00:00
}
if (keywrd && (strcasestr(BigDesc, kwd) != NULL)) {
2002-04-01 19:06:09 +00:00
Found = TRUE;
Syslog('m', "Found '%s' in %s in description", kwd, fdb.LName);
2002-04-01 19:06:09 +00:00
}
}
} /* while (strlen(temp) && (!Found)) */
if (Found) {
found++;
Syslog('m', "Found %s area %d", fdb.LName, areanr);
2004-03-06 21:48:41 +00:00
fill_rflist(&rfl, fdb.Name, areanr);
2002-04-01 19:06:09 +00:00
}
strcpy(BigDesc, "");
}
2004-05-06 20:06:07 +00:00
mbsedb_CloseFDB(fdb_area);
2002-04-01 19:06:09 +00:00
} else
WriteError("$Can't open %s", temp);
}
}
fclose(pAreas);
Clean(15);
} else
WriteError("$Can't open %s", temp);
2001-08-17 05:46:24 +00:00
2002-04-01 19:06:09 +00:00
Back(12);
Clean(12);
2001-08-17 05:46:24 +00:00
2002-04-01 19:06:09 +00:00
if (found) {
2001-08-17 05:46:24 +00:00
if (!do_quiet) {
2005-08-19 20:48:54 +00:00
mbse_colour(YELLOW, BLACK);
2002-04-01 19:06:09 +00:00
printf(" (Replying)");
fflush(stdout);
2001-08-17 05:46:24 +00:00
}
2002-04-10 20:29:57 +00:00
if (((filepos = StartReply(tmp)) != -1) && ((fi = OpenMacro(scanmgr.template, scanmgr.Language, FALSE)) != NULL)) {
2002-04-01 19:06:09 +00:00
areanr = 0;
2001-08-17 05:46:24 +00:00
2005-08-28 15:33:23 +00:00
snprintf(temp, PATH_MAX, "%s/etc/fareas.data", getenv("MBSE_ROOT"));
2002-04-01 19:06:09 +00:00
if ((pAreas = fopen(temp, "r")) != NULL) {
fread(&areahdr, sizeof(areahdr), 1, pAreas);
2001-08-17 05:46:24 +00:00
2002-04-01 19:06:09 +00:00
for (rft = rfl; rft; rft = rft->next) {
/*
* Area footer
*/
if ((areanr != rft->area) && (Sub)) {
fseek(fi, filepos3, SEEK_SET);
MacroVars("AB", "dd", Sub, SubSize / 1024);
Msg_Macro(fi);
filepos4 = ftell(fi);
Sub = 0;
SubSize = 0;
}
/*
* New area header
*/
if (areanr != rft->area) {
fseek(pAreas, ((rft->area - 1) * areahdr.recsize) + areahdr.hdrsize, SEEK_SET);
fread(&area, areahdr.recsize, 1, pAreas);
MacroVars("GJ", "ds", rft->area, area.Name);
fseek(fi, filepos, SEEK_SET);
Msg_Macro(fi);
filepos1 = ftell(fi);
areanr = rft->area;
}
2004-05-06 20:06:07 +00:00
if ((fdb_area = mbsedb_OpenFDB(rft->area, 30))) {
while (fread(&fdb, fdbhdr.recsize, 1, fdb_area->fp) == 1)
if (!strcmp(rft->filename, fdb.Name))
break;
mbsedb_CloseFDB(fdb_area);
2004-03-06 21:48:41 +00:00
MacroVars("slbkdt", "ssddss", fdb.Name, fdb.LName, fdb.Size, fdb.Size / 1024, " ",
2007-03-05 12:25:18 +00:00
chartran(fdb.Desc[0]));
2002-04-01 19:06:09 +00:00
fseek(fi, filepos1, SEEK_SET);
Msg_Macro(fi);
filepos2 = ftell(fi);
2004-03-06 21:48:41 +00:00
SubSize += fdb.Size;
2002-04-01 19:06:09 +00:00
/*
* We add no more then 5 description lines
* to prevent unnecesary long messages.
*/
for (i = 1; i < MAX_DESC_LINES; i++) {
2007-03-05 12:25:18 +00:00
MacroVars("t", "s", chartran(fdb.Desc[i]));
2002-04-01 19:06:09 +00:00
fseek(fi, filepos2, SEEK_SET);
2004-03-06 21:48:41 +00:00
if (strlen(fdb.Desc[i])) {
2002-04-01 19:06:09 +00:00
Msg_Macro(fi);
} else {
line = calloc(255, sizeof(char));
while ((fgets(line, 254, fi) != NULL) && ((line[0]!='@') || (line[1]!='|'))) {}
free(line);
}
filepos3 = ftell(fi);
2001-08-17 05:46:24 +00:00
}
2002-04-01 19:06:09 +00:00
}
Rep++;
Sub++;
if (!scanmgr.NetReply) {
if (strlen(scanmgr.ReplBoard)) {
if (Rep >= MAX_FILES_OTHERBOARD)
Stop = TRUE;
} else {
if (Rep >= MAX_FILES_SAMEBOARD)
Stop = TRUE;
2001-08-17 05:46:24 +00:00
}
2002-04-01 19:06:09 +00:00
} else {
if (Rep >= MAX_FILES_NETMAIL)
Stop = TRUE;
}
if (Stop)
break;
2001-08-17 05:46:24 +00:00
}
2002-04-01 19:06:09 +00:00
if (Sub) {
fseek(fi, filepos3, SEEK_SET);
MacroVars("AB", "dd", Sub, SubSize / 1024);
Msg_Macro(fi);
filepos4 = ftell(fi);
2001-08-17 05:46:24 +00:00
}
2002-04-01 19:06:09 +00:00
fclose(pAreas);
}
FinishReply(Rep, found, filepos4);
Replies++;
2001-08-17 05:46:24 +00:00
}
2002-04-01 19:06:09 +00:00
Back(11);
Clean(11);
}
2001-08-17 05:46:24 +00:00
2002-04-01 19:06:09 +00:00
Back(42);
Clean(42);
tidy_rflist(&rfl);
free(BigDesc);
free(temp);
free(kwd);
2001-08-17 05:46:24 +00:00
}
int Filefind()
{
2002-04-01 19:06:09 +00:00
char *temp;
int rc = FALSE;
FILE *fp;
ff_list *ffl = NULL, *tmp;
IsDoing("FileFind");
if (!do_quiet) {
2005-08-19 20:48:54 +00:00
mbse_colour(CYAN, BLACK);
2002-04-01 19:06:09 +00:00
printf("Processing FileFind requests\n");
}
Syslog('+', "Processing FileFind requests");
temp = calloc(PATH_MAX, sizeof(char));
2005-08-28 15:33:23 +00:00
snprintf(temp, PATH_MAX, "%s/etc/scanmgr.data", getenv("MBSE_ROOT"));
2002-04-01 19:06:09 +00:00
if ((fp = fopen(temp, "r")) == NULL) {
WriteError("$Can't open %s", temp);
2001-08-17 05:46:24 +00:00
free(temp);
2002-04-01 19:06:09 +00:00
return FALSE;
}
fread(&scanmgrhdr, sizeof(scanmgrhdr), 1, fp);
while (fread(&scanmgr, scanmgrhdr.recsize, 1, fp) == 1) {
if (scanmgr.Active) {
ScanArea(&ffl);
Nopper();
for (tmp = ffl; tmp; tmp = tmp->next) {
ScanFiles(tmp);
}
tidy_fflist(&ffl);
}
}
fclose(fp);
free(temp);
if (Requests) {
Syslog('+', "Processed %d requests, created %d replies", Requests, Replies);
if (Replies)
rc = TRUE;
if (!do_quiet) {
2005-08-19 20:48:54 +00:00
mbse_colour(CYAN, BLACK);
2002-04-01 19:06:09 +00:00
printf("Processed %d requests, created %d replies\n", Requests, Replies);
2001-08-17 05:46:24 +00:00
}
2002-04-01 19:06:09 +00:00
}
2001-08-17 05:46:24 +00:00
2002-04-01 19:06:09 +00:00
return rc;
2001-08-17 05:46:24 +00:00
}