Contributions API

drush_pm_wget.module

<?php
// $Id: drush_pm_wget.module,v 1.1 2008/01/08 04:30:19 weitzman Exp $

/**
 * Implementation of hook_help().
 */
function drush_pm_wget_help($section) {
  switch ($section) {
    case 'drush:pm install':
    case 'drush:pm update':
      return t("Note: the wget handler will use the curl command if wget is not found\n");
  }
}

/**
 * Hook drush_pm_module_handler
 */
function drush_pm_wget_drush_pm_package_handler() {
  return array('drush_pm_wget');
}

/**
 * Install a project (so far, only modules are supported).
 *
 * @param $project The short name of the drupal.org project
 * @param $info The details (fetched from drupal.org via xml-rpc)
 * @param $path The path to install the module to.
 */
function drush_pm_wget_install_project($project, $info, $path = '.') {

  drush_op('chdir', $path);

  drush_verbose("Downloading project $project ...");

  // Get the filename...
  $filename = explode('/', $info['download_link']);
  $filename = array_pop($filename);

  // Download it.
  if (!drush_shell_exec("wget " .$info['download_link'])) {
    drush_shell_exec("curl -O " .$info['download_link']);
  }

  if (file_exists($path. $filename) || DRUSH_SIMULATE) {
    drush_verbose("Downloading " . $filename . " was successful.");
  }
  else {
    return drush_error("Unable to download $filename to $path from ". $info['download_link']);
  }

  // Check Md5 hash
  if (md5_file($filename) != $info['mdhash'] && !DRUSH_SIMULATE) {
    drush_op('unlink', $filename);
    return drush_error("Error: File $filename is corrupt (wrong md5 checksum).");
  }
  else {
    drush_verbose("Md5 checksum of $filename verified.");
  }

  // Decompress
  drush_shell_exec("gzip -d " . $filename);
  $filename = substr($filename, 0, strlen($filename)-3);
  // Untar
  drush_shell_exec("tar -xf " . $filename);
  // We're not using tar -xzf because that's not working on windows...

  // Remove the tarball
  drush_op('unlink', $filename);

  if (!is_dir($path . $project) && !DRUSH_SIMULATE) {
    return drush_error("Error. Downloaded file $filename couldn't be untarred correctly");
  }
  else {
    return TRUE;
  }
}

/**
 * This is an alias of the install function, since they are identical
 */
function drush_pm_wget_update_project($project, $info, $path = '.') {
  return drush_pm_wget_install_project($project, $info, $path);
}