Файл: includes/wap/builder/rename.php
Строк: 39
<?php
$param1=strtolower(rus2tr(utf2cyr($param1)));
$fname=explode('.',$param1);
$name=$fname[0];
$ext=$fname[1];
if ($ext=='wml') $param1=$name;
if ($editfile=='index')
{
print $head.cyr2utf('<card id="main" title="Переименовать"><p>'.
'<b>Нельзя переименовать файл index.wml!</b><br/>'.
'<a href="http://wap.kmx.ru/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'">Назад</a><br/>'.
'</p></card></wml>');
exit;
}
if ((strlen(trim(strtr(strtr(trim($param1),' ','^'),'0123456789-_abcdefghjiklmnopqrstuvwxyz',' ')))!=0)||(strlen($param1)>16))
{
print $head.cyr2utf('<card id="main" title="Переименовать"><p>'.
'<b>'.$param1.'.wml - недопустимое имя файла</b><br/>'.
'<a href="http://wap.kmx.ru/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/rename">Отмена</a>'.
'</p></card></wml>');
exit;
}
if ($param1!='')
{
if (file_exists($userpath.$param1.'.wml') && ($param2!='rewrite'))
{
print $head.cyr2utf('<card id="main" title="Переименовать"><p>'.
'<b>Файл '.$param1.'.wml уже существует, заменить?</b><br/>'.
'<a href="http://wap.kmx.ru/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/rename/'.$param1.'/rewrite">Заменить</a><br/>'.
'<a href="http://wap.kmx.ru/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/rename">Отмена</a>'.
'</p></card></wml>');
exit;
}
if ((!file_exists($userpath.$param1.'.wml') && ($param2=='ok')) || (file_exists($userpath.$param1.'.wml') && ($param2=='rewrite')))
{
@unlink($userpath.$param1.'.wml');
@copy($userpath.$editfile.'.wml',$userpath.$param1.'.wml');
@unlink($userpath.$editfile.'.wml');
$editfile=$param1;
$action='';
include($buildpath.'menupage.php');
exit;
}
print $head.cyr2utf('<card id="main" title="Переименовать"><p>'.
'<b>Вы действительно хотите переименовать файл '.$editfile.'.wml в '.$param1.'.wml?</b><br/>'.
'<a href="http://wap.kmx.ru/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/rename/'.$param1.'/ok">Переименовать</a><br/>'.
'<a href="http://wap.kmx.ru/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'">Отмена</a>'.
'</p></card></wml>');
exit;
}
else
{
for ($i=1;file_exists($userpath.'/page'.$i.'.wml');$i++);
print $head.cyr2utf('<card id="main" title="Переименовать"><p>'.
'<b>'.$editfile.'.wml переименовать в:</b><br/>'.
'<input name="pg" type="text" title="Переименовать" value="page'.$i.'" maxlength="16"/><br/>'.
'<anchor>Далее'.
'<go href="http://wap.kmx.ru" method="post">'.
'<postfield name="query" value="'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/rename/$(pg)"/>'.
'</go>'.
'</anchor><br/>'.
'<a href="http://wap.kmx.ru/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'">Отмена</a><br/>'.
'</p></card></wml>');
exit;
}
?>