Просмотр архива Contao (бывшая TYPOlight)


<?php

/**
 * Contao Open Source CMS
 *
 * Copyright (c) 2005-2016 Leo Feyer
 *
 * @license LGPL-3.0+
 */

namespace Contao;


/**
 * Back end module "autoload files".
 *
 * @author Leo Feyer <https://github.com/leofeyer>
 */
class ModuleAutoload extends BackendModule
{

    /**
     * Template
     * @var string
     */
    protected $strTemplate = 'dev_autoload';


    /**
     * Generate the module
     */
    protected function compile()
    {
        System::loadLanguageFile('tl_autoload');

        // Process the request
        if (Input::post('FORM_SUBMIT') == 'tl_autoload')
        {
            $this->createAutoloadFiles();
            $this->reload();
        }

        $arrModules = array();

        // List all modules
        foreach (scan(TL_ROOT . '/system/modules') as $strFile)
        {
            if (strncmp($strFile, '.', 1) === 0 || !is_dir(TL_ROOT . '/system/modules/' . $strFile))
            {
                continue;
            }

            $arrModules[] = $strFile;
        }

        $this->Template->modules = $arrModules;
        $this->Template->messages = Message::generate();
        $this->Template->href = $this->getReferer(true);
        $this->Template->title = specialchars($GLOBALS['TL_LANG']['MSC']['backBTTitle']);
        $this->Template->button = $GLOBALS['TL_LANG']['MSC']['backBT'];
        $this->Template->headline = $GLOBALS['TL_LANG']['tl_autoload']['headline'];
        $this->Template->action = ampersand(Environment::get('request'));
        $this->Template->available = $GLOBALS['TL_LANG']['tl_autoload']['available'];
        $this->Template->xplAvailable = $GLOBALS['TL_LANG']['tl_autoload']['xplAvailable'];
        $this->Template->selectAll = $GLOBALS['TL_LANG']['MSC']['selectAll'];
        $this->Template->override = $GLOBALS['TL_LANG']['tl_autoload']['override'];
        $this->Template->xplOverride = $GLOBALS['TL_LANG']['tl_autoload']['xplOverride'];
        $this->Template->submitButton = specialchars($GLOBALS['TL_LANG']['MSC']['continue']);
        $this->Template->autoload = $GLOBALS['TL_LANG']['tl_autoload']['autoload'];
        $this->Template->ideCompat = $GLOBALS['TL_LANG']['tl_autoload']['ideCompat'];
    }


