#!/usr/bin/env php
<?php
// $Id$

/**
 * @file
 * Script to export a project from CVS into SVN to deploy on drupal.org.
 *
 * Usage: d.o-cvs-to-svn.php [project_shortname] [CVS_tag]
 *
 * Requirements: cvs, svn, and svn_load_dirs.pl
 * 
 * @author Derek Wright (http://drupal.org/user/46549)
 *
 */

// ------------------------------------------------------------
// Configuration
// ------------------------------------------------------------

$tmp_dir = '/tmp/svn-import';
// This is probably what you want, only customize if you need to.
$CVSROOT = 'pserver:anonymous:anonymous@cvs.drupal.org:/cvs/drupal';

// This needs to be set to the path your SVN repository.
// As is, this script will import into /vendors/drupal and
// /vendors/modules. It needs to be extended to automatically handle
// themes.
$SVNROOT = 'https://example.com/svn';

// ------------------------------------------------------------
// Sanity checks
// ------------------------------------------------------------

$project = $argv[1];
$cvs_tag = $argv[2];

$now = gmdate('YmdHis');

if (empty($project) || empty($cvs_tag)) {
  echo "Usage: $argv[0] [project_name] [CVS_tag]\n";
  exit(1);
}

echo "Importing $project from $cvs_tag into SVN vendor branches.\n";

// See if this is an official release or not -- depends on core vs. contrib.
if ($project == 'drupal') {
  $official_tag_regexp = '/^DRUPAL-(\d+)-(\d+)/';
  $cvs_dir = 'drupal';
}
else {
  $official_tag_regexp = '/^DRUPAL-(\d+)--(\d+)-(.+)/';
  $CVSROOT .= '-contrib';
  $cvs_dir = "contributions/modules/$project";
}

if (preg_match($official_tag_regexp, $cvs_tag)) {
  $vendor_tag = $cvs_tag;
}
else {
  // They specified a branch (either e.g. 'DRUPAL-6--1' or 'HEAD'), so we
  // append a UTC timestamp to the end to ensure uniqueness.
  $vendor_tag = $cvs_tag . '-' . $now;
}

echo "Using vendor_tag: $vendor_tag for $cvs_dir\n";
echo "CVSROOT: $CVSROOT\n";

$tmp_dir .= "-$project-$now";
if (!is_dir($tmp_dir) && !mkdir($tmp_dir, 0777, TRUE)) {
  echo "ERROR: temp directory $tmp_dir does not exist and can't created.\n";
  exit(2);
}

if (!chdir($tmp_dir)) {
  echo "ERROR: Can not chdir($tmp_dir).\n";
  exit(3);
}

// ------------------------------------------------------------
// Real work
// ------------------------------------------------------------

// Export the code from CVS
print "cvs -d:$CVSROOT export -r $cvs_tag -d $project $cvs_dir\n";
exec("cvs -d:$CVSROOT export -r $cvs_tag -d $project $cvs_dir");

// Add "packaging" metadata to the .info files so that we can run update
// status on *.drupal.org.
munge_info_files($project, $cvs_tag, $tmp_dir);

// Prepare to import into SVN
if ($project == 'drupal') {
  $svn_vendor_tag = "vendors/$project/$vendor_tag";
}
else {
  $svn_vendor_tag = "vendors/modules/$project/$vendor_tag";
}
echo "$cvs_tag";
if (strstr($cvs_tag, 'DRUPAL-4-7')) {
  $current = 'current-47';
}
else if (strstr($cvs_tag, 'DRUPAL-5')) {
  $current = 'current-5';
}
else if (strstr($cvs_tag, 'DRUPAL-6')) {
  $current = 'current-6';
}
else {
  $current = 'current';
}
if ($project == 'drupal') {
  $svn_target_dir = "vendors/$project/$current";
}
else {
  $svn_target_dir = "vendors/modules/$project/$current";
}
$svn_load_dirs = "svn_load_dirs.pl $SVNROOT -no_user_input -t $svn_vendor_tag $svn_target_dir $project";

echo "About to run:\n\n$svn_load_dirs\n\n";

passthru($svn_load_dirs);

chdir('/');
#`rm -rf $tmp_dir`;

echo <<<EOF

Successfully imported $project from CVS $cvs_tag into SVN
You should now run svnmerge.py in the appropriate directory to merge
your changes into the right site-specific directory to deploy the code.


EOF;

// ------------------------------------------------------------
// Helper functions
// ------------------------------------------------------------

/**
 * Find all .info files and add the metadata needed for update status.
 *
 * This logic is largely lifted from package-release-nodes.php from
 * contributions/modules/project/release in the contrib CVS repository.
 */
