<?php

namespace App\Http\Controllers;

use Illuminate\Support\Facades\Auth;
use Illuminate\Support\Facades\Log;
use Illuminate\Support\Facades\Storage;
use Illuminate\Http\Request;
use App\Models\Media;
use App\Models\Site;
use App\Models\Historique;
use App\Http\Traits\MediaTools;

class UploadController extends Controller
{
    use MediaTools;

    public function index(Request $request)
    {
        // ---- Vérification du token de sécurité
        $token = $request->get('token');
        if ($token != env('TOKEN_DEPOT', "c8c4613a-236c-4b06-95f6-a9c9c6c18861")) {
            return abort(404);
        }

        $sites = Site::orderBy('libelle')->get();
        return view('upload.show')->with(
            [
            'sites' => $sites,
            ]
        );
    }

    public function storeMedia(Request $request)
    {
        $uid            = $request->input('uid');
        $sujet_id       = $request->input('sujet_id');
        $dossier_id     = $request->input('dossier_id');
        $replaceMediaId = $request->input('replaceMediaId');
        if ($dossier_id == 0) {
            $dossier_id = null;
        }

        $headers         = $request->headers->all();
        $acceptFileTypes = array('gif','jpeg', 'jpg','png','mp4','mp3','psd','ai','svg','pdf');

        if ($request->hasFile('files')) {
            $filesa = [];
            $file   = $request->file('files');

            foreach ($file as $files) {
                $is_last_chunk     = false;
                $is_chunked_upload = !empty($headers['content-range']);
                if ($is_chunked_upload) {
                    if (preg_match('|(\d+)/(\d+)|', $headers['content-range'][0], $range)) {
                        if ($range[1] == $range[2] - 1) {
                            $is_last_chunk = true;
                        }
                    }
                }

                $extension    = strtolower($files->getClientOriginalExtension());
                $originalName = str_replace("." . $extension, "", $files->getClientOriginalName());
                if (!in_array($extension, $acceptFileTypes)) {
                    return array("false");
                }

                if ($is_chunked_upload) {
                    $filename = $uid . "_" . $range[1] . "." . $extension;
                } else {
                    $filename = $uid . '.' . $extension;
                }

                $uploadPath = public_path() . '/uploads/';
                $files->move($uploadPath, $filename);

                // si c'est le dernier morceux d'un fichier
                if ($is_last_chunk) {
                    if ($dossier = opendir($uploadPath)) {
                        $dirFiles = array();
                        // on compile tous les chunk du fichier
                        while (false !== ($fichier = readdir($dossier))) {
                            if ($fichier != '.' && $fichier != '..') {
                                if (strpos($fichier, $uid) !== false) {
                                    $dirFiles[$fichier] = str_replace("." . $extension, "", str_replace($uid . "_", "", $fichier));
                                }
                            }
                        }
                        closedir($dossier);
                        // on les trie pour les assembler dans le bon ordre
                        asort($dirFiles, SORT_NUMERIC);
                        // on les assemble dans un fichier final
                        $filename = $uid . '.' . $extension;
                        foreach ($dirFiles as $key => $fichier) {
                               $file = fopen($uploadPath . $key, 'rb');
                               $buff = fread($file, filesize($uploadPath . $key));
                               fclose($file);

                               $final = fopen($uploadPath . $filename, 'a');
                               $write = fwrite($final, $buff);
                               fclose($final);

                               unlink($uploadPath . $key);
                        }
                    }//end if
                }//end if

                // si c'est le dernier morceau d'un fichier ou que c'est un envoi simple
                if ($is_last_chunk || !$is_chunked_upload) {
                    $destinationPath = $this->getMediaFolder() . "/";

                    // si on upload un média pour remplacer un fichier par un autre
                    if ($replaceMediaId != 0) {
                        // on récupère le média à modifier
                        /** @var \App\Models\Media|null */
                        $media = Media::where('id', $replaceMediaId)->first();

                        // On déplace le fichier dans le répertoire des médias
                        Storage::move("uploads/" . $filename, $destinationPath . $filename);

                        // supprime les fichiers médias stockés sur disque
                        $filesfF       = Storage::files($media->folder . "/");
                        $filepath      = preg_quote($media->folder . $media->uid, '/');
                        $matchingFiles = preg_grep('/^' . $filepath . '/', $filesfF);
                        Storage::delete($matchingFiles);

                        $media->isDefault = 0;
                        $media->save();
                    } else {
                        // On déplace le fichier dans le répertoire des médias
                        Storage::move("uploads/" . $filename, $destinationPath . $filename);

                        // on créé un média en bdd
                        $media             = new Media();
                        $media->dossier_id = $dossier_id;
                        $media->sujet_id   = $sujet_id;
                        // Par défaut FR
                        $media->langue_id = 1;
                        // Par défaut propriété de la marque
                        $media->copyright_id = 3;
                    }//end if

                    $media->extension = $extension;
                    $media->folder    = $destinationPath;
                    if ($replaceMediaId == 0) {
                        $media->libelle    = mb_substr($originalName, 0, 50, "UTF-8");
                        $media->created_by = Auth::user()->id;
                    }
                    $media->uid    = $uid;
                    $media->taille = $this->formatBytes($this->getFileSize($destinationPath . $filename));

                    switch ($extension) {
                        // Photo (1)
                        case 'gif':
                        case 'jpeg':
                        case 'jpg':
                        case 'png':
                        case 'ai':
                        case 'pdf':
                        case 'psd':
                            $media->typemedia_id = 1;
                            $im                  = new \imagick($destinationPath . $filename);

                            if (in_array($extension, array("pdf", "ai", "psd", "gif"))) {
                                   $im->setIteratorIndex(0);
                            }

                            $resolutions       = $im->getImageResolution();
                            $media->resolution = round($resolutions['x'] * 2.54);
                            $imageprops        = $im->getImageGeometry();
                            $media->largeur    = $imageprops['width'];
                            $media->hauteur    = $imageprops['height'];

                            if ($media->resolution != 0) {
                                $media->largeur_mm = ceil(($media->largeur * 2.54 / $media->resolution) * 10);
                                $media->hauteur_mm = ceil(($media->hauteur * 2.54 / $media->resolution) * 10);
                            } else {
                                $media->largeur_mm = "";
                                $media->hauteur_mm = "";
                            }
                            $media->save();
                            $im->destroy();

                            // ---- Creation des vignettes de base
                            $this->createSysThumb($media);
                            // ---- Creation des vignettes en lien avec le sujet du média
                            if (isset($sujet_id)) {
                                $this->createThumb($media);
                            }
                            break;
                        // Illustration/Vectorielle (2)
                        case 'svg':
                            $media->typemedia_id = 2;
                            $media->save();
                            break;
                        // Vidéo (3)
                        case 'mp4':
                            $media->typemedia_id = 3;
                            $getID3              = new \getID3();
                            if ($fileInfo = $getID3->analyze($destinationPath . $filename)) {
                                $media->largeur = $fileInfo['video']['resolution_x'];
                                $media->hauteur = $fileInfo['video']['resolution_y'];
                                $media->duree   = $fileInfo['playtime_string'];
                            }
                            $media->save();
                            break;
                        // Audio (4)
                        case 'mp3':
                            $media->typemedia_id = 4;
                            $getID3              = new \getID3();
                            if ($fileInfo = $getID3->analyze($destinationPath . $filename)) {
                                $media->duree = $fileInfo['playtime_string'];
                            }
                            $media->save();
                            break;
                    }//end switch

                    $id    = $media->id;
                    $media = Media::find($id);
                    // ---- Index dans Elasticsearch
                    $media = Media::where('id', $media->id)->first();
                    $media->addToIndex();

                    // ---- Historique des actions
                    $historique = new historique();
                    if ($user = Auth::user()) {
                        $historique->user_id = $user->id;
                    }
                    $historique->media_id = $media->id;
                    if ($replaceMediaId == 0) {
                        $historique->type        = "Création";
                        $historique->description = "Média ajouté";
                    } else {
                        $historique->type        = "Modification";
                        $historique->description = "Le média a été remplacé";
                    }
                    $historique->save();

                    $filest                 = array();
                    $filest['name']         = $filename;
                    $filest['uid']          = $uid;
                    $filest['libelle']      = $media->libelle;
                    $filest['id']           = $media->id;
                    $filest['folder']       = $media->folder;
                    $filest['extension']    = $media->extension;
                    $filest['typemedia_id'] = $media->typemedia_id;

                    $filesa['files'][] = $filest;
                }//end if
            }//end foreach
            return $filesa;
        }//end if
    }

