275 lines
9.1 KiB
PHP
275 lines
9.1 KiB
PHP
|
#!/usr/bin/env php
|
||
|
|
<?php
|
||
|
|
|
||
|
|
// parse $excep_file file to memorise file to transform (bashrc -> .bashrc)
|
||
|
|
// $prefix is a prefix for read datas ( home/alice/bash -> fs/home/alice/bash )
|
||
|
|
function read_exceptions( $excep_file, $prefix )
|
||
|
|
{
|
||
|
|
$exceptions = array();
|
||
|
|
$uid = array();
|
||
|
|
$gid = array();
|
||
|
|
$stat = @ stat( $excep_file );
|
||
|
|
if ( ! $stat )
|
||
|
|
fprintf(STDERR, "pas d'exceptions\n");
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$fd = fopen( $excep_file, "r" );
|
||
|
|
while (($ligne = fgets($fd)) !== false)
|
||
|
|
{
|
||
|
|
|
||
|
|
$ligne = trim( $ligne ); // suppress useless space
|
||
|
|
// don't parce comment lines
|
||
|
|
if ( ( substr( $ligne, 0, 1 ) == "#" ) || ( substr( $ligne, 0, 2 ) == "//" ) )
|
||
|
|
continue;
|
||
|
|
$t = explode( " ", $ligne );
|
||
|
|
|
||
|
|
if ( @ $t[0] == "herit" )
|
||
|
|
{
|
||
|
|
if ( count($t) == 5 )
|
||
|
|
{
|
||
|
|
// print ("analyse $ligne " . $t[1] . "\n");
|
||
|
|
if ( $t[1] == "uid" )
|
||
|
|
$uid[ $prefix . DIRECTORY_SEPARATOR . $t[3] ] = $t[4];
|
||
|
|
else if ( $t[1] == "gid" )
|
||
|
|
$gid[ $prefix . DIRECTORY_SEPARATOR . $t[3] ] = $t[4];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else if ( count( $t ) == 2 )
|
||
|
|
{
|
||
|
|
// check there is 2 columns => file -> .file
|
||
|
|
$exceptions[ $prefix . DIRECTORY_SEPARATOR . $t[0] ] = $t[1];
|
||
|
|
}
|
||
|
|
else
|
||
|
|
fwrite (STDERR, $ligne . "not parsed");
|
||
|
|
}
|
||
|
|
fclose ($fd);
|
||
|
|
}
|
||
|
|
return array( $exceptions, $uid, $gid );
|
||
|
|
}
|
||
|
|
|
||
|
|
function dump_exceptions( $e )
|
||
|
|
{
|
||
|
|
if ( ! empty( $e ) )
|
||
|
|
{
|
||
|
|
while ( list( $k, $v ) = each( $e ) )
|
||
|
|
{
|
||
|
|
fwrite ( STDERR, $k . " --> " . $v . "\n");
|
||
|
|
}
|
||
|
|
fwrite( STDERR, "-------------------------------\n");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function radical_search( $needle, $tab )
|
||
|
|
{
|
||
|
|
$res = array( false, 0);
|
||
|
|
|
||
|
|
// decoupe la chaine $needle (séparateur /) pour rechercher si la chaine est heritee
|
||
|
|
$t = explode( DIRECTORY_SEPARATOR, $needle );
|
||
|
|
$s = "";
|
||
|
|
for ( $i = 0; $i < count($t); $i++)
|
||
|
|
{
|
||
|
|
if ( strlen($s) != 0 )
|
||
|
|
$s .= DIRECTORY_SEPARATOR;
|
||
|
|
$s .= $t[$i];
|
||
|
|
if ( array_key_exists( $s, $tab ) )
|
||
|
|
{
|
||
|
|
$res = array( true, $tab[ $s ] );
|
||
|
|
$i = count($t);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return $res;
|
||
|
|
}
|
||
|
|
|
||
|
|
// return string formed by n spaces
|
||
|
|
function space( $n )
|
||
|
|
{
|
||
|
|
$sp="";
|
||
|
|
for ( $i = 0; $i<$n; $i++)
|
||
|
|
$sp.= " ";
|
||
|
|
return $sp;
|
||
|
|
}
|
||
|
|
|
||
|
|
function dirToArray($dir, $decalage)
|
||
|
|
{
|
||
|
|
global $exceptions, $tabUID, $tabGID, $prefix;
|
||
|
|
|
||
|
|
$result = "";
|
||
|
|
|
||
|
|
// $result .= "Analyse le repertoire : $dir\n";
|
||
|
|
|
||
|
|
$cdir = @ scandir($dir);
|
||
|
|
if ( $cdir )
|
||
|
|
{
|
||
|
|
|
||
|
|
// parse les fichiers en 1er
|
||
|
|
foreach ($cdir as $key => $filename)
|
||
|
|
{
|
||
|
|
$lname = $dir . DIRECTORY_SEPARATOR . $filename;
|
||
|
|
if ( ! is_dir($lname) )
|
||
|
|
{
|
||
|
|
if ( is_link($lname) )
|
||
|
|
{
|
||
|
|
$result .= space( $decalage );
|
||
|
|
$result.= '{ "name":"' . $filename . '", "mode":"120777", "path":"' . readlink( $lname ) . '"},' . "\n";
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$ext = substr( $filename, strlen( $filename ) - 4, 4 );
|
||
|
|
$infos = stat( $dir . DIRECTORY_SEPARATOR . $filename );
|
||
|
|
// print ("traite le fichier : $dir" . DIRECTORY_SEPARATOR . "$filename\n");
|
||
|
|
// file is compressed ... need to find the real (decompressed) size
|
||
|
|
if ( $ext == ".bz2" )
|
||
|
|
{
|
||
|
|
$l = 0;
|
||
|
|
$fh = bzopen($lname ,'r');
|
||
|
|
while(!feof($fh))
|
||
|
|
{
|
||
|
|
$buffer = bzread($fh);
|
||
|
|
if($buffer === FALSE)
|
||
|
|
{
|
||
|
|
$l=0;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
else if(bzerrno($fh) !== 0)
|
||
|
|
{
|
||
|
|
// die('Compression Problem');
|
||
|
|
$l=0;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
$l += strlen( $buffer );
|
||
|
|
}
|
||
|
|
bzclose($fh);
|
||
|
|
$d = sprintf("%04o", $infos['mode']);
|
||
|
|
$nname = substr( $filename, 0, strlen( $filename) - 4 );
|
||
|
|
$extra = "";
|
||
|
|
$needle = $dir . DIRECTORY_SEPARATOR . $nname;
|
||
|
|
if ( array_key_exists( $needle, $exceptions ) )
|
||
|
|
{
|
||
|
|
$extra = ', "src":"' . $needle . '" ';
|
||
|
|
$nname = basename( $exceptions[$needle] );
|
||
|
|
}
|
||
|
|
list( $res, $u ) = radical_search( $needle, $tabUID );
|
||
|
|
if ( $res )
|
||
|
|
{
|
||
|
|
fprintf (STDERR, "recherche $needle dans UID : trouvee ($u)\n");
|
||
|
|
$extra .= ', "uid":' . $u . " ";
|
||
|
|
}
|
||
|
|
list( $res, $g ) = radical_search( $needle, $tabGID );
|
||
|
|
if ( $res )
|
||
|
|
{
|
||
|
|
fprintf (STDERR, "recherche $needle dans GID : trouvee ($g)\n");
|
||
|
|
$extra .= ', "gid":' . $g . " ";
|
||
|
|
}
|
||
|
|
|
||
|
|
$result .= space( $decalage );
|
||
|
|
$result.= '{ "name":"' . $nname . '", "mode":"' . $d . '", "size":' . $l . ', "c":1' . $extra . '},' . "\n";
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
// flat file
|
||
|
|
$result .= space( $decalage );
|
||
|
|
if ( ! $infos )
|
||
|
|
$result .= '{ "name":"' . $filename . '", "mode":"100644", "size":0},' . "\n";
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$t=decoct($infos['mode'] & 000777);
|
||
|
|
$d = sprintf("%04o", $infos['mode']);
|
||
|
|
$extra = "";
|
||
|
|
$needle = $dir . DIRECTORY_SEPARATOR . $filename;
|
||
|
|
if ( $filename == "bashrc" )
|
||
|
|
{
|
||
|
|
fwrite( STDERR, "fichier bashrc trouvé\n");
|
||
|
|
fwrite( STDERR, "needle : $needle\n");
|
||
|
|
if ( array_key_exists( $needle, $exceptions ) )
|
||
|
|
{
|
||
|
|
fwrite( STDERR, "needle founded\n");
|
||
|
|
fwrite( STDERR, substr( $needle, strlen( $prefix ) + 1 ) . " -- " . basename( $exceptions[$needle] ) . "\n");
|
||
|
|
}
|
||
|
|
else
|
||
|
|
fwrite( STDERR, "needle not founded\n");
|
||
|
|
}
|
||
|
|
// fprintf (STDERR, "cherche needle : $needle\n");
|
||
|
|
list( $res, $u ) = radical_search( $needle, $tabUID );
|
||
|
|
if ( $res )
|
||
|
|
{
|
||
|
|
fprintf (STDERR, "recherche $needle dans UID : trouvee ($u)\n");
|
||
|
|
$extra .= ', "uid":' . $u . " ";
|
||
|
|
}
|
||
|
|
list( $res, $g ) = radical_search( $needle, $tabGID );
|
||
|
|
if ( $res )
|
||
|
|
{
|
||
|
|
fprintf (STDERR, "recherche $needle dans GID : trouvee ($g)\n");
|
||
|
|
$extra .= ', "gid":' . $g . " ";
|
||
|
|
}
|
||
|
|
if ( array_key_exists( $needle, $exceptions ) )
|
||
|
|
{
|
||
|
|
$filename = basename( $exceptions[$needle] );
|
||
|
|
$needle = substr( $needle, strlen( $prefix ) + 1 );
|
||
|
|
$extra .= ', "src":"' . $needle . '" ';
|
||
|
|
}
|
||
|
|
|
||
|
|
$result.= '{ "name":"' . $filename . '", "mode":"' . $d . '", "size":' . $infos["size"] . $extra . '},' . "\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// parse les repertoire en 2nd
|
||
|
|
foreach ($cdir as $key => $value)
|
||
|
|
{
|
||
|
|
if ( ! in_array($value,array(".","..")))
|
||
|
|
if (is_dir($dir . DIRECTORY_SEPARATOR . $value))
|
||
|
|
{
|
||
|
|
// $result .= space( $decalage) . $dir . DIRECTORY_SEPARATOR . $value . "-\n";
|
||
|
|
// $result .= $dir . DIRECTORY_SEPARATOR . $value;
|
||
|
|
$complement = "";
|
||
|
|
$needle = $dir . DIRECTORY_SEPARATOR . $value;
|
||
|
|
list( $res, $u ) = radical_search( $needle, $tabUID );
|
||
|
|
if ( $res )
|
||
|
|
{
|
||
|
|
fprintf (STDERR, "recherche $needle dans UID : trouvee ($u)\n");
|
||
|
|
$complement .= '"uid":' . $u . ", ";
|
||
|
|
}
|
||
|
|
list( $res, $g ) = radical_search( $needle, $tabGID );
|
||
|
|
if ( $res )
|
||
|
|
{
|
||
|
|
fprintf (STDERR, "recherche $needle dans GID: trouvee ($g)\n");
|
||
|
|
$complement .= '"gid":' . $g . ", ";
|
||
|
|
}
|
||
|
|
|
||
|
|
$result .= space( $decalage) . '{ "name":"' . $value . '", ' . $complement . '"mode":"40755", "child":[' . "\n";
|
||
|
|
$b = rtrim( dirToArray($dir . DIRECTORY_SEPARATOR . $value, $decalage+3) );
|
||
|
|
if ( strlen ($b) > 0 )
|
||
|
|
$result .= $b . "\n";
|
||
|
|
$result .= space( $decalage) . "]},\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ( substr( $result, strlen( $result ) - 2, 2 ) == ",\n" )
|
||
|
|
$result = substr( $result, 0, strlen( $result ) - 2) . "\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
// $result .= "Fin de l'analyse le repertoire : $dir\n";
|
||
|
|
|
||
|
|
return $result;
|
||
|
|
}
|
||
|
|
|
||
|
|
// prefix : GLOBAL variable
|
||
|
|
$prefix = @ $argv[1];
|
||
|
|
|
||
|
|
// exceptions : GLOBAL Variable
|
||
|
|
list($exceptions, $tabUID, $tabGID ) = read_exceptions( "exceptions.txt", $prefix );
|
||
|
|
dump_exceptions( $exceptions );
|
||
|
|
dump_exceptions( $tabUID );
|
||
|
|
|
||
|
|
$decalage = 3;
|
||
|
|
$s = '{"src":"../sys/fs", "fs":[' . "\n";
|
||
|
|
$s .= dirToArray( $prefix, $decalage );
|
||
|
|
$s .= "]}\n";
|
||
|
|
|
||
|
|
print ($s);
|
||
|
|
|
||
|
|
?>
|