/**
* @param string The name of the archive file
* @param string Directory to unpack into
* @return boolean True for success
*/
function extract($archivename, $extractdir)
{
require_once dirname(__FILE__) . '/file.php';
require_once dirname(__FILE__) . '/folder.php';
$untar = false;
$result = false;
$ext = extFile::getExt(strtolower($archivename));
// check if a tar is embedded...gzip/bzip2 can just be plain files!
if (extFile::getExt(extFile::stripExt(strtolower($archivename))) == 'tar') {
$untar = true;
}
switch ($ext) {
case 'tar':
case 'tgz':
case 'gz':
// This may just be an individual file (e.g. sql script)
// This may just be an individual file (e.g. sql script)
case 'gzip':
case 'tbz':
case 'tbz2':
case 'bz2':
// This may just be an individual file (e.g. sql script)
// This may just be an individual file (e.g. sql script)
case 'bzip2':
require_once dirname(__FILE__) . '/Tar.php';
$archive = new Archive_Tar($archivename);
$result = $archive->extract($extractdir);
break;
/*
default :
$adapter = & extArchive::getAdapter( $ext ) ;
if( $adapter ) {
$result = $adapter->extract( $archivename, $extractdir ) ;
} else {
return PEAR::raiseError('Unknown Archive Type: '.$ext );
}
break ;
*/
}
return $result;
}
function execAction($dir, $item, $unlink = false)
{
// Security Fix:
$item = basename($item);
while (@ob_end_clean()) {
}
ob_start();
if (ext_isFTPMode()) {
$abs_item = $dir . '/' . $item;
} else {
$abs_item = get_abs_item($dir, $item);
//if( !strstr( $abs_item, $GLOBALS['home_dir']) )
// $abs_item = realpath($GLOBALS['home_dir']).$abs_item;
}
if (!$GLOBALS['ext_File']->file_exists($abs_item)) {
ext_Result::sendResult('download', false, $item . ": " . $GLOBALS["error_msg"]["fileexist"]);
return false;
}
if (!get_show_item($dir, $item)) {
ext_Result::sendResult('download', false, $item . ": " . $GLOBALS["error_msg"]["accessfile"]);
return false;
}
@set_time_limit(0);
if (ext_isFTPMode()) {
$abs_item = ext_ftp_make_local_copy($abs_item);
$unlink = true;
}
$browser = id_browser();
header('Expires: ' . gmdate('D, d M Y H:i:s') . ' GMT');
header('Content-Transfer-Encoding: binary');
header('Content-Length: ' . filesize(realpath($abs_item)));
//header("Content-Encoding: none");
if (isset($_GET['action2']) && $_GET['action2'] == 'view') {
$content_disposition = 'inline';
include_once _EXT_PATH . '/libraries/Archive/file.php';
$extension = extFile::getExt($item);
switch (strtolower($extension)) {
case 'doc':
case 'dot':
$extension = 'msword';
break;
case 'docx':
case 'dotx':
$extension = 'vnd.openxmlformats-officedocument.wordprocessingml.template';
break;
case 'docm':
$extension = 'vnd.ms-word.document.macroEnabled.12';
break;
case 'docm':
$extension = 'vnd.ms-word.template.macroEnabled.12';
break;
case 'xls':
case 'xlt':
case 'xla':
$extension = 'vnd.ms-excel';
break;
case 'xlsx':
$extension = 'vnd.openxmlformats-officedocument.spreadsheetml.sheet';
break;
case 'xltx':
$extension = 'vnd.openxmlformats-officedocument.spreadsheetml.template';
break;
case 'xlsm':
$extension = 'vnd.ms-excel.sheet.macroEnabled.12';
break;
case 'xltm':
$extension = 'vnd.ms-excel.template.macroEnabled.12';
break;
case 'xlam':
$extension = 'vnd.ms-excel.addin.macroEnabled.12';
break;
case 'xlsb':
$extension = 'vnd.ms-excel.sheet.binary.macroEnabled.12';
break;
case 'ppt':
case 'pot':
case 'pps':
case 'ppa':
$extension = 'vnd.ms-powerpoint';
break;
case 'pptx':
$extension = 'vnd.openxmlformats-officedocument.presentationml.presentation';
break;
case 'potx':
$extension = 'vnd.openxmlformats-officedocument.presentationml.template';
break;
case 'ppsx':
$extension = 'vnd.openxmlformats-officedocument.presentationml.slideshow';
break;
case 'ppam':
$extension = 'vnd.ms-powerpoint.addin.macroEnabled.12';
break;
case 'pptm':
$extension = 'vnd.ms-powerpoint.presentation.macroEnabled.12';
break;
case 'potm':
$extension = 'vnd.ms-powerpoint.template.macroEnabled.12';
break;
case 'ppsm':
$extension = 'vnd.ms-powerpoint.slideshow.macroEnabled.12';
break;
case 'rtf':
$extension = 'application/rtf';
break;
}
header('Content-Type: application/' . $extension . '; Charset=' . $GLOBALS["system_charset"]);
} else {
$content_disposition = 'attachment';
if ($browser == 'IE' || $browser == 'OPERA') {
header('Content-Type: application/octetstream; Charset=' . $GLOBALS["system_charset"]);
} else {
header('Content-Type: application/octet-stream; Charset=' . $GLOBALS["system_charset"]);
}
}
if ($browser == 'IE') {
// http://support.microsoft.com/kb/436616/ja
header('Content-Disposition: ' . $content_disposition . '; filename="' . urlencode($item) . '"');
header('Cache-Control: must-revalidate, post-check=0, pre-check=0');
header('Pragma: public');
} else {
header('Content-Disposition: ' . $content_disposition . '; filename="' . $item . '"');
header('Cache-Control: no-cache, must-revalidate');
header('Pragma: no-cache');
}
if ($GLOBALS['use_mb']) {
if (mb_detect_encoding($abs_item) == 'ASCII') {
@readFileChunked(utf8_decode($abs_item));
} else {
@readFileChunked($abs_item);
}
} else {
@readFileChunked(utf8_decode($abs_item));
}
if ($unlink == true) {
unlink(utf8_decode($abs_item));
}
ob_end_flush();
ext_exit();
}
/**
* @param string The name of the archive file
* @param string Directory to unpack into
* @return boolean True for success
*/
function extract($archivename, $extractdir)
{
require_once dirname(__FILE__) . '/file.php';
require_once dirname(__FILE__) . '/folder.php';
$untar = false;
$result = false;
$ext = extFile::getExt(strtolower($archivename));
// check if a tar is embedded...gzip/bzip2 can just be plain files!
if (extFile::getExt(extFile::stripExt(strtolower($archivename))) == 'tar') {
$untar = true;
}
switch ($ext) {
case 'zip':
$adapter =& extArchive::getAdapter('zip');
if ($adapter) {
$result = $adapter->extract($archivename, $extractdir);
}
break;
case 'tar':
$adapter =& extArchive::getAdapter('tar');
if ($adapter) {
$result = $adapter->extract($archivename, $extractdir);
}
break;
case 'tgz':
$untar = true;
// This format is a tarball gzip'd
// This format is a tarball gzip'd
case 'gz':
// This may just be an individual file (e.g. sql script)
// This may just be an individual file (e.g. sql script)
case 'gzip':
$adapter =& extArchive::getAdapter('gzip');
if ($adapter) {
$tmpfname = (defined('_EXT_FTPTMP_PATH') ? _EXT_FTPTMP_PATH . '/' : $extractdir) . uniqid('gzip');
$gzresult = $adapter->extract($archivename, $tmpfname);
if (!$gzresult) {
unlink($tmpfname);
return false;
}
if ($untar) {
// Try to untar the file
$tadapter =& extArchive::getAdapter('tar');
if ($tadapter) {
$result = $tadapter->extract($tmpfname, $extractdir);
}
} else {
$path = extPath::clean($extractdir);
mkdir($path);
$result = copy($tmpfname, $path . DS . extFile::stripExt(extFile::getName(strtolower($archivename))));
}
@unlink($tmpfname);
}
break;
case 'tbz2':
$untar = true;
// This format is a tarball bzip2'd
// This format is a tarball bzip2'd
case 'bz2':
// This may just be an individual file (e.g. sql script)
// This may just be an individual file (e.g. sql script)
case 'bzip2':
$adapter =& extArchive::getAdapter('bzip2');
if ($adapter) {
$tmpfname = _EXT_FTPTMP_PATH . '/' . uniqid('bzip2');
$bzresult = $adapter->extract($archivename, $tmpfname);
if (!$bzresult) {
@unlink($tmpfname);
return false;
}
if ($untar) {
// Try to untar the file
$tadapter =& extArchive::getAdapter('tar');
if ($tadapter) {
$result = $tadapter->extract($tmpfname, $extractdir);
}
} else {
$path = extPath::clean($extractdir);
mkdir($path);
$result = copy($tmpfname, $path . DS . extFile::stripExt(extFile::getName(strtolower($archivename))));
}
@unlink($tmpfname);
}
break;
default:
return PEAR::raiseError('Unknown Archive Type: ' . $ext);
break;
}
return $result;
}
