mailchimp.install in Mailchimp 6.2

File

mailchimp.install

<?php

/**
 * Implementation of hook_schema().
 */
function mailchimp_schema() {

  // A table of uids
  // @todo If we decide to also do deletes in cron then we can add mail here?
  $schema['mailchimp_user'] = array(
    'fields' => array(
      'uid' => array(
        'type' => 'int',
        'not null' => TRUE,
        'default' => 0,
      ),
      'status' => array(
        'type' => 'varchar',
        'length' => 15,
      ),
    ),
    'primary key' => array(
      'uid',
    ),
  );
  return $schema;
}

/**
 * Implementation of hook_install().
 */
function mailchimp_install() {
  drupal_install_schema('mailchimp');

  // adjust system weight
  mailchimp_update_6205();
}

/**
 * implementation of hook_update_N
 */
function mailchimp_update_6200() {

  // clean up old variables
  $ret = array();
  $ret[] = update_sql("DELETE FROM {variable} WHERE name like 'mailchimp_list\\_%'");
  cache_clear_all();
  return $ret;
}

/**
 * Implementation of hook_update_N().
 *
 * Create a new table for the queue. 
 *
 * When going from no queue to queue, we have to import everyone to
 * the queue for the first pass. After that we can start adding people
 * as required.
 */
function mailchimp_update_6201() {
  $ret = array();
  $schema = drupal_get_schema_unprocessed('mailchimp', 'mailchimp_user');
  db_create_table($ret, 'mailchimp_user', $schema);

  // Everybody goes in here (exclude status = 0 here?)
  $ret[] = update_sql("INSERT INTO {mailchimp_user} (uid, status) SELECT uid, '" . MAILCHIMP_USERSTATUS_PENDING . "' FROM {users} WHERE uid > 0");
  return $ret;
}

/**
 * Implementation of hook_update_N().
 *
 * Takes the old username and password and changes it into an API key.
 */
function mailchimp_update_6202() {
  $ret = array();
  module_load_include('php', 'mailchimp', 'MCAPI.class');
  $q = new MCAPI(variable_get('mailchimp_username', ''), variable_get('mailchimp_password', ''));

  // Set the timeout to something reasonsable to avoid taking down the site.
  $q
    ->setTimeout(60);
  if ($q->errorCode) {
    watchdog('mailchimp', $q->errorMessage, NULL, WATCHDOG_ERROR);
    $ret[] = array(
      'success' => FALSE,
      'query' => 'MailChimp returned error: ' . check_plain($q->errorMessage),
    );
    return $ret;
  }

  // Save the API key.
  variable_set('mailchimp_api_key', $q->api_key);

  // Clean up old variables.
  variable_del('mailchimp_username');
  variable_del('mailchimp_password');
  return $ret;
}

/**
 * Implementation of hook_update_N().
 *
 * Convert 'mailchimp_lists' to a normal array.
 */
function mailchimp_update_6203() {
  $ret = array();
  $var = variable_get('mailchimp_lists', array());
  if (is_array($var)) {
    $ret[] = array(
      'success' => TRUE,
      'query' => "The 'mailchimp_lists' variable has already been fixed.",
    );
  }
  else {
    $var = unserialize($var);
    variable_set('mailchimp_lists', $var);
    $ret[] = array(
      'success' => TRUE,
      'query' => "The 'mailchimp_lists' variable has been fixed.",
    );
  }
  return $ret;
}

/**
 * Implementation of hook_update_N().
 *
 * Remove unused unsubscribe message variable.
 */
function mailchimp_update_6204() {
  $ret = array();
  variable_del('mailchimp_unsubscription_success_message');
  variable_del('mailchimp_unsubscription_failure_message');
  $ret[] = array(
    'success' => TRUE,
    'query' => "The 'mailchimp_unsubscription' message variables have been removed.",
  );
  return $ret;
}

/**
 * Implementation of hook_update_N().
 *
 * Bump up the module weight to ensure all merge fields are accounted for.
 */
function mailchimp_update_6205() {
  $ret = array();
  $ret[] = update_sql("UPDATE {system} SET weight = 10 WHERE name = 'mailchimp' and type = 'module'");
  return $ret;
}

/**
 * Cache blocks with forms per-user.
 */
function mailchimp_update_6206() {
  $return = array();
  $return[] = update_sql("UPDATE {blocks} SET cache = " . BLOCK_CACHE_PER_USER . " WHERE module = 'mailchimp'");
  return $return;
}

/**
 * Implementation of hook_uninstall().
 */
function mailchimp_uninstall() {
  variable_del('mailchimp_api_key');
  variable_del('mailchimp_cron');
  variable_del('mailchimp_interest_groups_user_forms');
  variable_del('mailchimp_lists');
  variable_del('mailchimp_subscription_failure_message');
  variable_del('mailchimp_subscription_success_message');
  variable_del('mailchimp_unsubscription_failure_message');
  variable_del('mailchimp_unsubscription_success_message');
  variable_del('mailchimp_user_edit');
  variable_del('mailchimp_user_register');
  drupal_uninstall_schema('mailchimp');
}

Functions

Name	Description
mailchimp_install	Implementation of hook_install().
mailchimp_schema	Implementation of hook_schema().
mailchimp_uninstall	Implementation of hook_uninstall().
mailchimp_update_6200	implementation of hook_update_N
mailchimp_update_6201	Implementation of hook_update_N().
mailchimp_update_6202	Implementation of hook_update_N().
mailchimp_update_6203	Implementation of hook_update_N().
mailchimp_update_6204	Implementation of hook_update_N().
mailchimp_update_6205	Implementation of hook_update_N().
mailchimp_update_6206	Cache blocks with forms per-user.