modules/cvslog/cvs.module

<?php
// $Id: cvs.module,v 1.233 2009/08/05 20:27:56 dww Exp $
// $Name:  $

/**
 * @file
 * Provides access to CVS commit logs.
 *
 * @internal
 * commit 139 looks weird. Remove from both cvs_files and cvs_messages?
 * some commits are done by user 'root' ?
 */

// Status values for CVS accounts. Update _cvs_get_status_options() for any changes.
define('CVS_PENDING', 0);
define('CVS_APPROVED', 1);
define('CVS_DECLINED', 2);
define('CVS_QUEUED', 3);
define('CVS_DISABLED', 4);
define('CVS_MIN_PASS_LENGTH', 5);
define('CVS_LICENSE', 'GNU public license, version 2');
define('CVS_LICENSE_LINK', 'http://www.gnu.org/licenses/old-licenses/gpl-2.0.html');

if (function_exists('drupal_get_path')) {
  $path = drupal_get_path('module', 'cvs');
  if (file_exists("$path/cvs_local.inc")) {
    require_once "$path/cvs_local.inc";
  }
}

/**
 * Implementation of hook_help().
 */
function cvs_help($path, $arg) {
  switch ($path) {
    case 'cvs':
    case 'admin/project/cvs-accounts':
    case 'admin/project/cvs-repositories':
    case 'admin/project/cvs-settings':
      return t('CVS (Concurrent Versions System) is a code management system used by developers to collaborate and track modifications of code.');
  }
}

/**
 * Implementation of hook_menu().
 */
function cvs_menu() {
  global $base_url;
  $items = array();

  // User pages:
  $access = 'access CVS messages';
  $admin_access = 'administer CVS';

  $items['cvs'] = array(
    'title' => 'CVS messages',
    'page callback' => 'cvs_page',
    'access arguments' => array($access),
    'type' => MENU_SUGGESTED_ITEM,
  );
  $items['cvs-application'] = array(
    'title' => 'CVS application form',
    'page callback' => 'cvs_application_page',
    'access arguments' => array($access),
    'type' => MENU_SUGGESTED_ITEM,
  );

  // autocomplete callback
  $items['cvs/user/autocomplete'] = array(
    'title' => 'CVS user autocomplete',
    'page callback' => 'cvs_user_autocomplete',
    'access arguments' => array($access),
    'type' => MENU_CALLBACK,
  );

  // Admin pages:

  // If for some reason someone is using this module without
  // project.module (which is technically legitimate, though hard to
  // imagine), we need to define our own version of /admin/project
  // so the rest of our admin pages all work.
  if (!module_exists('project')) {
    $items['admin/project'] = array(
      'title' => 'Project administration',
      'description' => 'Administrative interface for project management and related modules.',
      'page callback' => 'system_admin_menu_block_page',
      'file' => 'system.admin.inc',
      'file path' => drupal_get_path('module', 'system'),
      'access arguments' => array($admin_access),
      'type' => MENU_NORMAL_ITEM,
    );
  }

  $items['admin/project/cvs-settings'] = array(
    'description' => 'Modify CVS management settings, such as how it integrates with projects on your site, the text used on the CVS account application form, and the default wording for emails sent when CVS accounts are approved or denied.',
    'title' => 'CVS settings',
    'page callback' => 'drupal_get_form',
    'page arguments' => array('cvs_settings_form'),
    'access arguments' => array($admin_access),
    'type' => MENU_NORMAL_ITEM,
  );

  // Accounts:
  $items['admin/project/cvs-accounts'] = array(
    'title' => 'CVS accounts',
    'description' => 'Approve or deny requests from the <a href="'. $base_url .'/cvs-application">CVS application</a>, import CVS users from an existing CVSROOT/password file, or export a CVSROOT/passwd file to install in any of your CVS repositories.',
    'page callback' => 'cvs_account',
    'access arguments' => array($admin_access),
    'type' => MENU_NORMAL_ITEM,
  );
  $items['admin/project/cvs-accounts/list'] = array(
    'title' => 'List',
    'page callback' => 'cvs_account',
    'access arguments' => array($admin_access),
    'type' => MENU_DEFAULT_LOCAL_TASK,
  );
  $items['admin/project/cvs-accounts/import'] = array(
    'title' => 'Import',
    'page callback' => 'drupal_get_form',
    'page arguments' => array('cvs_account_import'),
    'access arguments' => array($admin_access),
    'type' => MENU_LOCAL_TASK,
    'weight' => 2,
  );
  $items['admin/project/cvs-accounts/export'] = array(
    'title' => 'Export',
    'page callback' => 'cvs_account_export',
    'access arguments' => array($admin_access),
    'type' => MENU_LOCAL_TASK,
    'weight' => 3,
  );
  $items['admin/project/cvs-accounts/status'] = array(
    'title' => 'Status',
    'page callback' => 'cvs_account_status',
    'access arguments' => array($admin_access),
    'type' => MENU_LOCAL_TASK,
    'weight' => 4,
  );

  // Repositories:
  $items['admin/project/cvs-repositories'] = array(
    'title' => 'CVS repositories',
    'description' => 'Define and configure what CVS repositories are connected to your site, how CVS log messages should be saved, and how to integrate each repository with a source browsing tool such as ViewCVS.',
    'page callback' => 'cvs_repository',
    'access arguments' => array($admin_access),
    'type' => MENU_NORMAL_ITEM,
  );
  $items['admin/project/cvs-repositories/list'] = array(
    'title' => 'List',
    'page callback' => 'cvs_repository',
    'access arguments' => array($admin_access),
    'type' => MENU_DEFAULT_LOCAL_TASK,
  );
  $items['admin/project/cvs-repositories/add'] = array(
    'title' => 'Add repository',
    'page callback' => 'drupal_get_form',
    'page arguments' => array('cvs_repository_form'),
    'access arguments' => array($admin_access),
    'type' => MENU_LOCAL_TASK,
    'weight' => 2,
  );
  $items['admin/project/cvs-repositories/edit'] = array(
    'title' => 'Edit repository',
    'page callback' => 'cvs_repository_edit',
    'access arguments' => array($admin_access),
    'type' => MENU_CALLBACK,
  );
  $items['admin/project/cvs-repositories/delete'] = array(
    'title' => 'Delete',
    'page callback' => 'cvs_repository_delete',
    'access arguments' => array($admin_access),
    'type' => MENU_CALLBACK,
  );
  $items['admin/project/cvs-repositories/fetch'] = array(
    'title' => 'Fetch log',
    'page callback' => 'cvs_repository_fetch',
    'access arguments' => array($admin_access),
    'type' => MENU_CALLBACK,
  );


  // If the user has a CVS account, add a 'track CVS messages' tab to the tracker page.
  $items['user/%user/track/code'] = array(
    'title' => 'Track code',
    'page callback' => 'cvs_account_tracker',
    'access callback' => 'cvs_account_tracker_access',
    'access arguments' => array(1),
    'type' => MENU_LOCAL_TASK,
    'weight' => 2,
  );

  $items['node/%node/cvs-access'] = array(
    'title' => 'CVS access',
    'page callback' => 'drupal_get_form',
    'page arguments' => array('cvs_project_access_form'),
    'access callback' => 'cvs_project_access_form_access',
    'access arguments' => array(1),
    'type' => MENU_LOCAL_TASK,
    'weight' => 4,
  );
  $items['node/%node/cvs-access/delete/%user'] = array(
    'page callback' => 'drupal_get_form',
    'page arguments' => array('cvs_project_delete_access', 1, 4),
    'access callback' => 'cvs_project_access_form_access',
    'access arguments' => array(1),
    'type' => MENU_CALLBACK,
  );
  $items['node/%project_node/committers'] = array(
    'title' => 'Committers',
    'page callback' => 'cvs_project_committers_page',
    'page arguments' => array(1),
    'type' => MENU_CALLBACK,
    'access callback' => 'node_access',
    'access arguments' => array('view', 1),
  );
  // Redirect from the legacy URL to prevent link rot.
  $items['project/developers/%project_node'] = array(
    'title' => 'Developers',
    'page callback' => 'cvs_project_developers_redirect',
    'page arguments' => array(2),
    'type' => MENU_CALLBACK,
    'access callback' => 'node_access',
    'access arguments' => array('view', 2),
  );

  return $items;
}