    /**
     * Generate the autoload.php files
     */
    protected function createAutoloadFiles()
    {
        $arrModules = Input::post('modules');

        if (empty($arrModules))
        {
            Message::addError($GLOBALS['TL_LANG']['tl_autoload']['emptySelection']);

            return;
        }

        $intYear = date('Y');

        foreach ($arrModules as $strModule)
        {
            // The autoload.php file exists
            if (!Input::post('override') && file_exists(TL_ROOT . '/system/modules/' . $strModule . '/config/autoload.php'))
            {
                Message::addInfo(sprintf($GLOBALS['TL_LANG']['tl_autoload']['autoloadExists'], $strModule));

                continue;
            }

            $intClassWidth = 0;
            $arrFiles = array();
            $arrClassLoader = array();
            $arrNamespaces = array();

            // Default configuration
            $arrDefaultConfig = array
            (
                'register_namespaces' => true,
                'register_classes'    => true,
                'register_templates'  => true,
            );

            // Create the autoload.ini file if it does not yet exist
            if (!file_exists(TL_ROOT . '/system/modules/' . $strModule . '/config/autoload.ini'))
            {
                $objIni = new File('system/modules/devtools/templates/dev_ini.html5', true);
                $objIni->copyTo('system/modules/' . $strModule . '/config/autoload.ini');
            }

            $arrDefaultConfig = array_merge($arrDefaultConfig, parse_ini_file(TL_ROOT . '/system/modules/' . $strModule . '/config/autoload.ini', true));

            /** @var SplFileInfo[] $objFiles */
            $objFiles = new RecursiveIteratorIterator(
                new RecursiveDirectoryIterator(
                    TL_ROOT . '/system/modules/' . $strModule,
                    FilesystemIterator::UNIX_PATHS|FilesystemIterator::FOLLOW_SYMLINKS|FilesystemIterator::SKIP_DOTS
                )
            );

            // Get all PHP files
            foreach ($objFiles as $objFile)
            {
                if (pathinfo($objFile->getFilename(), PATHINFO_EXTENSION) == 'php')
                {
                    $strRelpath = str_replace(TL_ROOT . '/system/modules/' . $strModule . '/', '', $objFile->getPathname());

                    if (strncmp($strRelpath, 'assets/', 7) !== 0 && strncmp($strRelpath, 'config/', 7) !== 0 && strncmp($strRelpath, 'dca/', 4) !== 0 && strncmp($strRelpath, 'languages/', 10) !== 0 && strncmp($strRelpath, 'templates/', 10) !== 0)
                    {
                        $arrFiles[] = $strRelpath;
                    }
                }
            }

            // Scan for classes
            foreach ($arrFiles as $strFile)
            {
                $arrConfig = $arrDefaultConfig;

                // Search for a path configuration (see #4776)
                foreach ($arrDefaultConfig as $strPattern=>$arrPathConfig)
                {
                    // Merge the path configuration with the global configuration
                    if (is_array($arrPathConfig) && fnmatch($strPattern, $strFile))
                    {
                        $arrConfig = array_merge($arrDefaultConfig, $arrPathConfig);
                        break;
                    }
                }

                // Continue if neither namespaces nor classes shall be registered
                if (!$arrConfig['register_namespaces'] && !$arrConfig['register_classes'])
                {
                    continue;
                }

                $strBuffer = '';
                $arrMatches = array();

                // Store the file size for fread()
                $size = filesize(TL_ROOT . '/system/modules/' . $strModule . '/' . $strFile);
                $fh = fopen(TL_ROOT . '/system/modules/' . $strModule . '/' . $strFile, 'rb');

                // Read until a class or interface definition has been found
                while (!preg_match('/(class|interface) ' . preg_quote(basename($strFile, '.php'), '/') . '/', $strBuffer, $arrMatches) && $size > 0 && !feof($fh))
                {
                    $length = min(512, $size);
                    $strBuffer .= fread($fh, $length);
                    $size -= $length; // see #4876
                }

                fclose($fh);

                // The file does not contain a class or interface
                if (empty($arrMatches))
                {
                    continue;
                }

                $strNamespace = preg_replace('/^.*namespace ([^; ]+);.*$/s', '$1', $strBuffer);

                // No namespace declaration found
                if ($strNamespace == $strBuffer)
                {
                    $strNamespace = '';
                }

                unset($strBuffer);

                // Register the namespace
                if ($strNamespace != '')
                {
                    if ($arrConfig['register_namespaces'] && $strNamespace != 'Contao')
                    {
                        // Register only the first chunk as namespace
                        if (strpos($strNamespace, '\') !== false)
                        {
                            $arrNamespaces[] = substr($strNamespace, 0, strpos($strNamespace, '\'));
                        }
                        else
                        {
                            $arrNamespaces[] = $strNamespace;
                        }
                    }

                    $strNamespace .=  '\';
                }

                // Register the class
                if ($arrConfig['register_classes'])
                {
                    $strKey = $strNamespace . basename($strFile, '.php');
                    $arrClassLoader[$strKey] = 'system/modules/' . $strModule . '/' . $strFile;
                    $intClassWidth = max(strlen($strKey), $intClassWidth);
                }
            }

            $intTplWidth = 0;
            $arrTplLoader = array();

            // Scan for templates
            if (is_dir(TL_ROOT . '/system/modules/' . $strModule . '/templates'))
            {
                /** @var SplFileInfo[] $objFiles */
                $objFiles = new RecursiveIteratorIterator(
                    new RecursiveDirectoryIterator(
                        TL_ROOT . '/system/modules/' . $strModule . '/templates',
                        FilesystemIterator::UNIX_PATHS|FilesystemIterator::FOLLOW_SYMLINKS|FilesystemIterator::SKIP_DOTS
                    )
                );

                foreach ($objFiles as $objFile)
                {
                    $arrConfig = $arrDefaultConfig;
                    $strRelpath = str_replace(TL_ROOT . '/system/modules/' . $strModule . '/', '', $objFile->getPathname());

                    // Search for a path configuration (see #4776)
                    foreach ($arrDefaultConfig as $strPattern=>$arrPathConfig)
                    {
                        // Merge the path configuration with the global configuration
                        if (is_array($arrPathConfig) && fnmatch($strPattern, $strRelpath))
                        {
                            $arrConfig = array_merge($arrDefaultConfig, $arrPathConfig);
                            break;
                        }
                    }

                    // Continue if templates shall not be registered
                    if (!$arrConfig['register_templates'])
                    {
                        continue;
                    }

                    $arrTplExts = trimsplit(',', Config::get('templateFiles'));
                    $strExtension = pathinfo($objFile->getFilename(), PATHINFO_EXTENSION);

                    // Add all known template types (see #5857)
                    if (in_array($strExtension, $arrTplExts))
                    {
                        $strRelpath = str_replace(TL_ROOT . '/', '', $objFile->getPathname());
                        $strKey = basename($strRelpath, strrchr($strRelpath, '.'));
                        $arrTplLoader[$strKey] = dirname($strRelpath);
                        $intTplWidth = max(strlen($strKey), $intTplWidth);
                    }
                }
            }

            // Neither classes nor templates found
            if (empty($arrNamespaces) && empty($arrClassLoader) && empty($arrTplLoader))
            {
                continue;
            }

            $objFile = new File('system/modules/' . $strModule . '/config/autoload.php', true);
            $objFile->write(
<<<EOT
<?php

/**
 * Contao Open Source CMS
 *
 * Copyright (c) 2005-$intYear Leo Feyer
 *
 * @license LGPL-3.0+
 */

EOT
            );

            // Namespaces
            if (!empty($arrNamespaces))
            {
                $arrNamespaces = array_unique($arrNamespaces);

                if (!empty($arrNamespaces))
                {
                    $objFile->append(
<<<EOT


/**
 * Register the namespaces
 */
ClassLoader::addNamespaces(array
(
EOT
                    );

                    foreach ($arrNamespaces as $strNamespace)
                    {
                        $objFile->append("t'" . $strNamespace . "',");
                    }

                    $objFile->append('));');
                }
            }

            // Classes
            if (!empty($arrClassLoader))
            {
                $objFile->append(
<<<EOT


/**
 * Register the classes
 */
ClassLoader::addClasses(array
(
EOT
                );

                $strGroup = null;

                foreach ($arrClassLoader as $strClass=>$strPath)
                {
                    $strRelpath = str_replace('system/modules/' . $strModule . '/', '', $strPath);
                    $strBasedir = substr($strRelpath, 0, strpos($strRelpath, '/'));

                    if ($strBasedir != '')
                    {
                        if ($strGroup === null)
                        {
                            $strGroup = $strBasedir;
                            $objFile->append("t// " . ucfirst($strBasedir));
                        }
                        elseif ($strBasedir != $strGroup)
                        {
                            $strGroup = $strBasedir;
                            $objFile->append("nt// " . ucfirst($strBasedir));
                        }
                    }

                    $strClass = "'" . $strClass . "'";
                    $objFile->append("t" . str_pad($strClass, $intClassWidth+2) . " => '$strPath',");
                }

                $objFile->append('));');
            }

            // Templates
            if (!empty($arrTplLoader))
            {
                $objFile->append(
<<<EOT


/**
 * Register the templates
 */
TemplateLoader::addFiles(array
(
EOT
                );

                foreach ($arrTplLoader as $strName=>$strPath)
                {
                    $strName = "'" . $strName . "'";
                    $objFile->append("t" . str_pad($strName, $intTplWidth+2) . " => '$strPath',");
                }

                $objFile->append('));');
            }

            $objFile->close();
            Message::addConfirmation(sprintf($GLOBALS['TL_LANG']['tl_autoload']['autoloadConfirm'], $strModule));
        }
    }
}