<?php 

/* Do not remove or alter this section***************************

************************Class Description************************
dirtool  (c) Nov 2005  Uwe Stein

dirtool allows to copy, delete and move complete directory-trees 
*****************************************************************

************************ sorry and thx ***************************
Please excuse errors in this text. English isnt my native language,
and so  suggestions about the code and the spelling are welcome

*********************Contact and Bug report***********************
contact me using the "contact-button" at one of my packages at phpclasses.org

********************Licence****************************************
This software is covered by The GNU General Public License (GPL)
***************************************************************

**************End of do not remove or alter section*************************/

// get the value of slash according to the OS
function slash(){
    if(isset($_SERVER['OS'])) 
           return "\\";
    else 
          return "/";
}
class dirtool {
     var $path;
     var $from;
     var $to;
     var $aContent= array();
     var $debug = FALSE;
     
     function dirtool($path) {
       if (!is_dir($path))
           die("<br><strong>$path n'est PAS un répertoire</strong>");
        $this->path = realpath($path);
        $from = "";
        $to="";
        
        // read the directory
        $slash = slash();
        $verz=opendir ($path);
        while ($file = readdir ($verz)) {
            if ($file != "." && $file != "..") {
               $tmp = $this->path.$slash.$file;
                if (is_dir($tmp)) 
                   $this->aContent[] = new dirtool($tmp);
                else 
                    $this->aContent[] = $tmp;
             }  //if 
        } // while
         closedir($verz);
     }  //End of func directory

     function move($newLocation) {
         $perm = fileperms($this->path);
         $this->copy($newLocation,$perm); // :-)
         $this->delete();
         chmod($newLocation,$perm);
     }

     function copy($path, $mode, $from = "") {
            $this->copy_tree($path, $mode, $from = "");
            $this->copy_files($path, $mode, $from = "");
     }  // End of func copy

     function delete(){
       $this->delete_files();
       // because $this contains still the files in the array aContent
       // a new dir-object is created. The new one, read the tree again and contains only the 
       //subdirectories  (the files are now deleted )
       $dummy = new dirtool($this->path);
       $dummy->debug($this->debug); // copy the debug-state
       $dummy->delete_tree();
     }
     function copy_tree($path, $mode, $from = "") {
        if (!mkdir($path, $mode))
           die ("Erreur: Le répertoire $path n'a pas pu être créé"); 
           if ($this->debug == TRUE)
              echo "<br>Répertoire <b>$path</b> créé";
         chmod($path,$mode);
        // at the first loop of recursiv callings keep the "$from-path        
        //if ($from == "")
       $this->from = $this->path;
       $this->to = $path;

       // walk through the array aContent and create all  directories
       for ($i=0; $i < count($this->aContent); $i++) {
            if (is_object($this->aContent[$i])) {
               $pattern = "^".$this->from."^";
               $replace = $this->to;
               $dirToCreate = preg_replace($pattern,$replace, $this->aContent[$i]->path );
            // call copy recursively to create the new directory and process the next level
              $this->aContent[$i]->copy_tree($dirToCreate, $mode,$this->from);
            } // End if ... 

       }  // End for .... 
       clearstatcache();

    }  // End of func copy_tree

    function copy_files ($path, $mode, $from = "") {
       for ($i=0; $i < count($this->aContent); $i++) {
            // if it is a dir-objekt, call copy recursively
            if (is_object($this->aContent[$i])) {
               $pattern = "^".$this->from."^";
               $replace = $this->to;
               $newpath = preg_replace($pattern,$replace, $this->aContent[$i]->path );
             // call copy recursively to enter the sub-dir and process the next level
              $this->aContent[$i]->copy_files($newpath, $mode,$this->from);
            } // End if ... 
            // if it is a file, copy 
            else {
                 // save the fileperms 
                 $perms = fileperms($this->aContent[$i]);
                 $src = $this->aContent[$i];
                 $pattern = "^".$this->from."^";
                 $replace = $this->to;
                 $dest = preg_replace($pattern,$replace, $this->aContent[$i] );
                 copy($src,$dest);
                 if ($this->debug == TRUE) 
                    echo "<br><b>$src</b> copié vers <b>$dest</b>";
                 chmod($dest,$perms);
            }
        } // End for.....
        clearstatcache();
    
    }  // End of func copy files 

    //  deletes all dirs and subdirs  --> assumes that there are no files in the tree 
    function delete_tree() {
        //remove all entries by calling delete_tree for each member in the dir
        if (count($this->aContent)) {
           while (count($this->aContent)) {
                    $this->aContent[0]->delete_tree();
                    array_shift($this->aContent);
           }
        }
        if (!rmdir($this->path)) {
           $mess = "<br>Impossible de supprimer le répertoire ".$this->path;
           die($mess);
        }
        if ($this->debug == TRUE) {
           echo "<br>Répertoire <b> ".$this->path."</b> supprimé";
        }
        return;
    }  // End of func delete_tree
    
    // deletes all files in the complete tree  
    function delete_files() {
      for ($i=0; $i < count($this->aContent); $i++) {
            // if it is a dir-objekt, call delete_files recursively
            if (is_object($this->aContent[$i])) {
               $pattern = "^".$this->from."^";
               $replace = $this->to;
               $newpath = preg_replace($pattern,$replace, $this->aContent[$i]->path );
             // call copy recursively to enter the sub-dir and process the next level
              $this->aContent[$i]->delete_files($newpath, $mode,$this->from);
            } // End if ... 
            // if it is a file, delete 
            else {
               if (!@unlink( $this->aContent[$i] ))  {
                   $mess = "<b>La suppression du fichier ".$this->aContent[$i]." a échoué. Merci de contrôler les permissions";
                   $mess .=" et de recommencer</b>";
                   echo $mess;
                   exit;
               }
               if ($this->debug == TRUE) {
                  echo "<br>Fichier<b> ".$this->aContent[$i]."</b> supprimé";
               }
            }
         } // End for.....
         clearstatcache();
    }  // End func delete files 
    
    function debug($bool=TRUE){
        $this->debug = $bool;
    }
    
    
} // End of class dirtool
?>