217 lines
6.0 KiB
C
217 lines
6.0 KiB
C
/*****************************************************************************
|
|
*
|
|
* $Id: mbfrearc.c,v 1.11 2005/10/11 20:49:47 mbse Exp $
|
|
* Purpose: File Database Maintenance - ReArc file(s)
|
|
*
|
|
*****************************************************************************
|
|
* Copyright (C) 1997-2005
|
|
*
|
|
* 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 "mbfutil.h"
|
|
#include "mbfmove.h"
|
|
|
|
|
|
|
|
extern int do_quiet; /* Suppress screen output */
|
|
extern int do_index; /* Rebuild index */
|
|
|
|
|
|
|
|
/*
|
|
* ReArc file(s)
|
|
*/
|
|
void ReArc(int Area, char *File)
|
|
{
|
|
char *p, *temp, *mname, *linkpath, mask[256];
|
|
int i, rc = -1, count = 0, errors = 0;
|
|
struct utimbuf ut;
|
|
struct _fdbarea *fdb_area = NULL;
|
|
time_t tt;
|
|
|
|
IsDoing("ReArc file(s)");
|
|
mbse_colour(LIGHTRED, BLACK);
|
|
|
|
/*
|
|
* Check area
|
|
*/
|
|
if (LoadAreaRec(Area) == FALSE) {
|
|
WriteError("Can't load record %d", Area);
|
|
die(MBERR_INIT_ERROR);
|
|
}
|
|
if (!area.Available) {
|
|
WriteError("Area %d not available", Area);
|
|
if (!do_quiet)
|
|
printf("Area %d not available\n", Area);
|
|
die(MBERR_CONFIG_ERROR);
|
|
}
|
|
if (strlen(area.Archiver) == 0) {
|
|
WriteError("No default archiver for area %d", Area);
|
|
if (!do_quiet)
|
|
printf("No default archiver for area %d\n", Area);
|
|
die(MBERR_COMMANDLINE);
|
|
}
|
|
if (CheckFDB(Area, area.Path))
|
|
die(MBERR_GENERAL);
|
|
|
|
temp = calloc(PATH_MAX, sizeof(char));
|
|
|
|
if ((fdb_area = mbsedb_OpenFDB(Area, 30)) == NULL)
|
|
die(MBERR_GENERAL);
|
|
|
|
mbse_colour(CYAN, BLACK);
|
|
strcpy(mask, re_mask(File, FALSE));
|
|
if (re_comp(mask))
|
|
die(MBERR_GENERAL);
|
|
|
|
while (fread(&fdb, fdbhdr.recsize, 1, fdb_area->fp) == 1) {
|
|
if (re_exec(fdb.LName) || re_exec(fdb.Name)) {
|
|
Syslog('+', "Will rearc %s", fdb.LName);
|
|
snprintf(temp, PATH_MAX, "%s/%s", area.Path, fdb.Name);
|
|
count++;
|
|
|
|
rc = rearc(temp, area.Archiver, do_quiet);
|
|
if (rc == 0) {
|
|
/*
|
|
* Success, update the file entry
|
|
*/
|
|
if (!do_quiet) {
|
|
mbse_colour(LIGHTBLUE, BLACK);
|
|
printf("\r Update file %s ", temp);
|
|
fflush(stdout);
|
|
}
|
|
|
|
linkpath = calloc(PATH_MAX, sizeof(char));
|
|
snprintf(linkpath, PATH_MAX, "%s/%s", area.Path, fdb.LName);
|
|
unlink(linkpath);
|
|
|
|
Syslog('+', "New name %s", temp);
|
|
if ((p = strstr(fdb.Name, "ARC")))
|
|
*p = '\0';
|
|
else if ((p = strstr(fdb.Name, "LHA")))
|
|
*p = '\0';
|
|
else if ((p = strstr(fdb.Name, "RAR")))
|
|
*p = '\0';
|
|
else if ((p = strstr(fdb.Name, "TGZ")))
|
|
*p = '\0';
|
|
else if ((p = strstr(fdb.Name, "BZ2")))
|
|
*p = '\0';
|
|
else if ((p = strstr(fdb.Name, "TAR")))
|
|
*p = '\0';
|
|
else if ((p = strstr(fdb.Name, "ARJ")))
|
|
*p = '\0';
|
|
else if ((p = strstr(fdb.Name, "ZIP")))
|
|
*p = '\0';
|
|
else if ((p = strstr(fdb.Name, "ZOO")))
|
|
*p = '\0';
|
|
else if ((p = strstr(fdb.Name, "HA")))
|
|
*p = '\0';
|
|
snprintf(p, 6, "%s", archiver.name);
|
|
if ((p = strstr(fdb.LName, "arc")))
|
|
*p = '\0';
|
|
else if ((p = strstr(fdb.LName, "lha")))
|
|
*p = '\0';
|
|
else if ((p = strstr(fdb.LName, "rar")))
|
|
*p = '\0';
|
|
else if ((p = strstr(fdb.LName, "tar.gz")))
|
|
*p = '\0';
|
|
else if ((p = strstr(fdb.LName, "tgz")))
|
|
*p = '\0';
|
|
else if ((p = strstr(fdb.LName, "tar.bz2")))
|
|
*p = '\0';
|
|
else if ((p = strstr(fdb.LName, "bz2")))
|
|
*p = '\0';
|
|
else if ((p = strstr(fdb.LName, "tar")))
|
|
*p = '\0';
|
|
else if ((p = strstr(fdb.LName, "arj")))
|
|
*p = '\0';
|
|
else if ((p = strstr(fdb.LName, "zip")))
|
|
*p = '\0';
|
|
else if ((p = strstr(fdb.LName, "zoo")))
|
|
*p = '\0';
|
|
else if ((p = strstr(fdb.LName, "ha")))
|
|
*p = '\0';
|
|
snprintf(p, 6, "%s", tl(archiver.name));
|
|
Syslog('f', "%s %s", fdb.Name, fdb.LName);
|
|
fdb.Size = file_size(temp);
|
|
fdb.Crc32 = file_crc(temp, FALSE);
|
|
tt = fdb.FileDate;
|
|
ut.actime = mktime(localtime(&tt));
|
|
ut.modtime = mktime(localtime(&tt));
|
|
utime(temp, &ut);
|
|
|
|
/*
|
|
* Check if mangled name is changed, and if so update to the
|
|
* new name and rename the file on disk.
|
|
*/
|
|
mname = calloc(PATH_MAX, sizeof(char));
|
|
strcpy(mname, fdb.LName);
|
|
name_mangle(mname);
|
|
if (strcmp(fdb.Name, mname)) {
|
|
Syslog('+', "Converted 8.3 name to %s", mname);
|
|
strcpy(fdb.Name, mname);
|
|
snprintf(mname, PATH_MAX, "%s/%s", area.Path, fdb.Name);
|
|
rename(temp, mname);
|
|
strcpy(temp, mname);
|
|
}
|
|
free(mname);
|
|
if (mbsedb_LockFDB(fdb_area, 30)) {
|
|
fseek(fdb_area->fp, - fdbhdr.recsize, SEEK_CUR);
|
|
fwrite(&fdb, fdbhdr.recsize, 1, fdb_area->fp);
|
|
mbsedb_UnlockFDB(fdb_area);
|
|
}
|
|
|
|
/*
|
|
* Update symbolic link to long filename
|
|
*/
|
|
snprintf(linkpath, PATH_MAX, "%s/%s", area.Path, fdb.LName);
|
|
symlink(temp, linkpath);
|
|
free(linkpath);
|
|
if (strlen(fdb.Magic))
|
|
magic_update(fdb.Magic, fdb.Name);
|
|
do_index = TRUE;
|
|
} else {
|
|
errors++;
|
|
break; // stop when something goes wrong
|
|
}
|
|
if (!do_quiet) {
|
|
mbse_colour(LIGHTGRAY, BLACK);
|
|
printf("\r");
|
|
for (i = 0; i < (strlen(temp) + 20); i++)
|
|
printf(" ");
|
|
printf("\r");
|
|
fflush(stdout);
|
|
}
|
|
}
|
|
}
|
|
mbsedb_CloseFDB(fdb_area);
|
|
free(temp);
|
|
Syslog('+', "ReArc Files [%5d] Good [%5d] Errors [%5d]", count, count - errors, errors);
|
|
}
|
|
|
|
|