function cvs_account_tracker_access($account) {
  $result = db_query('SELECT uid, status FROM {cvs_accounts} WHERE uid = %d', $account->uid);
  if ($cvs_account = db_fetch_object($result)) {
    return user_access('access CVS messages') && $cvs_account->status == CVS_APPROVED;
  }

  return FALSE;
}

function cvs_user_edit_form_access($account) {
  global $user;
  $result = db_query('SELECT uid, status FROM {cvs_accounts} WHERE uid = %d', $account->uid);
  if ($cvs_account = db_fetch_object($result)) {
    return (!empty($user->uid) && $user->uid == $account->uid && $cvs_account->status == CVS_APPROVED) || user_access('administer CVS');
  }

  return FALSE;
}

function cvs_project_access_form_access($node) {
  global $user;
  $result = db_query('SELECT uid FROM {cvs_accounts} WHERE uid = %d AND status = %d', $user->uid, CVS_APPROVED);
  if ($cvs_account = db_fetch_object($result)) {
    return $node->type == "project_project" && project_use_cvs($node) &&
          ($node->uid == $user->uid || user_access('administer nodes')
           || user_access('administer CVS'));
  }

  return FALSE;
}

/**
 * Implementation of hook_user().
 *
 * Adds listing of CVS commits by project to the user profile page.
 *
 * Also, we need to hack this category in for the CVS edit subtab, since user
 * module does try to have a tight control of management of these menu items,
 * so we need to get it created through this hook and then altered by
 * hook_menu_alter(). Drupal 7 should do better.
 */
function cvs_user($op, &$edit, &$account, $category = NULL) {
  switch ($op) {
    case 'view':
      // Print a list of projects the specified user contributed to.
      if (!empty($account->uid)) {
        $result = db_query("SELECT DISTINCT(f.nid), n.title, COUNT(f.nid) AS commits FROM {cvs_files} f INNER JOIN {node} n ON n.status = %d AND n.nid = f.nid WHERE f.uid = %d GROUP BY f.nid, n.title ORDER BY commits DESC", 1, $account->uid);
        $total = 0;
        $projects = array();
        while ($project = db_fetch_object($result)) {
          $project_link = l($project->title, 'node/'. $project->nid);
          $projects[] = format_plural($project->commits, '!project (1 commit)', '!project (@count commits)', array('!project' => $project_link));
          $total += $project->commits;
        }
        if ($total > 0) {
          $projects[] = format_plural($total, 'Total: 1 commit', 'Total: @count commits');
        }
        if (!empty($projects)) {
          $account->content['cvs'] = array(
            '#type' => 'user_profile_category',
            '#title' => t('Projects'),
            '#weight' => 10,
            '#attributes' => array('class' => 'cvs-project-user-commits'),
          );
          $account->content['cvs']['items'] = array(
            '#type' => 'user_profile_item',
            '#value' => theme('item_list', $projects),
          );
        }
      }
      break;

    case 'categories':
      return array(array('name' => 'cvs', 'title' => t('CVS'), 'weight' => 3));

  }
}

