compressor.php

<?php
/**
 * @author Abhimanyu Sharma <abhimanyusharma003@gmail.com>
 * @copyright Abhimanyu Sharma [abhimanyusharma003]
 * @licence http://codecanyon.net/licenses/regular [ for single application ]
 * @version 2.2
 */


// Main settings

$dwcSetting = [
    'compress'         => true,
    'cache-folder'     => 'AUTO',
    'minify-css-files' => true,
    'minify-js-files'  => true,
];


// MIME type settings read more on wikipedia about mime type

$dwcMimeType = [
    'css' => 'text/css',
    'js'  => 'text/javascript'
];


// js and css file headers settings

$dwcHeaders = [
    'expire'        => (24 * 60 * 60) * 7, // 7 days in seconds
    'cache-control' => 'must-revalidate',
    'vary'          => 'Accept-Encoding'
];


//----------------------------------------------------------------------------------------------
//                                DO NOT MODIFY ANY THING BELOW THIS
//----------------------------------------------------------------------------------------------

if ($dwcSetting['cache-folder'] == 'AUTO') {
    $cacheDir = dirname(__FILE__) . '/dwccache';
} else {
    $cacheDir = $dwcSetting['cache-folder'];
}

if (!empty($_GET['dwc-debug']) && isset($_GET['dwc-debug'])) {
    if ($_GET['dwc-debug'] == true) {
        $dwcSetting['compress'] = false;
    }
}

$GLOBALS['compressor']['clear'] = false;
if (!empty($_GET['dwc-clear-cache']) && isset($_GET['dwc-clear-cache'])) {
    if ($_GET['dwc-clear-cache'] == true) {
        $dwcSetting['compress'] = false;
        $GLOBALS['compressor']['clear'] = true;
    }
}

// Main cache dir 'dwccache'
if (!is_dir($cacheDir)) {
    mkdir($cacheDir, 0777) or die('Unable to create dwccache cache folder');
}

// JS file cache dir
if (!is_dir($cacheDir . '/js')) {
    mkdir($cacheDir . '/js', 0777) or die('Unable to create css cache folder');
}

// CSS file cache dir
if (!is_dir($cacheDir . '/css')) {
    mkdir($cacheDir . '/css', 0777) or die('Unable to create css cache folder');
}


if (preg_match('/.css/', $_SERVER['QUERY_STRING']) && $dwcSetting['minify-css-files'] == true) {
    cssFileCreate($_SERVER['QUERY_STRING']);
}

if (preg_match('/.js/', $_SERVER['QUERY_STRING']) && $dwcSetting['minify-js-files'] == true) {
    jsFileCreate($_SERVER['QUERY_STRING']);
}


function jsFileCreate($queryString)
{
    global $cacheDir, $dwcMimeType;

    $content = explode('?', urldecode($queryString));
    @$content = file_get_contents($content[0]);
    if ($content == false) {
        header("content-type: text/javascript; charset: UTF-8");
        $content = 'alert("DWC: Sorry, On the fly minification of JavaScript FILES will not work on your script, Please disable it. Rest all will work fine")';
        echo $content;
        exit();
    }
    $cache = new DwcCache($cacheDir . '/js');
    $md = md5($content);

    $data = $cache->get($md);
    if ($data == false) {
        $data = jsFileOptimizer($content);
        $cache->set($md, $data);
    }
    _compress($data, $dwcMimeType['js'], $cache->getTime($md));

}

function jsFileOptimizer($js)
{
    $comp = new CompJS($js);
    return trim($comp->compressor_function($js));
}


function cssFileCreate($queryString)
{
    global $cacheDir, $dwcMimeType;

    $content = explode('?', urldecode($queryString));
    @$content = file_get_contents($content[0]);
    if ($content == false) {
        header("content-type: text/css; charset: UTF-8");
        $content = '*{ background:red;}.body{background:red;}';
        echo $content;
        exit();
    }
    $cache = new DwcCache($cacheDir . '/css');
    $md = md5($content);

    $data = $cache->get($md);
    if ($data == false) {
        $data = cssFileOptimizer($content);
        $cache->set($md, $data);
    }
    _compress($data, $dwcMimeType['css'], $cache->getTime($md));

}

function cssFileOptimizer($str)
{
    $str = preg_replace('!/\*.*?\*/!s', '', $str);
    $str = preg_replace('/\s*([{}|:;,])\s+/', '$1', $str);
    $str = preg_replace('/\s\s+(.*)/', '$1', $str);
    $str = str_replace(';}', '}', $str);

    return trim($str);
}

