/*
  *  Copyright (C) 2004 Nigel Horne <njh@bandsman.co.uk>
  *
  *  This program 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 of the License, or
  *  (at your option) any later version.
  *
  *  This program 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 this program; if not, write to the Free Software

  *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
  *  MA 02110-1301, USA.

  *
  * Change History:
  * $Log: binhex.c,v $

  * Revision 1.23  2007/02/12 20:46:08  njh
  * Various tidy
  *

  * Revision 1.22  2006/07/31 09:19:52  njh
  * Use MAP_PRIVATE
  *

  * Revision 1.21  2006/07/01 16:17:35  njh
  * Added destroy flag
  *

  * Revision 1.20  2006/07/01 03:47:50  njh
  * Don't loop if binhex runs out of memory
  *

  * Revision 1.19  2006/05/19 11:02:12  njh
  * Just include mbox.h
  *

  * Revision 1.18  2006/04/09 19:59:27  kojm
  * update GPL headers with new address for FSF
  *

  * Revision 1.17  2005/11/06 14:03:26  nigelhorne
  * Ensure NAME_MAX isn't redefined on BeOS
  *

  * Revision 1.16  2005/05/14 16:13:25  nigelhorne
  * Ensure munmap is the right size
  *

  * Revision 1.15  2005/05/13 19:30:34  nigelhorne
  * Clean cli_realloc call
  *

  * Revision 1.14  2005/03/10 08:51:30  nigelhorne
  * Tidy
  *

  * Revision 1.13  2005/01/19 05:29:41  nigelhorne
  * tidy
  *

  * Revision 1.12  2004/12/27 14:17:14  nigelhorne
  * Fix segfault if write to temporary file fails
  *

  * Revision 1.11  2004/12/17 12:03:38  nigelhorne
  * Tidy up for machines without MMAP
  *

  * Revision 1.10  2004/12/16 15:29:51  nigelhorne
  * Tidy
  *

  * Revision 1.9  2004/11/28 22:06:39  nigelhorne
  * Tidy space only headers code
  *

  * Revision 1.8  2004/11/28 21:05:50  nigelhorne
  * Handle headers with only spaces
  *

  * Revision 1.7  2004/11/23 09:05:26  nigelhorne
  * Fix crash in base64 encoded binhex files
  *

  * Revision 1.6  2004/11/22 15:16:53  nigelhorne
  * Use cli_realloc instead of many cli_mallocs
  *

  * Revision 1.5  2004/11/18 20:11:34  nigelhorne
  * Fix segfault
  *

  * Revision 1.4  2004/11/18 19:30:29  kojm
  * add support for Mac's HQX file format
  *

  * Revision 1.3  2004/11/18 18:24:45  nigelhorne
  * Added binhex.h
  *

  * Revision 1.2  2004/11/18 18:09:06  nigelhorne
  * First draft of binhex.c
  *
  */

 static	char	const	rcsid[] = "$Id: binhex.c,v 1.23 2007/02/12 20:46:08 njh Exp $";

 
 #include "clamav.h"
 
 #if HAVE_CONFIG_H
 #include "clamav-config.h"
 #endif
 
 #ifndef	CL_DEBUG
 #define	NDEBUG	/* map CLAMAV debug onto standard */
 #endif
 
 #ifdef CL_THREAD_SAFE
 #ifndef	_REENTRANT
 #define	_REENTRANT	/* for Solaris 2.8 */
 #endif
 #endif
 
 #if HAVE_MMAP
 #if HAVE_SYS_MMAN_H
 #include <sys/mman.h>
 #else /* HAVE_SYS_MMAN_H */
 #undef HAVE_MMAP
 #endif
 #endif
 
 #include <stdio.h>
 #include <memory.h>
 #include <sys/stat.h>

 #include "others.h"

 #include "mbox.h"

 #include "binhex.h"

 
 int
 cli_binhex(const char *dir, int desc)
 {

 #ifndef HAVE_MMAP
 	cli_warnmsg("File not decoded - binhex decoding needs mmap() (for now)\n");
 	return CL_CLEAN;
 #else

 	struct stat statb;

 	char *buf, *start, *line;

 	size_t size;

 	long bytesleft;

 	message *m;
 	fileblob *fb;
 
 	if(fstat(desc, &statb) < 0)
 		return CL_EOPEN;
 

 	size = (size_t)statb.st_size;

 
 	if(size == 0)
 		return CL_CLEAN;
 

 	m = messageCreate();
 	if(m == NULL)
 		return CL_EMEM;
 

 	start = buf = mmap(NULL, size, PROT_READ, MAP_PRIVATE, desc, 0);

 	if(buf == MAP_FAILED) {
 		messageDestroy(m);

 		return CL_EMEM;

 	}

 
 	cli_dbgmsg("mmap'ed binhex file\n");
 

 	bytesleft = (long)size;

 	line = NULL;

 	while(bytesleft > 0) {

 		int length = 0;

 		char *ptr, *newline;

 		/*printf("%d: ", bytesleft);*/

 		for(ptr = buf; bytesleft && (*ptr != '\n') && (*ptr != '\r'); ptr++) {

 			length++;
 			--bytesleft;
 		}
 

 		/*printf("%d: ", length);*/

 		newline = cli_realloc(line, (size_t)(length + 1));
 		if(newline == NULL)
 			break;
 
 		line = newline;

 
 		memcpy(line, buf, length);
 		line[length] = '\0';
 

 		/*puts(line);*/

 		if(messageAddStr(m, line) < 0)

 			break;
 

 		if((bytesleft > 0) && (*ptr == '\r')) {
 			ptr++;
 			bytesleft--;
 		}

 		buf = ++ptr;

 		bytesleft--;

 	}
 	munmap(start, size);
 

 	if(line)
 		free(line);
 
 	if(binhexBegin(m) == NULL) {

 		messageDestroy(m);
 		cli_errmsg("No binhex line found\n");
 		return CL_EFORMAT;
 	}

 	/* similar to binhexMessage */

 	messageSetEncoding(m, "x-binhex");
 

 	fb = messageToFileblob(m, dir, 1);

 	if(fb) {
 		cli_dbgmsg("Binhex file decoded to %s\n", fileblobGetFilename(fb));
 		fileblobDestroy(fb);
 	} else

 		cli_errmsg("Couldn't decode binhex file to %s\n", dir);

 	messageDestroy(m);
 
 	if(fb)
 		return CL_CLEAN;	/* a lie - but it gets things going */

 	return CL_EIO;	/* probably CL_EMEM, but we can't tell at this layer */

 #endif
 }