Просмотр архива Konstruktor_sites


<?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;

    }

?>