', + '#markup' => t('You can find modules and themes on drupal.org. The following file extensions are supported: %extensions.', array( + '@module_url' => 'http://drupal.org/project/modules', + '@theme_url' => 'http://drupal.org/project/themes', + '@drupal_org_url' => 'http://drupal.org', + '%extensions' => archiver_get_extensions(), + )), + '#suffix' => '
', + ); + + $form['project_urls'] = array( + '#type' => 'textarea', + '#title' => t('Install from a URL'), + '#description' => t('For example: %url. Enter one per line.', + array('%url' => 'http://ftp.drupal.org/files/projects/name.tar.gz')), + ); + + $form['information'] = array( + '#prefix' => '', + '#markup' => t('Or'), + '#suffix' => '', + ); + + $form['project_upload'] = array( + '#type' => 'file', + '#title' => t('Upload a module or theme archive to install'), + '#description' => t('For example: %filename from your local computer', array('%filename' => 'name.tar.gz')), + ); + + $form['actions'] = array('#type' => 'actions'); + $form['actions']['submit'] = array( + '#type' => 'submit', + '#value' => t('Install'), + ); + + return $form; +} + +/** * Checks for file transfer backends and prepares a form fragment about them. * * @param array $form @@ -135,6 +310,215 @@ function _update_manager_check_backends(&$form, $operation) { } /** + * Form validation handler for update_manager_install_form(). + * + * @see update_manager_install_form_submit() + * @see form_validate_url() + */ +function update_manager_install_form_validate($form, &$form_state) { + $project_urls = $form_state['values']['project_urls']; + $project_upload = $_FILES['files']['name']['project_upload']; + if (!($project_urls XOR !empty($project_upload))) { + form_set_error('project_urls', + t('You must either provide a URL or upload an archive file to install.')); + } + if ($project_urls) { + // Trim whitespace and validate url's. + $url_list = array_filter(array_map('trim', explode("\n", $project_urls))); + form_set_value($form['project_urls'], implode("\n", $url_list), $form_state); + $bad_urls = array_filter($url_list, '_update_manager_bad_url'); + if (!empty($bad_urls)) { + $message = format_plural(count($bad_urls), + 'The URL %urls is not valid.', + 'The URLs %urls are not valid.', + array('%urls' => implode(', ', $bad_urls)) + ); + form_set_error('project_urls', $message); + } + } +} + +/** + * Callback function used in update_manager_install_form_validate(). + */ +function _update_manager_bad_url($url) { + return !valid_url($url, TRUE); +} + +/** + * Form submission handler for update_manager_install_form(). + * + * Either downloads the file specified in the URL to a temporary cache, or + * uploads the file attached to the form, then attempts to extract the archive + * into a temporary location and verify it. Instantiate the appropriate + * Drupal\Core\Updater\Updater class for this project and make sure it is not + * already installed in the live webroot. If everything is successful, setup an + * operation to run via authorize.php which will copy the extracted files from + * the temporary location into the live site. + * + * @see update_manager_install_form_validate() + * @see update_authorize_run_install() + * @see system_authorized_init() + * @see system_authorized_get_url() + */ +function update_manager_install_form_submit($form, &$form_state) { + $local_caches = array(); + if ($form_state['values']['project_urls']) { + $field = 'project_urls'; + foreach (explode("\n", $form_state['values']['project_urls']) as $url) { + $local_cache = update_manager_file_get($url); + if ($local_cache) { + $local_caches[] = $local_cache; + } + else { + form_set_error($field, t('Unable to retrieve Drupal project from %url.', + array('%url' => $url))); + return; + } + } + } + elseif ($_FILES['files']['name']['project_upload']) { + $validators = array('file_validate_extensions' => array(archiver_get_extensions())); + $field = 'project_upload'; + if (!($finfo = file_save_upload($field, $validators, NULL, FILE_EXISTS_REPLACE))) { + // Failed to upload the file. file_save_upload() calls form_set_error() on + // failure. + return; + } + $local_caches[] = $finfo->uri; + } + + $directory = _update_manager_extract_directory(); + $project_data = array(); + $already_installed = array(); + + // Loop through the projects to be installed. If any one of them has a + // problem, then set a form error and bail out without trying any more. + foreach ($local_caches as $local_cache) { + try { + $archive = update_manager_archive_extract($local_cache, $directory); + } + catch (Exception $e) { + form_set_error($field, $e->getMessage()); + return; + } + + $files = $archive->listContents(); + if (!$files) { + form_set_error($field, t('Provided archive contains no files.')); + return; + } + + // Unfortunately, we can only use the directory name to determine the + // project name. Some archivers list the first file as the directory + // (i.e., MODULE/) and others list an actual file (i.e., MODULE/README.TXT). + $project = strtok($files[0], '/\\'); + + $archive_errors = update_manager_archive_verify($project, $local_cache, $directory); + if (!empty($archive_errors)) { + form_set_error($field, array_shift($archive_errors)); + // @todo: Fix me in D8: We need a way to set multiple errors on the same + // form element and have all of them appear! + if (!empty($archive_errors)) { + foreach ($archive_errors as $error) { + drupal_set_message($error, 'error'); + } + } + return; + } + + $project_location = $directory . '/' . $project; + try { + $updater = Updater::factory($project_location); + } + catch (Exception $e) { + form_set_error($field, $e->getMessage()); + return; + } + + try { + $project_title = Updater::getProjectTitle($project_location); + } + catch (Exception $e) { + form_set_error($field, $e->getMessage()); + return; + } + + if (!$project_title) { + form_set_error($field, t('Unable to determine %project name.', array('%project' => $project))); + } + + if ($updater->isInstalled()) { + $already_installed[] = $project_title; + continue; + } + + $project_real_location = drupal_realpath($project_location); + $project_data[] = array( + 'project' => $project, + 'updater_name' => get_class($updater), + 'local_url' => $project_real_location, + ); + } + + // The validation function makes sure that there is at least one project, so + // if $project_data is empty, then $already_installed is not. + if (empty($project_data)) { + $message = format_plural(count($already_installed), + '%projects is already installed.', + 'All @count projects are already installed.', + array('%projects' => $already_installed[0]) + ); + form_set_error($field, $message); + return; + } + elseif ($count = count($already_installed)) { + $message = format_plural($count, + 'Skipped %projects, which is already installed.', + 'Skipped these @count projects, which are already installed: %projects.', + array('%projects' => implode(', ', $already_installed)) + ); + drupal_set_message($message, 'warning'); + } + + // If the owner of the directory we extracted is the same as the + // owner of our configuration directory (e.g. sites/default) where we're + // trying to install the code, there's no need to prompt for FTP/SSH + // credentials. Instead, we instantiate a Drupal\Core\FileTransfer\Local and + // invoke update_authorize_run_install() directly. If there is more than one + // project, the directories should all have ths same owner, so we can test + // using $project_real_location as set for the last one. + if (fileowner($project_real_location) == fileowner(conf_path())) { + module_load_include('inc', 'update', 'update.authorize'); + update_authorize_run_install(new Local(DRUPAL_ROOT), $project_data); + } + // Otherwise, go through the regular workflow to prompt for FTP/SSH + // credentials and invoke update_authorize_run_install() indirectly with + // whatever FileTransfer object authorize.php creates for us. + else { + system_authorized_init('update_authorize_run_install', + drupal_get_path('module', 'update') . '/update.authorize.inc', + array('project_data' => $project_data), + t('Update manager') + ); + $form_state['redirect'] = system_authorized_get_url(); + } +} + +/** + * @} End of "defgroup update_manager_install". + */ + +/** + * @defgroup update_manager_file Update Manager module: file management + * @{ + * Update Manager module file management functions. + * + * These functions are used by the update manager to copy, extract, and verify + * archive files. + */ + +/** * Unpacks a downloaded archive file. * * @param string $file