/**
* Handle uploaded plugin
*
* @return string HTML: redirect or main plugin screen + error message
*/
function plugin_upload()
{
global $_CONF, $_TABLES;
$retval = '';
$path_admin = $_CONF['path_html'] . substr($_CONF['site_admin_url'], strlen($_CONF['site_url']) + 1) . '/';
$upload_success = false;
// If an error occured while uploading the file.
$error_msg = plugin_getUploadError($_FILES['plugin']);
if (!empty($error_msg)) {
$retval .= plugin_main($error_msg);
} else {
$plugin_file = $_CONF['path_data'] . $_FILES['plugin']['name'];
// Name the plugin file
$archive = new Unpacker($_FILES['plugin']['tmp_name'], $_FILES['plugin']['type']);
$tmp = $archive->getList();
// Grab the contents of the tarball to see what the plugin name is
$dirName = preg_replace('/\\/.*$/', '', $tmp[0]['filename']);
if (empty($dirName)) {
// If $dirname is blank it's probably because the user uploaded a non Tarball file.
COM_redirect($_CONF['site_admin_url'] . '/plugins.php?msg=100');
} else {
$pi_did_exist = false;
// plugin directory already existed
$pi_had_entry = false;
// plugin had an entry in the database
$pi_was_enabled = false;
// plugin was enabled
if (file_exists($_CONF['path'] . 'plugins/' . $dirName)) {
$pi_did_exist = true;
// plugin directory already exists
$pstatus = DB_query("SELECT pi_name, pi_enabled FROM {$_TABLES['plugins']} WHERE pi_name = '{$dirName}'");
$A = DB_fetchArray($pstatus);
if (isset($A['pi_name'])) {
$pi_had_entry = true;
$pi_was_enabled = $A['pi_enabled'] == 1;
}
$callback = 'plugin_enablestatechange_' . $dirName;
if ($pi_was_enabled) {
// disable temporarily while we move the files around
if (is_callable($callback)) {
changePluginStatus($dirName);
} else {
DB_change($_TABLES['plugins'], 'pi_enabled', 0, 'pi_name', $dirName);
}
}
$plugin_dir = $_CONF['path'] . 'plugins/' . $dirName;
if (file_exists($plugin_dir . '.previous')) {
Geeklog\FileSystem::remove($plugin_dir . '.previous');
}
if (file_exists($plugin_dir)) {
rename($plugin_dir, $plugin_dir . '.previous');
}
$public_dir = $_CONF['path_html'] . $dirName;
if (file_exists($public_dir . '.previous')) {
Geeklog\FileSystem::remove($public_dir . '.previous');
}
if (file_exists($public_dir)) {
rename($public_dir, $public_dir . '.previous');
}
$admin_dir = $path_admin . 'plugins/' . $dirName;
if (file_exists($admin_dir . '.previous')) {
Geeklog\FileSystem::remove($admin_dir . '.previous');
}
if (file_exists($admin_dir)) {
rename($admin_dir, $admin_dir . '.previous');
}
}
/**
* Install the plugin
* This doesn't work if the public_html & public_html/admin/plugins directories aren't 777
*/
// Extract the tarball to data so we can get the $pi_name name from admin/install.php
$archive->unpack($_CONF['path'] . 'data/', array($dirName . '/admin/install.php'));
$plugin_inst = $_CONF['path'] . 'data/' . $dirName . '/admin/install.php';
$fileData = @file_get_contents($plugin_inst);
/*
// Remove the plugin from data/
Geeklog\FileSystem::remove($_CONF['path'] . 'data/' . $dirname);
*/
// Some plugins seem to expect files under the data directory to
// be unchanged while they are disabled. Let's leave the files untouched.
/**
* One time I wanted to install a muffler on my car and
* needed to match up the outside diameter of the car's
* exhaust pipe to the inside diameter of the muffler.
* Unfortunately, when I went to the auto parts store they
* didn't have a coupling adapter that would perfectly
* match the two pipes, only a bunch of smaller adapters.
* I ended up using about 4 small adapters to step down
* one size at a time to the size of the muffler's input.
* It's kind of like this regular expression:
*/
$fileData = str_replace(array("\n", ' '), '', $fileData);
$pi_name = preg_replace('/^.*\\$pi\\_name=\'/', '', $fileData);
$pi_name = preg_replace('/\'.*$/', '', $pi_name);
// Some plugins don't have $pi_name set in their install.php file,
// This means our regex won't work and we should just use $dirname
if (empty($pi_name) || preg_match('/\\<\\?php/', $pi_name) || preg_match('/--/', $pi_name)) {
$pi_name = $dirName;
}
// Extract the uploaded archive to the plugins directory
$upload_success = $archive->unpack($_CONF['path'] . 'plugins/');
$plg_path = $_CONF['path'] . 'plugins/' . $pi_name . '/';
if ($upload_success) {
if (file_exists($plg_path . 'public_html')) {
rename($plg_path . 'public_html', $_CONF['path_html'] . $pi_name);
}
if (file_exists($plg_path . 'admin')) {
rename($plg_path . 'admin', $path_admin . 'plugins/' . $pi_name);
}
}
unset($archive);
// Collect some garbage
// cleanup when uploading a new version
if ($pi_did_exist) {
$plugin_dir = $_CONF['path'] . 'plugins/' . $dirName;
if (file_exists($plugin_dir . '.previous')) {
Geeklog\FileSystem::remove($plugin_dir . '.previous');
}
$public_dir = $_CONF['path_html'] . $dirName;
if (file_exists($public_dir . '.previous')) {
Geeklog\FileSystem::remove($public_dir . '.previous');
}
$admin_dir = $path_admin . 'plugins/' . $dirName;
if (file_exists($admin_dir . '.previous')) {
Geeklog\FileSystem::remove($admin_dir . '.previous');
}
if ($pi_was_enabled) {
// Enable the plugin again
if (is_callable($callback)) {
changePluginStatus($dirName);
} else {
DB_change($_TABLES['plugins'], 'pi_enabled', 1, 'pi_name', $dirName);
}
}
}
$msg_with_plugin_name = false;
if ($pi_did_exist) {
if ($pi_was_enabled) {
// check if we have to perform an update
$pi_version = DB_getItem($_TABLES['plugins'], 'pi_version', "pi_name = '{$dirName}'");
$code_version = PLG_chkVersion($dirName);
if (!empty($code_version) && $code_version != $pi_version) {
/**
* At this point, we would have to call PLG_upgrade().
* However, we've loaded the plugin's old functions.inc
* (in lib-common.php). We can't load the new one here
* now since that would result in duplicate function
* definitions. Solution: Trigger a reload (with the new
* functions.inc) and continue there.
*/
$url = $_CONF['site_admin_url'] . '/plugins.php' . '?mode=continue_upgrade' . '&codeversion=' . urlencode($code_version) . '&piversion=' . urlencode($pi_version) . '&plugin=' . urlencode($dirName);
COM_redirect($url);
} else {
$msg = 98;
// successfully uploaded
}
} else {
$msg = 98;
// successfully uploaded
}
} elseif (file_exists($plg_path . 'autoinstall.php')) {
// if the plugin has an autoinstall.php, install it now
if (plugin_autoinstall($pi_name)) {
PLG_pluginStateChange($pi_name, 'installed');
$msg = 44;
// successfully installed
} else {
$msg = 72;
// an error occured while installing the plugin
}
} else {
$msg = 98;
// successfully uploaded
}
$url = $_CONF['site_admin_url'] . '/plugins.php?msg=' . $msg;
if ($msg_with_plugin_name) {
$url .= '&plugin=' . $dirName;
}
COM_redirect($url);
}
}
return $retval;
}
// If $dirname is blank it's probably because the user uploaded a non Tarball file.
$display .= '<div class="notice"><span class="error">' . $LANG_INSTALL[38] . '</span> ' . $LANG_PLUGINS[5] . '</div>' . PHP_EOL;
} elseif (file_exists($_CONF['path'] . 'plugins/' . $dirName)) {
// If plugin directory already exists
$display .= '<div class="notice"><span class="error">' . $LANG_INSTALL[38] . '</span> ' . $LANG_PLUGINS[6] . '</div>' . PHP_EOL;
} else {
/**
* Install the plugin
* This doesn't work if the public_html & public_html/admin/plugins directories aren't 777
*/
// Extract the archive to data so we can get the $pi_name name from admin/install.php
$archive->unpack($_CONF['path'] . 'data/', array($dirName . '/admin/install.php'));
$plugin_inst = $_CONF['path'] . 'data/' . $dirName . '/admin/install.php';
$fileData = @file_get_contents($plugin_inst);
// Remove the plugin from data/
Geeklog\FileSystem::remove($_CONF['path'] . 'data/' . $dirName);
/**
* One time I wanted to install a muffler on my car and
* needed to match up the outside diameter of the car's
* exhaust pipe to the inside diameter of the muffler.
* Unfortunately, when I went to the auto parts store they
* didn't have a coupling adapter that would perfectly
* match the two pipes, only a bunch of smaller adapters.
* I ended up using about 4 small adapters to step down
* one size at a time to the size of the muffler's input.
* It's kind of like this regular expression:
*/
$fileData = str_replace(array("\n", ' '), '', $fileData);
$pi_name = preg_replace('/^.*\\$pi\\_name=\'/', '', $fileData);
$pi_name = preg_replace('/\'.*$/', '', $pi_name);
// Some plugins don't have $pi_name set in their install.php file,
