Location: PHPKode > projects > FREE WAP PHP SCRIPTS CENTER > free_wap_ftp_client/tgz.php
<?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="error.";
  } 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="error.";
   } 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.="files extracted from archive.";}
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 wap4.org\">
<p align=\"center\"><small>
<a href=\"ftp.php?k=$k&amp;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>
error.<br/>
- - -<br/>
<anchor>back<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&amp;d=$rd\">$d/</a>$n<br/>
- - -<br/>
extract to folder:</small><input name=\"nm".$nar."\" type=\"text\" value=\"$dnm\" maxlength=\"150\"/><br/>
<small>CHMOD files:</small>
<input name=\"chf".$nar."\" type=\"text\" value=\"644\" size=\"3\" maxlength=\"3\" format=\"*N\"/><br/>
<small>CHMOD folders:</small>
<input name=\"chd".$nar."\" type=\"text\" value=\"755\" size=\"3\" maxlength=\"3\" format=\"*N\"/><br/>
<small>- - -<br/>
<anchor>extract archive
<go href=\"$dftp/tgz.php?k=$k&amp;d=$rd&amp;n=$rn&amp;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>back<prev/></anchor>
</small></p>
</card></wml>");
}
?>
Return current item: FREE WAP PHP SCRIPTS CENTER