// /***************************************************************************
// The Disc Image Chef
// ----------------------------------------------------------------------------
//
// Filename       : UploadReportController.cs
// Author(s)      : Natalia Portillo <claunia@claunia.com>
//
// Component      : DiscImageChef Server.
//
// --[ Description ] ----------------------------------------------------------
//
//     Handles report uploads.
//
// --[ License ] --------------------------------------------------------------
//
//     This library is free software; you can redistribute it and/or modify
//     it under the terms of the GNU Lesser General Public License as
//     published by the Free Software Foundation; either version 2.1 of the
//     License, or (at your option) any later version.
//
//     This library 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
//     Lesser General Public License for more details.
//
//     You should have received a copy of the GNU Lesser General Public
//     License along with this library; if not, see <http://www.gnu.org/licenses/>.
//
// ----------------------------------------------------------------------------
// Copyright © 2011-2019 Natalia Portillo
// ****************************************************************************/

using System;
using System.Diagnostics;
using System.IO;
using System.Linq;
using System.Net;
using System.Text;
using System.Threading.Tasks;
using System.Xml.Serialization;
using Cinchoo.PGP;
using DiscImageChef.CommonTypes.Metadata;
using DiscImageChef.Server.Models;
using MailKit.Net.Smtp;
using Microsoft.AspNetCore.Hosting;
using Microsoft.AspNetCore.Http;
using Microsoft.AspNetCore.Mvc;
using MimeKit;
using Newtonsoft.Json;

namespace DiscImageChef.Server.Controllers
{
    public class UploadReportController : Controller
    {
        readonly IWebHostEnvironment _environment;
        readonly DicServerContext    ctx;

        public UploadReportController(IWebHostEnvironment environment, DicServerContext _ctx)
        {
            _environment = environment;
            ctx          = _ctx;
        }

