Просмотр архива Конструктор кмх


<?php

$page_=file($userpath.$currentdir.$editfile.'.wml');

$page_[0]='<?xml version="1.0" encoding="Utf-8"?><!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.2//EN" "http://www.wapforum.org/DTD/wml_1.2.xml"><wml><head><meta forua="true" http-equiv="Cache-Control" content="max-age=0,proxy-revalidate,must-revalidate"/></head>';

unset($page); array($page);

for ($i=0;$i<sizeof($page_);$i++) if (trim($page_[$i])!='') $page[]=trim($page_[$i])."n";

$page[sizeof($page)-1]='</p></card></wml>';



$meta_nostore='<head><meta forua="true" http-equiv="Cache-Control" content="no-cache,no-store,must-revalidate"/></head>';



if ($param1!='') {include($buildpath.'page_element.php');exit;}



print $head.cyr2utf('<card id="main" title="Структура страницы">'.

'<do name="x" type="options" label="xPanel"><go href="/?'.$id.'"/></do>'.

'<do name="m" type="options" label="Менеджер"><go href="/?'.$id.'/pm'.$dmpage.$mpage.'"/></do>'.

'<do name="n" type="options" label="Меню страницы"><go href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'"/></do>'.

'<do name="s" type="options" label="Смотреть"><go href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/show"/></do>'.

'<p align="center"><b>'.$editfile.'.wml<br/>---</b>');



if (($apage+0)>1) $tapage=$apage+0;

else $tapage=1;



if ($tapage<2) $dapage=$apage='';

else {$dapage='-';$apage=$apage+0;}



if ($tapage>1) print cyr2utf('<br/><a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/edit-'.($tapage-1).'">&lt;&lt;&lt;</a><br/>');



$nextpage=false;

$i=0;

$e=0;

$cntpage=1;

