Extension:STSGMassMailer

<?php
# Alert the user that this is not a valid entry point to MediaWiki if they try to access the skin file directly.
if (!defined('MEDIAWIKI')) {
    echo <<<EOT
To install SpecialMassEmail extension, put the following line in LocalSettings.php:
require_once( "$IP/extensions/SpecialMassEmail.php" );
EOT;
    exit( 1 );
}
 
$wgAutoloadClasses['MassEmail'] = dirname(__FILE__) . '/SpecialMassEmail.body.php';
$wgSpecialPages['MassEmail'] = 'MassEmail';
$wgHooks['LoadAllMessages'][] = 'MassEmail::loadMessages';
 
$wgExtensionCredits['specialpage'][]    = array(
        'version'     => '0.3.5',
        'name'        => 'MassEmail',
        'author'      => array('Martin Dale Lyness', 'Paul Grinberg'),
        'email'       => 'martin dot lyness at gmail dot com, gri6507 at yahoo dot com',
        'url'         => 'http://www.mediawiki.org/wiki/Extension:STSGMassMailer',
        'description' => 'This simple extension will allow any user with priveledges to "delete" to send emails to the entire or partial list of registered users on the wiki (given they used an email address when they signed up), and any number of external users');

<?php
 
class MassEmail extends SpecialPage {
    function MassEmail() {
        global $wgUser;
 
        if($wgUser->isAllowed("delete")) {
            SpecialPage::SpecialPage("MassEmail");
            self::loadMessages();
        }
    }
 
    function execute() {
        global $wgOut, $wgRequest, $wgUser, $wgParser;
 
        $this->setHeaders();
 
        if($wgUser->isAllowed("delete")) {
            $secret = $wgRequest->getVal("massMailerHidden");
            if($secret != sha1("stsg")) {
                $wgParser->mTitle = "The Mass Mailer Extension";
                $wgOut->addHTML("<form method=\"post\">");
                $wgOut->addHTML("<input type=\"hidden\" value=\"".sha1("stsg")."\" name=\"massMailerHidden\" />");
 
                /**
                 * Create a table to make things look pretty
                 */
                $wgOut->addHTML("<div style=\"border: thin solid #000000; width:90%;\"><table cellpadding=\"15\" width=\"100%\" cellspacing=\"0\" border=\"0\">");
 
                /**
                 * Need to generate a multi-select menu for senders to select who to send and not send this message to.
                 */
                $dbr = wfGetDB( DB_SLAVE );
                $res = $dbr->select( 'user', 'user_name', '', __METHOD__);
 
                /**
                 * Put Email list on one side and the message/subject on the other
                 */
                $wgOut->addHTML("<tr><td>");
                $wgOut->addHTML('<select name="idArray[]" size="12" multiple="multiple">');
                $users = array();
                for ( $row = $dbr->fetchObject($res); $row; $row = $dbr->fetchObject($res)) {
                    $u = User::newFromName($row->user_name);
                    if ($u->isAllowed('read') && ($u->getEmail() != ''))
                        $users[strtolower($u->getRealName())] = $u->getID();
                }
                ksort($users);
                foreach ($users as $name => $id) {
                    $wgOut->addHTML("<option selected=\"selected\" value=\"".$id."\">".$name."</option>");
                }
                $wgOut->addHTML('</select></td><td>');
 
                $wgOut->addHTML("\n<label>Subject: <input name=\"emailSbj\" type=\"text\" size=\"40\" /></label><br />");
                $wgOut->addHTML("\n<label>Message: <textarea name=\"emailMsg\" cols=\"40\" rows=\"8\"></textarea></label></td></tr><tr><td colspan=\"2\">");
                $wgOut->addHTML("<label>Additonal Emails: <input type=\"text\" name=\"addEmails\" value=\"comma separated\" size=\"50\"></label>&nbsp;&nbsp;&nbsp;&nbsp;");
                $wgOut->addHTML("<input type=\"submit\" value=\"Send Emails\" /></td></tr></table></div></form>");
            } else {
                /**
                 * Try to send the mass mailing, if fail then output error
                 */
                $sendChk = MassEmail::sendMailToAll();
                if($sendChk)
                    $wgOut->addHTML("<h2>Messages Sent Successfully</h2>");
                else
                    $wgOut->addHTML($sendChk);
            }
        }
    }
 