function munge_info_files($project, $cvs_tag, $dir) {
  $info_files = array();
  $version = get_version_from_tag($cvs_tag, $project);

  find_info_files($dir, $info_files);
  foreach ($info_files as $file) {
    echo "Fixing version information in $file\n";
    if (!fix_info_file_version($file, $project, $version)) {
      echo "ERROR: Failed to fix $file with version information, aborting\n";
      exit(4);
    }
  }
}

/**
 * Recursive helper function to find all .info files in a given directory tree.
 *
 * Stolen from package-release-nodes.php
 */
function find_info_files($dir, &$info_files) {
  $exclude = array('.', '..');
  if (is_dir($dir)) {
    $fp = opendir($dir);
    while (FALSE !== ($file = readdir($fp))) {
      if (!in_array($file, $exclude)) {
        if (is_dir("$dir/$file")) {
          find_info_files("$dir/$file", $info_files);
        }
        elseif (preg_match('/^.+\.info$/', $file)) {
          $info_files[] = "$dir/$file";
        }
      }
    }
    closedir($fp);
  }
}

/**
 * Fix the given .info file with the specified version string
 *
 * Stolen from package-release-nodes.php.
 */
function fix_info_file_version($file, $project, $version) {
  $info = "\n; Information added by d.o-cvs-to-svn export/import script on " . date('Y-m-d') . "\n";
  $info .= "version = \"$version\"\n";
  // .info files started with 5.x, so we don't have to worry about version
  // strings like "4.7.x-1.0" in this regular expression. If we can't parse
  // the version (also from an old "HEAD" release), or the version isn't at
  // least 6.x, don't add any "core" attribute at all.
  $matches = array();
  if (preg_match('/^(\d+)\..*/', $version, $matches) && $matches[1] >= 6) {
    $info .= "core = \"$matches[1].x\"\n";
  }
  $info .= "project = \"$project\"\n";
  $info .= 'datestamp = "'. time() ."\"\n";
  $info .= "\n";

  if (!chmod($file, 0644)) {
    echo "ERROR: chmod($file, 0644) failed\n";
    return false;
  }
  if (!$info_fd = fopen($file, 'ab')) {
    echo "ERROR: fopen($file, 'ab') failed\n";
    return false;
  }
  if (!fwrite($info_fd, $info)) {
    echo "ERROR: fwrite($file) failed\n";
    return false;
  }
  return true;
}

/**
 * Returns the human-readable version string from a given CVS tag.
 *
 * Stolen directly from contributions/modules/cvs_deploy/cvs_deploy.module.
 */
function get_version_from_tag($tag, $project) {
  $version = '';
  if (!$tag || $tag == 'HEAD') {
    $version = get_head_version($project);
  }
  elseif ($project == 'drupal') {
    // See if it's a core official release
    if (preg_match('@^DRUPAL-(\d+)-(\d+)(-.+)?@', $tag, $match)) {
      $version = $match[1] .'.'. $match[2];
      if (isset($match[3])) {
        // This version's tag has 'extra', so clean that up.
        $version .= '-'. preg_replace('/[_-]/', '', strtolower($match[3]));
      }
    }
    // -dev snapshot from a core branch
    elseif (preg_match('@^DRUPAL-(\d+)?@', $tag, $match)) {
      $version = $match[1] .'.x-dev';
    }
  }
  else { // Contrib
    // See if it's a full, official release from a tag:
    if (preg_match('@^DRUPAL-(\d+)--(\d+)-(\d+)(-.+)?@', $tag, $match)) {
      $version = $match[1] .'.x-'. $match[2] .'.'. $match[3];
      if (isset($match[4])) {
        // This version's tag has 'extra', so clean that up.
        $version .= '-'. preg_replace('/[_-]/', '', strtolower($match[4]));
      }
    }
    // If not, see if it's from a branch (like a development snapshot).
    elseif (preg_match('@^DRUPAL-(\d+)(--(\d+))?@', $tag, $match)) {
      $version = $match[1] .'.x-'. (isset($match[3]) ? $match[3] : '1') .'.x-dev';
    }
  }
  return $version;
}

/**
 * Get the current version string for the HEAD release of the given project.
 */
function get_head_version($project) {
  $data = array();
  echo "Fetching version information about the HEAD release for $project\n";
  $url = "http://updates.drupal.org/release-history/$project/all";
  $history_xml = file_get_contents($url);
  $xml = new SimpleXMLElement($history_xml);
  foreach ($xml->releases->children() as $release) {
    if ($release->tag == 'HEAD') {
      return $release->version;
    }
  }
  unset($xml);
  unset($history_xml);
  return 'HEAD';
}