utility.php

<?php

use Goutte\Client;
use Guzzle\Http\Client as GuzzleClient;
use Guzzle\Http\Exception\ClientErrorResponseException;

require 'vendor/autoload.php';

/**
 * Process a pull request creation or update event.
 *
 * @param object $payload
 *   The received data.
 */
function handle_pull_request($payload) {
  $issue_number = get_issue_number($payload->pull_request);
  if (!$issue_number) {
    exit;
  }

  $pull_request_url = $payload->pull_request->html_url;

  switch ($payload->action) {
    case 'synchronize':
      $comment = '<a href="' . $payload->sender->html_url . '">' . $payload->sender->login . '</a> pushed some commits to the <a href="' . $pull_request_url . '">pull request</a>.'
        . "\n\nFor an interdiff please see the <a href=\"" . $pull_request_url . "/commits\">list of recent commits</a>.";
      break;

    case 'opened':
      $comment = '<a href="' . $payload->pull_request->user->html_url . '">' . $payload->pull_request->user->login . '</a> opened a <a href="' . $pull_request_url . '">new pull request</a> for this issue.';
      break;

    default:
      // Unknown action, so we just exit.
      exit;
  }

  // Get node metadata to append comment number to patch file name.
  $issue_meta = get_issue_meta($issue_number);

  if (!empty($issue_meta['comment_count'])) {
    $file_name = $issue_number . '-' . ($issue_meta['comment_count'] + 1) . '.patch';
  }
  else {
    $file_name = "$issue_number.patch";
  }

  $diff_url = $payload->pull_request->diff_url;
  // Download the patch.
  $file = download_file($diff_url, $file_name);

  post_comment($issue_number, $comment, $file);

  // Cleanup: remove the downloaded file and the temporary directory it is in.
  unlink($file);
  rmdir(dirname($file));
}

function handle_code_push($payload) {
  global $push_repo, $push_ref;

  if ($payload->ref !== $push_ref || $payload->repository->full_name !== $push_repo) {
    logger('Pushing from wrong branch or repo.');
  }

  exec(getcwd() . '/../mirror-git.sh');
}

/**
 * Process a comment that has been created on a pull request diff.
 *
 * @param object $payload
 *   The received data.
 */
function handle_pull_request_comment($payload) {
  $pull_request = get_pull_request($payload->comment->pull_request_url);
  $issue_number = get_issue_number($pull_request);

  if (!$issue_number) {
    exit;
  }

  $comment = '<a href="' . $payload->comment->user->html_url . '">' . $payload->comment->user->login . '</a> posted a <a href="' . $payload->comment->html_url . '">new comment</a> on ' . $payload->comment->html_url . "\n";
  $comment .= 'Path: ' . $payload->comment->path . "\n";
  $comment .= "<code>\n";
  $comment .= $payload->comment->diff_hunk;
  $comment .= "</code>\n";
  $comment .= $payload->comment->body;

  post_comment($issue_number, $comment);
}

/**
 * Fetches a pull request object from Github.
 *
 * @global string $oauth_token
 *
 * @param string $url
 *   The Github API URL to fetch the pull request from.
 *
 * @return object
 *   The pull request object.
 */
function get_pull_request($url) {
  global $oauth_token;
  $client = new GuzzleClient();

  // Use the OAuth token to access the API, to have a higher rate limit.
  $response = $client->get($url . "?access_token=$oauth_token")->send();
  return json_decode($response->getBody());
}

/**
 * Process a Github issue comment.
 *
 * @param object $payload
 *   The received data.
 */
function handle_issue_comment($payload) {
  // There is no pull request API URL in the issue, so we need to construct it
  // from the pattern.
  $pull_request_url = str_replace('{/number}', '/' . $payload->issue->number, $payload->repository->pulls_url);
  try {
    $pull_request = get_pull_request($pull_request_url);
  }
  catch (ClientErrorResponseException $e) {
    // Pull request does not exist, so we ignore this comment.
    exit;
  }
  $issue_number = get_issue_number($pull_request);

  if (!$issue_number) {
    exit;
  }

  $comment = '<a href="' . $payload->comment->user->html_url . '">' . $payload->comment->user->login . '</a> posted a <a href="' . $payload->comment->html_url . '">new comment</a> on ' . $payload->comment->html_url . ".\n\n";
  $comment .= $payload->comment->body;

  post_comment($issue_number, $comment);
}