    public function storeMediaV2(Request $request)
    {
        $uid            = $request->input('uid');
        $sujet_id       = $request->input('sujet_id');
        $dossier_id     = $request->input('dossier_id');
        $replaceMediaId = $request->input('replaceMediaId');
        if ($dossier_id == 0) {
            $dossier_id = null;
        }

        $filesa          = [];
        $acceptFileTypes = array('gif','jpeg', 'jpg','png','mp4','mp3','psd','ai','svg','pdf');

        if (!$uid) {
            $uid = sprintf('%04x%04x-%04x-%04x-%04x-%04x%04x%04x', mt_rand(0, 0xffff), mt_rand(0, 0xffff), mt_rand(0, 0xffff), mt_rand(0, 0x0fff) | 0x4000, mt_rand(0, 0x3fff) | 0x8000, mt_rand(0, 0xffff), mt_rand(0, 0xffff), mt_rand(0, 0xffff));
        }

        $file = $request->file('files');
        if (!empty($file)) {
            $extension    = strtolower($file->getClientOriginalExtension());
            $originalName = str_replace("." . $extension, "", $file->getClientOriginalName());
            if (!in_array($extension, $acceptFileTypes)) {
                return array("false");
            }

            if (!in_array($extension, $acceptFileTypes)) {
                return array("error" => "Ce type de fichier n'est pas accepté.");
            }

            // check the error status
            if ($file->getError() != 0) {
                Log::error('error ' . $file->getError() . ' in file ' . $request->resumableFilename);
            }

            // init the destination file (format <filename.ext>.part<#chunk>
            // the file is stored in a temporary directory
            if (isset($request->resumableIdentifier) && trim($request->resumableIdentifier) != '') {
                $temp_dir = 'uploads/' . $request->resumableIdentifier;
            }
            $dest_file = $temp_dir . '/' . $request->resumableFilename . '.part' . $request->resumableChunkNumber;

            // create the temporary directory
            if (!is_dir($temp_dir)) {
                mkdir($temp_dir, 0777, true);
            }

            // move the temporary file
            if (!move_uploaded_file($file->getPathname(), $dest_file)) {
                Log::error('Error saving (move_uploaded_file) chunk ' . $request->resumableChunkNumber . ' for file ' . $request->resumableFilename);
            } else {
                $filename = $uid . '.' . $extension;
                // check if all the parts present, and create the final destination file
                $isLast = $this->createFileFromChunks($temp_dir, $request->resumableFilename, $request->resumableChunkSize, $request->resumableTotalSize, $request->resumableTotalChunks, $filename);
                if ($isLast) {
                    $destinationPath = $this->getMediaFolder() . "/";

                    // si on upload un média pour remplacer un fichier par un autre
                    if ($replaceMediaId != 0) {
                        // on récupère le média à modifier
                        /** @var \App\Models\Media|null $media */
                        $media = Media::where('id', $replaceMediaId)->first();

                        // On déplace le fichier dans le répertoire des médias
                        Storage::move("uploads/" . $filename, $destinationPath . $filename);

                        // supprime les fichiers médias stockés sur disque
                        $filesfF       = Storage::files($media->folder . "/");
                        $filepath      = preg_quote($media->folder . $media->uid, '/');
                        $matchingFiles = preg_grep('/^' . $filepath . '/', $filesfF);
                        Storage::delete($matchingFiles);

                        $media->isDefault = 0;
                        $media->save();
                    } else {
                        // On déplace le fichier dans le répertoire des médias
                        Storage::move("uploads/" . $filename, $destinationPath . $filename);

                        // on créé un média en bdd
                        $media             = new Media();
                        $media->dossier_id = $dossier_id;
                        $media->sujet_id   = $sujet_id;
                        // Par défaut FR
                        $media->langue_id = 1;
                        // Par défaut propriété de la marque
                        $media->copyright_id = 3;
                    }//end if

                    $media->extension = $extension;
                    $media->folder    = $destinationPath;
                    if ($replaceMediaId == 0) {
                        $media->libelle    = mb_substr($originalName, 0, 50, "UTF-8");
                        $media->created_by = Auth::user()->id;
                    }
                    $media->uid    = $uid;
                    $media->taille = $this->formatBytes($this->getFileSize($destinationPath . $filename));

                    switch ($extension) {
                        // Photo (1)
                        case 'gif':
                        case 'jpeg':
                        case 'jpg':
                        case 'png':
                        case 'ai':
                        case 'pdf':
                        case 'psd':
                            $media->typemedia_id = 1;
                            $im                  = new \imagick($destinationPath . $filename);
                            // $im = new \imagick(realpath($destinationPath.$filename));
                            if (in_array($extension, array("pdf", "ai", "psd", "gif"))) {
                                $im->setIteratorIndex(0);
                            }

                            $resolutions       = $im->getImageResolution();
                            $media->resolution = round($resolutions['x'] * 2.54);
                            $imageprops        = $im->getImageGeometry();
                            $media->largeur    = $imageprops['width'];
                            $media->hauteur    = $imageprops['height'];

                            if ($media->resolution != 0) {
                                $media->largeur_mm = ceil(($media->largeur * 2.54 / $media->resolution) * 10);
                                $media->hauteur_mm = ceil(($media->hauteur * 2.54 / $media->resolution) * 10);
                            } else {
                                $media->largeur_mm = "";
                                $media->hauteur_mm = "";
                            }
                            $media->save();
                            $im->destroy();

                            // ---- Creation des vignettes de base
                            $this->createSysThumb($media);
                            // ---- Creation des vignettes en lien avec le sujet du média
                            if (isset($sujet_id)) {
                                $this->createThumb($media);
                            }
                            break;
                        // Illustration/Vectorielle (2)
                        case 'svg':
                            $media->typemedia_id = 2;
                            $media->save();
                            break;
                        // Vidéo (3)
                        case 'mp4':
                            $media->typemedia_id = 3;
                            $getID3              = new \getID3();
                            if ($fileInfo = $getID3->analyze($destinationPath . $filename)) {
                                $media->largeur = $fileInfo['video']['resolution_x'];
                                $media->hauteur = $fileInfo['video']['resolution_y'];
                                $media->duree   = $fileInfo['playtime_string'];
                            }
                            $media->save();
                            break;
                        // Audio (4)
                        case 'mp3':
                            $media->typemedia_id = 4;
                            $getID3              = new \getID3();
                            if ($fileInfo = $getID3->analyze($destinationPath . $filename)) {
                                $media->duree = $fileInfo['playtime_string'];
                            }
                            $media->save();
                            break;
                    }//end switch

                    $id    = $media->id;
                    $media = Media::find($id);
                    // ---- Index dans Elasticsearch
                    $media = Media::where('id', $media->id)->first();
                    $media->addToIndex();

                    // ---- Historique des actions
                    $historique = new historique();
                    if ($user = Auth::user()) {
                        $historique->user_id = $user->id;
                    }
                    $historique->media_id = $media->id;
                    if ($replaceMediaId == 0) {
                        $historique->type        = "Création";
                        $historique->description = "Média ajouté";
                    } else {
                        $historique->type        = "Modification";
                        $historique->description = "Le média a été remplacé";
                    }
                    $historique->save();

                    return response()->json($media);
                }//end if
            }//end if
        }//end if
    }

