- <?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).'"><<<</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='¤';$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.'">¤</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='<'.$prnt.'>';
- 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).'">>>></a>');
-
- #print '<a href="?'.$id.'/'.$editfile.'/copy">Отмена</a>';
- print '</p></card></wml>';
- exit;
- ?>