MailinglistMembersOperation.class.php

Go to the documentation of this file.

<?php
class MailinglistMembersOperation extends MailinglistOperation {

  function form(&$form, &$form_state, $list) {
    $section = $form_state['build_info']['args'][2];
    $chunksize = 30; //@todo: make configurable
    $listname = $list->admin_name;

// Admin Progress line, only show to those with 'administer mailinglist members' permission
    if (user_access('administer mailinglist members')) {
      if ($section == "test") {
        mailinglist_members_scan($list);
      }
      $ScanStart = format_date(_mailinglist_datetime_ts($list->parameters['ScanStart']), 'long');
        $progress = 'Progress: ' . $ScanStart . ' : ';
        $next = $list->parameters['ScanNext'];
        if (is_array($next)) {
          foreach ($next as $item) {
            $progress .= (string)$item . ' ';
          }
        }
        else {
          if($next === TRUE) {
            $progress .= 'Cleanup';
          }
          elseif ($next === FALSE) {
            $progress .= 'Done';
          }
          else {
            $progress .= (string)$next;
          }
        }
      $form['progress'] = array('#markup' => $progress . '<br>');
    }

    $sub_types = array(
      MAILINGLIST_SUB_NO => "Not Subscribed",
      MAILINGLIST_SUB_NOMAIL => "No Mail",
      MAILINGLIST_SUB_INDEX => "Index:",
      MAILINGLIST_SUB_DIGEST => 'Digest',
      MAILINGLIST_SUB_MIME_DIGEST => 'Mime Digest',
      MAILINGLIST_SUB_NORMAL => 'Individual Messages',
    );

// If don't have 'mailinglist $listname member details" or not in a section
// Display a summary of members.
    if (!user_access('mailinglist ' . $listname . ' member details')
      or 0 == strlen($section) or $section == 'test') {

      $sql = 'SELECT sub_type, COUNT(sub_type) as cnt' .
      ' FROM {mailinglist_members_subscribers__' . $listname . '}' .
      ' WHERE sub_type > 0 GROUP BY sub_type ORDER BY cnt DESC';
      $result = db_query($sql, array());
      $total = 0;
      while ($row = $result -> fetchAssoc()) {
        $cat = $row['sub_type'];
        $cnt = $row['cnt'];
        $subs[$sub_types[$cat]] = $cnt;
        $total += $cnt;
      }

      $form['Member Total'] =
        array('#markup' => 'Membership Summary: ' . $total . ' Members<br>');
      $form['Sub Types'] = array(
        '#theme' => 'table',
        '#header' => array(
          array('data' => t('Subscription Type')),
          array('data' => t('Percentage')),
        ),
        '#rows' => array(),
      );
      foreach ($subs as $type => $cnt) {
        $form['Sub Types']['#rows'][$type] = array($type, number_format(100*$cnt/$total, 1) . '%');
      }

      $form['Domains'] = array(
        '#theme' => 'table',
        '#header' => array(
          array('data' => t('Domain')),
          array('data' => t('Percentage')),
        ),
        '#rows' => array(),
      );

      $sql = 'SELECT domain, COUNT(sub_type) as cnt' .
      ' FROM {mailinglist_members_subscribers__' . $listname . '}' .
      ' WHERE sub_type > 0 GROUP BY domain HAVING cnt >= 20 ORDER BY cnt DESC LIMIT 10' ;
      $result = db_query($sql, array());

      while ($row = $result -> fetchAssoc()) {
        $domain = $row['domain'];
        $cnt = $row['cnt'];
        $form['Domains']['#rows'][$domain] = array($domain, number_format(100*$cnt/$total, 1) . '%');
      }
    }

// Details Section, only show if have 'mailinglist $listname member details'

    if (user_access('mailinglist ' . $listname . ' member details')) {
      // Header, with list of letters used

      $base = variable_get('mailinglist_base', 'mailinglist');

      $form['details']['home'] = array('#markup' => l('Summary', "$base/$listname/members") . ' ');
      $sql = 'SELECT SUBSTRING(email, 1, 1) as c' .
      ' FROM {mailinglist_members_subscribers__' . $listname . '}' .
      ' GROUP BY c';
      $result = db_query($sql, array());
      while ($row = $result -> fetchAssoc()) {
        $letter = $row['c'];
        $form['details']['letters'][$letter] =
          array('#markup' => l($letter, "$base/$listname/members/$letter") . ' ');
      }

      if (user_access('administer mailinglist members')) {
        $form['details']['test'] = array('#markup' => l('Test', "$base/$listname/members/test"));
      }
      // Detail block
      if (0 < strlen($section) and $section != 'test') {
        $letter = $section[0];
        $nextletter = $letter . 'zzzzzzzzzzzzzzzzzz'; /* chr(ord($letter)+1); */
        if(strlen($section) >1) {
          $skip = $chunksize * (int)substr($section, 1);
        } else {
          $skip = 0;
        }
        $form['details']['members'] = array(
          '#theme' => 'table',
          '#header' => array(
            'email' => array('data' => t('EMail')),
            'type' => array('data' => t('Type')),
            'moderated' => array('data' => t('Moderated')),
          ),
          '#rows' => array(),
        );

        $sql = 'SELECT email, sub_type, moderated, options' .
        ' FROM {mailinglist_members_subscribers__' . $listname . '}' .
        ' WHERE sub_type > 0 and \'' .$letter .'\' <= email and email < \'' . $nextletter . '\'' .
        ' ORDER BY email ASC';
        $result = db_query($sql, array());
        $index = 0;
        $building = 0;
        $chunk = 0;
        while($row = $result -> fetchAssoc()){
          if(!$building) {
            $building = 1;
            $firstname = $row['email'];
          }
          if($skip > 0) {
            $skip--;
          }
          else if($index < $chunksize) {
            $options = unserialize($row['options']);
            $form['details']['members']['#rows'][$index] = array(
              'email' => $row['email'],
              'type' => $sub_types[$row['sub_type']],
              'moderated' => $row['moderated'] ? 'Moderated' : '',
            );
            foreach($options as $key => $value) {
              $form['details']['members']['#header'][$key] = array('data' => t($key));
              if($value === False) {
                $value = '-';
              }
              if($value === True) {
                $value = $key;
              }
              $form['details']['members']['#rows'][$index][$key] = $value;
            }
            $index++;
          }
          else {
            $index++;
          }
          if(($skip + $index) % $chunksize == 0) {
            $form['details']['index'][$chunk] =
              array('#markup' => l($firstname . ' - ' . $row['email'],
                             "$base/$listname/members/$letter$chunk") . '<br>');
            $chunk++;
            $building = 0;
          }
        } // End while($row)
      }
    }
  } // End function form()

  function validate(&$form, &$form_state, $list) {
  }

  function submit(&$form, &$form_state, $list) {
  }

}