<?php
error_reporting(0);
$k=trim($_GET['k']); include("key.php");
$d=rawurldecode(trim($_GET['d'])); $n=rawurldecode(trim($_GET['n']));
if ($d==NULL) {$d="";} else {if ($d=="/") {$d="";}}
if ($n==NULL) {$n=preg_replace("~.*/([^/]*)~m","\\1",$d);
$d=preg_replace("~(.*)/[^/]*~m","\\1",$d);}
$rd=rawurlencode($d); $rn=rawurlencode($n);
$d=str_replace(".|htaccess",".htaccess",$d);
$n=str_replace(".|htaccess",".htaccess",$n);
$ac=trim($_GET['ac']); $nm=trim($_POST['nm']);
$chd=trim($_POST['chd']); $chf=trim($_POST['chf']);
if ($nm<>NULL) {
$repl=array("\\"=>"","/"=>"",":"=>"","*"=>"","?"=>"","\""=>"","<"=>"",">"=>"","|"=>"");
$nm=trim(strtr($nm,$repl));
include("repl.php"); $nm=u2t($nm);
if (($nm==".")||($nm=="..")) {$nm=".";}
}
if ($nm<>NULL) {
if (($ftp=@ftp_connect($sr))&&(@ftp_login($ftp,$lg,$ps))) {
@ftp_pasv($ftp,true); $sz=ftp_size($ftp,"$d/$n");
if (($sz==-1)||($sz>716800)) {header("Location: $dftp/ftp.php?k=$k&d=$rd"); exit;}
mkdir("data/$k",0777); ftp_get($ftp,"data/$k-$n","$d/$n",FTP_BINARY);
include("tar.php"); $tar=new Archive_Tar("data/$k-$n");
if ($tar->extract("data/$k")==0) {
$st="Файлы из архива не извлечены. Возможно архив повреждён.";
} else {$st="";
if ($nm<>".") {ftp_mkdir($ftp,"$d/$nm"); $nm="/$nm/";} else {$nm="/";}
function scan($dir) {$arr=NULL; $lst=NULL;
$dh=opendir($dir); while (false!==($filename=readdir($dh))) {$lst[]=$filename;}
if ($lst<>NULL) {
for ($i=0;$i<count($lst);$i++) {
if (is_file($dir."/".$lst[$i])) {
$arr.="1:".$dir."/".$lst[$i]."\r\n";
} elseif ((is_dir($dir."/".$lst[$i]))&&($lst[$i]<>".")&&($lst[$i]<>"..")) {
$arr.="0:".$dir."/".$lst[$i]."\r\n"; $arr.=scan($dir."/".$lst[$i]);
}
} return $arr;
} else {return false;}
}
$str=scan("data/$k");
if ($str==false) {
$st="Файлы из архива не извлечены.";
} else {
$ar=explode("\r\n",$str); sort($ar);
for ($i=0;$i<count($ar);$i++) {
if ($ar[$i]<>NULL) {
list($p1,$p2)=split(":",$ar[$i]); $p1=trim($p1); $p2=trim($p2);
if ($p1==0) {
$name=str_replace("data/$k/","",$p2);
ftp_mkdir($ftp,"$d$nm".$name);
if ($chd<>NULL) {$cmd="chmod 0$chd $d$nm".$name; @ftp_site($ftp,$cmd);}
} else {
$name=str_replace("data/$k/","",$p2);
ftp_put($ftp,"$d$nm".$name,"data/$k/".$name,FTP_BINARY);
if ($chf<>NULL) {$cmd="chmod 0$chf $d$nm".$name; @ftp_site($ftp,$cmd);}
}
}
}
}
}
@ftp_close($ftp);
@unlink("data/$k-$n"); include("rmdir.php"); rdir("data/$k");
if ($st==NULL) {$st.="Файлы извлечены из архива.";}
header("Content-Type: text/vnd.wap.wml; charset=Utf-8");
echo ("<?xml version=\"1.0\" encoding=\"Utf-8\"?><!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml_1.2.xml\"><wml>
<head><meta forua=\"true\" http-equiv=\"Cache-Control\" content=\"no-cache,no-store,must-revalidate\"/></head><card title=\"FTP - TAR\">
<p align=\"center\"><small>
<a href=\"ftp.php?k=$k&d=$rd\">$d</a><br/>
- - -<br/>
$st
</small></p>
</card></wml>");
} else {
header("Content-Type: text/vnd.wap.wml; charset=Utf-8");
echo ("<?xml version=\"1.0\" encoding=\"Utf-8\"?><!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml_1.2.xml\"><wml>
<head><meta forua=\"true\" http-equiv=\"Cache-Control\" content=\"no-cache,no-store,must-revalidate\"/></head><card title=\"FTP - TAR\">
<p align=\"center\"><small>
Нет соединения с сервером.<br/>
- - -<br/>
<anchor>Назад<prev/></anchor>
</small></p>
</card></wml>");
}
} else {
$d=str_replace('$','$$',$d); $n=str_replace('$','$$',$n);
$num=@file_get_contents("allnumbd.dat"); $nar=NULL;
$num++; $nar=$num; if ($num>99999999) {$num=0;}
$f=@fopen("allnumbd.dat","w"); @fwrite($f,$num); @fclose($f);
if (file_exists("data/$k")) {include("rmdir.php"); rdir("data/$k");}
$dnm=preg_replace("~([^.]*).*~m","\\1",$n);
header("Content-Type: text/vnd.wap.wml; charset=Utf-8");
echo ("<?xml version=\"1.0\" encoding=\"Utf-8\"?><!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml_1.2.xml\"><wml>
<head><meta forua=\"true\" http-equiv=\"Cache-Control\" content=\"no-cache,no-store,must-revalidate\"/></head><card title=\"FTP - TAR\">
<p align=\"left\"><small>
<a href=\"file.php?k=$k&d=$rd\">$d/</a>$n<br/>
- - -<br/>
Извлечь в папку:</small><input name=\"nm".$nar."\" type=\"text\" value=\"$dnm\" maxlength=\"150\"/><br/>
<small>CHMOD файлов:</small>
<input name=\"chf".$nar."\" type=\"text\" value=\"644\" size=\"3\" maxlength=\"3\" format=\"*N\"/><br/>
<small>CHMOD папок:</small>
<input name=\"chd".$nar."\" type=\"text\" value=\"755\" size=\"3\" maxlength=\"3\" format=\"*N\"/><br/>
<small>- - -<br/>
<anchor>Разархивировать
<go href=\"$dftp/tgz.php?k=$k&d=$rd&n=$rn&ac=$ac\" method=\"post\">
<postfield name=\"nm\" value=\"$(nm".$nar.")\"/>
<postfield name=\"chd\" value=\"$(chd".$nar.")\"/>
<postfield name=\"chf\" value=\"$(chf".$nar.")\"/>
</go></anchor><br/>
- - -<br/>
<anchor>Назад<prev/></anchor>
</small></p>
</card></wml>");
}
?>