function _compress($data, $mime, $timestamp)
{

    global $dwcHeaders;

    $expire = "expires: " . gmdate("D, d M Y H:i:s", time() + $dwcHeaders['expire']) . " GMT";

    ob_start("ob_gzhandler");
    header("content-type: {$mime}; charset: UTF-8");
    header("cache-control: {$dwcHeaders['cache-control']}");
    header($expire);
    header("Vary: {$dwcHeaders['vary']}");
    header('Last-Modified: ' . gmdate('D, d M Y H:i:s', $timestamp) . ' GMT');

    echo $data;

}


class CompJS
{
    const LF = 10;
    const SP = 32;
    const KPA = 1;
    const DEA = 2;
    const DEAB = 3;
    protected $a = '';
    protected $b = '';
    protected $inp = '';
    protected $inpI = 0;
    protected $inpL = 0;
    protected $la = null;
    protected $op = '';

    public function __construct($input)
    {
        $this->inp = str_replace("\r\n", "\n", $input);
        $this->inpL = strlen($this->inp);
    }

    function compressor_function($js)
    {
        $jsmin = new CompJS($js);
        return $jsmin->min();
    }

    protected function min()
    {
        if (0 == strncmp($this->pk(), "\xef", 1)) {
            $this->put();
            $this->put();
            $this->put();
        }

        $this->a = "\n";
        $this->act(self::DEAB);

        while ($this->a !== null) {
            switch ($this->a) {
                case ' ':
                    if ($this->isAN($this->b)) {
                        $this->act(self::KPA);
                    } else {
                        $this->act(self::DEA);
                    }
                    break;

                case "\n":
                    switch ($this->b) {
                        case '{':
                        case '[':
                        case '(':
                        case '+':
                        case '-':
                        case '!':
                        case '~':
                            $this->act(self::KPA);
                            break;

                        case ' ':
                            $this->act(self::DEAB);
                            break;

                        default:
                            if ($this->isAN($this->b)) {
                                $this->act(self::KPA);
                            } else {
                                $this->act(self::DEA);
                            }
                    }
                    break;

                default:
                    switch ($this->b) {
                        case ' ':
                            if ($this->isAN($this->a)) {
                                $this->act(self::KPA);
                                break;
                            }

                            $this->act(self::DEAB);
                            break;

                        case "\n":
                            switch ($this->a) {
                                case '}':
                                case ']':
                                case ')':
                                case '+':
                                case '-':
                                case '"':
                                case "'":
                                    $this->act(self::KPA);
                                    break;

                                default:
                                    if ($this->isAN($this->a)) {
                                        $this->act(self::KPA);
                                    } else {
                                        $this->act(self::DEAB);
                                    }
                            }
                            break;

                        default:
                            $this->act(self::KPA);
                            break;
                    }
            }
        }

        return $this->op;
    }

    protected function pk()
    {
        $this->la = $this->put();
        return $this->la;
    }

    protected function put()
    {
        $c = $this->la;
        $this->la = null;

        if ($c === null) {
            if ($this->inpI < $this->inpL) {
                $c = substr($this->inp, $this->inpI, 1);
                $this->inpI += 1;
            } else {
                $c = null;
            }
        }

        if ($c === "\r") {
            return "\n";
        }

        if ($c === null || $c === "\n" || ord($c) >= self::SP) {
            return $c;
        }

        return ' ';
    }

    protected function act($command)
    {
        switch ($command) {
            case self::KPA:
                $this->op .= $this->a;

            case self::DEA:
                $this->a = $this->b;

                if ($this->a === "'" || $this->a === '"') {
                    for (; ;) {
                        $this->op .= $this->a;
                        $this->a = $this->put();

                        if ($this->a === $this->b) {
                            break;
                        }

                        if (ord($this->a) <= self::LF) {
                            throw new CompJSException('Unterminated string literal.');
                        }

                        if ($this->a === '\\') {
                            $this->op .= $this->a;
                            $this->a = $this->put();
                        }
                    }
                }

            case self::DEAB:
                $this->b = $this->nt();

                if ($this->b === '/' && (
                        $this->a === '(' || $this->a === ',' || $this->a === '=' ||
                        $this->a === ':' || $this->a === '[' || $this->a === '!' ||
                        $this->a === '&' || $this->a === '|' || $this->a === '?' ||
                        $this->a === '{' || $this->a === '}' || $this->a === ';' ||
                        $this->a === "\n")
                ) {

                    $this->op .= $this->a . $this->b;

                    for (; ;) {
                        $this->a = $this->put();

                        if ($this->a === '[') {
                            for (; ;) {
                                $this->op .= $this->a;
                                $this->a = $this->put();

                                if ($this->a === ']') {
                                    break;
                                } elseif ($this->a === '\\') {
                                    $this->op .= $this->a;
                                    $this->a = $this->put();
                                } elseif (ord($this->a) <= self::LF) {
                                    throw new CompJSException('Regex literal.');
                                }
                            }
                        } elseif ($this->a === '/') {
                            break;
                        } elseif ($this->a === '\\') {
                            $this->op .= $this->a;
                            $this->a = $this->put();
                        } elseif (ord($this->a) <= self::LF) {
                            throw new CompJSException('Regex literal.');
                        }

                        $this->op .= $this->a;
                    }

                    $this->b = $this->nt();
                }
        }
    }

