Mailman21List.class.php

Go to the documentation of this file.

<?php
class Mailman21List extends MailinglistList {

  function edit_form(&$form, &$form_state) {
    parent::edit_form($form, $form_state);
    $form['basic']['settings']['admin_url'] = array(
      '#type' => 'textfield',
      '#title' => t('Mailman URL Base'),
      '#default_value' => $this->get_setting('admin_url'),
      '#required' => TRUE,
      '#description' => t('Base URL of admin page (typically something like http://example.com/mailman )'),
      '#weight' => 60,
    );
    $form['basic']['settings']['listname'] = array(
      '#type' => 'textfield',
      '#title' => t('List Name'),
      '#default_value' => $this->get_setting('listname'),
      '#required' => TRUE,
      '#description' => t('Name of list as appears in URLs for the list'),
      '#weight' => 60,
    );
    $form['basic']['settings']['admin_password'] = array(
      '#type' => 'textfield',
      '#title' => t('Admin Password'),
      '#default_value' => _mailinglist_decode_password($this->get_setting('admin_password')),
      '#required' => TRUE,
      '#description' => t('Password to access List Interface'),
      '#weight' => 60,
    );
  }
  function edit_form_submit(&$form, &$form_state) {
      dpm($form_state, 'Mailman21List::edit_form_submit');

    $form_state['values']['settings']['admin_password'] = _mailinglist_encode_password($form_state['values']['settings']['admin_password']);
  }

  function checkMessage(MailinglistMessageInterface $msg) {
    return parent::checkMessage($msg);
  }

  function processMessage(MailinglistMessageInterface $msg) {
    return parent::processMessage($msg);
  }

  function getMemberInfo($email) {
    $listname = $this->get_setting('listname');
    $url = $this->get_setting('admin_url') . '/options/' . $this->get_setting('listname') . '/' . str_replace('@', '--at--', $email);
    $data = $this->getWebPage($url);
    dpm($data, 'Get Info: ' . $email);
    $body = $data['body'];
    $pos = strpos($body, 'Your ' . $listname . ' Subscription Options');
    if ($pos === FALSE) {
      dpm(FALSE, 'Info');
      return FALSE;
    }
    $info = array('Email' => $email);
    $pos1 = strpos($body, 'name="fullname"');
    $pos1 = strpos($body, 'value=', $pos1)+7;
    $end = strpos($body, '"', $pos1);
    $name = substr($body, $pos1, $end-$pos1);
    $info['Name'] = $name;

    $pos = strpos($body, 'name="disablemail"', $pos);
    $pos = strpos($body, 'CHECKED', $pos);
    $no_mail = substr($body, $pos-3, 1);
    //$info['NoMail'] = $no_mail;

    $pos = strpos($body, 'name="digest"', $pos);
    $pos = strpos($body, 'CHECKED', $pos);
    $digest = substr($body, $pos-3, 1);
    //$info['Digest'] = $digest;

    $pos = strpos($body, 'name="mime"', $pos);
    $pos = strpos($body, 'CHECKED', $pos);
    $plain = substr($body, $pos-3, 1);
    //$info['Plain'] = $plain;

    $info['Type'] = ($no_mail == '1' ? MAILINGLIST_SUB_NOMAIL :
                    ($digest == '0'  ? MAILINGLIST_SUB_NORMAL :
                    ($plain == "1"    ? MAILINGLIST_SUB_DIGEST : MAILINGLIST_SUB_MIME_DIGEST)));

    dpm($info, 'Info');
    return $info;
  }

  function SubscribeForm(&$form, &$form_state){
    global $help;
    $form['notice'] = array(
      '#markup' => '<b>** Notice: Not Fully Implemented</b>',
      '#weight' => -90);

    $form['email'] = array(
      '#type' => 'textfield',
      '#title' => t('EMail Address'),
      '#default_value' => 'somebody@example.com',
      '#required' => TRUE,
      '#description' => t('This is the Email address which email from the list will be sent'),
      '#weight' => 20,
    );

    dpm($form, 'Subscribe Form');
  }

  function UnsubscribeForm(&$form, &$form_state){
    $form['notice'] = array(
      '#markup' => '<b>** Notice: Not Fully Implemented</b>',
      '#weight' => -90);

    $form['email'] = array(
      '#type' => 'textfield',
      '#title' => t('EMail Address'),
      '#default_value' => 'somebody@example.com',
      '#required' => TRUE,
      '#description' => t('This is the Email address which email from the list will be sent'),
      '#weight' => 20,
    );

    dpm($form, 'Unsubscribe Form');
  }

  function OptionsForm($form, $form_state){
    $form['notice'] = array(
      '#markup' => '<b>** Notice: Not Fully Implemented</b>',
      '#weight' => -90);

    $form['email'] = array(
      '#type' => 'textfield',
      '#title' => t('EMail Address'),
      '#default_value' => 'somebody@example.com',
      '#required' => TRUE,
      '#description' => t('This is the Email address which email from the list will be sent'),
      '#weight' => 20,
    );

    dpm($form, 'Options Form');
  }

