View file includes/wap/builder/page_new.php

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

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

if ($param1!='')
	{
	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/>'.
		'<b>Имя файла новой страницы:</b><br/>'.
		'<input name="pg'.$nocache.'" type="text" title="Имя страницы" value="page'.$i.'" maxlength="16"/><br/>'.
		'<a href="/?'.$id.'/pm'.$dmpage.$mpage.'/index/new/$(pg'.$nocache.')/new/'.$nocache.'">Создать</a> <br/>'.
		'<a href="http://wap.kmx.ru/?'.$id.'/pm'.$dmpage.$mpage.'">Отмена</a><br/>'.
		'</p></card></wml>');
	    exit;
	    }
    if ($query5!='') $nocache_=$query5+0;
    $fp = @fopen ($userpath."opeation.cache", "r");$testcache = trim(@fgets($fp, 10));@fclose ($fp);
    if ($nocache_!=$testcache)
        {
		if (file_exists($userpath.$currentdir.$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/'.$nocache.'">Очистить</a><br/>'.
			'<a href="http://wap.kmx.ru/?'.$id.'/pm'.$dmpage.$mpage.'/index/new">Отмена</a>'.
			'</p></card></wml>');
			exit;
			}

        @unlink($userpath.$currentdir.$param1.'.wml');
        @copy($sitespath.'../_default/index.wml',$userpath.$currentdir.$param1.'.wml');
        @chmod($userpath.$currentdir.$param1.'.wml',0777);
        $fp = fopen ($userpath."opeation.cache", "w+");fwrite ($fp, $nocache_);fclose ($fp);
		}
	$editfile=$param1;
	$query2=$action='';
	include($buildpath.'page_menu.php');
	exit;
	}
else
	{
	for ($i=1;file_exists($userpath.$currentdir.'page'.$i.'.wml');$i++);
   	print $head.cyr2utf('<card id="main" title="Создать"><p>'.
	'<b>Имя файла новой страницы:</b><br/>'.
	'<input name="pg'.$nocache.'" type="text" title="Имя страницы" value="page'.$i.'" maxlength="16"/><br/>'.
    '<a href="/?'.$id.'/pm'.$dmpage.$mpage.'/index/new/$(pg'.$nocache.')/new/'.$nocache.'">Создать</a> <br/>'.
	'<a href="http://wap.kmx.ru/?'.$id.'/pm'.$dmpage.$mpage.'">Отмена</a><br/>'.
	'</p></card></wml>');
    exit;
	}
?>