Размер файла: 5.36Kb
<?php
$f=@fopen($sitespath.'/'.$user.'/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 ($target[2]!='') $editfile=$target[2];
if ($target[4]!='') $param1=$target[4];
if ($target[5]!='') $param2=$target[5];
if ($target[6]!='') $param3=$target[6];
if ($user=='test') if (!strpos($editfile,'*') && ($editfile!='')) include($buildpath.'file_menu.php');
if (!strpos($editfile,'*') && ($editfile!='')) include($buildpath.'menufile.php');
$tmp=explode('.',$editfile);
$tmp2=explode('*',$tmp[0]);
$editfile=$tmp2[0];
include($rootpath.'upload_file_from_email.php');
print $head.cyr2utf('<card id="main" title="Файлы">');
print '<do name="x" type="options" label="xPanel"><go href="http://wap.kmx.ru/?'.$id.'"/></do>';
if ($editfile!='') print cyr2utf('<do name="a" type="options" label="Все файлы"><go href="http://wap.kmx.ru/?'.$id.'/fm-'.$tmpage.'"/></do>');
print cyr2utf('<do name="s" type="options" label="Найти"><go href="#search"/></do>');
if ($user=='test') print cyr2utf('<do name="o" type="options" label="Папки"><go href="http://wap.kmx.ru/?'.$id.'/dm"/></do>');
print '<p>';
if ($user=='test')
{
if ($currentdir!='./') print cyr2utf('<b>Папка: <a href="http://wap.kmx.ru/?'.$id.'/dm">/'.str_replace($userpath,'',realpath($userpath.$currentdir)).'/</a></b> <br/><small>- - -</small> <br/>');
else print cyr2utf('<b>Папка: <a href="http://wap.kmx.ru/?'.$id.'/dm">/</a></b> <br/><small>- - -</small> <br/>');
}
unset($files);
$d=dir($userpath.$currentdir);
$found=false;
while ($entry=$d->read())
{
if ($editfile!='')
if (substr($entry,0,strlen($editfile))!=$editfile) continue;
if (
(substr($entry,-4)!='.jpg')&&
(substr($entry,-4)!='.gif')&&
(substr($entry,-4)!='.png')&&
(substr($entry,-4)!='.mid')&&
(substr($entry,-4)!='.mmf')&&
(substr($entry,-4)!='.wav')&&
(substr($entry,-4)!='.jar')&&
(substr($entry,-4)!='.jad')&&
(substr($entry,-4)!='.thm')&&
(substr($entry,-4)!='.mpn')&&
(substr($entry,-4)!='.amr')&&
(substr($entry,-4)!='.sis')&&
(substr($entry,-4)!='.mp3')&&
(substr($entry,-4)!='.3gp')&&
(substr($entry,-5)!='.wbmp')
) continue;
else $found=true;
if (filetype($userpath.$currentdir.$entry)=='file') $files[]=$entry;
}
$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="http://wap.kmx.ru/?'.$id.'/fm-'.($tmpage-1).'"><<<</a><br/>');
else print cyr2utf('<a href="http://wap.kmx.ru/?'.$id.'/fm-'.($tmpage-1).'/'.$editfile.'*"><<<</a><br/>');
}
$i=0;
if ($found)
while ($_file=@each($files))
{
if ($i<($tmpage*20)-20) {$i++;continue;}
$_file=$_file[1];
$size=filesize($userpath.$currentdir.$_file);
if ($size<1000) $printsize=$size.'b';
if ($size>=1000) $printsize=(round(10*$size/1024)/10).'kb';
print '<a href="http://wap.kmx.ru/?'.$id.'/fm'.$dmpage.$mpage.'/'.$_file.'">'.$_file.' ('.$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="http://wap.kmx.ru/?'.$id.'/fm-'.($tmpage+1).'">>>></a><br/>');
else print cyr2utf('<a href="http://wap.kmx.ru/?'.$id.'/fm-'.($tmpage+1).'/'.$editfile.'*">>>></a><br/>');
}
print '<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('<small>Занято: '.$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="Поиск">'.
'<do name="b" type="options" label="Назад"><prev/></do>'.
'<p>'.
'Введите начало имени файла для поиска:<br/>'.
'<input name="name'.$nocache.'" type="text" title="Начинается на..." value="" maxlength="16"/><br/>'.
'<anchor>Найти'.
'<go href="http://wap.kmx.ru" method="post">'.
'<postfield name="query" value="'.$id.'/fm'.$dmpage.$mpage.'/$(name'.$nocache.')*"/>'.
'</go>'.
'</anchor>'.
'</p>'.
'</card>'.
'</wml>');
exit;
?>