        /// <summary>Receives a report from DiscImageChef.Core, verifies it's in the correct format and stores it on the server</summary>
        /// <returns>HTTP response</returns>
        [Route("api/uploadreport"), HttpPost]
        public async Task<IActionResult> UploadReport()
        {
            var response = new ContentResult
            {
                StatusCode = (int)HttpStatusCode.OK, ContentType = "text/plain"
            };

            try
            {
                var         newReport = new DeviceReport();
                HttpRequest request   = HttpContext.Request;

                var xs = new XmlSerializer(newReport.GetType());

                newReport =
                    (DeviceReport)
                    xs.Deserialize(new StringReader(await new StreamReader(request.Body).ReadToEndAsync()));

                if(newReport == null)
                {
                    response.Content = "notstats";

                    return response;
                }

                var reportV2 = new DeviceReportV2(newReport);
                var jsonSw   = new StringWriter();

                jsonSw.Write(JsonConvert.SerializeObject(reportV2, Formatting.Indented, new JsonSerializerSettings
                {
                    NullValueHandling = NullValueHandling.Ignore
                }));

                string reportV2String = jsonSw.ToString();
                jsonSw.Close();

                var newUploadedReport = new UploadedReport(reportV2);

                // Ensure CHS and CurrentCHS are not duplicates
                if(newUploadedReport.ATA?.ReadCapabilities?.CHS        != null &&
                   newUploadedReport.ATA?.ReadCapabilities?.CurrentCHS != null)
                {
                    if(newUploadedReport.ATA.ReadCapabilities.CHS.Cylinders ==
                       newUploadedReport.ATA.ReadCapabilities.CurrentCHS.Cylinders &&
                       newUploadedReport.ATA.ReadCapabilities.CHS.Heads ==
                       newUploadedReport.ATA.ReadCapabilities.CurrentCHS.Heads &&
                       newUploadedReport.ATA.ReadCapabilities.CHS.Sectors ==
                       newUploadedReport.ATA.ReadCapabilities.CurrentCHS.Sectors)
                    {
                        newUploadedReport.ATA.ReadCapabilities.CHS = newUploadedReport.ATA.ReadCapabilities.CurrentCHS;
                    }
                }

                // Check if the CHS or CurrentCHS of this report already exist in the database
                if(newUploadedReport.ATA?.ReadCapabilities?.CHS != null)
                {
                    Chs existingChs =
                        ctx.Chs.FirstOrDefault(c =>
                                                   c.Cylinders == newUploadedReport.
                                                                  ATA.ReadCapabilities.CHS.Cylinders             &&
                                                   c.Heads   == newUploadedReport.ATA.ReadCapabilities.CHS.Heads &&
                                                   c.Sectors == newUploadedReport.ATA.ReadCapabilities.CHS.Sectors);

                    if(existingChs != null)
                        newUploadedReport.ATA.ReadCapabilities.CHS = existingChs;
                }

                if(newUploadedReport.ATA?.ReadCapabilities?.CurrentCHS != null)
                {
                    Chs existingChs =
                        ctx.Chs.FirstOrDefault(c =>
                                                   c.Cylinders == newUploadedReport.
                                                                  ATA.ReadCapabilities.CurrentCHS.Cylinders           &&
                                                   c.Heads == newUploadedReport.ATA.ReadCapabilities.CurrentCHS.Heads &&
                                                   c.Sectors == newUploadedReport.
                                                                ATA.ReadCapabilities.CurrentCHS.Sectors);

                    if(existingChs != null)
                        newUploadedReport.ATA.ReadCapabilities.CurrentCHS = existingChs;
                }

                if(newUploadedReport.ATA?.RemovableMedias != null)
                {
                    foreach(TestedMedia media in newUploadedReport.ATA.RemovableMedias)
                    {
                        if(media.CHS        != null &&
                           media.CurrentCHS != null)
                        {
                            if(media.CHS.Cylinders == media.CurrentCHS.Cylinders &&
                               media.CHS.Heads     == media.CurrentCHS.Heads     &&
                               media.CHS.Sectors   == media.CurrentCHS.Sectors)
                            {
                                media.CHS = media.CurrentCHS;
                            }
                        }

                        if(media.CHS != null)
                        {
                            Chs existingChs =
                                ctx.Chs.FirstOrDefault(c => c.Cylinders == media.CHS.Cylinders &&
                                                            c.Heads     == media.CHS.Heads     &&
                                                            c.Sectors   == media.CHS.Sectors);

                            if(existingChs != null)
                                media.CHS = existingChs;
                        }

                        if(media.CHS != null)
                        {
                            Chs existingChs =
                                ctx.Chs.FirstOrDefault(c => c.Cylinders == media.CurrentCHS.Cylinders &&
                                                            c.Heads     == media.CurrentCHS.Heads     &&
                                                            c.Sectors   == media.CurrentCHS.Sectors);

                            if(existingChs != null)
                                media.CurrentCHS = existingChs;
                        }
                    }
                }

                ctx.Reports.Add(newUploadedReport);
                ctx.SaveChanges();

                var pgpIn  = new MemoryStream(Encoding.UTF8.GetBytes(reportV2String));
                var pgpOut = new MemoryStream();
                var pgp    = new ChoPGPEncryptDecrypt();

                pgp.Encrypt(pgpIn, pgpOut,
                            Path.Combine(_environment.ContentRootPath ?? throw new InvalidOperationException(),
                                         "public.asc"));

                pgpOut.Position = 0;
                reportV2String  = Encoding.UTF8.GetString(pgpOut.ToArray());

                var message = new MimeMessage
                {
                    Subject = "New device report (old version)", Body = new TextPart("plain")
                    {
                        Text = reportV2String
                    }
                };

                message.From.Add(new MailboxAddress("DiscImageChef", "dic@claunia.com"));
                message.To.Add(new MailboxAddress("Natalia Portillo", "claunia@claunia.com"));

                using(var client = new SmtpClient())
                {
                    client.Connect("mail.claunia.com", 25, false);
                    client.Send(message);
                    client.Disconnect(true);
                }

                response.Content = "ok";

                return response;
            }

            // ReSharper disable once RedundantCatchClause
            catch
            {
            #if DEBUG
                if(Debugger.IsAttached)
                    throw;
            #endif
                response.Content = "error";

                return response;
            }
        }

