public function extract($archive, $destination, $options = array())
{
// Initialise variables.
$this->_data = null;
$this->_metadata = null;
if (!($this->_data = MFile::read($archive))) {
$this->set('error.message', 'Unable to read archive');
return MError::raiseWarning(100, $this->get('error.message'));
}
if (!$this->_getTarInfo($this->_data)) {
return MError::raiseWarning(100, $this->get('error.message'));
}
for ($i = 0, $n = count($this->_metadata); $i < $n; $i++) {
$type = strtolower($this->_metadata[$i]['type']);
if ($type == 'file' || $type == 'unix file') {
$buffer = $this->_metadata[$i]['data'];
$path = MPath::clean($destination . '/' . $this->_metadata[$i]['name']);
// Make sure the destination folder exists
if (!MFolder::create(dirname($path))) {
$this->set('error.message', 'Unable to create destination');
return MError::raiseWarning(100, $this->get('error.message'));
}
if (MFile::write($path, $buffer) === false) {
$this->set('error.message', 'Unable to write entry');
return MError::raiseWarning(100, $this->get('error.message'));
}
}
}
return true;
}
private function _extract($archive, $destination, $options)
{
// Initialise variables.
$this->_data = null;
$this->_metadata = null;
if (!extension_loaded('zlib')) {
$this->set('error.message', MText::_('MLIB_FILESYSTEM_ZIP_NOT_SUPPORTED'));
return false;
}
if (!($this->_data = MFile::read($archive))) {
$this->set('error.message', MText::_('MLIB_FILESYSTEM_ZIP_UNABLE_TO_READ'));
return false;
}
if (!$this->_readZipInfo($this->_data)) {
$this->set('error.message', MText::_('MLIB_FILESYSTEM_ZIP_INFO_FAILED'));
return false;
}
for ($i = 0, $n = count($this->_metadata); $i < $n; $i++) {
$lastPathCharacter = substr($this->_metadata[$i]['name'], -1, 1);
if ($lastPathCharacter !== '/' && $lastPathCharacter !== '\\') {
$buffer = $this->_getFileData($i);
$path = MPath::clean($destination . '/' . $this->_metadata[$i]['name']);
// Make sure the destination folder exists
if (!MFolder::create(dirname($path))) {
$this->set('error.message', MText::_('MLIB_FILESYSTEM_ZIP_UNABLE_TO_CREATE_DESTINATION'));
return false;
}
if (MFile::write($path, $buffer) === false) {
$this->set('error.message', MText::_('MLIB_FILESYSTEM_ZIP_UNABLE_TO_WRITE_ENTRY'));
return false;
}
}
}
return true;
}
public static function addIncludePath($path = '')
{
static $paths;
if (!isset($paths)) {
$paths = array();
}
if (!empty($path) && !in_array($path, $paths)) {
mimport('framework.filesystem.path');
array_unshift($paths, MPath::clean($path));
}
return $paths;
}
public static function addIncludePath($path = '', $prefix = '')
{
static $paths;
if (!isset($paths)) {
$paths = array();
}
if (!isset($paths[$prefix])) {
$paths[$prefix] = array();
}
if (!isset($paths[''])) {
$paths[''] = array();
}
if (!empty($path)) {
mimport('framework.filesystem.path');
if (!in_array($path, $paths[$prefix])) {
array_unshift($paths[$prefix], MPath::clean($path));
}
if (!in_array($path, $paths[''])) {
array_unshift($paths[''], MPath::clean($path));
}
}
return $paths[$prefix];
}
public function postflight($type, $parent)
{
if (MFolder::copy(MPath::clean(MPATH_WP_PLG . '/miwosql/languages'), MPath::clean(MPATH_WP_CNT . '/miwi/languages'), null, true)) {
MFolder::delete(MPath::clean(MPATH_WP_PLG . '/miwosql/languages'));
}
}
protected function getInput()
{
// Get the client id.
$clientId = $this->element['client_id'];
if (is_null($clientId) && $this->form instanceof MForm) {
$clientId = $this->form->getValue('client_id');
}
$clientId = (int) $clientId;
$client = MApplicationHelper::getClientInfo($clientId);
// Get the module.
$module = (string) $this->element['module'];
if (empty($module) && $this->form instanceof MForm) {
$module = $this->form->getValue('module');
}
$module = preg_replace('#\\W#', '', $module);
// Get the template.
$template = (string) $this->element['template'];
$template = preg_replace('#\\W#', '', $template);
// Get the style.
if ($this->form instanceof MForm) {
$template_style_id = $this->form->getValue('template_style_id');
}
$template_style_id = preg_replace('#\\W#', '', $template_style_id);
// If an extension and view are present build the options.
if ($module && $client) {
// Load language file
$lang = MFactory::getLanguage();
$lang->load($module . '.sys', $client->path, null, false, false) || $lang->load($module . '.sys', $client->path . '/modules/' . $module, null, false, false) || $lang->load($module . '.sys', $client->path, $lang->getDefault(), false, false) || $lang->load($module . '.sys', $client->path . '/modules/' . $module, $lang->getDefault(), false, false);
// Get the database object and a new query object.
$db = MFactory::getDBO();
$query = $db->getQuery(true);
// Build the query.
$query->select('element, name');
$query->from('#__extensions as e');
$query->where('e.client_id = ' . (int) $clientId);
$query->where('e.type = ' . $db->quote('template'));
$query->where('e.enabled = 1');
if ($template) {
$query->where('e.element = ' . $db->quote($template));
}
if ($template_style_id) {
$query->join('LEFT', '#__template_styles as s on s.template=e.element');
$query->where('s.id=' . (int) $template_style_id);
}
// Set the query and load the templates.
$db->setQuery($query);
$templates = $db->loadObjectList('element');
// Check for a database error.
if ($db->getErrorNum()) {
MError::raiseWarning(500, $db->getErrorMsg());
}
// Build the search paths for module layouts.
$module_path = MPath::clean($client->path . '/modules/' . $module . '/tmpl');
// Prepare array of component layouts
$module_layouts = array();
// Prepare the grouped list
$groups = array();
// Add the layout options from the module path.
if (is_dir($module_path) && ($module_layouts = MFolder::files($module_path, '^[^_]*\\.php$'))) {
// Create the group for the module
$groups['_'] = array();
$groups['_']['id'] = $this->id . '__';
$groups['_']['text'] = MText::sprintf('MOPTION_FROM_MODULE');
$groups['_']['items'] = array();
foreach ($module_layouts as $file) {
// Add an option to the module group
$value = MFile::stripExt($file);
$text = $lang->hasKey($key = strtoupper($module . '_LAYOUT_' . $value)) ? MText::_($key) : $value;
$groups['_']['items'][] = MHtml::_('select.option', '_:' . $value, $text);
}
}
// Loop on all templates
if ($templates) {
foreach ($templates as $template) {
// Load language file
$lang->load('tpl_' . $template->element . '.sys', $client->path, null, false, false) || $lang->load('tpl_' . $template->element . '.sys', $client->path . '/templates/' . $template->element, null, false, false) || $lang->load('tpl_' . $template->element . '.sys', $client->path, $lang->getDefault(), false, false) || $lang->load('tpl_' . $template->element . '.sys', $client->path . '/templates/' . $template->element, $lang->getDefault(), false, false);
$template_path = MPath::clean($client->path . '/templates/' . $template->element . '/html/' . $module);
// Add the layout options from the template path.
if (is_dir($template_path) && ($files = MFolder::files($template_path, '^[^_]*\\.php$'))) {
foreach ($files as $i => $file) {
// Remove layout that already exist in component ones
if (in_array($file, $module_layouts)) {
unset($files[$i]);
}
}
if (count($files)) {
// Create the group for the template
$groups[$template->element] = array();
$groups[$template->element]['id'] = $this->id . '_' . $template->element;
$groups[$template->element]['text'] = MText::sprintf('MOPTION_FROM_TEMPLATE', $template->name);
$groups[$template->element]['items'] = array();
foreach ($files as $file) {
// Add an option to the template group
$value = MFile::stripExt($file);
$text = $lang->hasKey($key = strtoupper('TPL_' . $template->element . '_' . $module . '_LAYOUT_' . $value)) ? MText::_($key) : $value;
$groups[$template->element]['items'][] = MHtml::_('select.option', $template->element . ':' . $value, $text);
}
}
}
}
}
// Compute attributes for the grouped list
$attr = $this->element['size'] ? ' size="' . (int) $this->element['size'] . '"' : '';
// Prepare HTML code
$html = array();
// Compute the current selected values
$selected = array($this->value);
// Add a grouped list
$html[] = MHtml::_('select.groupedlist', $groups, $this->name, array('id' => $this->id, 'group.id' => 'id', 'list.attr' => $attr, 'list.select' => $selected));
return implode($html);
} else {
return '';
}
}
protected function getInput()
{
// Initialize variables.
// Get the client id.
$clientId = $this->element['client_id'];
if (is_null($clientId) && $this->form instanceof MForm) {
$clientId = $this->form->getValue('client_id');
}
$clientId = (int) $clientId;
$client = MApplicationHelper::getClientInfo($clientId);
// Get the extension.
$extn = (string) $this->element['extension'];
if (empty($extn) && $this->form instanceof MForm) {
$extn = $this->form->getValue('extension');
}
$extn = preg_replace('#\\W#', '', $extn);
// Get the template.
$template = (string) $this->element['template'];
$template = preg_replace('#\\W#', '', $template);
// Get the style.
if ($this->form instanceof MForm) {
$template_style_id = $this->form->getValue('template_style_id');
}
$template_style_id = preg_replace('#\\W#', '', $template_style_id);
// Get the view.
$view = (string) $this->element['view'];
$view = preg_replace('#\\W#', '', $view);
// If a template, extension and view are present build the options.
if ($extn && $view && $client) {
// Load language file
$lang = MFactory::getLanguage();
$lang->load($extn . '.sys', MPATH_ADMINISTRATOR, null, false, false) || $lang->load($extn . '.sys', MPATH_ADMINISTRATOR . '/components/' . $extn, null, false, false) || $lang->load($extn . '.sys', MPATH_ADMINISTRATOR, $lang->getDefault(), false, false) || $lang->load($extn . '.sys', MPATH_ADMINISTRATOR . '/components/' . $extn, $lang->getDefault(), false, false);
// Get the database object and a new query object.
$db = MFactory::getDBO();
$query = $db->getQuery(true);
// Build the query.
$query->select('e.element, e.name');
$query->from('#__extensions as e');
$query->where('e.client_id = ' . (int) $clientId);
$query->where('e.type = ' . $db->quote('template'));
$query->where('e.enabled = 1');
if ($template) {
$query->where('e.element = ' . $db->quote($template));
}
if ($template_style_id) {
$query->join('LEFT', '#__template_styles as s on s.template=e.element');
$query->where('s.id=' . (int) $template_style_id);
}
// Set the query and load the templates.
$db->setQuery($query);
$templates = $db->loadObjectList('element');
// Check for a database error.
if ($db->getErrorNum()) {
MError::raiseWarning(500, $db->getErrorMsg());
}
// Build the search paths for component layouts.
$component_path = MPath::clean($client->path . '/components/' . $extn . '/views/' . $view . '/tmpl');
// Prepare array of component layouts
$component_layouts = array();
// Prepare the grouped list
$groups = array();
// Add a Use Global option if useglobal="true" in XML file
if ($this->element['useglobal'] == 'true') {
$groups[MText::_('MOPTION_FROM_STANDARD')]['items'][] = MHtml::_('select.option', '', MText::_('MGLOBAL_USE_GLOBAL'));
}
// Add the layout options from the component path.
if (is_dir($component_path) && ($component_layouts = MFolder::files($component_path, '^[^_]*\\.xml$', false, true))) {
// Create the group for the component
$groups['_'] = array();
$groups['_']['id'] = $this->id . '__';
$groups['_']['text'] = MText::sprintf('MOPTION_FROM_COMPONENT');
$groups['_']['items'] = array();
foreach ($component_layouts as $i => $file) {
// Attempt to load the XML file.
if (!($xml = simplexml_load_file($file))) {
unset($component_layouts[$i]);
continue;
}
// Get the help data from the XML file if present.
if (!($menu = $xml->xpath('layout[1]'))) {
unset($component_layouts[$i]);
continue;
}
$menu = $menu[0];
// Add an option to the component group
$value = MFile::stripext(MFile::getName($file));
$component_layouts[$i] = $value;
$text = isset($menu['option']) ? MText::_($menu['option']) : (isset($menu['title']) ? MText::_($menu['title']) : $value);
$groups['_']['items'][] = MHtml::_('select.option', '_:' . $value, $text);
}
}
// Loop on all templates
if ($templates) {
foreach ($templates as $template) {
// Load language file
$lang->load('tpl_' . $template->element . '.sys', $client->path, null, false, false) || $lang->load('tpl_' . $template->element . '.sys', $client->path . '/templates/' . $template->element, null, false, false) || $lang->load('tpl_' . $template->element . '.sys', $client->path, $lang->getDefault(), false, false) || $lang->load('tpl_' . $template->element . '.sys', $client->path . '/templates/' . $template->element, $lang->getDefault(), false, false);
$template_path = MPath::clean($client->path . '/templates/' . $template->element . '/html/' . $extn . '/' . $view);
// Add the layout options from the template path.
if (is_dir($template_path) && ($files = MFolder::files($template_path, '^[^_]*\\.php$', false, true))) {
// Files with corresponding XML files are alternate menu items, not alternate layout files
// so we need to exclude these files from the list.
$xml_files = MFolder::files($template_path, '^[^_]*\\.xml$', false, true);
for ($j = 0, $count = count($xml_files); $j < $count; $j++) {
$xml_files[$j] = MFile::stripext(MFile::getName($xml_files[$j]));
}
foreach ($files as $i => $file) {
// Remove layout files that exist in the component folder or that have XML files
if (in_array(MFile::stripext(MFile::getName($file)), $component_layouts) || in_array(MFile::stripext(MFile::getName($file)), $xml_files)) {
unset($files[$i]);
}
}
if (count($files)) {
// Create the group for the template
$groups[$template->name] = array();
$groups[$template->name]['id'] = $this->id . '_' . $template->element;
$groups[$template->name]['text'] = MText::sprintf('MOPTION_FROM_TEMPLATE', $template->name);
$groups[$template->name]['items'] = array();
foreach ($files as $file) {
// Add an option to the template group
$value = MFile::stripext(MFile::getName($file));
$text = $lang->hasKey($key = strtoupper('TPL_' . $template->name . '_' . $extn . '_' . $view . '_LAYOUT_' . $value)) ? MText::_($key) : $value;
$groups[$template->name]['items'][] = MHtml::_('select.option', $template->element . ':' . $value, $text);
}
}
}
}
}
// Compute attributes for the grouped list
$attr = $this->element['size'] ? ' size="' . (int) $this->element['size'] . '"' : '';
// Prepare HTML code
$html = array();
// Compute the current selected values
$selected = array($this->value);
// Add a grouped list
$html[] = MHtml::_('select.groupedlist', $groups, $this->name, array('id' => $this->id, 'group.id' => 'id', 'list.attr' => $attr, 'list.select' => $selected));
return implode($html);
} else {
return '';
}
}
public static function extract($archivename, $extractdir)
{
mimport('framework.filesystem.file');
mimport('framework.filesystem.folder');
$untar = false;
$result = false;
$ext = MFile::getExt(strtolower($archivename));
// Check if a tar is embedded...gzip/bzip2 can just be plain files!
if (MFile::getExt(MFile::stripExt(strtolower($archivename))) == 'tar') {
$untar = true;
}
switch ($ext) {
case 'zip':
$adapter = MArchive::getAdapter('zip');
if ($adapter) {
$result = $adapter->extract($archivename, $extractdir);
}
break;
case 'tar':
$adapter = MArchive::getAdapter('tar');
if ($adapter) {
$result = $adapter->extract($archivename, $extractdir);
}
break;
case 'tgz':
// This format is a tarball gzip'd
$untar = true;
case 'gz':
case 'gzip':
// This may just be an individual file (e.g. sql script)
$adapter = MArchive::getAdapter('gzip');
if ($adapter) {
$config = MFactory::getConfig();
$tmpfname = $config->get('tmp_path') . '/' . uniqid('gzip');
$gzresult = $adapter->extract($archivename, $tmpfname);
if ($gzresult instanceof Exception) {
@unlink($tmpfname);
return false;
}
if ($untar) {
// Try to untar the file
$tadapter = MArchive::getAdapter('tar');
if ($tadapter) {
$result = $tadapter->extract($tmpfname, $extractdir);
}
} else {
$path = MPath::clean($extractdir);
MFolder::create($path);
$result = MFile::copy($tmpfname, $path . '/' . MFile::stripExt(MFile::getName(strtolower($archivename))), null, 1);
}
@unlink($tmpfname);
}
break;
case 'tbz2':
// This format is a tarball bzip2'd
$untar = true;
case 'bz2':
case 'bzip2':
// This may just be an individual file (e.g. sql script)
$adapter = MArchive::getAdapter('bzip2');
if ($adapter) {
$config = MFactory::getConfig();
$tmpfname = $config->get('tmp_path') . '/' . uniqid('bzip2');
$bzresult = $adapter->extract($archivename, $tmpfname);
if ($bzresult instanceof Exception) {
@unlink($tmpfname);
return false;
}
if ($untar) {
// Try to untar the file
$tadapter = MArchive::getAdapter('tar');
if ($tadapter) {
$result = $tadapter->extract($tmpfname, $extractdir);
}
} else {
$path = MPath::clean($extractdir);
MFolder::create($path);
$result = MFile::copy($tmpfname, $path . '/' . MFile::stripExt(MFile::getName(strtolower($archivename))), null, 1);
}
@unlink($tmpfname);
}
break;
default:
MError::raiseWarning(10, MText::_('MLIB_FILESYSTEM_UNKNOWNARCHIVETYPE'));
return false;
break;
}
if (!$result || $result instanceof Exception) {
return false;
}
return true;
}
public static function check($path, $ds = DIRECTORY_SEPARATOR)
{
if (strpos($path, '..') !== false) {
MError::raiseError(20, 'MPath::check Use of relative paths not permitted');
mexit();
}
$path = MPath::clean($path);
if (MPATH_ROOT != '' && strpos($path, MPath::clean(MPATH_ROOT)) !== 0) {
// Don't translate
//MError::raiseError(20, 'MPath::check Snooping out of bounds @ ' . $path);
//mexit();
}
return $path;
}
public static function listFolderTree($path, $filter, $maxLevel = 3, $level = 0, $parent = 0)
{
$dirs = array();
if ($level == 0) {
$GLOBALS['_MFolder_folder_tree_index'] = 0;
}
if ($level < $maxLevel) {
$folders = self::folders($path, $filter);
// First path, index foldernames
foreach ($folders as $name) {
$id = ++$GLOBALS['_MFolder_folder_tree_index'];
$fullName = MPath::clean($path . '/' . $name);
$dirs[] = array('id' => $id, 'parent' => $parent, 'name' => $name, 'fullname' => $fullName, 'relname' => str_replace(MPATH_ROOT, '', $fullName));
$dirs2 = self::listFolderTree($fullName, $filter, $maxLevel, $level + 1, $id);
$dirs = array_merge($dirs, $dirs2);
}
}
return $dirs;
}
public static function exists($file)
{
return is_file(MPath::clean($file));
}
public static function addIncludePath($path = '')
{
// Force path to array
settype($path, 'array');
// Loop through the path directories
foreach ($path as $dir) {
if (!empty($dir) && !in_array($dir, MHtml::$includePaths)) {
mimport('joomla.filesystem.path');
array_unshift(MHtml::$includePaths, MPath::clean($dir));
}
}
return MHtml::$includePaths;
}