while (true)

    {

    $i++;

    $str=trim($page[$i]);

    if (substr($str,0,5)=='<!-- ') continue;

    if ($str=='</p></card></wml>') break;

    if ($i>sizeof($page)) break;

    $e++;

    if ( $e > 20 )

        {

        $cntpage++;

        $cntpage>

        $e=1;

        }

    if ($cntpage>$tapage) { $nextpage=true; break; }

    if ($cntpage!=$tapage) continue;



    $str=str_replace('<i>','',$str);$str=str_replace('</i>','',$str);

    $str=str_replace('<u>','',$str);$str=str_replace('</u>','',$str);

    $str=str_replace('<b>','',$str);$str=str_replace('</b>','',$str);

    $str=str_replace('<big>','',$str);$str=str_replace('</big>','',$str);

    $str=str_replace('<small>','',$str);$str=str_replace('</small>','',$str);



    $stra=explode(' ',trim($str));



    if (substr($str,-5)=='<br/>') {$br='&#xA4;';$str=substr($str,0,-5);} else $br='';



    switch ($stra[0])

        {

        case '<card':

            $stra=explode('" title="',$str);

            $stra=explode('"',$stra[1]);

            $str=$stra[0];

            $str=utf2cyr(html_entity_decode($str, ENT_QUOTES));

            if (strlen($str)>10) { $str=substr($str, 0, 7); $dot='...'; }

            else $dot='';

            $str=htmlspecialchars(cyr2utf($str), ENT_QUOTES);

            print cyr2utf('<br/><a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/edit'.$dapage.$apage.'/'.$i.'">Заголовок: ').$str.$dot.'</a>';

            break;

        case '<do':

            $stra=explode('label="',$str);

            $stra=explode('"',$stra[1]);

            $str=$stra[0];

            $str=utf2cyr(html_entity_decode($str, ENT_QUOTES));

            if (strlen($str)>10) { $str=substr($str, 0, 7); $dot='...'; }

            else $dot='';

            $str=htmlspecialchars(cyr2utf($str), ENT_QUOTES);

            print cyr2utf('<br/><a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/edit'.$dapage.$apage.'/'.$i.'">Soft-кнопка: ').$str.$dot.'</a>';

            break;

        case '<br/>':

            print '<br/><a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/edit'.$dapage.$apage.'/'.$i.'">&#xA4;</a>';

            break;

        case '<p':

        case '</p><p':

            $stra=explode('align="',$str);

            $stra=explode('"',$stra[1]);

            $algn=$stra[0];

            $stra=explode('mode="',$str);

            $stra=explode('"',$stra[1]);

            $wrp=$stra[0];

            print '<br/><a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/edit'.$dapage.$apage.'/'.$i.'">';

            if ($algn=='center') $prnt='-=-';

            elseif ($algn=='right') $prnt='-==';

            else $prnt='==-';

            if ($wrp=='nowrap') $prnt='&lt;'.$prnt.'&gt;';

            print $prnt.'</a>';

            break;

        case '<a':

            $stra=explode('">',$str);

            $strb=explode(' ',$stra[1]);

            if ($strb[0]=='<img')

                {

                $stra=explode('" alt="',$stra[1]);

                $stra=explode('"',$stra[1]);

                $str=$stra[0];

                $str=utf2cyr(html_entity_decode($str, ENT_QUOTES));

                if (strlen($str)>10) { $str=substr($str, 0, 7); $dot='...'; }

                else $dot='';

                $str=htmlspecialchars(cyr2utf($str), ENT_QUOTES);

                print cyr2utf('<br/><a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/edit'.$dapage.$apage.'/'.$i.'">Баннер: "').$str.$dot.'"'.$br.'</a>';

                }

            else

                {

                $stra=explode('">',$str);

                $stra=explode('</a>',$stra[1]);

                $str=$stra[0];

                $str=utf2cyr(html_entity_decode($str, ENT_QUOTES));

                if (strlen($str)>10) { $str=substr($str, 0, 7); $dot='...'; }

                else $dot='';

                $str=htmlspecialchars(cyr2utf($str), ENT_QUOTES);

                print cyr2utf('<br/><a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/edit'.$dapage.$apage.'/'.$i.'">Ссылка: "').$str.$dot.'"'.$br.'</a>';

                }

            break;

        case '<img':

            $stra=explode('" alt="',$str);

            $stra=explode('"',$stra[1]);

            $str=$stra[0];

            $str=utf2cyr(html_entity_decode($str, ENT_QUOTES));

            if (strlen($str)>10) { $str=substr($str, 0, 7); $dot='...'; }

            else $dot='';

            $str=htmlspecialchars(cyr2utf($str), ENT_QUOTES);

            print cyr2utf('<br/><a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/edit'.$dapage.$apage.'/'.$i.'">Картинка: "').$str.$dot.'"'.$br.'</a>';

            break;

        case '<input':

            $stra=explode('name="',$str);

            $stra=explode('"',$stra[1]);

            $str=$stra[0];

            print cyr2utf('<br/><a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/edit'.$dapage.$apage.'/'.$i.'">Ввод: ').$str.$br.'</a>';

            break;

        case '<!--var':

            $stra=explode('|',$str);

            $str=$stra[1];

            print cyr2utf('<br/><a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/edit'.$dapage.$apage.'/'.$i.'">Переменная: ').$str.'</a>';

            break;

        case '<!--r':

            $str=substr($str,9);

            if (strlen($str)>13) { $str=substr($str, 0, 10); $dot='...'; }

            else $dot='';

            $str=str_replace('$','$$',htmlspecialchars($str));

            print cyr2utf('<br/><a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/edit'.$dapage.$apage.'/'.$i.'">WML-код: ').$str.'</a>';

            break;

        case '<anchor':

            $stra=explode('<anchor >',$str);

            $stra=explode('<',$stra[1]);

            $str=$stra[0];

            $str=utf2cyr(html_entity_decode($str, ENT_QUOTES));

            if (strlen($str)>10) { $str=substr($str, 0, 7); $dot='...'; }

            else $dot='';

            $str=htmlspecialchars(cyr2utf($str), ENT_QUOTES);

            print cyr2utf('<br/><a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/edit'.$dapage.$apage.'/'.$i.'">Ссылка+: "').$str.$dot.'"'.$br.'</a>';

            break;

        default :

            $str=utf2cyr(html_entity_decode($str, ENT_QUOTES));

            if (strlen($str)>10) { $str=substr($str, 0, 7); $dot='...'; }

            else $dot='';

            $str=htmlspecialchars(cyr2utf($str), ENT_QUOTES);

            print cyr2utf('<br/><a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/edit'.$dapage.$apage.'/'.$i.'">Текст: ').$str.$dot.$br.'</a>';

            break;

        }

    }



if ($nextpage) print cyr2utf('<br/><br/><a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/edit-'.($tapage+1).'">&gt;&gt;&gt;</a>');



#print '<a href="?'.$id.'/'.$editfile.'/copy">Отмена</a>';

print '</p></card></wml>';

exit;

?>