        /// <summary>Receives a report from DiscImageChef.Core, verifies it's in the correct format and stores it on the server</summary>
        /// <returns>HTTP response</returns>
        [Route("api/uploadreportv2"), HttpPost]
        public async Task<IActionResult> UploadReportV2()
        {
            var response = new ContentResult
            {
                StatusCode = (int)HttpStatusCode.OK, ContentType = "text/plain"
            };

            try
            {
                HttpRequest request = HttpContext.Request;

                var    sr         = new StreamReader(request.Body);
                string reportJson = await sr.ReadToEndAsync();
                var    newReport  = JsonConvert.DeserializeObject<DeviceReportV2>(reportJson);

                if(newReport == null)
                {
                    response.Content = "notstats";

                    return response;
                }

                var newUploadedReport = new UploadedReport(newReport);

                // Ensure CHS and CurrentCHS are not duplicates
                if(newUploadedReport.ATA?.ReadCapabilities?.CHS        != null &&
                   newUploadedReport.ATA?.ReadCapabilities?.CurrentCHS != null)
                {
                    if(newUploadedReport.ATA.ReadCapabilities.CHS.Cylinders ==
                       newUploadedReport.ATA.ReadCapabilities.CurrentCHS.Cylinders &&
                       newUploadedReport.ATA.ReadCapabilities.CHS.Heads ==
                       newUploadedReport.ATA.ReadCapabilities.CurrentCHS.Heads &&
                       newUploadedReport.ATA.ReadCapabilities.CHS.Sectors ==
                       newUploadedReport.ATA.ReadCapabilities.CurrentCHS.Sectors)
                    {
                        newUploadedReport.ATA.ReadCapabilities.CHS = newUploadedReport.ATA.ReadCapabilities.CurrentCHS;
                    }
                }

                // Check if the CHS or CurrentCHS of this report already exist in the database
                if(newUploadedReport.ATA?.ReadCapabilities?.CHS != null)
                {
                    Chs existingChs =
                        ctx.Chs.FirstOrDefault(c =>
                                                   c.Cylinders == newUploadedReport.
                                                                  ATA.ReadCapabilities.CHS.Cylinders             &&
                                                   c.Heads   == newUploadedReport.ATA.ReadCapabilities.CHS.Heads &&
                                                   c.Sectors == newUploadedReport.ATA.ReadCapabilities.CHS.Sectors);

                    if(existingChs != null)
                        newUploadedReport.ATA.ReadCapabilities.CHS = existingChs;
                }

                if(newUploadedReport.ATA?.ReadCapabilities?.CurrentCHS != null)
                {
                    Chs existingChs =
                        ctx.Chs.FirstOrDefault(c =>
                                                   c.Cylinders == newUploadedReport.
                                                                  ATA.ReadCapabilities.CurrentCHS.Cylinders           &&
                                                   c.Heads == newUploadedReport.ATA.ReadCapabilities.CurrentCHS.Heads &&
                                                   c.Sectors == newUploadedReport.
                                                                ATA.ReadCapabilities.CurrentCHS.Sectors);

                    if(existingChs != null)
                        newUploadedReport.ATA.ReadCapabilities.CurrentCHS = existingChs;
                }

                if(newUploadedReport.ATA?.RemovableMedias != null)
                {
                    foreach(TestedMedia media in newUploadedReport.ATA.RemovableMedias)
                    {
                        if(media.CHS        != null &&
                           media.CurrentCHS != null)
                        {
                            if(media.CHS.Cylinders == media.CurrentCHS.Cylinders &&
                               media.CHS.Heads     == media.CurrentCHS.Heads     &&
                               media.CHS.Sectors   == media.CurrentCHS.Sectors)
                            {
                                media.CHS = media.CurrentCHS;
                            }
                        }

                        if(media.CHS != null)
                        {
                            Chs existingChs =
                                ctx.Chs.FirstOrDefault(c => c.Cylinders == media.CHS.Cylinders &&
                                                            c.Heads     == media.CHS.Heads     &&
                                                            c.Sectors   == media.CHS.Sectors);

                            if(existingChs != null)
                                media.CHS = existingChs;
                        }

                        if(media.CHS != null)
                        {
                            Chs existingChs =
                                ctx.Chs.FirstOrDefault(c => c.Cylinders == media.CurrentCHS.Cylinders &&
                                                            c.Heads     == media.CurrentCHS.Heads     &&
                                                            c.Sectors   == media.CurrentCHS.Sectors);

                            if(existingChs != null)
                                media.CurrentCHS = existingChs;
                        }
                    }
                }

                ctx.Reports.Add(newUploadedReport);
                ctx.SaveChanges();

                var pgpIn  = new MemoryStream(Encoding.UTF8.GetBytes(reportJson));
                var pgpOut = new MemoryStream();
                var pgp    = new ChoPGPEncryptDecrypt();

                pgp.Encrypt(pgpIn, pgpOut,
                            Path.Combine(_environment.ContentRootPath ?? throw new InvalidOperationException(),
                                         "public.asc"));

                pgpOut.Position = 0;
                reportJson      = Encoding.UTF8.GetString(pgpOut.ToArray());

                var message = new MimeMessage
                {
                    Subject = "New device report", Body = new TextPart("plain")
                    {
                        Text = reportJson
                    }
                };

                message.From.Add(new MailboxAddress("DiscImageChef", "dic@claunia.com"));
                message.To.Add(new MailboxAddress("Natalia Portillo", "claunia@claunia.com"));

                using(var client = new SmtpClient())
                {
                    client.Connect("mail.claunia.com", 25, false);
                    client.Send(message);
                    client.Disconnect(true);
                }

                response.Content = "ok";

                return response;
            }

            // ReSharper disable once RedundantCatchClause
            catch
            {
            #if DEBUG
                if(Debugger.IsAttached)
                    throw;
            #endif
                response.Content = "error";

                return response;
            }
        }
    }
}