Показать сообщение отдельно

  #7  
Старый 25.02.2008, 01:53
bul.666
Banned
Регистрация: 06.06.2006
Сообщений: 944
С нами: 10489346

Репутация: 1403


По умолчанию

PHP код:
<?php
/***********************************************************
 *   Title:  Classic-TAR based backup script v0.0.1-dev
  **********************************************************/

Class Tar_by_Vladson {
    var 
$tar_file;
    var 
$fp;
    function 
Tar_by_Vladson($tar_file='backup.tar') {
        
$this->tar_file $tar_file;
        
$this->fp fopen($this->tar_file"wb");
        
$tree $this->build_tree();
        
$this->process_tree($tree);
        
fputs($this->fppack("a512"""));
        
fclose($this->fp);
    }
    function 
build_tree($dir='.'){
        
$handle opendir($dir);
        while(
false !== ($readdir readdir($handle))){
            if(
$readdir != '.' && $readdir != '..'){
                
$path $dir.'/'.$readdir;
                if (
is_file($path)) {
                    
$output[] = substr($path2strlen($path));
                } elseif (
is_dir($path)) {
                    
$output[] = substr($path2strlen($path)).'/';
                    
$output array_merge($output$this->build_tree($path));
                }
            }
        }
        
closedir($handle);
        return 
$output;
    }
    function 
process_tree($tree) {
        foreach( 
$tree as $pathfile ) {
            if (
substr($pathfile, -11) == '/') {
                
fputs($this->fp$this->build_header($pathfile));
            } elseif (
$pathfile != $this->tar_file) {
                
$filesize filesize($pathfile);
                
$block_len 512*ceil($filesize/512)-$filesize;
                
fputs($this->fp$this->build_header($pathfile));
                
fputs($this->fpfile_get_contents($pathfile));
                
fputs($this->fppack("a".$block_len""));
            }
        }
        return 
true;
    }
    function 
build_header($pathfile) {
        if ( 
strlen($pathfile) > 99 ) die('Error');
        
$info stat($pathfile);
        if ( 
is_dir($pathfile) ) $info[7] = 0;
        
$header pack("a100a8a8a8a12A12a8a1a100a255",
            
$pathfile,
            
sprintf("%6s "decoct($info[2])),
            
sprintf("%6s "decoct($info[4])),
            
sprintf("%6s "decoct($info[5])),
            
sprintf("%11s ",decoct($info[7])),
            
sprintf("%11s"decoct($info[9])),
            
sprintf("%8s"" "),
            (
is_dir($pathfile) ? "5" "0"),
            
"",
            
""
            
);
        
clearstatcache();
        
$checksum 0;
        for (
$i=0$i<512$i++) {
            
$checksum += ord(substr($header,$i,1));
        }
        
$checksum_data pack(
            
"a8"sprintf("%6s "decoct($checksum))
            );
        for (
$i=0$j=148$i<7$i++, $j++)
            
$header[$j] = $checksum_data[$i];
        return 
$header;
    }
}

header('Content-type: text/plain');
$start_time array_sum(explode(chr(32), microtime()));
$tar = & new Tar_by_Vladson();
$finish_time array_sum(explode(chr(32), microtime()));
printf("The time taken: %f seconds", ($finish_time $start_time));
?>
Создает tar архив всех файлов в той директории, где скрипт
Подправь ^^
 
Ответить с цитированием