/* BMailMessage - compatibility wrapper to our mail message class
**
** Copyright 2001 Dr. Zoidberg Enterprises. All rights reserved.
*/


//------This entire document is a horrible, horrible hack. I apologize.
#include <Entry.h>

class _EXPORT BMailMessage;

#include <E-mail.h>

#include <MailAttachment.h>
#include <MailMessage.h>

#include <stdio.h>
#include <strings.h>

struct CharsetConversionEntry
{
	const char *charset;
	uint32 flavor;
};

extern const CharsetConversionEntry mail_charsets[];


BMailMessage::BMailMessage(void)
	:	fFields((BList *)(new BEmailMessage()))
{
}

BMailMessage::~BMailMessage(void)
{
	delete ((BEmailMessage *)(fFields));
}

status_t BMailMessage::AddContent(const char *text, int32 length,
	uint32 encoding, bool /*clobber*/)
{
	BTextMailComponent *comp = new BTextMailComponent;
	BMemoryIO io(text,length);
	comp->SetDecodedData(&io);
	
	comp->SetEncoding(quoted_printable,encoding);
	
	//if (clobber)
	((BEmailMessage *)(fFields))->AddComponent(comp);
	
	return B_OK;
}
					
status_t BMailMessage::AddContent(const char *text, int32 length,
	const char *encoding, bool /*clobber*/)
{
	BTextMailComponent *comp = new BTextMailComponent();
	BMemoryIO io(text,length);
	comp->SetDecodedData(&io);
	
	uint32 encode = B_ISO1_CONVERSION;
	//-----I'm assuming that encoding is one of the RFC charsets
	//-----there are no docs. Am I right?
	if (encoding != NULL) {
		for (int32 i = 0; mail_charsets[i].charset != NULL; i++) {
			if (strcasecmp(encoding,mail_charsets[i].charset) == 0) {
				encode = mail_charsets[i].flavor;
				break;
			}
		}
	}
	
	comp->SetEncoding(quoted_printable,encode);
	
	//if (clobber)
	((BEmailMessage *)(fFields))->AddComponent(comp);
	
	return B_OK;
}

status_t BMailMessage::AddEnclosure(entry_ref *ref, bool /*clobber*/)
{
	((BEmailMessage *)(fFields))->Attach(ref);
	return B_OK;
}

status_t BMailMessage::AddEnclosure(const char *path, bool /*clobber*/)
{
	BEntry entry(path);
	status_t status;
	if ((status = entry.InitCheck()) < B_OK)
		return status;
	
	entry_ref ref;
	if ((status = entry.GetRef(&ref)) < B_OK)
		return status;

	((BEmailMessage *)(fFields))->Attach(&ref);
	return B_OK;
}

status_t BMailMessage::AddEnclosure(const char *MIME_type, void *data, int32 len,
	bool /*clobber*/)
{
	BSimpleMailAttachment *attach = new BSimpleMailAttachment;
	attach->SetDecodedData(data,len);
	attach->SetHeaderField("Content-Type",MIME_type);
	
	((BEmailMessage *)(fFields))->AddComponent(attach);
	return B_OK;
}

status_t BMailMessage::AddHeaderField(uint32 /*encoding*/, const char *field_name, const char *str, 
	bool /*clobber*/)
{
	//printf("First AddHeaderField. Args are %s%s\n",field_name,str);
	
	BString string = field_name;
	string.Truncate(string.Length() - 2); //----BMailMessage includes the ": "
	((BEmailMessage *)(fFields))->SetHeaderField(string.String(),str);
	return B_OK;
}

status_t BMailMessage::AddHeaderField(const char *field_name, const char *str,
	bool /*clobber*/)
{
	//printf("Second AddHeaderField. Args are %s%s\n",field_name,str);
	BString string = field_name;
	string.Truncate(string.Length() - 2); //----BMailMessage includes the ": "
	((BEmailMessage *)(fFields))->SetHeaderField(string.String(),str);
	return B_OK;
}

status_t BMailMessage::Send(bool send_now,
	 bool /*remove_when_I_have_completed_sending_this_message_to_your_preferred_SMTP_server*/)
{
 	return ((BEmailMessage *)(fFields))->Send(send_now);
}