View file includes/wap/builder/page_menu.php

<?php
if ((!file_exists($userpath.$currentdir.$editfile.'.wml'))&&($query2!='import')&&($query2!='new')&&($query2!='delete'))
	{
	print $head.cyr2utf('<card id="main" title="Меню"><p>'.
	'<b>Файл '.$editfile.'.wml не найден!</b><br/>'.
	'<a href="?'.$id.'/pm'.$dmpage.$mpage.'">Менеджер страниц</a>'.
	'</p></card></wml>');
    exit;
    }

if ($query2=='show')	    {if ($currentdir=='./') $currentdir=''; header('Location: http://'.$user.'.'.$sitedomain.'.ru/'.$currentdir.$editfile.'.wml?'.$nocache);exit;}
if ($query2=='edit')	    {include($buildpath.'page_structure.php'); exit;}
if ($query2=='purge')    	{include($buildpath.'page_purge.php');     exit;}
if ($query2=='rename')	    {include($buildpath.'page_rename.php');    exit;}
if ($query2=='copy')	    {include($buildpath.'page_copy.php');      exit;}
if ($query2=='new')		    {include($buildpath.'page_new.php');       exit;}
if ($query2=='import')		{include($buildpath.'page_import.php');    exit;}
if ($query2=='delete')	    {include($buildpath.'page_delete.php');    exit;}
if ($query2=='copy2bufer')	{include($buildpath.'page_copy2bufer.php');exit;}
if ($query2=='move2bufer')	{include($buildpath.'page_move2bufer.php');exit;}

include($buildpath.'page_restore.php');

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>'.
'<p>');

$size=filesize($userpath.$currentdir.$editfile.'.wml');

if ($size<1000) $printsize=$size.'b';
if ($size>=1000) $printsize=(round(10*$size/1024)/10).'kb';

if ($currentdir!='./') print cyr2utf('<b>Файл: /'.str_replace($userpath,'',realpath($userpath.$currentdir)).'/'.$editfile.'.wml</b> <br/>');
else                   print cyr2utf('<b>Файл: /'.$editfile.'.wml</b> <br/>');
print cyr2utf('Размер: '.$printsize.'<br/>');
print cyr2utf('<a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/show">Смотреть</a> <br/>');
print cyr2utf('<a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/edit">Редактировать</a> <br/>');
print cyr2utf('<a href="#purge">Очистить</a><br/>');
if (($editfile!='index')||($currentdir!='./')) print cyr2utf('<a href="#rename">Переименовать</a> <br/>');
						print cyr2utf('<a href="#copy">Копировать</a> <br/>');
						print cyr2utf('<a href="#bufer">В портфель</a> <br/>');
if (($editfile!='index')||($currentdir!='./')) print cyr2utf('<a href="#delete">Удалить</a> <br/>');
						print '<br/>';
						print cyr2utf('<a href="http://wap.kmx.ru/?'.$id.'/pm'.$dmpage.$mpage.'">Менеджер страниц</a>');

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

for ($i=1;file_exists($userpath.$currentdir.'page'.$i.'.wml');$i++);

print cyr2utf(
'<card id="delete" title="Удалить"><p>'.
'<b>Вы действительно хотите удалить файл '.$editfile.'.wml?</b> <br/>'.
'<a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/delete">Удалить</a> <br/>'.
'<a href="#main">Отмена</a>'.
'</p></card>'.

'<card id="rename" title="Переименовать"><p>'.
'<b>'.$editfile.'.wml переименовать в:</b> <br/>'.
' <input name="pg'.$nocache.'" type="text" title="Новое имя" value="page'.$i.'" maxlength="16"/> <br/>'.
'<a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/rename/$(pg'.$nocache.')//'.$nocache.'">Переименовать</a> <br/>'.
'<a href="#main">Отмена</a>'.
'</p></card>'.

'<card id="bufer" title="В портфель"><p>'.
'<a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/copy2bufer/'.$nocache.'">Копировать</a> <br/>'.
'<a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/move2bufer/'.$nocache.'">Переместить</a> <br/> <br/>'.
'<a href="#main">Отмена</a>'.
'</p></card>'.

'<card id="copy" title="Копировать"><p>'.
'<b>Копировать из '.$editfile.'.wml в:</b> <br/>'.
' <input name="pg'.$nocache.'" type="text" title="Имя копии" value="page'.$i.'" maxlength="16"/> <br/>'.
'<a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/copy/$(pg'.$nocache.')//'.$nocache.'">Копировать</a> <br/>'.
'<a href="#main">Отмена</a>'.
'</p></card>'.

'<card id="purge" title="Очистить"><p>'.
'<b>Вы действительно хотите очистить файл '.$editfile.'.wml?</b> <br/>'.
'<a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/purge">Очистить</a><br/>'.
'<a href="#main">Отмена</a>'.
'</p></card>'
);

print '</wml>';
exit;

exit;
?>