root/branches/1.0.x/build/mkmanifest.php

<?php

/**
* @package     jBuildTools
* @author      Jouanneau Laurent
* @contributor
* @copyright   2006-2007 Jouanneau laurent
* @link        http://www.jelix.org
* @licence     GNU General Public Licence see LICENCE file or http://www.gnu.org/licenses/gpl.html
*/

require_once(dirname(__FILE__).'/lib/jCmdUtils.class.php');

// arguments :  repertoire1 [repertoire2]
// repertoire1 : le chemin du repertoire duquel on veut la liste
// repertoire2 : si on veut une base de chemin différente de repertoire1 dans le fichier de sortie
//               on l'indique ici

try{
    $sws = array('-e'=>false);
    $params = array('dirpath'=>true, 'basepath'=>false);
    
    list($switches, $parameters) = jCmdUtils::getOptionsAndParams($_SERVER['argv'], $sws, $params);

}catch(Exception $e){
    echo "\nmkmanifest error : " , $e->getMessage(),"\n";
    echo "  options : [-e] dirpath [basepath]
      -e  : include empty directory\n";
    exit(1);
}

$dirpath = $parameters['dirpath'];
$basepath = $parameters['basepath'];

if(substr($dirpath,-1) == '/'){
   $dirpath=substr($dirpath,0,-1);
}
if($basepath == ''){
   $basepath = $dirpath;
}else{
   if(substr($basepath,-1) == '/'){
      $basepath=substr($basepath,0,-1);
   }
}



function mkpath($dir, $basepath){
   global $switches;
   $output='';
   if ($dh = opendir($dir)) {
      $dirlist=array();
      $cdok=false;
      while (($file = readdir($dh)) !== false) {
         if($file == '.svn')
            continue;
         $type= filetype($dir.'/'.$file);
         if($type == 'dir'){
            if($file != '.' && $file !='..' ){
               $dirlist[]=$file;
            }
         }else{
            if(!$cdok){
               $output.="cd ".$basepath."\n";
               $cdok=true;
            }
            $output.="  ".$file."\n";
         }
      }
      closedir($dh);

      if(!$cdok && count($dirlist) == 0 && isset($switches['-e'])){
          $output.="cd ".$basepath."\n";
      }

      foreach($dirlist as $d){
         $output.=mkpath( $dir.'/'.$d, $basepath.'/'.$d);
      }
   }else{
      echo "erreur ouverture repertoire $dir\n";
       exit(1);
   }
   return $output;
}



$output='';
if (is_dir($dirpath)) {
   $output=mkpath($dirpath,$basepath);
}else{
     echo "mauvais repertoire $dirpath\n";
    exit(1);
}

echo $output;
exit(0);
?>