    function sendMailToAll() {
        global $wgUser, $wgOut, $wgRequest, $wgSitename;
 
        $idArray    = $wgRequest->getArray('idArray');
        $message    = $wgRequest->getVal('emailMsg');
        $subject    = "[${wgSitename}] " . $wgRequest->getVal('emailSbj');
        $emailAdd   = $wgRequest->getVal('addEmails');
 
        $from = $wgUser->getRealName();
        $sender = new MailAddress( $wgUser->getEmail(), $from );
        $to = '';
        foreach ($idArray as $name => $id) {
            if (constant("MW_USER_VERSION") < 4) {
                $u = new User();
                $u->mId = $id;
            } else {
                $u = User::newFromId($id);
            }
            $to .= $u->getEmail() . ", ";
            $u->sendMail($subject, $message, $sender->toString());
        }
        if($emailAdd != "comma separated" && trim($emailAdd) != "") {
            require_once('UserMailer.php');
 
            foreach (explode(',', $emailAdd) as $additional_email) {
                $to .= "$additional_email, ";
                userMailer(new MailAddress($additional_email), $sender, $subject, $message);
            }
        }
 
        /**
         * Add result information to the renderer
         */
        $wgOut->addWikiText("'''From:''' $from\n");
        $wgOut->addWikiText("'''To:''' $to\n");
        $wgOut->addwikiText("'''Subject:''' $subject\n");
        $wgOut->addWikiText("'''Body:''' $message\n");
    }
 
    function loadMessages() {
        static $messagesLoaded = false;
        global $wgMessageCache;
        if ( $messagesLoaded ) return;
        $messagesLoaded = true;
        $allMessages = array(
            'en' => array(
                    'massemail' => 'Mass E-Mail'
            ),
        );
        foreach ( $allMessages as $lang => $langMessages ) {
                $wgMessageCache->addMessages( $langMessages, $lang );
        }
        return true;
    }
}

require_once( "$IP/extensions/SpecialMassEmail.setup.php" );