  function getMemberPage($page) {
    if (!$page) {
      $pagecode = '';
    }
    else {
      $pagecode = '?letter=' . $page[0] . '&chunk=' . $page[1];
    }
    $url = $this->get_setting('admin_url') . '/admin/' . $this->get_setting('listname') . '/members' . $pagecode;
    $data = $this->getWebPage($url);
    dpm($data, 'Page Data');
    $body = $data['body'];
    $pos = strpos($body, 'Membership List');
    $liststart = $pos;
    if (!$page) {
      // If starting, find where we start
      $pos = strpos($body, 'letter=', $pos)+7;
      $page[0] = substr($body, $pos, 1);
      $page[1] = 0;
    }
    $next = $page;
    $next[1] = $next[1]+1;
    if (FALSE === strpos($body, 'chunk=' . $next[1], $pos)) {
      // Don't find a listing for next chunk for this letter.
      $next[1] = 0;
      if($pos  < 7) {
        $this->log('Bad Pos1 ' . $pos . '\n' . html_specialchars($body), SELF::LOG_ERROR);
        return array('next' => $next, 'page' => $page, 'members' => array());
      }
      $pos = strpos($body, 'letter=' . $next[0] . '"', $pos-7); // need to back up in case we found first letter
      if($pos  < 7) {
        $this->log('Bad Pos2 ' . $pos . '\n' . html_specialchars($body), SELF::LOG_ERROR);
        return array('next' => $next, 'page' => $page, 'members' => array());
      }
      $pos = strpos($body, 'letter=', $pos+7) + 7;
      $letter = substr($body, $pos, 1);
      if ($pos > 7 && $letter != $next[0]) {
        $next[0] = $letter;
      }
      else {
        $next = FALSE; // end of data.
      }
    }

    $members = array();
    $pos = strpos($body, 'member address', $pos); // Advance to Header
    $endpos = strpos($body, '</table>', $pos);  // End of table
    $pos = strpos($body, '<tr>', $pos);
    while ($pos < $endpos) {
      $pos1 = strpos($body, '</tr>', $pos);
      $record = substr($body, $pos, $pos1-$pos+5);
      $record = explode('<td>', $record);
      // record [0] is <tr>
      // record [1] is unsub.
      // record [2] is email address, real name
      $start = strpos($record[2], '>');
      $end = strpos($record[2], '</a>');
      $email = substr($record[2], $start+1, $end - $start-1);
      $info['Email'] = $email;
      $start = strpos($record[2], 'value=', $end) + 7;
      $end = strpos($record[2], '"', $start);
      $name = substr($record[2], $start, $end - $start);
      $info['Name'] = $name;
      // record[3] = Moderated.
      $start = strpos($record[3], 'value=') + 7;
      $end = strpos($record[3], '"', $start);
      $mod = substr($record[3], $start, $end - $start);
      $info['Moderated'] = $mod == "on";
      // record[4] = Hide.
      $start = strpos($record[4], 'value=') + 7;
      $end = strpos($record[4], '"', $start);
      $hide = substr($record[4], $start, $end - $start);
      $info['Hide'] = $hide == "on";
      // record[5] = NoMail.
      $start = strpos($record[5], 'value=') + 7;
      $end = strpos($record[5], '"', $start);
      $no_mail = substr($record[5], $start, $end - $start);
      if ($no_mail == 'on') {
        $start = strpos($record[5], '[', $end)+1;
        $info['NoMail'] = substr($record[5], $start, 1);
      }
      else {
        $info['NoMail'] = FALSE;
      }
      // record[6] = Ack.
      $start = strpos($record[6], 'value=') + 7;
      $end = strpos($record[6], '"', $start);
      $ack = substr($record[6], $start, $end - $start);
      $info['Ack'] = $ack == "on";
      // record[7] = MeToo.
      $start = strpos($record[7], 'value=') + 7;
      $end = strpos($record[7], '"', $start);
      $metoo = substr($record[7], $start, $end - $start);
      $info['MeToo'] = $metoo == 'on';
      // record[8] = NoDups.
      $start = strpos($record[8], 'value=') + 7;
      $end = strpos($record[8], '"', $start);
      $no_dups = substr($record[8], $start, $end - $start);
      $info['NoDups'] = $no_dups == 'on';
      // record[9] = digest.
      $start = strpos($record[9], 'value=') + 7;
      $end = strpos($record[9], '"', $start);
      $digest = substr($record[9], $start, $end - $start);
      // record[10] = Plain Digest.
      $start = strpos($record[10], 'value=') + 7;
      $end = strpos($record[10], '"', $start);
      $plain = substr($record[10], $start, $end - $start);
      $info['Type'] = ($no_mail == "on"  ? MAILINGLIST_SUB_NOMAIL :
                      ($digest == 'off'  ? MAILINGLIST_SUB_NORMAL :
                      ($plain == "on"    ? MAILINGLIST_SUB_DIGEST : MAILINGLIST_SUB_MIME_DIGEST)));

      // record[11] = Language.
      $end = strpos($record[11], 'Selected') - 2;
      $string = substr($record[11], 0, $end);
      $start = strrpos($string, '"') + 1;
      $lang = substr($record[11], $start, $end - $start);
      $info['Language'] = $lang;

      $members[$email] = $info;
      // Find next entry
      $pos = strpos($body, '<tr>', $pos1);
    }
    return array('next' => $next, 'page' => $page, 'members' => $members);
  }

  function getWebPage($url, $post="") {
    $page = parent::getWebPage($url, $post);
    if (strpos($page['body'], 'name="admlogin"') ) {
      $login_post = 'adminpw=' . _mailinglist_decode_password($this->get_setting('admin_password'));
      $page = parent::getWebPage( $url, $login_post);
    }
    return $page;
  }
}