silverstripe-framework/filesystem/TarballArchive.php

82 lines
2.3 KiB
PHP
Raw Normal View History

<?php
class TarballArchive extends Archive {
private $filename = '';
private $compressionModifiers = '';
function __construct($filename) {
$this->filename = $filename;
if(substr($filename, strlen($filename) - strlen('.gz')) == '.gz' ||
substr($filename, strlen($filename) - strlen('.tgz')) == '.tgz') {
$this->compressionModifiers = 'z';
} else if(substr($filename, strlen($filename) - strlen('.bz2')) == '.bz2') {
$compressionModifiers = 'j';
}
}
function listing() {
// Call tar on the command line to get the info we need
$command = "tar -tv{$this->compressionModifiers}f ../$this->filename";
$consoleList = `$command`;
$listing = array();
// Seperate into an array of lines
$listItems = explode("\n", $consoleList);
foreach($listItems as $listItem) {
// The path is the last thing on the line
$fullpath = substr($listItem, strrpos($listItem, ' ') + 1);
$path = explode('/', $fullpath);
$item = array();
// The first part of the line is the permissions - the first character will be d if it is a directory
$item['type'] = (substr($listItem, 0, 1) == 'd') ? 'directory' : 'file';
if($item['type'] == 'directory') {
$item['listing'] = array();
// If it's a directory, the path will have a slash on the end, so get rid of it.
array_pop($path);
}
// The name of the file/directory is the last item on the path
$name = array_pop($path);
if($name == '') {
continue;
}
$item['path'] = implode('/', $path);
// Put the item in the right place
$dest = &$listing;
foreach($path as $folder) {
// If the directory doesn't exist, create it
if(!isset($dest[$folder])) {
$dest[$folder] = array();
$dest[$folder]['listing'] = array();
$dest[$folder]['type'] = 'directory';
}
$dest = &$dest[$folder]['listing'];
}
// If this is a directory and it's listing has already been created, copy the the listing
if($item['type'] == 'directory' && isset($dest[$name]['listing'])) {
$item['listing'] = $dest[$name]['listing'];
}
$dest[$name] = $item;
}
return $listing;
}
function extractTo($destination, $entires = null) {
if(!isset($entries)) {
$command = "tar -xv{$this->compressionModifiers}f ../$this->filename --directory $destination";
$output = `$command`;
}
}
}
?>