mailchimp.install in Mailchimp 7

Install, update and uninstall functions for the mailchimp module.

File

mailchimp.install

<?php

/**
 * @file
 * Install, update and uninstall functions for the mailchimp module.
 *
 */

/**
 * Implements 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',
      ),
      'status' => array(
        'type' => 'varchar',
        'length' => 15,
      ),
    ),
    'primary key' => array(
      'uid',
    ),
  );
  return $schema;
}

/**
 * Implements 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;
}

/**
 * Implements 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('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;
}

/**
 * Implements 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;
}

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

/**
 * Implements hook_update_N().
 *
 * Fix for double serialized list data
 */
function mailchimp_update_7001() {
  $lists = variable_get('mailchimp_lists', array());
  if (!empty($lists)) {
    $unserialized_list = unserialize($lists);
    if ($unserialized_list) {
      variable_set('mailchimp_lists', $unserialized_list);
    }
  }
  return TRUE;
}

/**
 * Implements 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');
}

Functions

Name	Description
mailchimp_schema	Implements hook_schema().
mailchimp_uninstall	Implements hook_uninstall().
mailchimp_update_6200	Implements hook_update_N().
mailchimp_update_6201	Implements hook_update_N().
mailchimp_update_6202	Implements hook_update_N().
mailchimp_update_6206	Cache blocks with forms per-user.
mailchimp_update_7001	Implements hook_update_N().