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/lib/unpacker.c
2009-05-15 22:01:56 +02:00

116 lines
3.3 KiB
C

/*****************************************************************************
*
* $Id: unpacker.c,v 1.13 2005/08/27 18:53:33 mbse Exp $
* Purpose ...............: Archive unpacker
*
*****************************************************************************
* 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 "mbselib.h"
char *unpacker(char *fn)
{
FILE *fp;
unsigned char buf[8];
if ((fp = fopen(fn,"r")) == NULL) {
WriteError("$Could not open file %s", fn);
return NULL;
}
if (fread(buf,1,sizeof(buf),fp) != sizeof(buf)) {
WriteError("$Could not read head of the file %s", fn);
fclose(fp);
return NULL;
}
fclose(fp);
if (memcmp(buf,"PK\003\004",4) == 0) return (char *)"ZIP";
if (*buf == 0x1a) return (char *)"ARC";
if (memcmp(buf+2,"-l",2) == 0) return (char *)"LHA";
if (memcmp(buf,"ZOO",3) == 0) return (char *)"ZOO";
if (memcmp(buf,"`\352",2) == 0) return (char *)"ARJ";
if (memcmp(buf,"Rar!",4) == 0) return (char *)"RAR";
if (memcmp(buf,"HA",2) == 0) return (char *)"HA";
if (memcmp(buf,"UC2\0x1a",4) == 0) return (char *)"UC2";
if (memcmp(buf,"BZ",2) == 0) return (char *)"BZIP";
if (memcmp(buf,"MSCF",4) == 0) return (char *)"CAB"; /* M$ CAB files */
if (memcmp(buf,"\037\213",2) == 0) return (char *)"GZIP"; /* gzip compressed data */
if (memcmp(buf,"\037\235",2) == 0) return (char *)"CMP"; /* unix compressed data */
if ((fp = fopen(fn,"r"))) {
fseek(fp, 257, SEEK_SET);
if (fread(buf, 1, sizeof(buf), fp) != sizeof(buf)) {
/*
* Here we don't complain about a read error, the file may be
* smaller then 257 bytes so it is not a tar file anyway.
*/
fclose(fp);
return NULL;
}
fclose(fp);
}
if (memcmp(buf,"ustar",5) == 0) return (char *)"TAR"; /* GNU/Posix tar */
return NULL;
}
int getarchiver(char *unarc)
{
FILE *fp;
char *filename;
memset(&archiver, 0, sizeof(archiver));
filename = calloc(PATH_MAX, sizeof(char));
snprintf(filename, PATH_MAX -1, "%s/etc/archiver.data", getenv("MBSE_ROOT"));
if ((fp = fopen(filename, "r")) == NULL) {
WriteError("$Can't open %s", filename);
free(filename);
return FALSE;
}
free(filename);
fread(&archiverhdr, sizeof(archiverhdr), 1, fp);
while (fread(&archiver, archiverhdr.recsize, 1, fp) == 1) {
if ((archiver.available) && (strcmp(archiver.name, unarc) == 0)) {
fclose(fp);
return TRUE;
}
}
fclose(fp);
return FALSE;
}