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

273 lines
5.3 KiB
C
Raw Normal View History

2001-08-17 05:46:24 +00:00
/*****************************************************************************
*
2001-11-18 23:19:08 +00:00
* $Id$
2001-08-17 05:46:24 +00:00
* Purpose ...............: Utilities for tic processing
*
*****************************************************************************
* Copyright (C) 1997-2000
*
* 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"
#include "../lib/records.h"
#include "../lib/common.h"
#include "../lib/clcomm.h"
#include "tic.h"
#include "mover.h"
#include "tic.h"
#include "utic.h"
extern int tic_bad;
extern int do_quiet;
char *MakeTicName()
{
static char buf[13];
buf[12] = '\0';
sprintf(buf, "%08lx.tic", sequencer());
buf[0] = 'm';
buf[1] = 'b';
return buf;
}
/*
* Return day in the year, 0..365
*/
int Day_Of_Year()
{
time_t Now;
struct tm *Tm;
Now = time(NULL);
Tm = localtime(&Now);
return Tm->tm_yday;
}
/*
* ReArc files in the current directory
*/
int Rearc(char *unarc)
{
int i, j;
2001-11-18 23:19:08 +00:00
char temp[PATH_MAX], *cmd = NULL;
2001-08-17 05:46:24 +00:00
Syslog('f', "Entering Rearc(%s)", unarc);
i = 0;
while (TIC.NewName[i] != '.')
i++;
i++;
j = 0;
for (; i < strlen(TIC.NewName); i++) {
if (TIC.NewName[i] > '9')
TIC.NewName[i] = tolower(unarc[j]);
j++;
}
Syslog('f' , "NewName = \"%s\"", TIC.NewName);
if (!getarchiver(unarc)) {
return FALSE;
}
cmd = xstrcpy(archiver.farc);
if (cmd == NULL) {
WriteError("Rearc(): No arc command available");
return FALSE;
} else {
2001-12-09 15:20:51 +00:00
sprintf(temp, "%s/%s .", TIC.Inbound, TIC.NewName);
2001-08-17 05:46:24 +00:00
if (execute(cmd, temp, (char *)NULL, (char *)"/dev/null", (char *)"/dev/null", (char *)"/dev/null") == 0) {
/* MUST SET TIC.FileDate to NEW ARCHIVE */
return TRUE;
}
WriteError("Rearc(%s) Failed", unarc);
return FALSE;
}
free(cmd);
}
void DeleteVirusWork()
{
2001-11-18 23:19:08 +00:00
char *buf, *temp;
2001-08-17 05:46:24 +00:00
2001-11-18 23:19:08 +00:00
buf = calloc(PATH_MAX, sizeof(char));
temp = calloc(PATH_MAX, sizeof(char));
getcwd(buf, PATH_MAX);
2001-08-17 05:46:24 +00:00
sprintf(temp, "%s/tmp", getenv("MBSE_ROOT"));
if (chdir(temp) == 0) {
Syslog('f', "DeleteVirusWork %s/arc", temp);
system("rm -r -f arc");
system("mkdir arc");
} else
WriteError("$Can't chdir to %s", temp);
chdir(buf);
2001-11-18 23:19:08 +00:00
free(temp);
free(buf);
2001-08-17 05:46:24 +00:00
}
void Bad(char *format, ...)
{
char outstr[1024];
va_list va_ptr;
va_start(va_ptr, format);
vsprintf(outstr, format, va_ptr);
va_end(va_ptr);
WriteError(outstr);
MoveBad();
tic_bad++;
}
void ReCalcCrc(char *fn)
{
TIC.Crc_Int = file_crc(fn, CFG.slow_util && do_quiet);
sprintf(TIC.TicIn.Crc, "%08lX", TIC.Crc_Int);
strcpy(T_File.Crc, TIC.TicIn.Crc);
}
int Get_File_Id()
{
2001-12-09 15:20:51 +00:00
char *temp;
2001-08-17 05:46:24 +00:00
char Desc[256];
FILE *fp;
int i, j, lines = 0;
2001-12-09 15:20:51 +00:00
temp = calloc(PATH_MAX, sizeof(char));
2001-08-17 05:46:24 +00:00
sprintf(temp, "%s/tmp/FILE_ID.DIZ", getenv("MBSE_ROOT"));
2001-12-09 15:20:51 +00:00
if ((fp = fopen(temp, "r")) == NULL) {
sprintf(temp, "%s/tmp/file_id.diz", getenv("MBSE_ROOT"));
if ((fp = fopen(temp, "r")) == NULL) {
free(temp);
2001-08-17 05:46:24 +00:00
return FALSE;
2001-12-09 15:20:51 +00:00
}
}
2001-08-17 05:46:24 +00:00
/*
* Read no more then 25 lines.
*/
while (((fgets(Desc, 255, fp)) != NULL) && (TIC.File_Id_Ct < 25)) {
lines++;
/*
* Check if the FILE_ID.DIZ is in a normal layout.
* The layout should be max. 10 lines of max. 48 characters.
* We check at 51 characters and if the lines are longer,
* we trash the FILE_ID.DIZ file.
*/
if (strlen(Desc) > 51) {
fclose(fp);
unlink(temp);
TIC.File_Id_Ct = 0;
Syslog('f', "FILE_ID.DIZ line %d is %d chars", lines, strlen(Desc));
Syslog('!', "Trashing illegal formatted FILE_ID.DIZ");
2001-12-09 15:20:51 +00:00
free(temp);
2001-08-17 05:46:24 +00:00
return FALSE;
}
if (strlen(Desc) > 0) {
j = 0;
for (i = 0; i < strlen(Desc); i++) {
if ((Desc[i] >= ' ') || (Desc[i] < 0)) {
TIC.File_Id[TIC.File_Id_Ct][j] = Desc[i];
j++;
}
}
if (j >= 48)
TIC.File_Id[TIC.File_Id_Ct][48] = '\0';
else
TIC.File_Id[TIC.File_Id_Ct][j] = '\0';
TIC.File_Id_Ct++;
}
}
fclose(fp);
unlink(temp);
2001-12-09 15:20:51 +00:00
free(temp);
2001-08-17 05:46:24 +00:00
/*
* Strip empty lines at end of FILE_ID.DIZ
*/
while ((strlen(TIC.File_Id[TIC.File_Id_Ct-1]) == 0) && (TIC.File_Id_Ct))
TIC.File_Id_Ct--;
Syslog('f', "Got %d FILE_ID.DIZ lines", TIC.File_Id_Ct);
if (TIC.File_Id_Ct)
return TRUE;
else
return FALSE;
}
void UpDateAlias(char *Alias)
{
char *path;
FILE *fp;
Syslog('f', "UpDateAlias(%s) with %s", Alias, TIC.NewName);
if (!strlen(CFG.req_magic)) {
WriteError("No magic filename path configured");
return;
}
path = xstrcpy(CFG.req_magic);
path = xstrcat(path, (char *)"/");
path = xstrcat(path, Alias);
if ((fp = fopen(path, "w")) == NULL) {
WriteError("$Can't create %s", path);
return;
}
fprintf(fp, "%s\n", TIC.NewName);
fclose(fp);
free(path);
}