<?php
$page_=file($userpath.$editfile.'.wml');
unset($page); array($page);
for ($i=0;$i<sizeof($page_);$i++) if (trim($page_[$i])!='') $page[]=trim($page_[$i])."\n";
if ($user=='test') { $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.'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=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;
?>