    protected function nt()
    {
        $c = $this->put();

        if ($c === '/') {
            switch ($this->pk()) {
                case '/':
                    for (; ;) {
                        $c = $this->put();

                        if (ord($c) <= self::LF) {
                            return $c;
                        }
                    }

                case '*':
                    $this->put();

                    for (; ;) {
                        switch ($this->put()) {
                            case '*':
                                if ($this->pk() === '/') {
                                    $this->put();
                                    return ' ';
                                }
                                break;

                            case null:
                                throw new CompJSException('Unterminated comment');
                        }
                    }

                default:
                    return $c;
            }
        }

        return $c;
    }

    protected function isAN($c)
    {
        return ord($c) > 126 || $c === '\\' || preg_match('/^[\w\$]$/', $c) === 1;
    }
}

class DwcCache
{

    function __construct($dir)
    {
        $this->dir = $dir;
    }

    public function get($key)
    {

        if (!is_dir($this->dir)) {
            return false;
        }

        $cache_path = $this->_name($key);

        if (!@file_exists($cache_path)) {
            return false;
        }

        if (!$fp = @fopen($cache_path, 'rb')) {
            return false;
        }

        flock($fp, LOCK_SH);


        if (filesize($cache_path) > 0) {
            $cache = unserialize(fread($fp, filesize($cache_path)));
        } else {
            $cache = null;
        }

        flock($fp, LOCK_UN);
        fclose($fp);

        return $cache;
    }

    private function _name($key)
    {
        return sprintf("%s/%s", $this->dir, sha1($key));
    }

    public function getTime($key)
    {
        $cache_path = $this->_name($key);
        return filemtime($cache_path);
    }

    public function set($key, $data)
    {

        if (!is_dir($this->dir) OR !is_writable($this->dir)) {
            return false;
        }

        $cache_path = $this->_name($key);

        if (!$fp = fopen($cache_path, 'wb')) {
            return false;
        }

        if (flock($fp, LOCK_EX)) {
            fwrite($fp, serialize($data));
            flock($fp, LOCK_UN);
        } else {
            return false;
        }
        fclose($fp);
        @chmod($cache_path, 0777);
        return true;
    }
}


function compressor_ob_handler($start_buffer)
{
    static $file_html = false;
    if (!$file_html) {
        if (stripos($start_buffer, '<html') !== false) {
            $file_html = true;
        } else {
            return $start_buffer;
        }
    }

    $start_buffer = protect_pretag($start_buffer);
    $start_buffer = protect_textarea($start_buffer);
    $start_buffer = protect_escapes($start_buffer);

    $start_buffer = preg_replace('/<script(?!.*(src\=))[^>]*>(\s+)?<!--/', '<script type="text/javascript"> ', $start_buffer);
    $start_buffer = preg_replace('/(\/\/)?-->(\s+)?<\/script>/', '</script>', $start_buffer);

    // CDATA
    $start_buffer = preg_replace('/^(?:\s*\/\*\s*<!\[CDATA\[\s*\*\/|\s*\/\/\s*<!\[CDATA\[.*)/', ' ', $start_buffer);
    $start_buffer = preg_replace('/(?:\/\*\s*\]\]>\s*\*\/|\/\/\s*\]\]>)\s*$/', ' ', $start_buffer);
    $start_buffer = preg_replace('/\/\/]](>|&gt;)/', '', $start_buffer);
    $start_buffer = preg_replace('/\/\*<!\[CDATA\[\*\//', ' ', $start_buffer);
    $start_buffer = preg_replace('/\/\*]]>\*\//', ' ', $start_buffer);
    //CDATA

    $start_buffer = preg_replace('/(<|<)!--(\s){0,1}?(?!<)(?!(\s+)?.(\s+)?(<)?[ifIFIfiF<!])(<)?\s*.*?\s*--((\s){0,3})?(>|>)/s', ' ', $start_buffer);
    $start_buffer = preg_replace('/<script(?!.*(src\=))[^>]*>/', '<script type="text/javascript"> ', $start_buffer);

    $start_buffer = preg_replace_callback('/<\s*script(?![^>]*\.js)[^>]*>(.*?)<\/script>/s', 'dwcMinifyJS', $start_buffer);

    $start_buffer = preg_replace('/>[^\S]+</', '> <', $start_buffer);
    $start_buffer = str_replace(["\n", "\t"], ' ', $start_buffer);
    $start_buffer = preg_replace('/\s{3,}/', ' ', $start_buffer);


    $start_buffer = str_replace('1NS3R7N3WL1N3', "\n", $start_buffer);


    $start_buffer = str_replace('"src=', '" src=', $start_buffer);
    $start_buffer = str_replace('\'src=', '\' src=', $start_buffer);
    $start_buffer = str_replace('"type=', '" type=', $start_buffer);
    $start_buffer = str_replace('\'type=', '\' type=', $start_buffer);

    $start_buffer = clean_escapes($start_buffer);

    return $start_buffer;
}