/**
 * Implementation of hook_menu_alter().
 *
 * See why we need this hack in cvs_user().
 */
function cvs_menu_alter(&$callbacks) {
  $callbacks['user/%user_category/edit/cvs']['page callback'] = 'drupal_get_form';
  $callbacks['user/%user_category/edit/cvs']['page arguments'] = array('cvs_user_edit_form', 1);
  $callbacks['user/%user_category/edit/cvs']['access callback'] = 'cvs_user_edit_form_access';
  $callbacks['user/%user_category/edit/cvs']['access arguments'] = array(1);
}

/**
 * Implementation of hook_perm().
 */
function cvs_perm() {
  return array('access CVS messages', 'administer CVS');
}

/**
 * Implementation of hook_cron().
 */
function cvs_cron() {
  $result = db_query("SELECT * FROM {cvs_repositories} WHERE method = %d", 0);
  while ($repo = db_fetch_object($result)) {
    cvs_fetch_repository($repo);
  }
}

/**
 * Implementation of hook_theme().
 */
function cvs_theme() {
  return array(
    'cvs_commit_message' => array(
      'arguments' => array('commit'),
    ),
    'cvs_project_access_form' => array(
      'arguments' => array('form'),
    ),
    'cvs_project_maintainer_list' => array(
      'arguments' => array('node', 'maintainers'),
    ),
  );
}

/**
 * Form builder function for system settings.
 */
