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/tic.c

467 lines
12 KiB
C
Raw Normal View History

2001-08-17 05:46:24 +00:00
/*****************************************************************************
*
2001-12-08 20:31:42 +00:00
* $Id$
2001-08-17 05:46:24 +00:00
* Purpose ...............: Process .tic files
*
*****************************************************************************
2002-01-07 19:16:03 +00:00
* Copyright (C) 1997-2002
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"
2002-01-07 19:16:03 +00:00
#include "../lib/users.h"
2001-08-17 05:46:24 +00:00
#include "../lib/records.h"
#include "../lib/common.h"
#include "../lib/dbftn.h"
#include "../lib/clcomm.h"
#include "ulock.h"
#include "ptic.h"
#include "fsort.h"
#include "pack.h"
#include "tic.h"
#define UNPACK_FACTOR 300
int tic_in = 0; /* .tic files received */
int tic_imp = 0; /* imported .tic files */
int tic_out = 0; /* .tic files sent */
int tic_bad = 0; /* bad .tic files */
int tic_dup = 0; /* dupe .tic files */
extern int do_unprot;
extern int do_quiet;
extern int tic_in;
/*
* returns: -1 = Errors.
* 0 = No files processed
* 1 = Processed file(s)
*/
int Tic()
{
char *inbound, *fname;
DIR *dp;
struct dirent *de;
struct stat sbuf;
int i, rc = 0;
fd_list *fdl = NULL;
IsDoing("Process .tic files");
CompileNL = FALSE;
if (do_unprot) {
inbound = xstrcpy(CFG.inbound);
} else {
inbound = xstrcpy(CFG.pinbound);
}
Syslog('+', "Pass: process ticfiles (%s)", inbound);
if (!diskfree(CFG.freespace)) {
free(inbound);
return -1;
}
if (chdir(inbound) == -1) {
WriteError("$Can't chdir(%s)", inbound);
free(inbound);
return -1;
}
if ((dp = opendir(inbound)) == NULL) {
WriteError("$Can't opendir(%s)", inbound);
free(inbound);
return -1;
}
while ((de = readdir(dp)))
if ((strlen(de->d_name) == 12) &&
(strncasecmp(de->d_name+11, "c", 1) == 0)) {
if ((strncasecmp(de->d_name+8, ".a", 2) == 0) ||
(strncasecmp(de->d_name+8, ".c", 2) == 0) ||
(strncasecmp(de->d_name+8, ".z", 2) == 0) ||
(strncasecmp(de->d_name+8, ".l", 2) == 0) ||
(strncasecmp(de->d_name+8, ".r", 2) == 0) ||
(strncasecmp(de->d_name+8, ".0", 2) == 0)) {
if (checkspace(inbound, de->d_name, UNPACK_FACTOR)) {
if ((unpack(de->d_name)) != 0) {
WriteError("Error unpacking %s", de->d_name);
}
} else
Syslog('+', "Insufficient space to unpack file %s", de->d_name);
}
}
rewinddir(dp);
while ((de = readdir(dp)))
if ((strlen(de->d_name) == 12) && (strncasecmp(de->d_name+8, ".tic", 4) == 0)) {
stat(de->d_name, &sbuf);
fill_fdlist(&fdl, de->d_name, sbuf.st_mtime);
}
closedir(dp);
sort_fdlist(&fdl);
while ((fname = pull_fdlist(&fdl)) != NULL) {
if (LoadTic(inbound, fname) == 0)
rc = 1;
if (IsSema((char *)"upsalarm")) {
rc = 0;
Syslog('+', "Detected upsalarm semafore, aborting tic processing");
break;
}
if (!diskfree(CFG.freespace)) {
rc = 0;
break;
}
}
if (!do_quiet) {
printf("\r");
for (i = 0; i < 79; i++)
printf(" ");
printf("\r");
fflush(stdout);
}
if (rc)
packmail();
if (CompileNL)
CreateSema((char *)"mbindex");
free(inbound);
return rc;
}
/*
* Returns 1 if error, 0 if ok.
*/
int LoadTic(char *inb, char *tfn)
{
FILE *tfp;
2001-12-09 15:20:51 +00:00
char *Temp, *Temp2, *Buf, *Log = NULL;
2001-08-17 05:46:24 +00:00
int i, j, rc;
fa_list *sbl = NULL;
2001-12-08 20:31:42 +00:00
int DescCnt = FALSE;
2001-08-17 05:46:24 +00:00
if (CFG.slow_util && do_quiet)
usleep(1);
memset(&TIC, 0, sizeof(TIC));
memset(&T_File, 0, sizeof(T_File));
2001-12-09 15:20:51 +00:00
sprintf(TIC.Inbound, "%s", inb);
strncpy(TIC.TicName, tfn, 12);
2001-08-17 05:46:24 +00:00
chdir(inb);
if ((tfp = fopen(tfn, "r")) == NULL) {
WriteError("$Cannot open %s", tfn);
return 1;
}
2001-12-09 15:20:51 +00:00
Temp = calloc(PATH_MAX, sizeof(char));
2002-02-16 23:16:42 +00:00
Buf = calloc(PATH_MAX, sizeof(char));
2001-08-17 05:46:24 +00:00
2002-02-16 23:16:42 +00:00
while ((fgets(Buf, PATH_MAX -1, tfp)) != NULL) {
2001-08-17 05:46:24 +00:00
/*
* Remove all garbage from the .TIC file.
*/
Temp[0] = '\0';
j = 0;
for (i = 0; i < strlen(Buf); i++)
2001-12-08 20:31:42 +00:00
if (isprint(Buf[i])) {
2001-08-17 05:46:24 +00:00
Temp[j] = Buf[i];
j++;
}
Temp[j] = '\0';
2002-02-16 23:16:42 +00:00
if (strlen(Temp) > 255) {
Syslog('+', "Truncating TIC line of %d characters", strlen(Temp));
Temp[255] = '\0';
}
Syslog('f', "TIC: %s", Temp);
2001-12-08 20:31:42 +00:00
if (strncasecmp(Temp, "hatch", 5) == 0) {
TIC.TicIn.Hatch = TRUE;
2001-08-17 05:46:24 +00:00
2001-12-08 20:31:42 +00:00
} else if (TIC.TicIn.Hatch && (strncasecmp(Temp, "pth ", 4) == 0)) {
2001-12-09 15:20:51 +00:00
strncpy(TIC.TicIn.Pth, Temp+4, PATH_MAX);
2001-08-17 05:46:24 +00:00
2001-12-08 20:31:42 +00:00
} else if (strncasecmp(Temp, "area ", 5) == 0) {
strncpy(TIC.TicIn.Area, Temp+5, 20);
strncpy(T_File.Echo, Temp+5, 20);
2001-08-17 05:46:24 +00:00
2001-12-08 20:31:42 +00:00
} else if (strncasecmp(Temp, "origin ", 7) == 0) {
strncpy(TIC.TicIn.Origin, Temp+7, 80);
strncpy(T_File.Origin, Temp+7, 80);
2001-08-17 05:46:24 +00:00
2001-12-08 20:31:42 +00:00
} else if (strncasecmp(Temp, "from ", 5) == 0) {
strncpy(TIC.TicIn.From, Temp+5, 80);
strncpy(T_File.From, Temp+5, 80);
2001-08-17 05:46:24 +00:00
2001-12-08 20:31:42 +00:00
} else if (strncasecmp(Temp, "file ", 5) == 0) {
strncpy(TIC.TicIn.File, Temp+5, 80);
2001-08-17 05:46:24 +00:00
2001-12-08 20:31:42 +00:00
} else if (strncasecmp(Temp, "fullname ", 9) == 0) {
strncpy(TIC.TicIn.FullName, Temp+9, 80);
2001-12-09 15:20:51 +00:00
Syslog('f', "Long filename: %s", TIC.TicIn.FullName);
2001-08-17 05:46:24 +00:00
2001-12-08 20:31:42 +00:00
} else if (strncasecmp(Temp, "created ", 8) == 0) {
strncpy(TIC.TicIn.Created, Temp+8, 80);
2001-08-17 05:46:24 +00:00
2001-12-08 20:31:42 +00:00
} else if (strncasecmp(Temp, "magic ", 6) == 0) {
strncpy(TIC.TicIn.Magic, Temp+6, 20);
strncpy(T_File.Magic, Temp+6, 20);
} else if (strncasecmp(Temp, "crc ", 4) == 0) {
2001-08-17 05:46:24 +00:00
TIC.Crc_Int = strtoul(Temp+4, (char **)NULL, 16);
sprintf(TIC.TicIn.Crc, "%08lX", TIC.Crc_Int);
strcpy(T_File.Crc, TIC.TicIn.Crc);
2001-12-08 20:31:42 +00:00
} else if (strncasecmp(Temp, "pw ", 3) == 0) {
strncpy(TIC.TicIn.Pw, Temp+3, 20);
2001-08-17 05:46:24 +00:00
2001-12-08 20:31:42 +00:00
} else if (strncasecmp(Temp, "replaces ", 9) == 0) {
strncpy(TIC.TicIn.Replace, Temp+9, 80);
strncpy(T_File.Replace, Temp+9, 80);
2001-08-17 05:46:24 +00:00
2001-12-08 20:31:42 +00:00
} else if (strncasecmp(Temp, "desc ", 5) == 0) {
2001-08-17 05:46:24 +00:00
if (!DescCnt) {
2001-12-08 20:31:42 +00:00
strncpy(TIC.TicIn.Desc, Temp+5, 255);
strncpy(T_File.Desc, TIC.TicIn.Desc, 255);
2001-08-17 05:46:24 +00:00
DescCnt = TRUE;
} else {
Syslog('!', "More than one \"Desc\" line");
}
2001-12-08 20:31:42 +00:00
} else if (strncasecmp(Temp, "path ", 5) == 0) {
strncpy(TIC.TicIn.Path[TIC.TicIn.TotPath], Temp+5, 80);
2001-08-17 05:46:24 +00:00
TIC.TicIn.TotPath++;
TIC.Aka.zone = atoi(strtok(Temp+5, ":"));
TIC.Aka.net = atoi(strtok(NULL, "/"));
TIC.Aka.node = atoi(strtok(NULL, "\0"));
for (i = 0; i < 40; i++)
if ((CFG.akavalid[i]) &&
(CFG.aka[i].zone == TIC.Aka.zone) &&
(CFG.aka[i].net == TIC.Aka.net) &&
(CFG.aka[i].node == TIC.Aka.node) &&
(!CFG.aka[i].point))
2001-12-08 20:31:42 +00:00
TIC.TicIn.PathError = TRUE;
} else if (strncasecmp(Temp, "seenby ", 7) == 0) {
2001-08-25 19:53:11 +00:00
fill_list(&sbl, Temp+7, NULL);
2001-08-17 05:46:24 +00:00
2001-12-08 20:31:42 +00:00
} else if (strncasecmp(Temp, "areadesc ", 9) == 0) {
strncpy(TIC.TicIn.AreaDesc, Temp+9, 60);
2001-08-17 05:46:24 +00:00
2001-12-08 20:31:42 +00:00
} else if (strncasecmp(Temp, "to ", 3) == 0) {
2001-08-17 05:46:24 +00:00
/*
* Drop this one
*/
2001-12-08 20:31:42 +00:00
} else if (strncasecmp(Temp, "size ", 5) == 0) {
2001-08-17 05:46:24 +00:00
TIC.TicIn.Size = atoi(Temp+5);
2001-12-08 20:31:42 +00:00
} else if (strncasecmp(Temp, "date ", 5) == 0) {
2001-08-17 05:46:24 +00:00
Syslog('f', "Date: %s", Temp+5);
2001-12-08 20:31:42 +00:00
} else if (strncasecmp(Temp, "cost ", 5) == 0) {
TIC.TicIn.Cost = atoi(Temp+5);
2001-08-17 05:46:24 +00:00
2001-12-08 20:31:42 +00:00
} else if (strncasecmp(Temp, "ldesc ", 6) == 0) {
2001-08-17 05:46:24 +00:00
if (TIC.TicIn.TotLDesc < 25) {
2001-12-08 20:31:42 +00:00
strncpy(TIC.TicIn.LDesc[TIC.TicIn.TotLDesc], Temp+6, 80);
2001-08-17 05:46:24 +00:00
TIC.TicIn.TotLDesc++;
}
2002-02-16 23:16:42 +00:00
} else if (strncasecmp(Temp, "destination ", 12) == 0) {
2001-08-17 05:46:24 +00:00
/*
2001-12-08 20:31:42 +00:00
* Drop this one
*/
} else {
/*
* If we didn't find a matching keyword it is a line we
* will just remember and forward if there are downlinks.
2001-08-17 05:46:24 +00:00
*/
2001-12-08 20:31:42 +00:00
if (TIC.TicIn.Unknowns < 25) {
strcpy(TIC.TicIn.Unknown[TIC.TicIn.Unknowns], Temp);
TIC.TicIn.Unknowns++;
2001-08-17 05:46:24 +00:00
}
}
}
fclose(tfp);
if (TIC.TicIn.TotLDesc) {
/*
* First check for a bug in Harald Harms Allfix program that
* lets Allfix forward dummy Ldesc lines with the contents:
* "Long description not available"
*/
if (strstr(TIC.TicIn.LDesc[0], "ion not avail") != NULL) {
Syslog('!', "Killing invalid Ldesc line(s)");
TIC.TicIn.TotLDesc = 0;
}
}
if (TIC.TicIn.TotLDesc) {
T_File.TotLdesc = TIC.TicIn.TotLDesc;
for (i = 0; i <= TIC.TicIn.TotLDesc; i++)
2001-12-08 20:31:42 +00:00
strncpy(T_File.LDesc[i], TIC.TicIn.LDesc[i], 48);
2001-08-17 05:46:24 +00:00
}
/*
* Show on screen what we are doing
*/
if (!do_quiet) {
colour(3, 0);
printf("\r");
for (i = 0; i < 79; i++)
printf(" ");
2001-12-09 15:20:51 +00:00
printf("\rTic: %12s File: %-14s Area: %-12s ", TIC.TicName, TIC.TicIn.File, TIC.TicIn.Area);
2001-08-17 05:46:24 +00:00
fflush(stdout);
}
/*
* Show in logfile what we are doing
*/
2001-12-08 20:31:42 +00:00
Syslog('+', "Processing %s, %s area %s from %s", TIC.TicName, TIC.TicIn.File, TIC.TicIn.Area, TIC.TicIn.From);
2001-08-17 05:46:24 +00:00
Syslog('+', "+- %s", TIC.TicIn.Created);
Log = NULL;
if (strlen(TIC.TicIn.Replace)) {
Log = xstrcpy((char *)"Replace ");
Log = xstrcat(Log, TIC.TicIn.Replace);
}
if (strlen(TIC.TicIn.Magic)) {
if (Log != NULL)
Log = xstrcat(Log, (char *)", Magic ");
else
Log = xstrcpy((char *)"Magic ");
Log = xstrcat(Log, TIC.TicIn.Magic);
}
if (Log != NULL) {
Syslog('+', "%s", Log);
free(Log);
Log = NULL;
}
2001-12-09 22:21:04 +00:00
strcpy(Temp, TIC.TicIn.From);
2001-08-17 05:46:24 +00:00
TIC.Aka.zone = atoi(strtok(Temp, ":"));
TIC.Aka.net = atoi(strtok(NULL, "/"));
TIC.Aka.node = atoi(strtok(NULL, "@\0"));
if (SearchFidonet(TIC.Aka.zone))
strcpy(TIC.Aka.domain, fidonet.domain);
2001-12-08 20:31:42 +00:00
strcpy(Temp, TIC.TicIn.Origin);
2001-08-17 05:46:24 +00:00
TIC.OrgAka.zone = atoi(strtok(Temp, ":"));
TIC.OrgAka.net = atoi(strtok(NULL, "/"));
TIC.OrgAka.node = atoi(strtok(NULL, "@\0"));
if (SearchFidonet(TIC.OrgAka.zone))
strcpy(TIC.OrgAka.domain, fidonet.domain);
2001-12-09 15:20:51 +00:00
Temp2 = calloc(PATH_MAX, sizeof(char));
if (TIC.TicIn.Hatch) {
/*
* Try to move the hatched file to the inbound
*/
sprintf(Temp, "%s/%s", TIC.TicIn.Pth, TIC.TicIn.FullName);
if (file_exist(Temp, R_OK) == 0) {
strcpy(TIC.RealName, TIC.TicIn.FullName);
} else {
WriteError("Can't find %s", Temp);
tidy_falist(&sbl);
return 2;
}
sprintf(Temp2, "%s/%s", TIC.Inbound, TIC.TicIn.FullName);
if (file_mv(Temp, Temp2)) {
WriteError("Can't move %s to inbound", Temp);
tidy_falist(&sbl);
return 1;
}
} else {
/*
* Find out what the real name of the file is
*/
sprintf(Temp2, "%s", TIC.TicIn.File);
sprintf(Temp, "%s/%s", TIC.Inbound, Temp2);
if (file_exist(Temp, R_OK) == 0) {
strcpy(TIC.RealName, Temp2);
} else {
tu(Temp2);
sprintf(Temp, "%s/%s", TIC.Inbound, Temp2);
if (file_exist(Temp, R_OK) == 0) {
strcpy(TIC.RealName, Temp2);
} else {
tl(Temp2);
sprintf(Temp, "%s/%s", TIC.Inbound, Temp2);
if (file_exist(Temp, R_OK) == 0) {
strcpy(TIC.RealName, Temp2);
}
}
}
if (strlen(TIC.TicIn.FullName) && (strlen(TIC.RealName) == 0)) {
sprintf(Temp2, "%s", TIC.TicIn.FullName);
sprintf(Temp, "%s/%s", TIC.Inbound, Temp2);
if (file_exist(Temp, R_OK) == 0) {
strcpy(TIC.RealName, Temp2);
} else {
tu(Temp2);
sprintf(Temp, "%s/%s", TIC.Inbound, Temp2);
if (file_exist(Temp, R_OK) == 0) {
strcpy(TIC.RealName, Temp2);
} else {
tl(Temp2);
sprintf(Temp, "%s/%s", TIC.Inbound, Temp2);
if (file_exist(Temp, R_OK) == 0) {
strcpy(TIC.RealName, Temp2);
}
}
}
}
}
if (strlen(TIC.RealName) == 0) {
/*
* We leave RealName empty, the ProcessTic function
* will handle this orphaned tic file.
*/
WriteError("Can't find file in inbound");
} else {
Syslog('f', "Real filename in inbound is \"%s\"", TIC.RealName);
strncpy(TIC.NewName, TIC.RealName, 80);
}
free(Temp2);
2001-08-17 05:46:24 +00:00
free(Temp);
free(Buf);
tic_in++;
2001-12-08 20:31:42 +00:00
rc = ProcessTic(sbl);
2001-08-17 05:46:24 +00:00
tidy_falist(&sbl);
return rc;
}