xoopscube/altsys

<?php
/**
 * Altsys library (UI-Components) for D3 modules
 * Get templates vars info
 * @package    Altsys
 * @version    XCL 2.3.3
 * @author     Other authors gigamaster, 2020 XCL/PHP7
 * @author     Gijoe (Peak)
 * @copyright  (c) 2005-2023 Authors
 * @license    GPL v2.0
 */

error_reporting( 0 );

include_once __DIR__ . '/include/gtickets.php';
include_once __DIR__ . '/include/altsys_functions.php';


// this page can be called only from altsys
if ( 'altsys' != $xoopsModule->getVar( 'dirname' ) ) {
    die( 'this page can be called only from altsys' );
}


// language file
altsys_include_language_file( 'compilehookadmin' );


$dw_snippets_dirname = 'files';
$site_name           = @$_SERVER['HTTP_HOST'];
if ( ! preg_match( '/^[0-9A-Za-z._-]+$/', $site_name ) ) {
    $site_name = 'xoops_site';
}


/**
 * @param $var_name
 * @param $var_value
 * @param $sum_array_name
 */
function convert_array2info_recursive( $var_name, $var_value, $sum_array_name ) {
    switch ( gettype( $var_value ) ) {
        case 'array':
            foreach ( $var_value as $key => $val ) {
                if ( 'integer' == gettype( $key ) ) {
                    $GLOBALS[ $sum_array_name ][ $var_name ] = '(array)';
                    continue;
                }
                convert_array2info_recursive( $var_name . '.' . $key, $val, $sum_array_name );
            }

            return;
        case 'string':
            $GLOBALS[ $sum_array_name ][ $var_name ] = $var_value;

            return;
        case 'boolean':
        case 'integer':
        case 'float':
        case 'double':
            $GLOBALS[ $sum_array_name ][ $var_name ] = (string) $var_value;

            return;
        case 'null':
            $GLOBALS[ $sum_array_name ][ $var_name ] = '(null)';

            return;
        case 'object':
            $GLOBALS[ $sum_array_name ][ $var_name ] = '(object)';

            return;
        default:
            return;
    }
}

/**
 * @param $mxi_name
 * @param $file_entries
 *
 * @return string
 */
function get_mxi_body( $mxi_name, $file_entries ) {
    global $site_name;

    return '<macromedia-extension name="XOOPS-' . $site_name . ' ' . $mxi_name . '" version="1.0" type="Suite" requires-restart="true">
    <products>
        <product name="Dreamweaver" version="6" primary="true" />
    </products>
    <author name="GIJOE"/>
    <license-agreement><![CDATA[

XoopsDWSnipettets is published under the CC-GNU LGPL
https://creativecommons.org/licenses/LGPL/2.1/

(C) 2006-2023 GIJOE https://peak.ne.jp/

    ]]></license-agreement>
    <description><![CDATA[

Usable template variables in ' . $mxi_name . '

    ]]></description>
    <ui-access><![CDATA[

Available template-variables.
For more information:
https://www.peak.ne.jp/xoops/

    ]]></ui-access>
    <files>
' . $file_entries . '
    </files>
    <configuration-changes>
    </configuration-changes>
</macromedia-extension>';
}


// TOTAL STAGE

$tplsvarsinfo_mod_tpl = [];
$tplsvarsinfo_total   = [];

