752 lines
19 KiB
C
752 lines
19 KiB
C
/*****************************************************************************
|
|
*
|
|
* $Id$
|
|
* Purpose ...............: Process 1 .tic file
|
|
*
|
|
*****************************************************************************
|
|
* Copyright (C) 1997-2004
|
|
*
|
|
* 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, 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
|
|
*****************************************************************************/
|
|
|
|
#include "../config.h"
|
|
#include "../lib/mbselib.h"
|
|
#include "../lib/users.h"
|
|
#include "../lib/mbsedb.h"
|
|
#include "unpack.h"
|
|
#include "mover.h"
|
|
#include "toberep.h"
|
|
#include "tic.h"
|
|
#include "utic.h"
|
|
#include "magic.h"
|
|
#include "forward.h"
|
|
#include "rollover.h"
|
|
#include "ptic.h"
|
|
#include "magic.h"
|
|
#include "createf.h"
|
|
#include "virscan.h"
|
|
#include "qualify.h"
|
|
#include "addbbs.h"
|
|
|
|
|
|
|
|
#define UNPACK_FACTOR 300
|
|
|
|
extern int tic_bad;
|
|
extern int tic_dup;
|
|
extern int tic_out;
|
|
extern int do_quiet;
|
|
extern int check_crc;
|
|
extern int check_dupe;
|
|
|
|
|
|
/*
|
|
* Return values:
|
|
* 0 - Success
|
|
* 1 - Some error
|
|
* 2 - Orphaned tic
|
|
*/
|
|
int ProcessTic(fa_list *sbl)
|
|
{
|
|
time_t Now, Fdate;
|
|
int Age, First, Listed = FALSE, DownLinks = 0, MustRearc = FALSE;
|
|
int UnPacked = FALSE, IsArchive = FALSE, rc, i, j, k, File_Id = FALSE;
|
|
char *Temp, *unarc = NULL, *cmd = NULL;
|
|
char temp1[PATH_MAX], temp2[PATH_MAX], sbe[24], TDesc[256];
|
|
unsigned long crc, crc2, Kb;
|
|
sysconnect Link;
|
|
FILE *fp;
|
|
struct utimbuf ut;
|
|
int BBS_Imp = FALSE, DidBanner = FALSE;
|
|
faddr *p_from;
|
|
qualify *qal = NULL, *tmpq;
|
|
|
|
Now = time(NULL);
|
|
|
|
if (TIC.TicIn.PathError) {
|
|
WriteError("Our Aka is in the path");
|
|
tic_bad++;
|
|
return 1;
|
|
}
|
|
|
|
Temp = calloc(PATH_MAX, sizeof(char));
|
|
|
|
if (!do_quiet) {
|
|
colour(10, 0);
|
|
printf("Checking \b\b\b\b\b\b\b\b\b\b");
|
|
fflush(stdout);
|
|
}
|
|
|
|
if (TIC.Orphaned) {
|
|
WriteError("File not in inbound: %s", TIC.TicIn.File);
|
|
/*
|
|
* Now check the age of the .tic file.
|
|
*/
|
|
sprintf(Temp, "%s/%s", TIC.Inbound, TIC.TicName);
|
|
Fdate = file_time(Temp);
|
|
Age = (Now - Fdate) / 84400;
|
|
Syslog('+', "Orphaned tic age %d days", Age);
|
|
|
|
if (Age > 21) {
|
|
tic_bad++;
|
|
mover(TIC.TicName);
|
|
}
|
|
|
|
free(Temp);
|
|
return 2;
|
|
}
|
|
|
|
sprintf(Temp, "%s/%s", TIC.Inbound, TIC.TicIn.File);
|
|
crc = file_crc(Temp, CFG.slow_util && do_quiet);
|
|
TIC.FileSize = file_size(Temp);
|
|
TIC.FileDate = file_time(Temp);
|
|
|
|
if (TIC.TicIn.Size) {
|
|
if (TIC.TicIn.Size != TIC.FileSize)
|
|
WriteError("Size is %ld, expected %ld", TIC.FileSize, TIC.TicIn.Size);
|
|
} else {
|
|
/*
|
|
* No filesize in TIC file, add filesize.
|
|
*/
|
|
TIC.TicIn.Size = TIC.FileSize;
|
|
}
|
|
|
|
if (TIC.Crc_Int) {
|
|
if (crc != TIC.Crc_Int) {
|
|
Syslog('!', "CRC: expected %08lX, the file is %08lX", TIC.Crc_Int, crc);
|
|
if (check_crc) {
|
|
Bad((char *)"CRC: error, %s may be damaged", TIC.TicIn.File);
|
|
free(Temp);
|
|
return 1;
|
|
} else {
|
|
Syslog('!', "CRC: error, recalculating crc");
|
|
ReCalcCrc(Temp);
|
|
}
|
|
}
|
|
} else {
|
|
Syslog('+', "CRC: missing, calculating CRC");
|
|
ReCalcCrc(Temp);
|
|
}
|
|
|
|
/*
|
|
* Load and check the .TIC area.
|
|
*/
|
|
if (!SearchTic(TIC.TicIn.Area)) {
|
|
UpdateNode();
|
|
Syslog('f', "Unknown file area %s", TIC.TicIn.Area);
|
|
p_from = fido2faddr(TIC.Aka);
|
|
if (!create_ticarea(TIC.TicIn.Area, p_from)) {
|
|
Bad((char *)"Unknown file area %s", TIC.TicIn.Area);
|
|
free(Temp);
|
|
tidy_faddr(p_from);
|
|
return 1;
|
|
}
|
|
tidy_faddr(p_from);
|
|
/*
|
|
* Try to load the .TIC area again.
|
|
*/
|
|
if (!SearchTic(TIC.TicIn.Area)) {
|
|
Bad((char *)"Reload of new created file area %s failed", TIC.TicIn.Area);
|
|
free(Temp);
|
|
return 1;
|
|
}
|
|
}
|
|
|
|
if ((tic.Secure) && (!TIC.TicIn.Hatch)) {
|
|
First = TRUE;
|
|
while (GetTicSystem(&Link, First)) {
|
|
First = FALSE;
|
|
if (Link.aka.zone) {
|
|
if ((Link.aka.zone == TIC.Aka.zone) && (Link.aka.net == TIC.Aka.net) &&
|
|
(Link.aka.node == TIC.Aka.node) && (Link.aka.point== TIC.Aka.point) && (Link.receivefrom))
|
|
Listed = TRUE;
|
|
}
|
|
}
|
|
if (!Listed) {
|
|
Bad((char *)"%s NOT connected to %s", aka2str(TIC.Aka), TIC.TicIn.Area);
|
|
free(Temp);
|
|
return 1;
|
|
}
|
|
}
|
|
|
|
if ((!SearchNode(TIC.Aka)) && (!TIC.TicIn.Hatch)) {
|
|
Bad((char *)"%s NOT known", aka2str(TIC.Aka));
|
|
free(Temp);
|
|
return 1;
|
|
}
|
|
|
|
if (!TIC.TicIn.Hatch) {
|
|
if (strcasecmp(TIC.TicIn.Pw, nodes.Fpasswd)) {
|
|
Bad((char *)"Pwd error, got %s, expected %s", TIC.TicIn.Pw, nodes.Fpasswd);
|
|
free(Temp);
|
|
return 1;
|
|
}
|
|
} else {
|
|
if (strcasecmp(TIC.TicIn.Pw, CFG.hatchpasswd)) {
|
|
Bad((char *)"Password error in local Hatch");
|
|
WriteError("WARNING: it might be a Trojan in your inbound");
|
|
free(Temp);
|
|
return 1;
|
|
}
|
|
}
|
|
|
|
if (Magic_DeleteFile()) {
|
|
sprintf(temp1, "%s/%s", TIC.Inbound, TIC.TicName);
|
|
file_rm(temp1);
|
|
Syslog('+', "Deleted file %s", temp1);
|
|
file_rm(Temp);
|
|
free(Temp);
|
|
return 0;
|
|
}
|
|
|
|
|
|
if (Magic_MoveFile()) {
|
|
if (!SearchTic(TIC.TicIn.Area)) {
|
|
Bad((char *)"Unknown Area: %s", TIC.TicIn.Area);
|
|
free(Temp);
|
|
return 1;
|
|
}
|
|
}
|
|
|
|
strncpy(T_File.Echo, tic.Name, 20);
|
|
strncpy(T_File.Group, tic.Group, 12);
|
|
TIC.KeepNum = tic.KeepLatest;
|
|
|
|
Magic_Keepnum();
|
|
|
|
if (!tic.FileArea) {
|
|
Syslog('+', "Passthru TIC area!");
|
|
strcpy(TIC.BBSpath, CFG.ticout);
|
|
strcpy(TIC.BBSdesc, tic.Comment);
|
|
} else {
|
|
sprintf(Temp, "%s/etc/fareas.data", getenv("MBSE_ROOT"));
|
|
if ((fp = fopen(Temp, "r")) == NULL) {
|
|
WriteError("Can't access fareas.data area: %ld", tic.FileArea);
|
|
free(Temp);
|
|
return 1;
|
|
}
|
|
fread(&areahdr, sizeof(areahdr), 1, fp);
|
|
if (fseek(fp, ((tic.FileArea -1) * areahdr.recsize) + areahdr.hdrsize, SEEK_SET)) {
|
|
fclose(fp);
|
|
WriteError("Can't seek area %ld in fareas.data", tic.FileArea);
|
|
free(Temp);
|
|
return 1;
|
|
}
|
|
if (fread(&area, areahdr.recsize, 1, fp) != 1) {
|
|
fclose(fp);
|
|
WriteError("Can't read area %ld in fareas.data", tic.FileArea);
|
|
free(Temp);
|
|
return 1;
|
|
}
|
|
fclose(fp);
|
|
strcpy(TIC.BBSpath, area.Path);
|
|
strcpy(TIC.BBSdesc, area.Name);
|
|
|
|
/*
|
|
* If the File area has a special announce group, change
|
|
* the group to that name.
|
|
*/
|
|
if (strlen(area.NewGroup))
|
|
strncpy(T_File.Group, area.NewGroup, 12);
|
|
}
|
|
strncpy(T_File.Comment, tic.Comment, 55);
|
|
|
|
/*
|
|
* Check if the destination area really exists, it may be that
|
|
* the area is not linked to an existing BBS area.
|
|
*/
|
|
if (tic.FileArea && access(TIC.BBSpath, W_OK)) {
|
|
WriteError("No write access to \"%s\"", TIC.BBSpath);
|
|
Bad((char *)"Dest directory not available");
|
|
free(Temp);
|
|
return 1;
|
|
}
|
|
|
|
if ((tic.DupCheck) && (check_dupe)) {
|
|
sprintf(Temp, "%s%s", TIC.TicIn.Area, TIC.TicIn.Crc);
|
|
crc2 = 0xffffffff;
|
|
crc2 = upd_crc32(Temp, crc2, strlen(Temp));
|
|
if (CheckDupe(crc2, D_FILEECHO, CFG.tic_dupes)) {
|
|
Bad((char *)"Duplicate file");
|
|
tic_dup++;
|
|
free(Temp);
|
|
return 1;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Count the actual downlinks for this area and build the list of
|
|
* systems qualified to receive this file.
|
|
*/
|
|
First = TRUE;
|
|
while (GetTicSystem(&Link, First)) {
|
|
First = FALSE;
|
|
if ((Link.aka.zone) && (Link.sendto) && (!Link.pause)) {
|
|
DownLinks++;
|
|
p_from = fido2faddr(Link.aka);
|
|
if (TIC.TicIn.Hatch) {
|
|
fill_qualify(&qal, Link.aka, FALSE, in_list(p_from, &sbl, TRUE));
|
|
} else {
|
|
fill_qualify(&qal, Link.aka, ((TIC.Aka.zone == Link.aka.zone) &&
|
|
(TIC.Aka.net == Link.aka.net) && (TIC.Aka.node == Link.aka.node) &&
|
|
(TIC.Aka.point == Link.aka.point)), in_list(p_from, &sbl, TRUE));
|
|
}
|
|
tidy_faddr(p_from);
|
|
}
|
|
}
|
|
|
|
T_File.Size = TIC.FileSize;
|
|
T_File.SizeKb = TIC.FileSize / 1024;
|
|
|
|
/*
|
|
* Update the uplink's counters.
|
|
*/
|
|
Kb = TIC.FileSize / 1024;
|
|
if (SearchNode(TIC.Aka)) {
|
|
StatAdd(&nodes.FilesRcvd, 1L);
|
|
StatAdd(&nodes.F_KbRcvd, Kb);
|
|
UpdateNode();
|
|
SearchNode(TIC.Aka);
|
|
}
|
|
|
|
/*
|
|
* Update the fileecho and group counters.
|
|
*/
|
|
StatAdd(&fgroup.Files, 1L);
|
|
StatAdd(&fgroup.KBytes, Kb);
|
|
fgroup.LastDate = time(NULL);
|
|
StatAdd(&tic.Files, 1L);
|
|
StatAdd(&tic.KBytes, Kb);
|
|
tic.LastAction = time(NULL);
|
|
UpdateTic();
|
|
|
|
if (!do_quiet) {
|
|
printf("Unpacking \b\b\b\b\b\b\b\b\b\b");
|
|
fflush(stdout);
|
|
}
|
|
|
|
/*
|
|
* Check if this is an archive, and if so, which compression method
|
|
* is used for this file.
|
|
*/
|
|
if (strlen(tic.Convert) || tic.VirScan || tic.FileId || tic.ConvertAll || strlen(tic.Banner)) {
|
|
if ((unarc = unpacker(TIC.TicIn.File)) == NULL)
|
|
Syslog('+', "Unknown archive format %s", TIC.TicIn.File);
|
|
else {
|
|
IsArchive = TRUE;
|
|
if ((strlen(tic.Convert) && (strcmp(unarc, tic.Convert) == 0)) || (tic.ConvertAll))
|
|
MustRearc = TRUE;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Copy the file if there are downlinks and we send the
|
|
* original file, but want to rearc it for ourself, or if
|
|
* it's a passthru area.
|
|
*/
|
|
if (((tic.SendOrg) && (MustRearc || strlen(tic.Banner))) || (!tic.FileArea)) {
|
|
sprintf(temp1, "%s/%s", TIC.Inbound, TIC.TicIn.File);
|
|
sprintf(temp2, "%s/%s", CFG.ticout, TIC.TicIn.File);
|
|
if ((rc = file_cp(temp1, temp2) == 0)) {
|
|
TIC.SendOrg = TRUE;
|
|
} else {
|
|
WriteError("Copy %s to %s failed: %s", temp1, temp2, strerror(rc));
|
|
}
|
|
}
|
|
|
|
if ((tic.VirScan || MustRearc) && IsArchive) {
|
|
|
|
/*
|
|
* Check if there is a temp directory for the archive conversion.
|
|
*/
|
|
sprintf(temp2, "%s/tmp/arc", getenv("MBSE_ROOT"));
|
|
if ((access(temp2, R_OK)) != 0) {
|
|
if (mkdir(temp2, 0777)) {
|
|
WriteError("$Can't create %s", temp2);
|
|
free(Temp);
|
|
tidy_qualify(&qal);
|
|
return 1;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Check for stale FILE_ID.DIZ files
|
|
*/
|
|
sprintf(temp1, "%s/tmp/arc/FILE_ID.DIZ", getenv("MBSE_ROOT"));
|
|
if (!unlink(temp1))
|
|
Syslog('+', "Removed stale %s", temp1);
|
|
sprintf(temp1, "%s/tmp/arc/file_id.diz", getenv("MBSE_ROOT"));
|
|
if (!unlink(temp1))
|
|
Syslog('+', "Removed stale %s", temp1);
|
|
sprintf(temp1, "%s/tmp/FILE_ID.DIZ", getenv("MBSE_ROOT"));
|
|
if (!unlink(temp1))
|
|
Syslog('+', "Removed stale %s", temp1);
|
|
sprintf(temp1, "%s/tmp/file_id.diz", getenv("MBSE_ROOT"));
|
|
if (!unlink(temp1))
|
|
Syslog('+', "Removed stale %s", temp1);
|
|
|
|
if (!checkspace(temp2, TIC.TicIn.File, UNPACK_FACTOR)) {
|
|
Bad((char *)"Not enough free diskspace left");
|
|
free(Temp);
|
|
tidy_qualify(&qal);
|
|
return 1;
|
|
}
|
|
|
|
if (chdir(temp2) != 0) {
|
|
WriteError("$Can't change to %s", temp2);
|
|
free(Temp);
|
|
tidy_qualify(&qal);
|
|
return 1;
|
|
}
|
|
|
|
if (!getarchiver(unarc)) {
|
|
WriteError("Can't get archiver for %s", unarc);
|
|
chdir(TIC.Inbound);
|
|
free(Temp);
|
|
tidy_qualify(&qal);
|
|
return 1;
|
|
}
|
|
|
|
cmd = xstrcpy(archiver.funarc);
|
|
|
|
if ((cmd == NULL) || (cmd == "")) {
|
|
Syslog('!', "No unarc command available");
|
|
} else {
|
|
sprintf(temp1, "%s/%s", TIC.Inbound, TIC.TicIn.File);
|
|
if (execute_str(cmd, temp1, (char *)NULL, (char *)"/dev/null", (char *)"/dev/null", (char *)"/dev/null") == 0) {
|
|
UnPacked = TRUE;
|
|
} else {
|
|
chdir(TIC.Inbound);
|
|
Bad((char *)"Archive maybe corrupt");
|
|
free(Temp);
|
|
DeleteVirusWork();
|
|
return 1;
|
|
}
|
|
free(cmd);
|
|
}
|
|
}
|
|
|
|
if (tic.VirScan && !UnPacked) {
|
|
/*
|
|
* Copy file to tempdir and run scanner over the file
|
|
* whatever that is. This should catch single files
|
|
* with worms or other macro viri
|
|
*/
|
|
sprintf(temp1, "%s/%s", TIC.Inbound, TIC.TicIn.File);
|
|
sprintf(temp2, "%s/tmp/arc/%s", getenv("MBSE_ROOT"), TIC.TicIn.File);
|
|
|
|
if ((rc = file_cp(temp1, temp2))) {
|
|
WriteError("Can't copy %s to %s: %s", temp1, temp2, strerror(rc));
|
|
free(Temp);
|
|
tidy_qualify(&qal);
|
|
return 1;
|
|
}
|
|
|
|
sprintf(temp2, "%s/tmp/arc", getenv("MBSE_ROOT"));
|
|
if (chdir(temp2) != 0) {
|
|
WriteError("$Can't change to %s", temp2);
|
|
free(Temp);
|
|
tidy_qualify(&qal);
|
|
return 1;
|
|
}
|
|
}
|
|
|
|
if (tic.VirScan) {
|
|
|
|
if (!do_quiet) {
|
|
printf("Virscan \b\b\b\b\b\b\b\b\b\b");
|
|
fflush(stdout);
|
|
}
|
|
|
|
if (VirScan(NULL)) {
|
|
DeleteVirusWork();
|
|
chdir(TIC.Inbound);
|
|
Bad((char *)"Possible virus found!");
|
|
free(Temp);
|
|
tidy_qualify(&qal);
|
|
return 1;
|
|
}
|
|
|
|
if (!do_quiet) {
|
|
printf("Checking \b\b\b\b\b\b\b\b\b\b");
|
|
fflush(stdout);
|
|
}
|
|
|
|
}
|
|
|
|
if (tic.FileId && tic.FileArea && IsArchive) {
|
|
if (UnPacked) {
|
|
sprintf(temp1, "%s/tmp/arc/FILE_ID.DIZ", getenv("MBSE_ROOT"));
|
|
sprintf(temp2, "%s/tmp/FILE_ID.DIZ", getenv("MBSE_ROOT"));
|
|
if (file_cp(temp1, temp2) == 0) {
|
|
File_Id = TRUE;
|
|
} else {
|
|
sprintf(temp1, "%s/tmp/arc/file_id.diz", getenv("MBSE_ROOT"));
|
|
if (file_cp(temp1, temp2) == 0) {
|
|
File_Id = TRUE;
|
|
}
|
|
}
|
|
} else {
|
|
if (!getarchiver(unarc)) {
|
|
chdir(TIC.Inbound);
|
|
} else {
|
|
cmd = xstrcpy(archiver.iunarc);
|
|
|
|
if (cmd == NULL) {
|
|
WriteError("No unarc command available");
|
|
} else {
|
|
sprintf(temp1, "%s/tmp", getenv("MBSE_ROOT"));
|
|
chdir(temp1);
|
|
sprintf(temp1, "%s/%s FILE_ID.DIZ", TIC.Inbound, TIC.TicIn.File);
|
|
if (execute_str(cmd, temp1, (char *)NULL, (char *)"/dev/null", (char *)"/dev/null", (char *)"/dev/null") == 0) {
|
|
File_Id = TRUE;
|
|
} else {
|
|
sprintf(temp1, "%s/%s file_id.diz", TIC.Inbound, TIC.TicIn.File);
|
|
if (execute_str(cmd, temp1, (char *)NULL, (char *)"/dev/null", (char *)"/dev/null", (char *)"/dev/null") == 0) {
|
|
File_Id = TRUE;
|
|
}
|
|
}
|
|
free(cmd);
|
|
}
|
|
} /* if getarchiver */
|
|
} /* if not unpacked */
|
|
} /* if need FILE_ID.DIZ and not passthru */
|
|
|
|
/*
|
|
* Create internal file description, priority is FILE_ID.DIZ,
|
|
* 2nd LDesc, and finally the standard description.
|
|
*/
|
|
if (!Get_File_Id()) {
|
|
if (TIC.TicIn.TotLDesc > 2) {
|
|
for (i = 0; i < TIC.TicIn.TotLDesc; i++) {
|
|
strncpy(TIC.File_Id[i], TIC.TicIn.LDesc[i], 48);
|
|
}
|
|
TIC.File_Id_Ct = TIC.TicIn.TotLDesc;
|
|
} else {
|
|
/*
|
|
* Format the description line (max 255 chars) in parts of 48 characters.
|
|
*/
|
|
if (strlen(TIC.TicIn.Desc) <= 48) {
|
|
strcpy(TIC.File_Id[0], TIC.TicIn.Desc);
|
|
TIC.File_Id_Ct++;
|
|
} else {
|
|
memset(&TDesc, 0, sizeof(TDesc));
|
|
strcpy(TDesc, TIC.TicIn.Desc);
|
|
while (strlen(TDesc) > 48) {
|
|
j = 48;
|
|
while ((TDesc[j] != ' ') && (j > 0))
|
|
j--;
|
|
if (j == 0) {
|
|
Syslog('f', "Panic, no spaces");
|
|
j = 47;
|
|
}
|
|
strncpy(TIC.File_Id[TIC.File_Id_Ct], TDesc, j);
|
|
Syslog('f', "%2d/%2d: \"%s\"", TIC.File_Id_Ct, j, TIC.File_Id[TIC.File_Id_Ct]);
|
|
TIC.File_Id_Ct++;
|
|
k = strlen(TDesc);
|
|
j++; /* Correct space */
|
|
for (i = 0; i <= k; i++, j++)
|
|
TDesc[i] = TDesc[j];
|
|
if (TIC.File_Id_Ct == 23)
|
|
break;
|
|
}
|
|
strncpy(TIC.File_Id[TIC.File_Id_Ct], TDesc, 48);
|
|
Syslog('f', "%2d/%2d: \"%s\"", TIC.File_Id_Ct, strlen(TIC.File_Id[TIC.File_Id_Ct]), TIC.File_Id[TIC.File_Id_Ct]);
|
|
TIC.File_Id_Ct++;
|
|
}
|
|
}
|
|
} /* not get FILE_ID.DIZ */
|
|
|
|
/*
|
|
* Rearc file if it is an unpacked archive.
|
|
*/
|
|
if ((MustRearc) && (UnPacked) && (tic.FileArea)) {
|
|
if (Rearc(tic.Convert)) {
|
|
/*
|
|
* Get new filesize for import and announce
|
|
*/
|
|
sprintf(temp1, "%s/%s", TIC.Inbound, TIC.NewFile);
|
|
TIC.FileSize = file_size(temp1);
|
|
T_File.Size = TIC.FileSize;
|
|
T_File.SizeKb = TIC.FileSize / 1024;
|
|
/*
|
|
* Calculate the CRC if we must send the new archived file.
|
|
*/
|
|
if (!TIC.SendOrg) {
|
|
ReCalcCrc(temp1);
|
|
}
|
|
} else {
|
|
WriteError("Rearc failed");
|
|
} /* if Rearc() */
|
|
}
|
|
|
|
/*
|
|
* Change banner if needed.
|
|
*/
|
|
if ((strlen(tic.Banner)) && IsArchive) {
|
|
cmd = xstrcpy(archiver.barc);
|
|
if ((cmd == NULL) || (!strlen(cmd))) {
|
|
Syslog('!', "No banner command for %s", archiver.name);
|
|
} else {
|
|
sprintf(temp1, "%s/%s", TIC.Inbound, TIC.NewFile);
|
|
sprintf(Temp, "%s/etc/%s", getenv("MBSE_ROOT"), tic.Banner);
|
|
if (execute_str(cmd, temp1, (char *)NULL, Temp, (char *)"/dev/null", (char *)"/dev/null")) {
|
|
WriteError("$Changing the banner failed");
|
|
} else {
|
|
Syslog('+', "New banner %s", tic.Banner);
|
|
TIC.FileSize = file_size(temp1);
|
|
T_File.Size = TIC.FileSize;
|
|
T_File.SizeKb = TIC.FileSize / 1024;
|
|
ReCalcCrc(temp1);
|
|
DidBanner = TRUE;
|
|
}
|
|
}
|
|
}
|
|
|
|
DeleteVirusWork();
|
|
chdir(TIC.Inbound);
|
|
|
|
/*
|
|
* If the file is converted, we set the date of the original
|
|
* received file as the file creation date.
|
|
*/
|
|
sprintf(Temp, "%s/%s", TIC.Inbound, TIC.NewFile);
|
|
if ((MustRearc || DidBanner) && CFG.ct_KeepDate) {
|
|
if ((tic.Touch) && (tic.FileArea)) {
|
|
ut.actime = mktime(localtime(&TIC.FileDate));
|
|
ut.modtime = mktime(localtime(&TIC.FileDate));
|
|
utime(Temp, &ut);
|
|
Syslog('-', "Restamp filedate %s to %s", Temp, rfcdate(ut.modtime));
|
|
}
|
|
}
|
|
/*
|
|
* Now make sure the file timestamp is updated. The file may be restamped,
|
|
* altered by banners etc.
|
|
*/
|
|
TIC.FileDate = file_time(Temp);
|
|
|
|
/*
|
|
* If not passthru, import in the BBS.
|
|
*/
|
|
if (tic.FileArea) {
|
|
|
|
Syslog('+', "Import: %s (%s) Area: %s", TIC.NewFile, TIC.NewFullName, TIC.TicIn.Area);
|
|
BBS_Imp = Add_BBS(&qal);
|
|
|
|
if (!BBS_Imp) {
|
|
Bad((char *)"File Import Error");
|
|
free(Temp);
|
|
tidy_qualify(&qal);
|
|
return 1;
|
|
}
|
|
}
|
|
|
|
chdir(TIC.Inbound);
|
|
|
|
/*
|
|
* Create file announce record
|
|
*/
|
|
if (tic.FileArea) {
|
|
if (strlen(TIC.TicIn.Magic))
|
|
magic_update(TIC.TicIn.Magic, TIC.NewFile);
|
|
else
|
|
Magic_UpDateAlias();
|
|
|
|
for (i = 0; i <= TIC.File_Id_Ct; i++)
|
|
strncpy(T_File.LDesc[i], TIC.File_Id[i], 48);
|
|
T_File.TotLdesc = TIC.File_Id_Ct;
|
|
T_File.Announce = tic.Announce;
|
|
strncpy(T_File.Name, TIC.NewFile, 12);
|
|
strncpy(T_File.LName, TIC.NewFullName, 80);
|
|
T_File.Fdate = TIC.FileDate;
|
|
Add_ToBeRep(T_File);
|
|
}
|
|
|
|
if (TIC.SendOrg && !tic.FileArea) {
|
|
/*
|
|
* If it's a passthru area we don't need the
|
|
* file in the inbound anymore so it can be
|
|
* deleted.
|
|
*/
|
|
sprintf(temp1, "%s/%s", TIC.Inbound, TIC.TicIn.File);
|
|
if (file_rm(temp1) == 0)
|
|
Syslog('f', "Deleted %s", temp1);
|
|
}
|
|
|
|
if (DownLinks) {
|
|
First = TRUE;
|
|
|
|
/*
|
|
* Add all our system aka's to the seenby lines in the same zone,
|
|
* omit aka's already in the seenby list.
|
|
*/
|
|
for (i = 0; i < 40; i++) {
|
|
if (CFG.akavalid[i] && (tic.Aka.zone == CFG.aka[i].zone)) {
|
|
p_from = fido2faddr(CFG.aka[i]);
|
|
if (! in_list(p_from, &sbl, TRUE)) {
|
|
sprintf(sbe, "%u:%u/%u", CFG.aka[i].zone, CFG.aka[i].net, CFG.aka[i].node);
|
|
fill_list(&sbl, sbe, NULL);
|
|
}
|
|
tidy_faddr(p_from);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Add seen-by lines for all systems that will receive this file.
|
|
*/
|
|
for (tmpq = qal; tmpq; tmpq = tmpq->next) {
|
|
if (tmpq->send) {
|
|
sprintf(sbe, "%u:%u/%u", tmpq->aka.zone, tmpq->aka.net, tmpq->aka.node);
|
|
fill_list(&sbl, sbe, NULL);
|
|
} else {
|
|
Syslog('f', "Skip SB %u:%u/%u", tmpq->aka.zone, tmpq->aka.net, tmpq->aka.node);
|
|
}
|
|
}
|
|
uniq_list(&sbl);
|
|
sort_list(&sbl);
|
|
|
|
/*
|
|
* Now forward this file to the qualified downlinks.
|
|
*/
|
|
for (tmpq = qal; tmpq; tmpq = tmpq->next) {
|
|
if (tmpq->send) {
|
|
ForwardFile(tmpq->aka, sbl);
|
|
tic_out++;
|
|
}
|
|
}
|
|
}
|
|
|
|
Magic_ExecCommand();
|
|
Magic_CopyFile();
|
|
Magic_UnpackFile();
|
|
Magic_AdoptFile();
|
|
|
|
sprintf(Temp, "%s/%s", TIC.Inbound, TIC.TicName);
|
|
unlink(Temp);
|
|
|
|
free(Temp);
|
|
tidy_qualify(&qal);
|
|
return 0;
|
|
}
|
|
|
|
|