/* 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);
}