    /**
     * Check if all the parts exist, and
     * gather all the parts of the file together
     *
     * @param  string $temp_dir  - the temporary directory holding all the parts of the file
     * @param  string $fileName  - the original file name
     * @param  string $chunkSize - each chunk size (in bytes)
     * @param  string $totalSize - original file size (in bytes)
     * @return boolean
     */
    private function createFileFromChunks($temp_dir, $fileName, $chunkSize, $totalSize, $total_files, $finalName)
    {

        // count all the parts of this file
        $total_files_on_server_size = 0;
        $temp_total                 = 0;
        foreach (scandir($temp_dir) as $file) {
            $temp_total                 = $total_files_on_server_size;
            $tempfilesize               = filesize($temp_dir . '/' . $file);
            $total_files_on_server_size = $temp_total + $tempfilesize;
        }
        // check that all the parts are present
        // If the Size of all the chunks on the server is equal to the size of the file uploaded.
        if ($total_files_on_server_size >= $totalSize) {
            // create the final destination file
            if (($fp = fopen('uploads/' . $finalName, 'w')) !== false) {
                for ($i = 1; $i <= $total_files; $i++) {
                    fwrite($fp, file_get_contents($temp_dir . '/' . $fileName . '.part' . $i));
                    // Log::info('writing chunk '.$i);
                }
                fclose($fp);
            } else {
                Log::error('cannot create the destination file');
                return false;
            }

            // rename the temporary directory (to avoid access from other
            // concurrent chunks uploads) and than delete it
            if (rename($temp_dir, $temp_dir . '_UNUSED')) {
                $this->rrmdir($temp_dir . '_UNUSED');
            } else {
                $this->rrmdir($temp_dir);
            }
            return true;
        }//end if
        return false;
    }

    /**
     * Delete a directory RECURSIVELY
     *
     * @param string $dir - directory path
     * @link  http://php.net/manual/en/function.rmdir.php
     */
    private function rrmdir($dir)
    {
        if (is_dir($dir)) {
            $objects = scandir($dir);
            foreach ($objects as $object) {
                if ($object != "." && $object != "..") {
                    if (filetype($dir . "/" . $object) == "dir") {
                        $this->rrmdir($dir . "/" . $object);
                    } else {
                        unlink($dir . "/" . $object);
                    }
                }
            }
            reset($objects);
            rmdir($dir);
        }
    }
}