// Copyright (c) 2015-present Mattermost, Inc. All Rights Reserved.
// See LICENSE.txt for license information.

package app

import (
	"context"
	"fmt"
	"io"
	"net/http"
	"strconv"
	"strings"
	"sync"
)

type PluginResponseWriter struct {
	pipeWriter    *io.PipeWriter
	headers       http.Header
	statusCode    int
	ResponseReady chan struct{}
	readyOnce     sync.Once
}

func NewPluginResponseWriter(pw *io.PipeWriter) *PluginResponseWriter {
	return &PluginResponseWriter{
		pipeWriter:    pw,
		headers:       make(http.Header),
		ResponseReady: make(chan struct{}),
	}
}

func (rt *PluginResponseWriter) Header() http.Header {
	if rt.headers == nil {
		rt.headers = make(http.Header)
	}
	return rt.headers
}

// markResponseReady closes ResponseReady exactly once. It may be called concurrently
// by the plugin handler and request-cancellation cleanup.
func (rt *PluginResponseWriter) markResponseReady() {
	rt.readyOnce.Do(func() { close(rt.ResponseReady) })
}

func (rt *PluginResponseWriter) Write(data []byte) (int, error) {
	// Signal that response are ready on first write if not already done
	rt.markResponseReady()
	return rt.pipeWriter.Write(data)
}

func (rt *PluginResponseWriter) WriteHeader(statusCode int) {
	if rt.statusCode == 0 {
		rt.statusCode = statusCode
		rt.markResponseReady()
	}
}

func (rt *PluginResponseWriter) Flush() {
	// Signal response are ready if not already done
	rt.markResponseReady()
	// Pipe doesn't need explicit flushing, but we implement the interface
}

// From net/http/httptest/recorder.go
func parseContentLength(cl string) int64 {
	cl = strings.TrimSpace(cl)
	if cl == "" {
		return -1
	}
	n, err := strconv.ParseInt(cl, 10, 64)
	if err != nil {
		return -1
	}
	return n
}

func (rt *PluginResponseWriter) GenerateResponse(ctx context.Context, pr *io.PipeReader, cancel context.CancelFunc) *http.Response {
	body := newPluginResponseBody(ctx, cancel, pr)
	res := &http.Response{
		Proto:      "HTTP/1.1",
		ProtoMajor: 1,
		ProtoMinor: 1,
		StatusCode: rt.statusCode,
		Header:     rt.headers.Clone(),
		Body:       body,
	}

	if res.StatusCode == 0 {
		res.StatusCode = http.StatusOK
	}

	res.Status = fmt.Sprintf("%03d %s", res.StatusCode, http.StatusText(res.StatusCode))

	res.ContentLength = parseContentLength(rt.headers.Get("Content-Length"))

	return res
}

func (rt *PluginResponseWriter) CloseWithError(err error) error {
	rt.markResponseReady()
	return rt.pipeWriter.CloseWithError(err)
}

func (rt *PluginResponseWriter) Close() error {
	rt.markResponseReady()
	return rt.pipeWriter.Close()
}

// pluginResponseBody ties the request lifetime to the returned response body.
// Context cancellation unblocks reads, while closing the body cancels any
// remaining destination work.
type pluginResponseBody struct {
	ctx                 context.Context
	cancel              context.CancelFunc
	reader              *io.PipeReader
	stopContextCallback func() bool
}

func newPluginResponseBody(ctx context.Context, cancel context.CancelFunc, reader *io.PipeReader) io.ReadCloser {
	body := &pluginResponseBody{ctx: ctx, cancel: cancel, reader: reader}
	body.stopContextCallback = context.AfterFunc(ctx, func() {
		_ = body.closeFromContext(ctx.Err())
	})
	return body
}

func (b *pluginResponseBody) Read(p []byte) (int, error) {
	if err := b.ctx.Err(); err != nil {
		_ = b.closeFromContext(err)
		return 0, err
	}

	n, err := b.reader.Read(p)
	if ctxErr := b.ctx.Err(); ctxErr != nil {
		_ = b.closeFromContext(ctxErr)
		return 0, ctxErr
	}
	if err != nil {
		_ = b.Close()
	}
	return n, err
}

func (b *pluginResponseBody) Close() error {
	if b.stopContextCallback != nil {
		b.stopContextCallback()
	}
	return b.closeWithError(nil)
}

func (b *pluginResponseBody) closeFromContext(err error) error {
	return b.closeWithError(err)
}

func (b *pluginResponseBody) closeWithError(err error) error {
	closeErr := b.reader.CloseWithError(err)
	b.cancel()
	return closeErr
}