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


<?php

#print $head.cyr2utf('<card id="main" title="Страницы">');

#print '<do name="x" type="options" label="xPanel"><go href="http://wap.kmx.ru/?'.$id.'"/></do>';

#print cyr2utf('<p>По техническим причинам Менеджер файлов временно недоступен.

#Испорченные страницы будут восстановлены в течение суток. К сожалению часть изменений сделанных вчера будет отменена... Приносим искренние извининия за доставленные неудобства.</p></card></wml>');

#exit;



$f=@fopen($userpath.'currentdir.dat','r+');

$currentdir=trim(@fread($f,128));

@fclose($f);

if (!is_subdir($userpath,$userpath.$currentdir)) $currentdir='.';

if ($currentdir=='') $currentdir='.';

$currentdir.='/';



$buildpath=$wappath."builder/";

if ($query1!='') $editfile=$query1;

if ($query3!='') $param1=$query3;

if ($query4!='') $param2=$query4;

if ($query5!='') $param3=$query5;



if (!strpos($editfile,'*') && ($editfile!='')) include($buildpath.'page_menu.php');



$tmp=explode('.',$editfile);

$tmp2=explode('*',$tmp[0]);

$editfile=$tmp2[0];



print $head.cyr2utf('<card id="main" title="Страницы">');

print '<do name="x" type="options" label="xPanel"><go href="/?'.$id.'"/></do>';

print cyr2utf('<do name="n" type="options" label="Создать"><go href="#new"/></do>');

print cyr2utf('<do name="ex" type="options" label="Импорт"><go href="/?'.$id.'/pm/index/import"/></do>');

if ($editfile!='') print cyr2utf('<do name="a" type="options" label="Все страницы"><go href="/?'.$id.'/pm-'.$tmpage.'"/></do>');

print cyr2utf('<do name="s" type="options" label="Найти"><go href="#search"/></do>');

print '<p>';



if ($currentdir!='./') print cyr2utf('<b>Папка: <a href="/?'.$id.'/dm">/'.str_replace($userpath,'',realpath($userpath.$currentdir)).'/</a></b> <br/><small>- - -</small> <br/>');

else                   print cyr2utf('<b>Папка: <a href="/?'.$id.'/dm">/</a></b> <br/><small>- - -</small> <br/>');



if ($editfile!='') print cyr2utf('Выбор: <b>['.$editfile.'*]</b><br/>');



unset($files);



$found=false;

$cntfile=0;$d=dir($userpath.$currentdir);

while ($entry=$d->read())

        {

        if (substr($entry,-4)!='.wml') continue;

        if ($editfile!='')

            if (substr($entry,0,strlen($editfile))!=$editfile) continue;

        if (filetype($userpath.$currentdir.$entry)=='file') {$found=true; $files[]=$entry; $cntfile++;}

        }

$d->close();



@sort($files, SORT_STRING);



if (($mpage+0)>1) $tmpage=$mpage+0;

else $tmpage=1;



if ($tmpage<2) $dmpage=$mpage='';

else {$dmpage='-';$mpage=$mpage+0;}



if ($tmpage>1)

    {

    if ($editfile=='') print cyr2utf('<a href="/?'.$id.'/pm-'.($tmpage-1).'">&lt;&lt;&lt;</a><br/>');

    else               print cyr2utf('<a href="/?'.$id.'/pm-'.($tmpage-1).'/'.$editfile.'*">&lt;&lt;&lt;</a><br/>');

    }



$i=0;

if ($found)

    {

    while ($wmlfile=@each($files))

        {

        if ($i<($tmpage*20)-20) {$i++;continue;}

        $wmlfile=substr($wmlfile[1],0,-4);

        $size=filesize($userpath.$currentdir.$wmlfile.'.wml');

        if ($size<1000) $printsize=$size.'b';

        if ($size>=1000) $printsize=(round(10*$size/1024)/10).'kb';



        print '<a href="/?'.$id.'/pm'.$dmpage.$mpage.'/'.$wmlfile.'">'.$wmlfile.'.wml ('.$printsize.')</a><br/>';

        $i++;

        if ($i>=($tmpage*20)) break;

        }

    }

else

    print cyr2utf('<small>Страниц не найдено</small><br/>');



if ($i>=($tmpage*20))

    {

    if ($editfile=='') print cyr2utf('<a href="/?'.$id.'/pm-'.($tmpage+1).'">&gt;&gt;&gt;</a><br/>');

    else               print cyr2utf('<a href="/?'.$id.'/pm-'.($tmpage+1).'/'.$editfile.'*">&gt;&gt;&gt;</a><br/>');

    }



print '<br/><small>';



if ($found) print cyr2utf('Страниц в папке: '.$cntfile.'<br/>');



$_diskspace=@file($userpath.'diskspace.dat');



$_diskspace[0]=$_diskspace[0]+0;

$_diskspace[1]=dir_size($sitespath.$user);

if ($_diskspace[1]<1000) $printsize=$_diskspace[1].'b';

if ($_diskspace[1]>=1000) $printsize=(round(10*$_diskspace[1]/1024)/10).'kb';

if ($_diskspace[1]>=1000000) $printsize=(round(10*$_diskspace[1]/1024/1024)/10).'Mb';



print cyr2utf('Занято: '.$printsize.'<br/>');



$_diskspace[2]=$_diskspace[0]-$_diskspace[1];

if ($_diskspace[2]<1000) $printsize=$_diskspace[2].'b';

if ($_diskspace[2]>=1000) $printsize=(round(10*$_diskspace[2]/1024)/10).'kb';

if ($_diskspace[2]>=1000000) $printsize=(round(10*$_diskspace[2]/1024/1024)/10).'Mb';



print cyr2utf('Свободно: '.$printsize.'</small>');



$fp = fopen ($userpath.'diskspace.dat', "w+");

fwrite ($fp, $_diskspace[0]."n".$_diskspace[1]."n".$_diskspace[2]);

fclose ($fp);



print cyr2utf('</p></card>'.

'<card id="search" title="Поиск">'.

'<p>'.

'Введите начало имени файла для поиска:<br/>'.

'<input name="name'.$nocache.'" type="text" title="Начинается на..." value="" maxlength="16"/><br/>'.

'<a href="/?'.$id.'/pm'.$dmpage.$mpage.'/$(name'.$nocache.')*">Найти</a> <br/>'.

'<a href="#main">Отмена</a>'.

'</p></card>');

for ($i=1;file_exists($userpath.$currentdir.'page'.$i.'.wml');$i++);

print cyr2utf('<card id="new" 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="#main">Отмена</a>'.

'</p></card></wml>');



exit;

?>