View file includes/wap/builder/copy.php

<?php
$param1=strtolower(rus2tr(utf2cyr($param1)));

$fname=explode('.',$param1);
$name=$fname[0];
$ext=$fname[1];
if ($ext=='wml') $param1=$name;

if ((strlen(trim(strtr(strtr(trim($param1),' ','^'),'0123456789-_abcdefghjiklmnopqrstuvwxyz','                                      ')))!=0)||(strlen($param1)>16))
    {
    print $head.cyr2utf('<card id="main" title="Копировать"><p>'.
    '<b>'.$param1.' - недопустимое имя файла</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.'/copy/'.$param1.'/rewrite">Заменить</a><br/>'.
        '<a href="http://wap.kmx.ru/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'/copy">Отмена</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');
        $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.'/copy/'.$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.'/copy/$(pg)"/>'.
    '</go>'.
    '</anchor><br/>'.
	'<a href="http://wap.kmx.ru/?'.$id.'/pm'.$dmpage.$mpage.'/'.$editfile.'">Отмена</a><br/>'.
	'</p></card></wml>');
    exit;
	}
?>