View file includes/wap/builder/newpage.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.'.wml - недопустимое имя файла страницы</b><br/>'.
    '<a href="http://wap.kmx.ru/?'.$id.'/pm'.$dmpage.$mpage.'/index/new">Отмена</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.'/index/new/'.$param1.'/rewrite">Очистить</a><br/>'.
        '<a href="http://wap.kmx.ru/?'.$id.'/pm'.$dmpage.$mpage.'/index/new">Отмена</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($sitespath.'_default/index.wml',$userpath.$param1.'.wml');
        $editfile=$param1;
        $action='';
        include($buildpath.'menupage.php');
        exit;
        }

    print $head.cyr2utf('<card id="main" title="Создать"><p>'.
    '<b>Вы действительно хотите создать страницу '.$param1.'.wml?</b><br/>'.
    '<a href="http://wap.kmx.ru/?'.$id.'/pm'.$dmpage.$mpage.'/index/new/'.$param1.'/ok">Создать</a><br/>'.
    '<a href="http://wap.kmx.ru/?'.$id.'/pm'.$dmpage.$mpage.'/index/new">Отмена</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>Имя файла новой страницы:</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.'/index/new/$(pg)"/>'.
    '</go>'.
    '</anchor><br/>'.
	'<a href="http://wap.kmx.ru/?'.$id.'/pm'.$dmpage.$mpage.'">Отмена</a><br/>'.
	'</p></card></wml>');
    exit;
	}
?>