|
|
|
@@ -1,9 +1,10 @@
|
|
|
|
|
<?php
|
|
|
|
|
/**
|
|
|
|
|
* @package MokoSuiteField
|
|
|
|
|
* @subpackage pkg_mokosuitefield
|
|
|
|
|
* MokoSuite Field Package Install Script
|
|
|
|
|
*
|
|
|
|
|
* @package MokoSuite Field
|
|
|
|
|
* @copyright Copyright (C) 2026 Moko Consulting. All rights reserved.
|
|
|
|
|
* @license GNU General Public License version 3 or later; see LICENSE
|
|
|
|
|
* @license GPL-3.0-or-later
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
defined('_JEXEC') or die;
|
|
|
|
@@ -11,97 +12,99 @@ defined('_JEXEC') or die;
|
|
|
|
|
use Joomla\CMS\Factory;
|
|
|
|
|
use Joomla\CMS\Installer\InstallerAdapter;
|
|
|
|
|
use Joomla\CMS\Log\Log;
|
|
|
|
|
use Joomla\Database\DatabaseInterface;
|
|
|
|
|
|
|
|
|
|
class Pkg_MokoSuiteFieldInstallerScript
|
|
|
|
|
{
|
|
|
|
|
private string $savedDlid = '';
|
|
|
|
|
|
|
|
|
|
public function preflight(string $type, InstallerAdapter $adapter): bool
|
|
|
|
|
{
|
|
|
|
|
if ($type === 'update')
|
|
|
|
|
{
|
|
|
|
|
$this->savedDlid = $this->getExistingDlid();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
public function postflight(string $type, InstallerAdapter $adapter): void
|
|
|
|
|
{
|
|
|
|
|
// Be honest about success. Joomla's package installer only LOGS a failed child
|
|
|
|
|
// sub-install but still runs this postflight, so don't show the license /
|
|
|
|
|
// next-steps message if a bundled extension is actually missing. Fails open
|
|
|
|
|
// (see missingChildExtensions) so a query/IO glitch never fakes a failure.
|
|
|
|
|
$missing = $this->missingChildExtensions($adapter);
|
|
|
|
|
|
|
|
|
|
if (!empty($missing))
|
|
|
|
|
if ($this->savedDlid)
|
|
|
|
|
{
|
|
|
|
|
Factory::getApplication()->enqueueMessage(
|
|
|
|
|
'<h4>MokoSuiteField did not install correctly.</h4>'
|
|
|
|
|
. '<p>The following bundled extensions are missing: '
|
|
|
|
|
. htmlspecialchars(implode(', ', $missing), ENT_QUOTES) . '</p>'
|
|
|
|
|
. '<p>Please uninstall MokoSuiteField and reinstall the full package.</p>',
|
|
|
|
|
'error'
|
|
|
|
|
);
|
|
|
|
|
$this->restoreDlid($this->savedDlid);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return;
|
|
|
|
|
if ($type === 'install')
|
|
|
|
|
{
|
|
|
|
|
$missing = $this->verifyChildren($adapter);
|
|
|
|
|
|
|
|
|
|
if (!empty($missing))
|
|
|
|
|
{
|
|
|
|
|
Factory::getApplication()->enqueueMessage(
|
|
|
|
|
'<strong>MokoSuite Field — Incomplete Installation</strong><br>'
|
|
|
|
|
. 'The following extensions failed to install: '
|
|
|
|
|
. implode(', ', $missing)
|
|
|
|
|
. '.<br>Please check file permissions and server logs, then reinstall the package.',
|
|
|
|
|
'error'
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$this->enablePlugin('system', 'mokosuitefield');
|
|
|
|
|
$this->enablePlugin('webservices', 'mokosuitefield');
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$this->warnMissingLicenseKey();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* Verify every child extension declared in the package manifest actually landed in
|
|
|
|
|
* #__extensions. Returns readable labels of any that are missing.
|
|
|
|
|
*
|
|
|
|
|
* Matching per Joomla's #__extensions uniqueness: type = <file> "type"; element =
|
|
|
|
|
* <file> "id" (for plugins, strip a leading plg_<group>_); plugins also match
|
|
|
|
|
* folder = <file> "group".
|
|
|
|
|
*
|
|
|
|
|
* FAILS OPEN: any error returns [] so a transient glitch never fakes a failure.
|
|
|
|
|
*/
|
|
|
|
|
private function missingChildExtensions($adapter): array
|
|
|
|
|
private function verifyChildren(InstallerAdapter $adapter): array
|
|
|
|
|
{
|
|
|
|
|
try
|
|
|
|
|
{
|
|
|
|
|
$manifest = $adapter->getParent()->getManifest();
|
|
|
|
|
$files = $manifest->files->file ?? [];
|
|
|
|
|
|
|
|
|
|
if (!$manifest || !isset($manifest->files) || !isset($manifest->files->file))
|
|
|
|
|
if (!$files)
|
|
|
|
|
{
|
|
|
|
|
return [];
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$db = Factory::getDbo();
|
|
|
|
|
$db = Factory::getContainer()->get(DatabaseInterface::class);
|
|
|
|
|
$missing = [];
|
|
|
|
|
|
|
|
|
|
foreach ($manifest->files->file as $file)
|
|
|
|
|
foreach ($files as $file)
|
|
|
|
|
{
|
|
|
|
|
$attrs = $file->attributes();
|
|
|
|
|
$id = isset($attrs['id']) ? (string) $attrs['id'] : '';
|
|
|
|
|
$exType = isset($attrs['type']) ? (string) $attrs['type'] : '';
|
|
|
|
|
$type = (string) ($file['type'] ?? '');
|
|
|
|
|
$id = (string) ($file['id'] ?? '');
|
|
|
|
|
$group = (string) ($file['group'] ?? '');
|
|
|
|
|
|
|
|
|
|
if ($id === '' || $exType === '')
|
|
|
|
|
if ($type === '' || $id === '')
|
|
|
|
|
{
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$group = isset($attrs['group']) ? (string) $attrs['group'] : '';
|
|
|
|
|
$element = $id;
|
|
|
|
|
|
|
|
|
|
// Plugin element in #__extensions is the id minus any leading plg_<group>_.
|
|
|
|
|
if ($exType === 'plugin' && $group !== '')
|
|
|
|
|
{
|
|
|
|
|
$prefix = 'plg_' . $group . '_';
|
|
|
|
|
|
|
|
|
|
if (strpos($element, $prefix) === 0)
|
|
|
|
|
{
|
|
|
|
|
$element = substr($element, \strlen($prefix));
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
$element = ($type === 'plugin' && $group !== '')
|
|
|
|
|
? preg_replace('/^plg_' . preg_quote($group, '/') . '_/', '', $id)
|
|
|
|
|
: $id;
|
|
|
|
|
|
|
|
|
|
$query = $db->getQuery(true)
|
|
|
|
|
->select('COUNT(*)')
|
|
|
|
|
->from($db->quoteName('#__extensions'))
|
|
|
|
|
->where($db->quoteName('element') . ' = ' . $db->quote($element))
|
|
|
|
|
->where($db->quoteName('type') . ' = ' . $db->quote($exType));
|
|
|
|
|
->where($db->quoteName('type') . ' = ' . $db->quote($type));
|
|
|
|
|
|
|
|
|
|
if ($exType === 'plugin' && $group !== '')
|
|
|
|
|
if ($type === 'plugin' && $group !== '')
|
|
|
|
|
{
|
|
|
|
|
$query->where($db->quoteName('folder') . ' = ' . $db->quote($group));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if ((int) $db->setQuery($query)->loadResult() === 0)
|
|
|
|
|
$db->setQuery($query);
|
|
|
|
|
|
|
|
|
|
if ((int) $db->loadResult() === 0)
|
|
|
|
|
{
|
|
|
|
|
$label = trim((string) $file);
|
|
|
|
|
$missing[] = $label !== '' ? preg_replace('/\.zip$/i', '', $label) : $id;
|
|
|
|
|
$missing[] = htmlspecialchars($type . ': ' . $id, ENT_QUOTES, 'UTF-8');
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
@@ -109,16 +112,85 @@ class Pkg_MokoSuiteFieldInstallerScript
|
|
|
|
|
}
|
|
|
|
|
catch (\Throwable $e)
|
|
|
|
|
{
|
|
|
|
|
// Fail open — never fake a failure on a glitch.
|
|
|
|
|
return [];
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
private function getExistingDlid(): string
|
|
|
|
|
{
|
|
|
|
|
try
|
|
|
|
|
{
|
|
|
|
|
$db = Factory::getContainer()->get(DatabaseInterface::class);
|
|
|
|
|
$db->setQuery(
|
|
|
|
|
$db->getQuery(true)
|
|
|
|
|
->select($db->quoteName('extra_query'))
|
|
|
|
|
->from($db->quoteName('#__update_sites'))
|
|
|
|
|
->where('(' . $db->quoteName('name') . ' LIKE ' . $db->quote('%MokoSuiteField%')
|
|
|
|
|
. ' OR ' . $db->quoteName('location') . ' LIKE ' . $db->quote('%MokoSuiteField%') . ')')
|
|
|
|
|
->setLimit(1)
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
$extraQuery = $db->loadResult() ?? '';
|
|
|
|
|
|
|
|
|
|
if (preg_match('/dlid=([a-zA-Z0-9]+)/', $extraQuery, $matches))
|
|
|
|
|
{
|
|
|
|
|
return $matches[1];
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
catch (\Throwable $e)
|
|
|
|
|
{
|
|
|
|
|
Log::add('Field install: failed to read DLID — ' . $e->getMessage(), Log::WARNING, 'mokosuite.field');
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return '';
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
private function restoreDlid(string $dlid): void
|
|
|
|
|
{
|
|
|
|
|
try
|
|
|
|
|
{
|
|
|
|
|
$db = Factory::getContainer()->get(DatabaseInterface::class);
|
|
|
|
|
$db->setQuery(
|
|
|
|
|
$db->getQuery(true)
|
|
|
|
|
->update($db->quoteName('#__update_sites'))
|
|
|
|
|
->set($db->quoteName('extra_query') . ' = ' . $db->quote('dlid=' . $dlid))
|
|
|
|
|
->where('(' . $db->quoteName('name') . ' LIKE ' . $db->quote('%MokoSuiteField%')
|
|
|
|
|
. ' OR ' . $db->quoteName('location') . ' LIKE ' . $db->quote('%MokoSuiteField%') . ')')
|
|
|
|
|
);
|
|
|
|
|
$db->execute();
|
|
|
|
|
}
|
|
|
|
|
catch (\Throwable $e)
|
|
|
|
|
{
|
|
|
|
|
Log::add('Field install: failed to restore DLID — ' . $e->getMessage(), Log::WARNING, 'mokosuite.field');
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
private function enablePlugin(string $group, string $element): void
|
|
|
|
|
{
|
|
|
|
|
try
|
|
|
|
|
{
|
|
|
|
|
$db = Factory::getContainer()->get(DatabaseInterface::class);
|
|
|
|
|
$db->setQuery(
|
|
|
|
|
$db->getQuery(true)
|
|
|
|
|
->update($db->quoteName('#__extensions'))
|
|
|
|
|
->set($db->quoteName('enabled') . ' = 1')
|
|
|
|
|
->where($db->quoteName('type') . ' = ' . $db->quote('plugin'))
|
|
|
|
|
->where($db->quoteName('folder') . ' = ' . $db->quote($group))
|
|
|
|
|
->where($db->quoteName('element') . ' = ' . $db->quote($element))
|
|
|
|
|
);
|
|
|
|
|
$db->execute();
|
|
|
|
|
}
|
|
|
|
|
catch (\Throwable $e)
|
|
|
|
|
{
|
|
|
|
|
Log::add('Field install: failed to enable ' . $group . '/' . $element . ' — ' . $e->getMessage(), Log::WARNING, 'mokosuite.field');
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
private function warnMissingLicenseKey(): void
|
|
|
|
|
{
|
|
|
|
|
try
|
|
|
|
|
{
|
|
|
|
|
$db = Factory::getDbo();
|
|
|
|
|
$db = Factory::getContainer()->get(DatabaseInterface::class);
|
|
|
|
|
$app = Factory::getApplication();
|
|
|
|
|
|
|
|
|
|
$query = $db->getQuery(true)
|
|
|
|
@@ -160,7 +232,6 @@ class Pkg_MokoSuiteFieldInstallerScript
|
|
|
|
|
}
|
|
|
|
|
catch (\Throwable $e)
|
|
|
|
|
{
|
|
|
|
|
// Silent — avoid breaking install if update_sites query fails
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
jmiller