Interfaces with a mailinglist. More...

Functions
	mailinglist_members_permission ()
	Implements hook_permission(). More...

	mailinglist_members_cron_queue_info ()
	Implements hook_cron_queue_info(). More...

	mailinglist_members_cron ()
	Implements hook_cron(). More...

	mailinglist_members_mailinglist_list_created ($list)
	Implements hook_mailinglist_list_created(). More...

	mailinglist_members_mailinglist_list_delete ($list)
	Implements hook_mailinglist_list_delete(). More...

	_mailinglist_members_list_schema (MailinglistListInterface $list)
	Builds the schema needed by mailinglist_members for a specific list. More...

	mailinglist_members_memberid ($list, $email)
	Get sid for email address. More...

	mailinglist_members_update ($list, $email, $info)

	mailinglist_members_update_ind ($list, $email, $info)

	mailinglist_members_subscribe ($list, $email, $time=FALSE)
	Subscription tracking routines. More...

	mailinglist_members_unsubscribe ($list, $email, $time=FALSE)

	mailinglist_members_seen ($list, $email, $time=FALSE)
	Mark a member as having been seen. More...

	mailinglist_members_unseen ($list, $email, $time=FALSE)
	Mark a member as haven been not seen (ie wasn't subscribed) at a point in time. More...

	mailinglist_members_process_memberpage ($list, $page)
	Process one member page from the list. More...

	mailinglist_members_scan ($list)
	Process a partial scan of members for a mailinglist. More...

	mailinglist_members_callback ($listname)

	_mailinglist_members_lookup ($list, $email)
	_mailinglist_members_lookup(). More...

	mailinglist_members_mailinglist_message ($msg, $list)
	Implements hook_mailinglist_message(). More...

	mailinglist_members_ctools_plugin_directory ($owner, $plugin_type)
	Implements hook_ctools_plugin_directory(). More...

Variables
const	MAILINGLIST_SUB_NO 0
	Defines for sub_types (subscription types) More...

const	MAILINGLIST_SUB_NOMAIL 1

const	MAILINGLIST_SUB_INDEX 2

const	MAILINGLIST_SUB_DIGEST 5

const	MAILINGLIST_SUB_MIME_DIGEST 6

const	MAILINGLIST_SUB_NORMAL 10

Detailed Description

Interfaces with a mailinglist.

Definition in file mailinglist_members.module.

Function Documentation

_mailinglist_members_list_schema ( MailinglistListInterface $list )

Builds the schema needed by mailinglist_members for a specific list.

Parameters

$list The list to generate the schema for.

Returns: string which defines the schema for the list.

Definition at line 115 of file mailinglist_members.module.

References _mailinglist_datetime_schema(), and MailinglistListInterface\schema().

Referenced by mailinglist_members_mailinglist_list_created(), mailinglist_members_mailinglist_list_delete(), and mailinglist_members_schema().

                                                                           {
   $list_name = $list->admin_name;
   $list_schema = array();
   $list_schema['mailinglist_members_subscribers__' . $list_name] = array(
     'description' => 'Table for holding the list of subscribers for the list ' . $list_name,
     'fields' => array(
       'sid' => array(
         'type' => 'serial',
         'unsigned' => TRUE,
         'not null' => TRUE,
         'description' => 'Primary Key for table',
       ),
       'email' => array(
         'type' => 'varchar',
         'length' => '255',
         'description' => 'EMail address of subscription'
       ),
       'domain' => array(
         'type' => 'varchar',
         'length' => '255',
         'description' => 'Domain of subscription (for stats)'
       ),
       'sub_type' => array(
         'type' => 'int',
         'description' => 'Type of subscription'
       ),
       'last_update' => _mailinglist_datetime_schema( array(
         'description' => 'Time of last update',
         'not null' => TRUE,
         'default' => '0000-00-00 00:00:00',
         )),
       'last_update_ind' => _mailinglist_datetime_schema( array(
         'description' => 'Time of last individual update',
         'not null' => TRUE,
         'default' => '0000-00-00 00:00:00',
         )),
       'moderated' => array(
         'type' => 'int',
         'description' => 'It the subcriber currently moderated',
         'default' => 0,
       ),
       'options' => array(
         'type' => 'text',
         'size' => 'big',
         'serialize' => TRUE,
         'description' => 'Misc. Options for Subscripton',
         'object default' => array(
         ),
       ),
     ),
     'primary key' => array('sid'),
     'unique key' => array(
       'email' => array('email'),
     ),
     'indexes' => array(
       'domain' => array('domain'),
       'last_update' => array('last_update'),
       'last_update_ind' => array('last_update_ind'),
     ),
   );
   $list_schema['mailinglist_members_subscriptions__' . $list_name] = array(
    'description' => 'Table for holding info about all subscription/unusubscription events for list',
    'fields' => array(
       'sub_key' => array(
         'type' => 'serial',
         'unsigned' => TRUE,
         'not null' => TRUE,
         'description' => 'Primary Key for table',
       ),
       'sid' => array(
         'type' => 'int',
         'unsigned' => TRUE,
         'not null' => TRUE,
         'description' => 'sid from subscribers table for this subscription',
       ),
       'first_seen' => _mailinglist_datetime_schema('Time of first appearance'),
       'subscribe' => array(
         'type' => 'int',
         'default' => 0,
         'not null' => TRUE,
         'description' => '1 if the first_seen time is the time of subscription',
       ),
       'last_seen' => _mailinglist_datetime_schema('Time of last appearance'),
       'first_unseen' => _mailinglist_datetime_schema('Time of first dis-appearance'),
     ),
     'primary key' => array('sub_key'),
     'indexes' => array(
       'first_seen' => array('first_seen'),
       'last_seen' => array('last_seen'),
       'first_unseen' => array('first_unseen'),
     ),
     'foreign keys' => array(
       'sid' => array(
         'table' => 'mailinglist_members_subscribers__' . $list_name,
         'columns' => array('sid', 'sid'),
       ),
     ),
   );
   $list->schema($list_schema, 'members');
   return $list_schema;
 }

Here is the call graph for this function:

Here is the caller graph for this function:

_mailinglist_members_lookup	(	$list,
		$email
	)

_mailinglist_members_lookup().

Ask list to lookup info on a member and processes their membership based on it.

Definition at line 660 of file mailinglist_members.module.

References mailinglist_email_name(), mailinglist_members_seen(), mailinglist_members_unseen(), and mailinglist_members_update_ind().

Referenced by mailinglist_members_scan().

                                                     {
   $info = $list->getMemberInfo($email);
   if ($info) {
     mailinglist_email_name($email, $info['Name']);
     mailinglist_members_seen($list, $email);
     mailinglist_members_update_ind($list, $email, $info);
   } else {
     mailinglist_members_unseen($list, $email);
   }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

mailinglist_members_callback ( $listname )

Definition at line 636 of file mailinglist_members.module.

References mailinglist_list_load(), and mailinglist_members_scan().

                                                  {
   if ($listname) {
     $list = mailinglist_list_load($listname);
   }
   else {
     $list = FALSE;
   }
   if($list) {
 //    $list->log('Scanning', $list::LOG_INFO);
     if(mailinglist_members_scan($list)) {
       $queue = DrupalQueue::get('mailinglist_members');
       $queue->createItem($listname); // Put item back on list if not done
     } else {
       $list->log('Scan End', $list::LOG_INFO);
     }
   }
 }

Here is the call graph for this function:

mailinglist_members_cron ( )

Implements hook_cron().

Definition at line 55 of file mailinglist_members.module.

References mailinglist_list_load_all().

                                     {
   $queue = DrupalQueue::get('mailinglist_members');
   if($queue->numberOfItems() > 0) {
     // If still running, don't start more.
     return;
   }
 
   $lists = mailinglist_list_load_all(false);
   foreach ($lists as $index => $list) {
     if (isset($list->operations['members']) && $list->operations['members']) {
       $queue = DrupalQueue::get('mailinglist_members');
       $queue->createItem($list->admin_name); // Put item back on list if not done
     }
   }
 }

Here is the call graph for this function:

mailinglist_members_cron_queue_info ( )

Implements hook_cron_queue_info().

Definition at line 41 of file mailinglist_members.module.

                                                {
   $queue = array(
     'mailinglist_members' => array(
       'worker callback' => 'mailinglist_members_callback',
       'time' => '20',
     ),
   );
   return $queue;
 }

mailinglist_members_ctools_plugin_directory	(	$owner,
		$plugin_type
	)

Implements hook_ctools_plugin_directory().

divides the plugins by owner module

Todo:

Condition to only return directories that we might actually be using.

mailinglist/operation

Definition at line 696 of file mailinglist_members.module.

                                                                            {
   return 'plugins/' . $owner . '/' . $plugin_type;
 }

mailinglist_members_mailinglist_list_created ( $list )

Implements hook_mailinglist_list_created().

Todo:: Should this be converted to a "standard" function?

Definition at line 78 of file mailinglist_members.module.

References _mailinglist_members_list_schema().

                                                              {
   $rolename = 'Mailingling List Subscriber ' . $list->admin_name;
   if (!user_role_load_by_name($rolename)) {
     $role = new stdClass();
     $role->name = $rolename;
     user_role_save($role);
   }
   $list_schema = _mailinglist_members_list_schema($list);
   foreach ($list_schema as $table_name => $schema) {
     $ret = db_create_table($table_name, $schema);
     if ($ret) dpm($ret, $table_name);
   }
 }

Here is the call graph for this function:

mailinglist_members_mailinglist_list_delete ( $list )

Implements hook_mailinglist_list_delete().

Todo:: Should this be converted to a "standard" function?

Definition at line 97 of file mailinglist_members.module.

References _mailinglist_members_list_schema().

                                                             {
   $list_schema = _mailinglist_members_list_schema($list);
   foreach ($list_schema as $table_name => $schema) {
     $ret = db_drop_table($table_name);
   }
 
 }

Here is the call graph for this function:

mailinglist_members_mailinglist_message	(	$msg,
		$list
	)

Implements hook_mailinglist_message().

Todo:: mark sender as seen

Definition at line 675 of file mailinglist_members.module.

                                                               {
   if ($msg->header('XX-Archive')) {
 
   }
 }

mailinglist_members_memberid	(	$list,
		$email
	)

Get sid for email address.

Parameters

$list	MailinglistListInterface: The list to lookup on.
$email	string: The email address to lookup.

Returns: the

Definition at line 227 of file mailinglist_members.module.

Referenced by mailinglist_members_seen(), mailinglist_members_subscribe(), mailinglist_members_unseen(), and mailinglist_members_unsubscribe().

                                                      {
   $email = strtolower($email);
   $list_name = $list->admin_name;
   $table = 'mailinglist_members_subscribers__' . $list_name;
   $transaction = db_transaction();
   $result = db_select($table, 's')
     -> fields('s')
     -> condition('s.email', $email, '=')
     -> execute()
     -> fetchAssoc();
   if ($result === FALSE) {
     $list->log('New Member: ' . $email);
     $domain = substr($email, strpos($email, '@') +1);
     $fields = array('email' => $email, 'domain' => $domain);
     $result['sid'] = db_insert($table) -> fields($fields) -> execute();
   }
   return (int)$result['sid'];
 }

Here is the caller graph for this function:

mailinglist_members_permission ( )

Implements hook_permission().

Definition at line 24 of file mailinglist_members.module.

References mailinglist_list_load_all().

                                           {
   $permissions['administer mailinglist members'] = array(
       'title' => t('Administer Mailinglist Membership'),
   );
   $lists = mailinglist_list_load_all(false);
   foreach ($lists as $index => $list) {
       $permissions['mailinglist ' . $index . ' member details'] = array(
         'title' => t($list->admin_title . ' Member Details'),
       );
   }
   return $permissions;
 }

Here is the call graph for this function:

mailinglist_members_process_memberpage	(	$list,
		$page
	)

Process one member page from the list.

Use list->getMemberPage() to get a list of members on the page` Mark all of these members as seen

Parameters

$list	MailinglistListInterface: The list to process
$page	page pointer structure, should be the last value returned. FALSE to start a scan.

Returns: structure with information for which page should be processed next, FALSE if scan is done.

Definition at line 546 of file mailinglist_members.module.

References mailinglist_email_name(), mailinglist_members_seen(), and mailinglist_members_update().

Referenced by mailinglist_members_scan().

                                                               {
   $data = $list->getMemberPage($page);
   foreach ($data['members'] as $email => $info) {
     // skip a few problematical names that we have hit
     if(substr($email, 0, 7) == 'mailto:') continue;
     if(substr($email, -1) == '.') continue;
     mailinglist_email_name($email, $info['Name']);
     mailinglist_members_seen($list, $email);
     mailinglist_members_update($list, $email, $info);
   }
   return $data['next'];
 }

Here is the call graph for this function:

Here is the caller graph for this function:

mailinglist_members_scan ( $list )

Process a partial scan of members for a mailinglist.

First scans through the member pages of the list with mailinglist_members_process_memberpage saving the current progress in the list parameter ScanNext, and then seperately looks up any members not seen in that scan (likely because they unsubscribed, but maybe they got missed due to the pages reorganizing due to subscriptions/unsubscriptions.

Parameters

$list MailinglistListInterface: The ctools object for the list.

Todo:: should this be seperate queue/cron job?

Definition at line 571 of file mailinglist_members.module.

References _mailinglist_datetime_format(), _mailinglist_members_lookup(), and mailinglist_members_process_memberpage().

Referenced by MailinglistMembersOperation\form(), and mailinglist_members_callback().

                                          {
   // If list hasn't been scanned before, start at beginning.
   if(!isset($list->parameters['ScanNext'])) {
     $list->parameters['ScanNext'] = FALSE;
   }
 
   $next = $list->parameters['ScanNext'];
 
   if($next === TRUE) {
     // we have finished scan, check for unprocessed subscribers
     if(!isset($list->parameters['ScanStart'])) {
       // Shouldn't happen but disable the scan.
       $list->parameters['ScanStart'] = '0000';
     }
 
     $sql = 'SELECT * from {mailinglist_members_subscribers__' . $list->admin_name . '}
       WHERE last_update < :time AND sub_type > 0 LIMIT 1';
     $result = db_query($sql, array(':time' => $list->parameters['ScanStart']));
     $flag = 0;
     while($row = $result -> fetchAssoc()) {
 dpm($row);
       $flag = 1;
       $email = $row['email'];
       $list->log('Scan Needs Update @time @email', $list::LOG_NOTICE, array('@email' => $email, '@time' => $row['last_update']));
       _mailinglist_members_lookup($list, $email);
     }
     // If we processed no straglers, than prepare to start next round.
     if (!$flag) {
       $next = FALSE;
     }
   }
   else {
     // we are scaning, start at $next (FALSE at begining)
     if($next === FALSE) {
       $list->parameters['ScanStart'] = _mailinglist_datetime_format(time());
       $list->log('Member Scan Start',$list::LOG_NOTICE);
     }
 
     $next = mailinglist_members_process_memberpage($list, $next);
     if($next === FALSE) {
      $next = TRUE;
     }
 
   }
 
   // Do an update on oldest not individually updated members to fill options array
   $sql = 'SELECT * from {mailinglist_members_subscribers__' . $list->admin_name . '}
     WHERE sub_type > 0 ORDER BY last_update_ind ASC, last_update ASC LIMIT 1';
   $result = db_query($sql, array(':time' => $list->parameters['ScanStart']));
   while($row = $result -> fetchAssoc()) {
     $email = $row['email'];
     $list->log('Individual Update @time @email', $list::LOG_DEBUG,
       array('@email' => $email, '@time' => $row['last_update_ind']));
     _mailinglist_members_lookup($list, $email);
   }
 
   $list->parameters['ScanNext'] = $next;
   $list->log('Next: ' . serialize($next), $list::LOG_DEBUG);
   ctools_export_crud_save($list->table, $list);
 
   return $next !== FALSE;
 }

Here is the call graph for this function:

Here is the caller graph for this function:

mailinglist_members_seen	(	$list,
		$email,
		$time = `FALSE`
	)

Mark a member as having been seen.

Parameters

$list	The list to process.
$email	string: The email address that was seen.
$time	(timestamp) The time the email address was seen, if FALSE (the default) then "now".

Finds the earliest existing record with an unseen time after $time, or unseen = NULL if there isn't another one. Then process as follows:

no record found: New record F', L' = T, U' = null. T < F: If subscibe flag, add new record (F', L' = T, U' = F-1, else set F = T F <= T <= L: ignore. L < T <= U: Set L = T

Definition at line 395 of file mailinglist_members.module.

References _mailinglist_datetime_format(), and mailinglist_members_memberid().

Referenced by _mailinglist_members_lookup(), and mailinglist_members_process_memberpage().

                                                                 {
   $level = $list::LOG_DEBUG;
   if ($time === FALSE) $time = time();
   $time = _mailinglist_datetime_format($time);
   $sid = mailinglist_members_memberid($list, $email);
   $list_name = $list->admin_name;
   $table = 'mailinglist_members_subscriptions__' . $list_name;
 
   $transaction = db_transaction();
 
   $sql = "SELECT * FROM {" . $table . "}
             WHERE sid = :sid and (first_unseen IS NULL or first_unseen = '0000-00-00 00:00:00' or :time <= first_unseen)
             ORDER BY first_seen ASC LIMIT 1";
     $result = db_query($sql, array(':sid' => $sid, ':time' => $time)) -> fetchAssoc();
   if ($result === FALSE) {
     // No record we can update, either no record at all, or record has an unseen before now
     $list->log('Newly Seen: ' . $email);
     $result = array(
       'sid' => $sid,
       'first_seen' => $time,
       'subscribe' => 0,
       'last_seen' => $time,
       'first_unseen' => null,
     );
     $level = $list::LOG_NOTICE;
     $result['sub_key'] = db_insert($table) ->fields($result) -> execute();
   } else {
     $key = (int) $result['sub_key'];
     if ($result['first_seen'] > $time) {
       // We are before the record found.
       if ($result['subscribe'] > 0) {
         // We are before the known subsciption date of the record found, make new record.
         $ts = strtotime($result['first_seen'])-1;
         $result = array(
           'sid' => $sid,
           'first_seen' => $time,
           'subscribe' => 0,
           'last_seen' => $time,
           'first_unseen' => _mailinglist_datetime_format($ts),
         );
         $level = $list::NOTICE;
         $result['sub_key'] = db_insert($table) ->fields($result) -> execute();
       } else {
         // We are before record, but it isn't a know subscription, so extend
 
         $info = array(
           'first_seen' => $time,
         );
         db_update($table) -> fields($info) -> condition('sub_key', $key) -> execute();
       }
     } else if ($result['last_seen'] < $time) {
       // We are after the end of the block (and before unseen) so extend
       $info = array(
         'last_seen' => $time,
       );
       $result = db_update($table) -> fields($info) ->
         condition('sub_key', $key, '=') -> execute();
     }
   }
   $list->log('Seen @time @email', $level,
     array('@email' => $email, '@time' => $time));
 }

Here is the call graph for this function:

Here is the caller graph for this function:

mailinglist_members_subscribe	(	$list,
		$email,
		$time = `FALSE`
	)

Subscription tracking routines.

There routines are used to keep the subscription table updated based on observed events. Note that for a give subscriber (as indicated by the value of sid) we have the following constraints: Let: F = the value of the first_seen field. L = the value of the last_seen field. U = the value of the first_unseen field. (If U is null, it is considered very large) S = the value of the subscribed flag.

This indicates that we have evidence of being subscribed from at least as early as F until at least as late as L, but they did unsubscribe by U (if not null).

If the S flag is set, then F is the time point where the person subscribed, and F should not be changed in future modifications. Otherwise, F and U can be made smaller, and L larger for a given record, There are cases where we may need to split a record to add an "not subsubscribed" period in the middle of a currently subscribed period.

L == U is an indication that this is the point in time of unsubscribing.

F <= L <= U for all records (U being null is considered to match L <= U)

For any two records either U' < F or U < F' (U being null is NOT considered to match here) i.e. two records for the same subscriber will not overlap. Mark a member as having subscribed at a point in time

Parameters

$list	The list to process.
$email	string: The email address that was seen.
$time	(timestamp) The time the address subscribed, if FALSE (the default) then "now".

Finds the earliest existing record with an unseen time after $time, or unseen = NULL if there isn't another one. Then process as follows:

no record found: New record F', l' = T, U' = null, S' = 1 T < F: If subscibe flag, add new record (F', L' = T, U' = F-1, else set F = T F = T: Set Subscribe flag. F < T <= L: Split record: F'=T, L'=L, U'=U, S'=1; L=F, U=T-1

Todo:: record subscription

Definition at line 354 of file mailinglist_members.module.

References _mailinglist_datetime_format(), and mailinglist_members_memberid().

                                                                      {
   if ($time === FALSE) $time = time();
   $time = _mailinglist_datetime_format($time);
   $list->log('Subscribe @time @email', $list::LOG_DEBUG,
     array('@email' => $email, '@time' => $time));
   $sid = mailinglist_members_memberid($list, $email);
   $list_name = $list->admin_name;
   $table = 'mailinglist_members_subscriptions__' . $list_name;
 }

Here is the call graph for this function:

mailinglist_members_unseen	(	$list,
		$email,
		$time = `FALSE`
	)

Mark a member as haven been not seen (ie wasn't subscribed) at a point in time.

Parameters

$list	MailinglistListInterface: The list
$email	string: The email address
$time	timestamp: the time to mark as unseen, if FALSE use now

Finds the latest record where first_seen <= time no record found: ignore F <= T < L: Split record, set F' = L' = L, U' = U; L = F, U = time L <= T < U: Set U = T. U <= T: can ignore

Todo:: make sure this really applies, especially if we ever call this when time isn't 'now'

Definition at line 474 of file mailinglist_members.module.

References _mailinglist_datetime_format(), mailinglist_members_memberid(), and MAILINGLIST_SUB_NO.

Referenced by _mailinglist_members_lookup().

                                                                   {
   if ($time === FALSE) $time = time();
   $time = _mailinglist_datetime_format($time);
   $level = $list::LOG_DEBUG;
   $sid = mailinglist_members_memberid($list, $email);
   $list_name = $list->admin_name;
   $table = 'mailinglist_members_subscriptions__' . $list_name;
   $transaction = db_transaction();
   $sql = "SELECT * FROM {" . $table . "}
             WHERE sid = :sid and first_seen <= :time
             ORDER BY first_seen DESC LIMIT 1";
     $result = db_query($sql, array(':sid' => $sid, ':time' => $time)) -> fetchAssoc();
 
     if ($result == FALSE) {
       $list->log('Unseen too Early $time @email', $list::LOG_ERROR, array('@email' => $email, '@time' => $time));
     } else {
       $key = (int) $result['sub_key'];
       if ($time < $result['last_seen']) {
         $info = array(
           'sid' => $sid,
           'first_seen' => $result['last_seen'],
           'subscribe' => 0,
           'last_seen' => $result['first_seen'],
           'first_unseen' => $result['first_unseen'],
         );
 
       db_insert($table) ->fields($info) -> execute();
 
       $info = array(
         'last_seen' => $result['first_seen'],
         'first_unseen' => $time,
       );
 
       $level = $list::LOG_NOTICE;
       $result = db_update($table) -> fields($info) ->
         condition('sub_key', $key, '=') -> execute();
       } else if ($result['first_unseen'] == null || $time < $result['first_unseen']) {
       $info = array(
         'first_unseen' => $time,
       );
       $level = $list::LOG_NOTICE;
       $result = db_update($table) -> fields($info) ->
         condition('sub_key', $key, '=') -> execute();
     }
     }
   $list->log('Unseen @time @email', $level,
     array('@email' => $email, '@time' => $time));
 
 
   $table = 'mailinglist_members_subscribers__' . $list_name;
   $info = array(
     'sub_type' => MAILINGLIST_SUB_NO,
   );
   db_update($table) -> fields($info) -> condition('sid', $sid) -> execute();
 }

Here is the call graph for this function:

Here is the caller graph for this function:

mailinglist_members_unsubscribe	(	$list,
		$email,
		$time = `FALSE`
	)

Todo:: record unsubscription

Definition at line 365 of file mailinglist_members.module.

References _mailinglist_datetime_format(), and mailinglist_members_memberid().

                                                                        {
   if ($time === FALSE) $time = time();
   $time = _mailinglist_datetime_format($time);
   $list->log('Unsubscribe @time @email', $list::LOG_DEBUG,
     array('@email' => $email, '@time' => $time));
   $sid = mailinglist_members_memberid($list, $email);
   $list_name = $list->admin_name;
   $table = 'mailinglist_members_subscriptions__' . $list_name;
 }

Here is the call graph for this function:

mailinglist_members_update	(	$list,
		$email,
		$info
	)

Definition at line 246 of file mailinglist_members.module.

References _mailinglist_datetime_format().

Referenced by mailinglist_members_process_memberpage(), and mailinglist_members_update_ind().

                                                           {
   $email = strtolower($email);
   $list_name = $list->admin_name;
   $table = 'mailinglist_members_subscribers__' . $list_name;
   $transaction = db_transaction();
   $result = db_select($table, 's')
     -> fields('s')
     -> condition('s.email', $email, '=')
     -> execute()
     -> fetchAssoc();
   if ($result == FALSE) {
     $list->log('Update: Subscriber not present: ' . $email, $list->LOG_ERROR);
     dpm($email, 'Subscriber Not Present');
   // Updating someone not present
   } else {
     $key = (int)$result['sid'];
     $newinfo['last_update'] = _mailinglist_datetime_format(time());
     foreach ($info as $field => $value) {
       switch($field) {
         case 'Type':
           $newinfo['sub_type'] = $value;
           break;
         case 'Moderated':
           $newinfo['moderated'] = $value ? 1 : 0;
           break;
         /* Keys that match */
         case 'last_update_ind':
           $newinfo[$field] = $value;
           break;
         /* All the cases we don't process as they go elsewhere */
         case 'Email':
         case 'NoMail': /* Folded into Type */
           break;
         case 'Name':
         default:
           if (!isset($newinfo['options'])) {
             if (empty($result['options'])) {
               $newinfo['options'] = array();
             } else {
               $newinfo['options'] = unserialize($result['options']);
               unset($newinfo['options']['Email']);
             }
           }
           $newinfo['options'][$field] = $value;
       }
     }
 
     if (isset($newinfo['options'])) {
       $newinfo['options'] = serialize($newinfo['options']);
     }
     $res = db_update($table) -> fields($newinfo) -> condition('sid', $key) -> execute();
   }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

mailinglist_members_update_ind	(	$list,
		$email,
		$info
	)

Definition at line 300 of file mailinglist_members.module.

References _mailinglist_datetime_format(), and mailinglist_members_update().

Referenced by _mailinglist_members_lookup().

                                                               {
   $info['last_update_ind'] = _mailinglist_datetime_format(time());
   mailinglist_members_update($list, $email, $info);
 }