/*
 * Treebird - Lightweight frontend for Pleroma
 * Copyright (C) 2022 Nekobit
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Affero General Public License as published by
 * the Free Software Foundation, either version 3 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 Affero General Public License for more details.
 *
 * You should have received a copy of the GNU Affero General Public License
 * along with this program.  If not, see <https://www.gnu.org/licenses/>.
 */

#include <string.h>
#include <stdlib.h>
#include "base_page.h"
#include "helpers.h"
#include "easprintf.h"
#include "attachments.h"
#include "string_helpers.h"

// Pages
#include "../static/attachments.ctmpl"
#include "../static/attachment_image.ctmpl"
#include "../static/attachment_gifv.ctmpl"
#include "../static/attachment_video.ctmpl"
#include "../static/attachment_link.ctmpl"
#include "../static/attachment_audio.ctmpl"

struct attachments_args
{
    struct session* ssn;
    struct mstdnt_attachment* atts;
    mstdnt_bool sensitive;
};

int try_upload_media(struct mstdnt_storage** storage,
                     struct session* ssn,
                     mastodont_t* api,
                     struct mstdnt_attachment** attachments,
                     char*** media_ids)
{
    struct mstdnt_args m_args;
    set_mstdnt_args(&m_args, ssn);
    size_t size = keyfile(ssn->post.files).array_size;
    if (!FILES_READY(ssn))
        return 1;

    if (media_ids)
        *media_ids = malloc(sizeof(char*) * size);

    *attachments = malloc(sizeof(struct mstdnt_attachment) * size);
    *storage = calloc(1, sizeof(struct mstdnt_storage) * size);

    for (int i = 0; i < size; ++i)
    {
        struct file_content* content = keyfile(ssn->post.files).content + i;
        struct mstdnt_upload_media_args args = {
            .file = {
                .file = content->content,
                .filename = content->filename,
                .filesize = content->content_size,
                .filetype = content->filetype,
            },
            .thumbnail = NULL,
            .description = NULL,
        };
        
        if (mastodont_upload_media(api,
                                   &m_args,
                                   &args,
                                   *storage + i,
                                   *attachments + i))
        {
            for (size_t j = 0; j < i; ++j)
            {
                if (media_ids) free((*media_ids)[j]);
                mastodont_storage_cleanup(*storage + j);
            }

            if (media_ids)
            {
                free(*media_ids);
                *media_ids = NULL;
            }
            
            free(*attachments);
            *attachments = NULL;
            free(*storage);
            *storage = NULL;
            return 1;
        }

        if (media_ids)
        {
            (*media_ids)[i] = malloc(strlen((*attachments)[i].id)+1);
            strcpy((*media_ids)[i], (*attachments)[i].id);
        }
    }
    
    return 0;
}

void cleanup_media_storages(struct session* ssn, struct mstdnt_storage* storage)
{
    if (!FILES_READY(ssn)) return;
    for (size_t i = 0; i < keyfile(ssn->post.files).array_size; ++i)
        mastodont_storage_cleanup(storage + i);
    free(storage);
}

void cleanup_media_ids(struct session* ssn, char** media_ids)
{
    if (!FILES_READY(ssn)) return;
    if (!media_ids) return;
    for (size_t i = 0; i < keyfile(ssn->post.files).array_size; ++i)
        free(media_ids[i]);
    free(media_ids);
}

char* construct_attachment(struct session* ssn,
                           mstdnt_bool sensitive,
                           struct mstdnt_attachment* att,
                           size_t* str_size)
{
    // Due to how similar the attachment templates are, we're just going to use their data files
    // and not generate any templates, saves some LOC!
    char* att_html;
    size_t s;
    const char* attachment_str;
    if (!att) return NULL;

    if (ssn->config.stat_attachments)
        switch (att->type)
        {
        case MSTDNT_ATTACHMENT_IMAGE:
            attachment_str = data_attachment_image; break;
        case MSTDNT_ATTACHMENT_GIFV:
            attachment_str = data_attachment_gifv; break;
        case MSTDNT_ATTACHMENT_VIDEO:
            attachment_str = data_attachment_video; break;
        case MSTDNT_ATTACHMENT_AUDIO:
            attachment_str = data_attachment_audio; break;
        case MSTDNT_ATTACHMENT_UNKNOWN: // Fall through
        default:
            attachment_str = data_attachment_link; break;
        }
    else
        attachment_str = data_attachment_link;

    // Images/visible content displays sensitive placeholder after
    if ((att->type == MSTDNT_ATTACHMENT_IMAGE ||
         att->type == MSTDNT_ATTACHMENT_GIFV ||
         att->type == MSTDNT_ATTACHMENT_VIDEO) &&
        ssn->config.stat_attachments)
    {
        s = easprintf(&att_html, attachment_str,
                      att->url,
                      sensitive ? "<div class=\"sensitive-contain sensitive\"></div>" : "");
    }
    else {
        s = easprintf(&att_html, attachment_str,
                      sensitive ? "sensitive" : "",
                      att->url);
    }
    
    if (str_size) *str_size = s;
    return att_html;
}

static char* construct_attachments_voidwrap(void* passed, size_t index, size_t* res)
{
    struct attachments_args* args = passed;
    return construct_attachment(args->ssn, args->sensitive, args->atts + index, res);
}

char* construct_attachments(struct session* ssn,
                            mstdnt_bool sensitive,
                            struct mstdnt_attachment* atts,
                            size_t atts_len,
                            size_t* str_size)
{
    size_t elements_size;
    struct attachments_args args = { ssn, atts, sensitive };
    char* elements = construct_func_strings(construct_attachments_voidwrap, &args, atts_len, &elements_size);
    char* att_view;

    size_t s = easprintf(&att_view, data_attachments, elements);
    if (str_size) *str_size = s;
    // Cleanup
    free(elements);
    return att_view;
}

void api_attachment_create(PATH_ARGS)
{
    struct mstdnt_storage *att_storage = NULL;
    struct mstdnt_attachment* attachments = NULL;
    char* string;
    char** media_ids = NULL;

    cJSON* root = cJSON_CreateObject();

    // TODO If multiple attachments are submitted, this uploads all of them.
    //      I don't think we want that, but it's just a minor issue and won't happen on TreebirdFE.
    try_upload_media(&att_storage, ssn, api, &attachments, &media_ids);

    if (media_ids)
        cJSON_AddStringToObject(root, "id", media_ids[0]);
    
    if (media_ids)
    {
        string = cJSON_Print(root);
        send_result(req, NULL, "application/json", string, 0);
        free(string);
    }
    else
        send_result(req, NULL, "application/json", "{\"status\":\"Couldn't\"}", 0);

    // Cleanup media stuff
    cleanup_media_storages(ssn, att_storage);
    cleanup_media_ids(ssn, media_ids);
    free(attachments);
    cJSON_Delete(root);
}