if ( $handler = opendir( XOOPS_COMPILE_PATH . '/' ) ) {
    while ( false !== ( $file = readdir( $handler ) ) ) {
        // skip files other than tplsvars_* files

        if ( 'tplsvars_' !== substr( $file, 0, 9 ) ) {
            continue;
        }

        // 'tplsvars_'.(randomized 4byte).'_'.(tpl_file)

        $tpl_name = substr( $file, 14 );

        if ( ! preg_match( '/^[%0-9A-Za-z._-]+$/', $tpl_name ) ) {
            continue;
        }
        $file_path = XOOPS_COMPILE_PATH . '/' . $file;
        $file_body = implode( '', file( $file_path ) );
        $tplsvars  = @unserialize( $file_body );
        if ( ! is_array( $tplsvars ) ) {
            $tplsvars = [];
        }
        $GLOBALS['tplsvarsinfo'] = [];
        convert_array2info_recursive( '', $tplsvars, 'tplsvarsinfo' );

        if ( mb_strstr( $tpl_name, '%' ) ) {
            $mod_name = 'theme_etc';
        } else {
            list( $mod_name ) = explode( '_', $tpl_name );
        }
        $tplsvarsinfo_mod_tpl[ $mod_name ][ $tpl_name ] = $tplsvarsinfo;
        $tplsvarsinfo_total                             = array_merge( $tplsvarsinfo_total, $tplsvarsinfo );
    }
} else {
    die( 'XOOPS_COMPILE_PATH cannot be opened' );
}


// Redirect message if empty templates variables
if ( empty( $tplsvarsinfo_total ) ) {
    redirect_header( '?mode=admin&lib=altsys&page=compilehookadmin', 3, _TPLSADMIN_ERR_NOTPLSVARSINFO );
    exit;
}


// FOR DREAMWEAVER

$snippet_format = '<?xml version="1.0" encoding="utf-8"?>
<snippet name = "%1$s" description = "%2$s" preview="code" type="block">
<insertText location="beforeSelection">
<![CDATA[<{$%1$s}>]]>
</insertText>
<insertText location="afterSelection"><![CDATA[]]>
</insertText>
</snippet>';


if ( ! empty( $_POST['as_dw_extension_zip'] ) ) {
    require_once XOOPS_ROOT_PATH . '/class/zipdownloader.php';
    $downloader  = new XoopsZipDownloader();
    $do_download = true;
} elseif ( ! empty( $_POST['as_dw_extension_tgz'] ) ) {
    require_once XOOPS_ROOT_PATH . '/class/tardownloader.php';
    $downloader  = new XoopsTarDownloader();
    $do_download = true;
}

if ( ! empty( $do_download ) ) {
    //fix for mb_http_output setting and for add any browsers
    if ( function_exists( 'mb_http_output' ) ) {
        mb_http_output( 'pass' );
    }
    //ob_buffer over flow
    //HACK by suin & nao-pon 2012/01/06
    while ( ob_get_level() > 0 ) {
        if ( ! ob_end_clean() ) {
            break;
        }
    }
    // make files for each tplsvars
    foreach ( $tplsvarsinfo_total as $key => $val ) {
        $name = mb_substr( $key, 1 );

        // TODO @gigamaster only variables can be passed by reference
        //$description = htmlspecialchars( xoops_utf8_encode( xoops_substr( $val, 0, 191 ) ), ENT_QUOTES );
        $textval = xoops_substr($val, 0, 191);
        $description = htmlspecialchars( xoops_utf8_encode($textval), ENT_QUOTES );
        
        $snippet_body = sprintf( $snippet_format, $name, $description );

        $file_name = strtr( $key, '.', '_' ) . '.csn';

        $downloader->addFileData( $snippet_body, $dw_snippets_dirname . '/' . $file_name );
    }

    // make a mxi file per module
    foreach ( $tplsvarsinfo_mod_tpl as $mod_name => $tplsvarsinfo_tpl ) {
        $file_entries = '';
        foreach ( $tplsvarsinfo_tpl as $tpl_name => $tplsvarsinfo ) {
            foreach ( $tplsvarsinfo as $key => $val ) {
                $name = mb_substr( $key, 1 );

                $file_name = strtr( $key, '.', '_' ) . '.csn';

                $file_entries .= "\t\t" . '<file name="' . $dw_snippets_dirname . '/' . $file_name . '" destination="$Dreamweaver/Configuration/Snippets/XOOPS-' . $site_name . '/' . $tpl_name . '" />' . "\n";
            }
        }
        $mxi_body = get_mxi_body( $mod_name, $file_entries );
        $downloader->addFileData( $mxi_body, $mod_name . '.mxi' );
    }
    //bugfix by nao-pon ,echo is not necessary for downloader
    $downloader->download( 'tplsvarsinfo', true );
}