<?php
/**
* This simple extension will allow the administrator or users in the 'massMailer' group
* to send emails to the entire or partial list of registered users on the wiki. (given
* they used an email address when they signed up.) This was originally designed for the
* Student Technology Services Group at the University of Minneosta by founder Martin Dale
* Lyness
* @author Martin Dale Lyness <martin.lyness@gmail.com>
* @version 0.2.0
* @copyright Use freely, just give me credit for my work ;)
* @package MediaWiki
* @subpackage SpecialPages
*/
 
 
 
   /**
   * This function produces the page output based on the user's account informaiton
   * (ie, wether they should have access to the mass mailer or not)
   */
   function wfSpecialMassMailer($para) {
           global $wgUser,$wgOut,$wgParser,$wgDBserver, $wgDBuser, $wgDBpassword, $wgDBprefix;
 
            $wgOut->setPagetitle( "Mass E-Mailer" );
            $webreq = new WebRequest();
            /**
             * I've explicitly added the 'delete' option to developer's not users
              */
              if($wgUser->isAllowed("delete")) {
                      if($webreq->wasPosted())
                              $secret = $webreq->getVal("massMailerHidden");
                      else
                              $secret = false;
                      /**
                      * If form is submitted already then process it, if not then display form
                      */
                      if($secret!=sha1("stsg")) {
                              $wgParser->mTitle = "The Mass Mailer Extension - By: Martin Dale Lyness";
                              $wgOut->addHTML("<form method=\"post\">");
                              $wgOut->addHTML("<input type=\"hidden\" value=\"".sha1("stsg")."\" name=\"massMailerHidden\" />");
                              /**
                               * Create a table to make things look pritty
                                */
                        $wgOut->addHTML("<div style=\"border: thin solid #000000; width:90%;\"><table cellpadding=\"15\" width=\"100%\" cellspacing=\"0\" border=\"0\">");
 
                         /**
                          * Need to generate a multi-select menu for senders to select who to send and not send this message to.
                           */
                           $sql = "SELECT `user_real_name`,`user_email` FROM `".$wgDBprefix."user`";
                           /**
                            * Did not use Database class be cause the documentation was missing and the API file looked incomplete
                             * I could not find the required calls :(...
                              */
                              $conn_id = mysql_connect($wgDBserver, $wgDBuser, $wgDBpassword);
                              mysql_select_db($wgDBname, $conn_id);
                              $result = mysql_query($sql, $conn_id);
                              /**
                              * Put Email list on one side and the message/subject on the other
                              */
                              $wgOut->addHTML("<tr><td>");
                              $wgOut->addHTML('<select name="emailArray[]" size="12" multiple="multiple">');
                              while(($assoc=mysql_fetch_array($result))) {
                                      $wgOut->addHTML("<option selected=\"selected\" value=\"".$assoc[1]."\">".$assoc[0]."</option>");
                              }
                              $wgOut->addHTML('</select></td><td>');
 
                               $wgOut->addHTML("\n<label>Subject: <input name=\"emailSbj\" type=\"text\" size=\"40\" /></label><br />");
                               $wgOut->addHTML("\n<label>Message: <textarea name=\"emailMsg\" cols=\"40\" rows=\"8\"></textarea></label></td></tr><tr><td colspan=\"2\">");
                               $wgOut->addHTML("<label>Additonal Emails: <input type=\"text\" name=\"addEmails\" value=\"comma separated\" size=\"50\"></label>&nbsp;&nbsp;&nbsp;&nbsp;");
                               $wgOut->addHTML("<input type=\"submit\" value=\"Send Emails\" /></td></tr></table></div>");
                       } else {
                               /**
                                * Try to send the mass mailing, if fail then ouptut error
                         */
                         $sendChk = sendMailToAll();
                         if($sendChk)
                                 $wgOut->addHTML("<h2>Messages Sent Successfully</h2>");
                         else
                                 $wgOut->addHTML($sendChk);
                 }
         } else {
                 $wgOut->addHTML("<h2>I was informed you don't have permission to view this page.</h2>");
                 $wgOut->addHTML("If you feel I was told wrong then please contact my supervisor, Martin Lyness.");
         }
         return $output;
 }
 /**
 * This function sends the posted message to every user selected.
 */
 function sendMailToAll() {
         global $wgUser,$wgOut;
         $webreq = new WebRequest();
         /**
          * I'll be a good boy and get the post vars using the wikimedia objects :).
           * Nevermind, it keeps giving me problems i just get it the normal way :(.
            */
            if(isset($_POST['emailArray']) && isset($_POST['emailMsg']) && isset($_POST['emailSbj']) && $webreq->wasPosted()) {
                    $emailArray = $webreq->getArray('emailArray');
                    $message = $webreq->getVal('emailMsg');
                    $subject = $webreq->getVal('emailSbj');
                    $emailAdd = $webreq->getVal('addEmails');
                    /* $emailArray = $_POST['emailArray'];
                    $message = $_POST['emailMsg'];
                    $subject = $_POST['emailSbj']; */
            } else {
                    return "Could not find Post variables!".var_dump($_POST);
            }
            /**
             * Using the logged in user's information I'll create the 'From' header
              */
              $from = $wgUser->getRealName()." <".$wgUser->getEmail().">";
              $headers = "MIME-Version: 1.0\n" .
                                      "Content-type: text/plain; charset={$wgOutputEncoding}\n" .
                                      "Content-Transfer-Encoding: 8bit\n" .
                                      "X-Mailer: STSG-MediaWiki mailer\n".
                                      'From: ' . $from . "\n";
              /**
               * Send the Email to everyone in the list (One big bunch)
                */
         $to = implode(", ", $emailArray);
          /**
            * See if we need to add additional emails to the mailing
              */
               if($emailAdd!="comma separated" && trim($emailAdd) != "") {
                       $to .= ", ".$emailAdd;
                }
         /**
           * Add result informatoin to the renderer
             */
              $wgOut->addHTML("<strong>Emails sent to:</strong> ".$to."<br />");
               $wgOut->addHTML("<strong>Subject Line:</strong> ".$subject."<br />");
                $wgOut->addHTML("<strong>Headers Added:</strong> <br />".$headers."<br />");
         $wgOut->addHTML("<strong>Message Sent:</strong> <br />".$message."<br />");
          if(mail($to, $subject, $message, $headers))
                  return true;
          else
                  return false;
  }