/** * @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; }
/** * @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; }