<?php
/**
 * Pimcore
 *
 * This source file is subject to the GNU General Public License version 3 (GPLv3)
 * For the full copyright and license information, please view the LICENSE.md and gpl-3.0.txt
 * files that are distributed with this source code.
 *
 * @copyright  Copyright (c) 2009-2016 pimcore GmbH (http://www.pimcore.org)
 * @license    http://www.pimcore.org/license     GNU General Public License version 3 (GPLv3)
 */

namespace Pimcore\Tool;

use Pimcore\File; 

class Less {

    /**
     * @param $body
     * @return mixed
     */
    public static function processHtml($body) {

        $processedPaths = array();

        preg_match_all("@\<link[^>]*(rel=\"stylesheet/less\")[^>]*\>@msUi", $body, $matches);

        if(is_array($matches)) {
            foreach ($matches[0] as $tag) {
                preg_match("/href=\"([^\"]+)*\"/", $tag, $href);
                if(array_key_exists(1, $href) && !empty($href[1])) {
                    $source = $href[1];

                    $source = preg_replace("/\?_dc=[\d]+/", "", $source);

                    if (is_file(PIMCORE_ASSET_DIRECTORY . $source)) {
                        $path = PIMCORE_ASSET_DIRECTORY . $source;
                    }
                    else if (is_file(PIMCORE_DOCUMENT_ROOT . $source)) {
                        $path = PIMCORE_DOCUMENT_ROOT . $source;
                    }

                    // add the same file only one time
                    if(in_array($path, $processedPaths)) {
                        continue;
                    }

                    $newFile = PIMCORE_TEMPORARY_DIRECTORY . "/less___" . File::getValidFilename(str_replace(".less", "", $source)) . "-" . filemtime($path) . ".css";
                    if(!is_file($newFile)) {
                        $compiledContent = self::compile($path, $source);
                        File::put($newFile, $compiledContent);
                    }

                    $body = str_replace($tag,
                        str_replace("stylesheet/less", "stylesheet",
                            str_replace($source,
                                str_replace(PIMCORE_DOCUMENT_ROOT, "", $newFile)
                            ,$tag))
                    , $body);
                }
            }
        }

        return $body;
    }

    /**
     * old version incl. combining and using simple_dom_html
     *
     *
     *public static function processHtmlLEGACY ($body) {
        $html = str_get_html($body);

        if(!$html) {
            return $body;
        }

        $styles = $html->find("link[rel=stylesheet/less]");

        $stylesheetContents = array();
        $processedPaths = array();

        foreach ($styles as $style) {

            $media = $style->media;
            if(!$media) {
                $media = "all";
            }

            $source = $style->href;
            $path = "";
            if (is_file(PIMCORE_ASSET_DIRECTORY . $source)) {
                $path = PIMCORE_ASSET_DIRECTORY . $source;
            }
            else if (is_file(PIMCORE_DOCUMENT_ROOT . $source)) {
                $path = PIMCORE_DOCUMENT_ROOT . $source;
            }

            // add the same file only one time
            if(in_array($path, $processedPaths)) {
                continue;
            }

            if (is_file("file:/".$path)) {

                $compiledContent = self::compile($path, $source);

                $stylesheetContents[$media] .= $compiledContent . "\n";
                $style->outertext = "";

                $processedPaths[] = $path;
            }
        }

        // put compiled contents into single files, grouped by their media type
        if(count($stylesheetContents) > 0) {
            $head = $html->find("head",0);
            foreach ($stylesheetContents as $media => $content) {
                $stylesheetPath = PIMCORE_TEMPORARY_DIRECTORY."/less_".md5($content).".css";

                if(!is_file($stylesheetPath)) {
                    file_put_contents($stylesheetPath, $content);
                    @chmod($stylesheetPath, 0766);
                }

                $head->innertext = $head->innertext . "\n" . '<link rel="stylesheet" media="' . $media . '" type="text/css" href="' . str_replace(PIMCORE_DOCUMENT_ROOT,"",$stylesheetPath) . '" />'."\n";
            }
        }

        $body = $html->save();

        return $body;
    }*/

    public static function compile ($path, $source = null) {

        $conf = \Pimcore\Config::getSystemConfig();
        $compiledContent = "";

        // check if the file is already compiled in the cache
        //$cacheKey = "less_file_" . md5_file($path);
        //if($contents = Pimcore_Model_Cache::load($cacheKey)) {
        //    return $contents;
        //}

        // use the original less compiler if configured
        if($conf->outputfilters->lesscpath) {
            $output = array();
            exec($conf->outputfilters->lesscpath . " " . $path, $output);
            $compiledContent = implode(" ",$output);

            // add a comment to the css so that we know it's compiled by lessc
            if(!empty($compiledContent)) {
                $compiledContent = "\n\n/**** compiled with lessc (node.js) ****/\n\n" . $compiledContent;
            }
        }

        // use php implementation of lessc if it doesn't work
        if(empty($compiledContent)) {
            $parser = new \Less_Parser();
            $parser->parse(file_get_contents($path));
            $compiledContent = $parser->getCss();

            // add a comment to the css so that we know it's compiled by lessphp
            $compiledContent = "\n\n/**** compiled with lessphp/Less_Parser ****/\n\n" . $compiledContent;
        }

        if($source) {
            // correct references inside the css
            $compiledContent = self::correctReferences($source, $compiledContent);
        }

        // put the compiled contents into the cache
        //Pimcore_Model_Cache::save($compiledContent, $cacheKey, array("less"));

        return $compiledContent;
    }


    protected static function correctReferences ($base, $content) {
        // check for url references
        preg_match_all("/url\((.*)\)/iU", $content, $matches);
        foreach ($matches[1] as $ref) {

            // do some corrections
            $ref = str_replace('"',"",$ref);
            $ref = str_replace(' ',"",$ref);
            $ref = str_replace("'","",$ref);

            $path = self::correctUrl($ref, $base);

            //echo $ref . " - " . $path . " - " . $url . "<br />";

            $content = str_replace($ref,$path,$content);
        }

        return $content;
    }


    protected static function correctUrl ($rel, $base) {
        /* return if already absolute URL */
        if (parse_url($rel, PHP_URL_SCHEME) != '') return $rel;

        /* queries and anchors */
        if ($rel[0]=='#' || $rel[0]=='?') return $base.$rel;

        /* parse base URL and convert to local variables:
           $scheme, $host, $path */
        extract(parse_url($base));

        /* remove non-directory element from path */
        $path = preg_replace('#/[^/]*$#', '', $path);

        /* destroy path if relative url points to root */
        if ($rel[0] == '/') $path = '';

        /* dirty absolute URL */
        $abs = "$path/$rel";

        /* replace '//' or '/./' or '/foo/../' with '/' */
        $re = array('#(/\.?/)#', '#/(?!\.\.)[^/]+/\.\./#');
        for($n=1; $n>0; $abs=preg_replace($re, '/', $abs, -1, $n)) {}

        /* absolute URL is ready! */
        return $abs;
    }
}