/**
 * Post a comment to drupal.org.
 *
 * @param int $issue_id
 *   The drupal.org node ID to post the comment to.
 * @param string $comment
 *   Text for the comment field.
 * @param string $patch
 *   Optional, file name to attach as patch.
 */
function post_comment($issue_id, $comment, $patch = NULL) {
  global $debug;

  if ($debug) {
    print $comment;
    return;
  }


  static $client;
  if (!$client) {
    // Perform a user login.
    global $drupal_user, $drupal_password;
    $client = new Client();
    $crawler = $client->request('GET', 'https://drupal.org/user');
    $form = $crawler->selectButton('Log in')->form();
    // $user and $password must be set in user_password.php.
    $crawler = $client->submit($form, array('name' => $drupal_user, 'pass' => $drupal_password));

    $login_errors = $crawler->filter('.messages-error');
    if ($login_errors->count() > 0) {
      logger("Login to drupal.org failed.");
      exit;
    }
  }

  $issue_page = $client->request('GET', "https://www.drupal.org/node/$issue_id");
  $comment_form = $issue_page->selectButton('Save')->form();

  $form_values['nodechanges_comment[comment_body][und][0][value]'] = $comment;
  // We need to HTML entity decode the issue summary here, otherwise we
  // would post back a double-encoded version, which would result in issue
  // summary changes that we don't want to touch.
  $form_values['body[und][0][value]'] = html_entity_decode($comment_form->get('body[und][0][value]')->getValue(), ENT_QUOTES, 'UTF-8');

  if ($patch) {
    // There can be uploaded files already, so we need to iterate to the most
    // recent file number.
    $file_nr = 0;
    while (!isset($comment_form["files[field_issue_files_und_$file_nr]"])) {
      $file_nr++;
    }
    $comment_form["files[field_issue_files_und_$file_nr]"]->upload($patch);

    $status = $comment_form['field_issue_status[und]']->getValue();

    // Set the issue to "needs review" if it is not alreay "needs review" or RTBC.
    if ($status != 8 && $status != 14) {
      $comment_form['field_issue_status[und]']->setValue(8);
    }
  }

  $client->submit($comment_form, $form_values);
}

/**
 * Logs a message to a log file.
 *
 * @global string $logfile
 *   The file name defined in settings.php.
 * @param string $message
 *   The message to log.
 */
function logger($message) {
  global $logfile;
  $message = is_scalar($message) ? $message : print_r($message, TRUE);
  file_put_contents($logfile, date("Y-m-d H:i:s") . "  $message\n", FILE_APPEND);
}

/**
 * Downloads a URL to a local temporary file.
 *
 * @param string $url
 *   The URL.
 * @param string $file_name
 *   The local file name where this should be stored, without path prefix.
 *
 * @return string
 *   Absolute path to the tempory file.
 */
function download_file($url, $file_name) {
  // Create a temporary directory.
  $temp_file = tempnam(sys_get_temp_dir(), 'github_drupalorg_');
  unlink($temp_file);
  mkdir($temp_file);

  $client = new GuzzleClient();
  $response = $client->get($url)->send();
  $path = "$temp_file/$file_name";
  file_put_contents($path, $response->getBody());
  return $path;
}

/**
 * Extracts a potential issue number from the received pull request object.
 *
 * @param object $pull_request
 *   The pull request object.
 *
 * @return int|false
 *   Returns the issue number or FALSE if no number could be extracted.
 */
function get_issue_number($pull_request) {
  $branch_name = $pull_request->head->ref;
  $matches = array();

  // Only look at branch names that end in an issue number with a least 4
  // digits.
  if (preg_match('/([0-9]{4}[0-9]*)$/', $branch_name, $matches)) {
    return $matches[0];
  }
  return FALSE;
}

/**
 * Use the Drupal.org API to get issue metadata.
 *
 * @param int $issue_number
 *   This nid issue number to look up on d.o.
 * @return array
 *   Associative array of the node object on d.o.
 */
function get_issue_meta($issue_number) {
  $url = "https://www.drupal.org/api-d7/node/$issue_number.json";

  $client = new GuzzleClient();
  $body = $client->get($url)->send()->getBody();

  return json_decode($body, TRUE);
}