<?


function rupath($path,$loads='.')
{
$path=preg_replace("#(/){1,}#","/",$path);
$path=preg_replace("#(^(/){1,})|((/){1,}$)#","",$path);
$path_arr=explode('/',$path);
$rdir=NULL;
$rudir=NULL;
for ($i=0;$i<count($path_arr);$i++)
{
$of=$loads.'/';
for ($z=0;$z<=$i;$z++)$of.=$path_arr[$z].'/';
$rdir.=$path_arr[$i].'/';
if (is_file("$of/.dirname"))
{
$rudir.="<a href=\"index.php?d=".urlencode(preg_replace("#(^(/){1,})|((/){1,}$)#","",$rdir))."&amp;page=$_SESSION[page]\">".trim(file_get_contents("$of/.dirname")).'</a> &gt; ';
}
else
{
$rudir.="<a href=\"index.php?d=".urlencode(preg_replace("#(^(/){1,})|((/){1,}$)#","",$rdir))."&amp;page=$_SESSION[page]\">".dir_name($loads.'/'.$rdir).'</a> &gt; ';
}
}
return preg_replace("# &gt; $#","",$rudir);
}

function rupath2($path,$loads='.')
{
$path=preg_replace("#(/){1,}#","/",$path);
$path=preg_replace("#(^(/){1,})|((/){1,}$)#","",$path);
$path_arr=explode('/',$path);
$rdir=NULL;
$rudir=NULL;
for ($i=0;$i<count($path_arr);$i++)
{
$of=$loads.'/';
for ($z=0;$z<=$i;$z++)$of.=$path_arr[$z].'/';
$rdir.=$path_arr[$i].'/';
if (is_file("$of/.dirname"))
{
$dir_info=file("$of/.dirname");

$rudir.=trim($dir_info[0]).'/';
}
else
{
$dirname=$path_arr[$i];
if (function_exists('iconv'))$dirname=iconv('windows-1251', 'utf-8', $dirname);
$rudir.=$dirname.'/';
}
}
return preg_replace("#/$#","",$rudir);
}

// вывод списка директорий для option
function dirrs($dir='/',$replace=NULL){
$dir=preg_replace("#(/){1,}#","/",$dir);              // вырез двух и более слешей подряд
$dir=preg_replace("#(^(/){1,})|((/){1,}$)#","",$dir); // вырез слеша в начале и конце
$od=opendir($dir);
while ($rd=readdir($od))
{
if (is_dir("$dir/$rd") && $rd!='.' && $rd!='..')
{
$pathh=str_replace($replace, '', "$dir/$rd");
echo "<option value=\"".urlencode("$dir/$rd")."\">".rupath2($pathh,'../sys/loads/files')."</option>\n";
dirrs("$dir/$rd",$replace);
}
}
}

// счетчик скачиваний
function k_loads($file,$size)
{
global $l;
$path=(function_exists('iconv'))?iconv('windows-1251', 'utf-8', $l):$l;
$path='/'.preg_replace('#^/+|/+$#i', null, $path).'/';
if (function_exists('iconv'))$file=iconv('windows-1251', 'utf-8', $file);
$loads=mysql_fetch_assoc(mysql_query("SELECT * FROM `loads_list` WHERE `name` = '$file' AND `size` = '$size' AND `path` = '".my_esc($path)."' LIMIT 1"));
if ($loads==NULL)return 0;
else return $loads['loads'];
}



function loads_rename($dir)
{
$dir=str_replace("//", "/", $dir);
$od=opendir("$dir/$rd");
while ($rd=readdir($od))
{
if (is_dir("$dir/$rd") && $rd!='.' && $rd!='..')
{
loads_rename("$dir/$rd");
}
elseif (is_file("$dir/$rd") && preg_match('#^!#',$rd))
{
$rd2=translit(preg_replace('#^!|\.[^\.]*$#',NULL,$rd));
file_put_contents("$dir/$rd.name",$rd2);
rename("$dir/$rd", preg_replace('#^!#',NULL,$rd));
}

}
$dir1=preg_replace('#^.*/#', NULL, $dir);
if (preg('#^!#',$dir1))
{
file_put_contents("$dir/.dirname",translit(preg_replace('#^!#',NULL,$dir1)));
rename($dir, str_replace('!',NULL,$dir));
}
}


function k_komm($file,$size)
{
if (function_exists('iconv'))$file=iconv('windows-1251', 'utf-8', $file);
return mysql_result(mysql_query("SELECT COUNT(*) FROM `loads_komm` WHERE `file` = '$file' AND `size` = '$size'"),0);
}



function dir_name($dir)
{

$dir=preg_replace("#(/){1,}#","/",$dir);
$dir=preg_replace("#(^(/){1,})|((/){1,}$)#","",$dir);

if (is_dir($dir))
{

if (is_file($dir.'/.dirname') && filesize($dir.'/.dirname')>0)
{
return esc(stripcslashes(htmlspecialchars(file_get_contents($dir.'/.dirname'))));
}
else
{


$dirname= preg_replace('#^.*/#', NULL, $dir);
$dirname=esc(stripcslashes(htmlspecialchars($dirname)));
if (function_exists('iconv'))$dirname=iconv('windows-1251', 'utf-8', $dirname);

return $dirname;
}
}
}


function loads_del_screen()
{
$dir=H.'sys/loads/screens/48';
$od=opendir($dir);
while ($rd=readdir($od))
{
if (is_file("$dir/$rd") && $rd!='.' && $rd!='..')
{
@chmod("$dir/$rd",0777);
@unlink("$dir/$rd");
}
}
$dir=H.'sys/loads/screens/128';
$od=opendir($dir);
while ($rd=readdir($od))
{
if (is_file("$dir/$rd") && $rd!='.' && $rd!='..')
{
@chmod("$dir/$rd",0777);
@unlink("$dir/$rd");
}
}

$dir=H.'sys/loads/screens/14';
$od=opendir($dir);
while ($rd=readdir($od))
{
if (is_file("$dir/$rd") && $rd!='.' && $rd!='..')
{
@chmod("$dir/$rd",0777);
@unlink("$dir/$rd");
}
}

}



?>