function cvs_settings_form(&$form_state) {
  $strings = _cvs_get_strings();

  $form['cvs_email_address'] = array(
    '#type' => 'textfield',
    '#title' => t('E-mail address'),
    '#default_value' => variable_get('cvs_email_address', 'cvs@example.com'),
    '#description' => t('The e-mail address of the CVS administrator.'),
  );
  $form['cvs_use_file'] = array(
    '#type' => 'radios',
    '#title' => t("Use file to store log"),
    '#default_value' => variable_get('cvs_use_file', 1),
    '#options' => array(t('Disabled'), t('Enabled')),
    '#description' => t('When enabled, this will store log messages in a temporary file to reduce memory consumption.'),
  );
  $options = _cvs_get_repository_options('&lt;' . t('none') . '&gt;');
  $form['cvs_default_repo'] = array(
    '#title' => t('Default CVS repository for projects'),
    '#type' => 'radios',
    '#options' => $options,
    '#default_value' => variable_get('cvs_default_repo', 0),
    '#description' => t('Choose the repository that should be used by default when projects are being edited'),
  );
  $form['cvs_restrict_project_creation'] = array(
    '#title' => t('Restrict project creation to users with CVS accounts'),
    '#type' => 'checkbox',
    '#default_value' => variable_get('cvs_restrict_project_creation', 1),
    '#description' => t('If this box is checked, only users with CVS accounts will be allowed to create project nodes.'),
  );
  if (module_exists('project') && project_use_taxonomy()) {
    $form['type_validation'] = array(
      '#title' => t('Validate %cvs_dir by %type', array('%cvs_dir' => t('CVS directory'), '%type' => t('Project type'))),
      '#type' => 'fieldset',
    );
    $form['type_validation']['cvs_directory_validate_by_type'] = array(
      '#title' => t('Validate %cvs_dir using %type', array('%cvs_dir' => t('CVS directory'), '%type' => t('Project type'))),
      '#type' => 'checkbox',
      '#default_value' => variable_get('cvs_directory_validate_by_type', 1),
      '#description' => t("If this box is checked, the first element of the path specified in the %cvs_dir field must match the selected %type for project nodes.  This is a case insensitive comparison, and spaces in the %type field will be converted to hypens ('-') for the purpose of the comparison. However, if custom directories are specified in the fields below, those will be used for validation instead.", array('%cvs_dir' => t('CVS directory'), '%type' => t('Project type'))),
    );
    $terms = taxonomy_get_tree(_project_get_vid());
    foreach ($terms as $i => $term) {
      // Only use the first-level terms.
      if ($term->depth == 0) {
        $form['type_validation']['cvs_directory_tid_'. $term->tid] = array(
          '#title' => t('Directory for %term_name', array('%term_name' => $term->name)),
          '#type' => 'textfield',
          '#default_value' => variable_get('cvs_directory_tid_'. $term->tid, ''),
        );
      }
    }
  }
  $form['cvs_validate_by_short_name'] = array(
    '#title' => t('Validate %cvs_dir using %short_name', array('%cvs_dir' => t('CVS directory'), '%short_name' => t('Project short name'))),
    '#type' => 'checkbox',
    '#default_value' => variable_get('cvs_validate_by_short_name', 1),
      '#description' => t("If this box is checked, the last element of the path specified in the %cvs_dir field must match the %short_name field for project nodes.", array('%cvs_dir' => t('CVS directory'), '%short_name' => t('Project short name'))),
  );
  $form['cvs_directory_validate_dir_root_by_case'] = array(
    '#title' => t('Ensure lowercase for first element of %cvs_dir', array('%cvs_dir' => t('CVS directory'))),
    '#type' => 'checkbox',
    '#default_value' => variable_get('cvs_directory_validate_dir_root_by_case', 1),
    '#description' => t("If this box is checked, the first element of the path specified in the %cvs_dir field must be lowercase.", array('%cvs_dir' => t('CVS directory'))),
  );
  $form['cvs_list_per_page'] = array(
    '#title' => t('Number of CVS accounts listed per page'),
    '#type' => 'textfield',
    '#default_value' => variable_get('cvs_list_per_page', 20),
    '#size' => 6,
    '#description' => t('The number of users to display per page in admin list view.')
  );
  $form['cvs_application_form'] = array(
    '#title' => t('CVS application form strings'),
    '#type' => 'fieldset',
    '#collapsible' => TRUE,
    '#collapsed' => TRUE
  );
  $form['cvs_application_form']['cvs_message_anon'] = array(
    '#title' => t('Message to anonymous users'),
    '#type' => 'textarea',
    '#default_value' => variable_get('cvs_message_anon', $strings['cvs_message_anon']),
    '#description' => t('Message to show to anonymous users who are trying to apply for a CVS account'),
  );
  $form['cvs_application_form']['cvs_message_auth'] = array(
    '#title' => t('Message to authenticated users'),
    '#type' => 'textarea',
    '#default_value' => variable_get('cvs_message_auth', $strings['cvs_message_auth']),
    '#description' => t('Message to show to authenticated users who are applying for a CVS account.'),
  );
  $form['cvs_application_form']['cvs_motivation_description'] = array(
    '#title' => t('Motivation message description'),
    '#type' => 'textarea',
    '#default_value' => variable_get('cvs_motivation_description', $strings['cvs_motivation_description']),
    '#description' => t('Text to display below the motivation field of a CVS application.'),
  );
  $form['cvs_email_form'] = array(
    '#title' => t('CVS application e-mail messages'),
    '#description' => t('The following messages are templates for e-mails messages
      sent to users who have applied for a CVS account. The following variables are
      substituted (where available) when the message is sent.
      <ul>
        <li>%account-name - The username of the applicant.</li>
        <li>%user-account-url - The URL of the applicant\'s user page.</li>
        <li>%manage-cvs-account-url : The URL where the user can manage his CVS account.</li>
        <li>%cvs-admin-message : Additional guidelines specified by the CVS administrator.</li>
        <li>%cvs-admin-name : Username of the CVS administrator.</li>
        <li>%motivation-message : The motivation message of the applicant.</li>
        <li>%client-information - The applicant\'s IP and browser related information.</li>
      </ul>'),
    '#type' => 'fieldset',
    '#collapsible' => TRUE,
    '#collapsed' => TRUE
  );
  $form['cvs_email_form']['cvs_received_email'] = array(
    '#title' => t('CVS application received e-mail message'),
    '#type' => 'textarea',
    '#default_value' => variable_get('cvs_received_email', $strings['cvs_received_email']),
    '#description' => t('The message to send to users whose application has been received.'),
  );
  $form['cvs_email_form']['cvs_new_application_email'] = array(
    '#title' => t('CVS new application e-mail message'),
    '#type' => 'textarea',
    '#default_value' => variable_get('cvs_new_application_email', $strings['cvs_new_application_email']),
    '#description' => t('The message sent to the administrator when a user has submitted an application.'),
  );
  $form['cvs_email_form']['cvs_approved_email'] = array(
    '#title' => t('CVS account approved e-mail message'),
    '#type' => 'textarea',
    '#default_value' => variable_get('cvs_approved_email', $strings['cvs_approved_email']),
    '#description' => t('The message to send to users whose accounts have been approved.'),
  );
  $form['cvs_email_form']['cvs_pending_email'] = array(
    '#title' => t('CVS account pending e-mail message'),
    '#type' => 'textarea',
    '#default_value' => variable_get('cvs_pending_email', $strings['cvs_pending_email']),
    '#description' => t('The message to send to users whose accounts cannot be approved yet.'),
  );
  $form['cvs_email_form']['cvs_declined_email'] = array(
    '#title' => t('CVS account declined e-mail message'),
    '#type' => 'textarea',
    '#default_value' => variable_get('cvs_declined_email', $strings['cvs_declined_email']),
    '#description' => t('The message to send to users whose accounts have been declined.'),
  );
  $form['cvs_email_form']['cvs_disabled_email'] = array(
    '#title' => t('CVS account disabled e-mail message'),
    '#type' => 'textarea',
    '#default_value' => variable_get('cvs_disabled_email', $strings['cvs_disabled_email']),
    '#description' => t('The message to send to users whose accounts have been disabled.'),
  );

  if (module_exists('project_release')) {
    $form['cvs_message_new_release_branch'] = array(
      '#title' => t('Message when new releases are added from a branch'),
      '#type' => 'textarea',
      '#default_value' => variable_get('cvs_message_new_release_branch', ''),
      '#description' => t('Message to show to project maintainers when they add a new development snapshot release from a branch.'),
    );
    $form['cvs_message_new_release_tag'] = array(
      '#title' => t('Message when new releases are added from a tag'),
      '#type' => 'textarea',
      '#default_value' => variable_get('cvs_message_new_release_tag', ''),
      '#description' => t('Message to show to project maintainers when they add a new official release from a tag.'),
    );
  }
  return system_settings_form($form);
}

/**
 * Implementation of hook_nodeapi().
 */
function cvs_nodeapi(&$node, $op, $arg = NULL) {
  if ($node->type == 'project_project') {
    switch ($op) {
      case 'load':
        $result = db_query('SELECT * FROM {cvs_projects} WHERE nid = %d', $node->nid);
        if ($project = db_fetch_object($result)) {
          $node->cvs['repository'] = $project->rid;
          $node->cvs['directory'] = $project->directory;
        }
        break;
      case 'insert':
      case 'update':
        _cvs_directory_fix($node->cvs['directory']);
        db_query('DELETE FROM {cvs_projects} WHERE nid = %d', $node->nid);
        db_query("INSERT INTO {cvs_projects} (nid, rid, directory) VALUES (%d, %d, '%s')", $node->nid, $node->cvs['repository'], $node->cvs['directory']);
        db_query("UPDATE {cvs_files} SET nid = %d WHERE rid = %d AND file LIKE '%s%%'", $node->nid, $node->cvs['repository'], $node->cvs['directory']);
        break;
      case 'validate':
        if (strlen($node->title) > 0) {
          $admin = user_access('administer projects');
          $project = !empty($node->nid) ? node_load($node->nid) : NULL;
          if (!empty($node->cvs['repository']) && !db_result(db_query('SELECT rid FROM {cvs_repositories} WHERE rid = %d', $node->cvs['repository']))) {
            form_set_error('cvs][repository', t('You must select a valid CVS repository.'));
          }
          if (!$admin && $project && $node->cvs['repository'] != $project->cvs['repository']) {
            form_set_error('cvs][repository', t('You do not have permission to modify the CVS repository for this project.'));
          }
          if (empty($node->cvs['repository'])) {
            // The rest of this validation only makes sense if we have
            // a CVS repository for this project
            if (!empty($node->cvs['directory'])) {
              form_set_error('cvs][directory', t('You can not specify a CVS directory if there is no CVS repository for this project.'));
            }
            break;
          }
          _cvs_directory_fix($node->cvs['directory']);
          if (!$node->cvs['directory']) {
            form_set_error('cvs][directory', t('You have to specify a valid CVS directory.'));
          }
          else if (!preg_match('/^[a-zA-Z0-9\/_-]+$/', $node->cvs['directory'])) {
            form_set_error('cvs][directory', t("The path of the CVS directory can only contain letters, numbers, slashes ('/'), hyphens ('-') and underscores ('_')."));
          }
          else if (preg_match('/\/\//', $node->cvs['directory'])) {
            form_set_error('cvs][directory', t("The path of the CVS directory cannot contain two slashes next to each other '//'."));
          }
          else if (db_result(db_query("SELECT nid FROM {cvs_projects} WHERE nid != %d AND rid = %d AND directory = '%s'", $node->nid, $node->cvs['repository'], $node->cvs['directory']))) {
            form_set_error('cvs][directory', t('The specified CVS directory conflicts with that of an existing project.'));
          }
          else if (!$admin) {
            $path_elems = explode('/', $node->cvs['directory']);
            // Remove empty elements caused by the trailing and leading '/'.
            $path_elems = array_filter($path_elems);
            if (variable_get('cvs_directory_validate_dir_root_by_case', 1)) {
              if ($path_elems[1] != drupal_strtolower($path_elems[1])) {
                form_set_error('cvs][directory', t("The root of the CVS directory (%root) must be lowercase.", array('%root' => $path_elems[1])));
              }
            }
            if (project_use_taxonomy() && variable_get('cvs_directory_validate_by_type', 1)) {
              $tree = taxonomy_get_term($node->project_type);
              $cvs_dir_root = _cvs_dir_root($tree->name, $node->project_type);
              if (drupal_strtolower($path_elems[1]) != $cvs_dir_root) {
                form_set_error('cvs][directory', t("The root of the CVS directory (%root) does not match the selected project type (%type). By default, spaces in the type name are converted to hyphens in the path, but custom mappings can also be defined.  Given the current project type, the first element of the directory path should be: %goal.", array('%root' => $path_elems[1], '%type' => $tree->name, '%goal' => $cvs_dir_root)));
              }
            }
            if (variable_get('cvs_validate_by_short_name', 1)) {
              $last_elem = array_pop($path_elems);
              if ($last_elem != $node->project['uri']) {
                form_set_error('cvs][directory', t("The last part of the CVS directory (%last) does not match the short project name (%short).", array('%last' => $last_elem, '%short' => $node->project['uri'])));
                form_set_error('project][uri', t("The short project name (%short) does not match the last part of the CVS directory (%last).", array('%last' => $last_elem, '%short' => $node->project['uri'])));
              }
            }
          }
        }
        break;
      case 'delete':
        db_query('DELETE FROM {cvs_projects} WHERE nid = %d', $node->nid);
        break;
    }
  }
  elseif ($node->type == 'project_release') {
    switch ($op) {
      case 'insert':
        if (project_use_cvs($node->project)) {
          if ($node->project_release['rebuild']) {
            $msg = variable_get('cvs_message_new_release_branch', '');
          }
          else {
            $msg = variable_get('cvs_message_new_release_tag', '');
          }
          if (!empty($msg)) {
            drupal_set_message($msg);
          }
        }
        break;
    }
  }
}

/**
 * Implementation of hook_form_alter().
 */
function cvs_form_alter(&$form, &$form_state, $form_id) {
  if ($form_id == 'project_project_node_form') {
    cvs_alter_project_project_form($form, $form_state);
    return;
  }
  if ($form_id == 'project_release_node_form') {
    if (function_exists('cvs_local_alter_project_release_form')) {
      cvs_local_alter_project_release_form($form, $form_state);
    }
    cvs_alter_project_release_form($form, $form_state);
    return;
  }
}

/**
 * Menu Callback: Display the CVS account edit form.
 * Form builder function for cvs_user_edit_form()
 */
function cvs_user_edit_form(&$form_state, $account) {
  global $user;

  $result = db_fetch_object(db_query("SELECT cvs_user, motivation, status FROM {cvs_accounts} WHERE uid = %d", $account->uid));
  $cvs_user = $result->cvs_user;
  $cvs_status = $result->status;
  $cvs_motivation = $result->motivation;

  $form['cvs'] = array(
    '#type' => 'fieldset',
    '#title' => t('CVS account settings'),
    '#collapsible' => TRUE,
    '#collapsed' => FALSE,
  );
  if (user_access('administer CVS')) {
    // Due to the workaround being used in hook_menu to allow CVS administrators
    // access to the user's account/edit section, the page title is incorrect.
    $account = user_load(array('uid' => $account->uid));
    drupal_set_title(check_plain($account->name));

    $form['cvs']['cvs_user'] = array(
      '#type' => 'textfield',
      '#title' => t('CVS username'),
      '#default_value' => $cvs_user,
      '#size' => 30,
      '#maxlength' => 64,
      '#description' => t('The CVS username associated with this account. This field is used to link CVS messages to user accounts.'),
    );
    $form['cvs']['cvs_pass'] = array(
      '#type' => 'password_confirm',
      '#title' => t('CVS password'),
      '#description' => t('To change the current CVS password, enter the new password in both fields.'),
    );
    $form['cvs']['motivation'] = array(
      '#type' => 'item',
      '#title' => t('Motivation message'),
      '#value' => check_markup($cvs_motivation),
    );
    $form['cvs']['cvs_status'] = array(
      '#type' => 'radios',
      '#title' => t('CVS status'),
      '#default_value' => $cvs_status,
      '#options' => _cvs_get_status_options(),
      '#description' => t("You can change the status of the user's CVS account."),
    );
    $form['cvs']['send_mail'] = array(
      '#type' => 'checkbox',
      '#title' => t('Inform the user by e-mail.'),
      '#default_value' => 1,
    );
    $form['cvs']['message'] = array(
      '#type' => 'textarea',
      '#title' => t('Reason/Message'),
      '#cols' => 50,
      '#rows' => 5,
      '#description' => t('The message you want to send to the user. This can be the reason for declining the application or an additional message after approval (used in e-mail).'),
    );
  }
  elseif (strlen($cvs_user) && $account->uid == $user->uid) {
    if($cvs_status) {
      $form['cvs']['cvs_user'] = array(
        '#type' => 'item',
        '#title' => t('CVS username'),
        '#value' => $cvs_user,
        '#description' => t('Your CVS username. This field can only be edited by administrators and is used to link your CVS messages to your user account.'),
      );
      $form['cvs']['cvs_pass'] = array(
        '#type' => 'password_confirm',
        '#title' => t('CVS password'),
        '#description' => t('To change your current CVS password, enter the new password in both fields.'),
      );
    }
    else {
      $form['cvs']['cvs_user'] = array(
        '#type' => 'item',
        '#title' => t('CVS username'),
        '#value' => $cvs_user,
        '#description' => t('Your CVS username associated with this account. Your CVS application has not been approved yet, it has been declined, or your account got blocked.'),
      );
    }
  }
  else {
    $form['cvs']['cvs_user'] = array(
      '#type' => 'item',
      '#title' => t('CVS username'),
      '#value' => $cvs_user,
      '#description' => t('The CVS username associated with this account.'),
    );
  }
  $form['cvs']['cvs_uid'] = array('#type' => 'value', '#value' => $account->uid);
  $form['submit'] = array('#type' => 'submit', '#value' => t('Save'));

  return $form;
}

/**
 * Validate CVS user edit form submission.
 */
function cvs_user_edit_form_validate($form, &$form_state) {
  if (isset($form_state['values']['cvs_user'])) {
    // Check for duplicates:
    $id = db_result(db_query("SELECT uid FROM {cvs_accounts} WHERE cvs_user = '%s' AND uid != %d", $form_state['values']['cvs_user'], $form_state['values']['cvs_uid']));
    if ($id != 0) {
      form_set_error('cvs_user', t('The specified CVS username is already in use by user #!id.', array('!id' => $id)));
    }
  }
  if (!empty($form_state['values']['cvs_pass']) && strlen($form_state['values']['cvs_pass']) < CVS_MIN_PASS_LENGTH) {
    form_set_error('cvs_pass', t('The CVS password you have chosen is too short (it must be at least !min characters long).', array('!min' => CVS_MIN_PASS_LENGTH)));
  }
}

/**
 * Process CVS user edit form submission.
 */
function cvs_user_edit_form_submit($form, &$form_state) {
  global $user;

  $result = db_fetch_object(db_query("SELECT cvs_user, status FROM {cvs_accounts} WHERE uid = %d", $form_state['values']['cvs_uid']));
  $cvs_user = $result->cvs_user;
  $cvs_status = $result->status;

  if (user_access('administer CVS') && isset($form_state['values']['cvs_status'])) {
    if ($form_state['values']['cvs_status'] == CVS_QUEUED && $cvs_status == CVS_QUEUED) {
      // The QUEUED status should only indicate the initial status of an
      // application. Once it has been replied to, it should be set to PENDING.
      // In case the administrator forgets to do this, do it automatically.
      $form_state['values']['cvs_status'] = CVS_PENDING;
    }
    if (isset($form_state['values']['cvs_pass']) && strlen($form_state['values']['cvs_pass'])) {
      db_query("UPDATE {cvs_accounts} SET cvs_user = '%s', status = %d, pass = '%s' WHERE uid = %d", $form_state['values']['cvs_user'], $form_state['values']['cvs_status'], crypt($form_state['values']['cvs_pass']), $form_state['values']['cvs_uid']);
    }
    else {
      db_query("UPDATE {cvs_accounts} SET cvs_user = '%s', status = %d WHERE uid = %d", $form_state['values']['cvs_user'], $form_state['values']['cvs_status'], $form_state['values']['cvs_uid']);
    }
    db_query("UPDATE {cvs_messages} SET cvs_user = '%s' WHERE uid = %d", $form_state['values']['cvs_user'], $form_state['values']['cvs_uid']);
    if ($form_state['values']['send_mail']) {
      cvs_mail_user($form_state['values']['cvs_uid'], $form_state['values']['message']);
    }
    drupal_set_message(t('The CVS account %account has been updated successfully.', array('%account' => $form_state['values']['cvs_user'])));
    $form_state['redirect'] = 'admin/project/cvs-accounts';
  }
  elseif (strlen($cvs_user) && $form_state['values']['cvs_uid'] == $user->uid && isset($form_state['values']['cvs_pass']) && strlen($form_state['values']['cvs_pass'])) {
    if($cvs_status) {
      db_query("UPDATE {cvs_accounts} SET pass = '%s' WHERE uid = %d", crypt($form_state['values']['cvs_pass']), $form_state['values']['cvs_uid']);
      drupal_set_message(t('Your CVS password has been updated successfully.'));
    }
  }
}

/**
 * Alters the project_project node form to add CVS integration
 * @see cvs_form_alter
 *
 * PROJECT TODO: this whole function needs to be reviewed
 * after the 6.x project* port.
 */
function cvs_alter_project_project_form(&$form, &$form_state) {
  $node = $form['#node'];
  $repositories = _cvs_get_repository_options(t('<none>'));
  $form['cvs'] = array(
    '#type' => 'fieldset',
    '#title' => t('CVS integration'),
    '#collapsible' => TRUE,
    '#tree' => TRUE,
    '#weight' => 4,
  );
  $default_repo = isset($node->cvs['repository']) ? $node->cvs['repository'] : variable_get('cvs_default_repo', 0);
  if (count($repositories) > 1) {
    $form['cvs']['repository'] = array(
      '#type' => 'select',
      '#title' => t('Repository'),
      '#default_value' => $default_repo,
      '#options' => user_access('administer projects') ? $repositories : array($default_repo => $repositories[$default_repo]),
      '#description' => t("Specify the project's CVS repository."),
    );
  }
  $form['cvs']['directory'] = array(
    '#type' => 'textfield',
    '#title' => t('CVS directory'),
    '#default_value' => isset($node->cvs['directory']) ? $node->cvs['directory'] : '',
    '#size' => 40,
    '#maxlength' => 255,
    '#description' => t("Specify the project's directory within the selected CVS repository. Directory names should start with a leading slash and end with a trailing slash, and must be unique for each project. For example: <code>/modules/foo/</code>, <code>/themes/foo/</code> or <code>/translations/foo/</code>. If there is no CVS repository associated with the project, this setting should be left blank."),
  );
  if ($default_repo == 0 || !empty($node->cvs['directory'])) {
    // If the default for the repository selector is <none> (either
    // because the project has already been saved with 0 for the
    // repository, or because that's the site-wide default), or if we
    // already have the value for the CVS directory, we should hide
    // these gory details by default.
    $form['cvs']['#collapsed'] = TRUE;
  }
}

/**
 * Alters the project_release node to add build tag UI
 * @see cvs_form_alter
 *
 * PROJECT TODO: this whole function needs to be reviewed
 * after the 6.x project* port.
 */
function cvs_alter_project_release_form(&$form, &$form_state) {
  // If we're not adding it, call a separate method that just worries
  // about how to alter the edit form, since the add form is so complex.
  if (arg(1) != 'add') {
    return cvs_alter_project_release_form_edit($form, $form_state);
  }

  $project = $form['project']['#value'];

  // Check to see if this project has a repository set. If not, then don't
  // alter the form so that the project can have releases just as if the
  // cvs.module were not enabled at all.
  if (!project_use_cvs($project)) {
    return;
  }

  if (!isset($project->project_release['releases'])) {
    // This project has no releases, nothing to alter
    return;
  }

  $fields = array('version_major', 'version_minor', 'version_patch');

  if (isset($form_state['cvs_tag'])) {
    $tag_name = $form_state['cvs_tag'];
  }
  elseif (isset($form_state['values']['project_release']['tag'])) {
    $tag_name = $form_state['values']['project_release']['tag'];
  }

  if (!empty($tag_name)) {
    $vid = _project_release_get_api_vid();
    if ($tag_name == 'HEAD') {
      // Special case validation for the HEAD...
      $tag = new stdClass();
      $tag->tag = 'HEAD';
      $tag->branch = 1;
      $tag->nid = $project->nid;

      foreach ($fields as $field) {
        if (isset($form_state['storage']['project_release'][$field])) {
          $form_val = $form_state['storage']['project_release'][$field];
          if ($form_val !== '' && (is_numeric($form_val) || $form_val == 'x')) {
            $version->$field = $form_val;
          }
        }
      }
      if (isset($form_state['storage']['project_release']['version_extra'])
          && $form_state['storage']['project_release']['version_extra'] !== '') {
        $version->version_extra = $form_state['storage']['project_release']['version_extra'];
      }
      if (isset($form['taxonomy'][$vid])) {
        if (isset($form_state['storage']['project_release']['version_api_tid'])) {
          $version_api_tid = $form_state['storage']['project_release']['version_api_tid'];
          if (is_numeric($version_api_tid) && !empty($version_api_tid) && db_result(db_query('SELECT COUNT(*) FROM {term_data} WHERE tid = %d AND vid = %d', $version_api_tid, $vid))) {
            $version->version_api_tid = $version_api_tid;
            $indexes = form_get_options($form['taxonomy'][$vid], $version_api_tid);
            $options = array();
            if ($indexes !== FALSE) {
              foreach ($indexes as $index) {
                $options[] = $form['taxonomy'][$vid]['#options'][$index];
              }
              $form['taxonomy'][$vid]['#options'] = $options;
              $form['taxonomy'][$vid]['#default_value'] = $version_api_tid;
            }
          }
        }
      }

      if (function_exists('cvs_local_version_is_valid')) {
        $vers_is_valid = cvs_local_version_is_valid($version, $tag, $project);
      }
      else {
        $vers_is_valid = isset($version);
      }
      if ($vers_is_valid) {
        $version_str = project_release_get_version($version, $project);
      }
      else {
        unset($version);
        _cvs_alter_project_release_form_unset_all($form, array('taxonomy', 'project_release'));
        $elements = element_children($form['taxonomy']);
        $found_it = FALSE;
        foreach ($elements as $element) {
          if ($element != $vid) {
            unset($form['taxonomy'][$element]);
          }
          else {
            $found_it = TRUE;
          }
        }
        if (!$found_it) {
          // If we're not leaving the API selection element, unset the
          // whole thing so we don't leave an empty fieldset.
          unset($form['taxonomy']);
        }
      }
    }
    else {
      $query = db_query("SELECT * FROM {cvs_tags} WHERE nid = %d AND tag = '%s'", $project->nid, $tag_name);
      $tag = db_fetch_object($query);
      if (!$tag) {
        form_set_error('tag', t('The tag you selected does not exist for this project.'));
      }
      $query = db_query("SELECT nid FROM {project_release_nodes} WHERE pid = %d AND tag = '%s'", $project->nid, $tag_name);
      if (db_result($query)) {
        form_set_error('tag', t('The tag or branch you have selected is already in use by another release'));
      }
      $version = cvs_get_version_from_tag($tag, $project);
      $version_str = project_release_get_version($version, $project);
    }
    unset($form['tag']);
    $tags[$tag_name] = $tag_name;
    $form['cvs_tag'] = array('#weight' => -4);
    $form['cvs_tag']['project_release'] = array('#tree' => TRUE);
    $form['cvs_tag']['project_release']['tag'] = array(
      '#type' => 'select',
      '#title' => $tag->branch ? t('CVS branch') : t('CVS tag'),
      '#options' => $tags,
      '#default_value' => $tag->tag,
      '#required' => TRUE,
    );
    $form['project_release']['rebuild'] = array(
      '#type' => 'value',
      '#value' => $tag->branch,
    );

    if (isset($version_str)) {
      // Since this is the final page, turn this into a fieldset with
      // all the nice float/clear goodness
      $form['cvs_tag']['#type'] = 'fieldset';
      $form['cvs_tag']['#collapsible'] = TRUE;
      $form['cvs_tag']['#title'] =  t('Release identification');
      $form['cvs_tag']['#prefix'] = '<div class="version-elements">';
      $form['cvs_tag']['#suffix'] = '</div>';
      $form['cvs_tag']['#description'] = t('Now that the CVS tag has been selected, these can not be modified.');

      // Display the version string so the user knows we've got it right.
      $form['cvs_tag']['version'] = array(
        '#type' => 'textfield',
        '#title' => 'Version string',
        '#default_value' => $version_str,
        '#attributes' => array('readonly' => TRUE, 'style' => 'width:auto'),
        '#required' => TRUE,
        '#size' => 30,
        '#maxlength' => 40,
      );
      // Stash this in a form value so it'll make it through to validation
      // where the title of the release node is set.
      $form['cvs_tag']['project_release']['version'] = array(
        '#type' => 'value',
        '#value' => $version_str,
      );
      // Also stash it in form_state['storage'] so we preserve it through
      // multi-page, preview, and submit.
      $form_state['storage']['project_release']['version'] = $version_str;
    }
    if (isset($version)) {
      foreach (array_merge($fields, array('version_extra')) as $field) {
        if (isset($version->$field)) {
          $form_state['storage']['project_release'][$field] = $version->$field;
        }
        $form['project_release'][$field]['#access'] = FALSE;
      }
      // If we already know the version info, which includes the
      // compatibility taxonomy, so rip out all other taxonomy options.
      if (isset($form['taxonomy'][$vid])) {
        $tid = $version->version_api_tid;
        $indexes = form_get_options($form['taxonomy'][$vid], $tid);
        if ($indexes !== FALSE) {
          $options = array();
          foreach ($indexes as $index) {
            $options[] = $form['taxonomy'][$vid]['#options'][$index];
          }
          $form['taxonomy'][$vid]['#options'] = $options;
          $form['taxonomy'][$vid]['#default_value'] = $tid;
        }
      }
      $form['project_release']['#access'] = FALSE;
      $form['rel_id']['#access'] = FALSE;
//      $form['#pre_render'][] = 'cvs_project_release_form_pre_render';
      // Add a submit handler to copy the version values from
      