function clean_escapes($str)
{
    $str = " " . $str;
    $parts = preg_split("/(< \s* dwcescape .* \/ \s* dwcescape \s* >)/Umsxu", $str, -1, PREG_SPLIT_DELIM_CAPTURE);
    $parts = str_replace(['<dwcescape>', '</dwcescape>'], '', $parts);
    foreach ($parts as $idx => $part) {
        if ($idx % 2) {
            $parts[$idx] = base64_decode($part);
        }
    }
    $str = implode('', $parts);
    return substr($str, 1);

}


function protect_escapes($str)
{
    $str = " " . $str;
    $parts = preg_split("/(< \s* dwcescape .* \/ \s* dwcescape \s* >)/Umsxu", $str, -1, PREG_SPLIT_DELIM_CAPTURE);
    $parts = str_replace(['<dwcescape>', '</dwcescape>'], '', $parts);
    foreach ($parts as $idx => $part) {
        if ($idx % 2) {
            $parts[$idx] = '<dwcescape>' . base64_encode($part) . '</dwcescape>';
        }
    }
    $str = implode('', $parts);
    return substr($str, 1);

}

function protect_textarea($str)
{
    $str = " " . $str;
    $parts = preg_split("/(< \s* textarea .* \/ \s* textarea \s* >)/Umsxu", $str, -1, PREG_SPLIT_DELIM_CAPTURE);
    foreach ($parts as $idx => $part) {
        if ($idx % 2) {
            $parts[$idx] = str_replace("\n", "1NS3R7N3WL1N3", $part);
        }
    }
    $str = implode('', $parts);
    return substr($str, 1);
}


function protect_pretag($str)
{
    $str = " " . $str;
    $parts = preg_split("/(< \s* pre .* \/ \s* pre \s* >)/Umsxu", $str, -1, PREG_SPLIT_DELIM_CAPTURE);
    foreach ($parts as $idx => $part) {
        if ($idx % 2) {
            $parts[$idx] = str_replace("\n", "1NS3R7N3WL1N3", $part);
        }
    }
    $str = implode('', $parts);
    return substr($str, 1);
}

function protect_script($str)
{
    $str = " " . $str;
    $parts = preg_split("/(< \s* script .* \/ \s* script \s* >)/Umsxu", $str, -1, PREG_SPLIT_DELIM_CAPTURE);
    foreach ($parts as $idx => $part) {
        if ($idx % 2) {
            $parts[$idx] = str_replace("\n", "1NS3R7N3WL1N3", $part);
        }
    }
    $str = implode('', $parts);
    return substr($str, 1);
}

function dwcMinifyJS($js)
{
    global $cacheDir;

    if (!is_dir($cacheDir . '/inlineJs')) {
        mkdir($cacheDir . '/inlineJs', 0777) or die('Unable to create css cache folder');
    }

    $cache = new DwcCache($cacheDir . '/inlineJs');
    $md = md5($js[0]);
    $data = $cache->get($md);
    if ($data === false) {
        $comp = new CompJS($js[0]);
        $data = $comp->compressor_function($js[0]);
        $data = protect_script($data);
        $cache->set($md, $data);
    }
    return $data;
}


function dwcDeleteDir($dirPath)
{
    $content = scandir($dirPath);
    unset($content[0], $content[1]);
    foreach ($content as $filename) {
        if (is_dir($path = $dirPath . '/' . $filename)) {
            dwcDeleteDir($path);
        } else {
            unlink($dirPath . '/' . $filename);
        }
    }
    rmdir($dirPath);
}

if ($dwcSetting['compress'] == true) {
    ob_start('compressor_ob_handler');
}
if ($GLOBALS['compressor']['clear'] == true) {
    dwcDeleteDir($cacheDir);
}
//////////////////// DO NOT EDIT ABOVE THIS ///////////////////////////////////////////////