wiki.techinc.nl/includes/SpecialEmailuser.php

225 lines
7.2 KiB
PHP

<?php
/**
*
* @addtogroup SpecialPage
*/
/**
* @todo document
*/
function wfSpecialEmailuser( $par ) {
global $wgUser, $wgOut, $wgRequest, $wgEnableEmail, $wgEnableUserEmail;
if( !( $wgEnableEmail && $wgEnableUserEmail ) ) {
$wgOut->showErrorPage( "nosuchspecialpage", "nospecialpagetext" );
return;
}
if( !$wgUser->canSendEmail() ) {
wfDebug( "User can't send.\n" );
$wgOut->showErrorPage( "mailnologin", "mailnologintext" );
return;
}
$action = $wgRequest->getVal( 'action' );
$target = isset($par) ? $par : $wgRequest->getVal( 'target' );
if ( "" == $target ) {
wfDebug( "Target is empty.\n" );
$wgOut->showErrorPage( "notargettitle", "notargettext" );
return;
}
$nt = Title::newFromURL( $target );
if ( is_null( $nt ) ) {
wfDebug( "Target is invalid title.\n" );
$wgOut->showErrorPage( "notargettitle", "notargettext" );
return;
}
$nu = User::newFromName( $nt->getText() );
if( is_null( $nu ) || !$nu->canReceiveEmail() ) {
wfDebug( "Target is invalid user or can't receive.\n" );
$wgOut->showErrorPage( "noemailtitle", "noemailtext" );
return;
}
if ( $wgUser->isBlockedFromEmailUser() ) {
// User has been blocked from sending e-mail. Show the std blocked form.
wfDebug( "User is blocked from sending e-mail.\n" );
$wgOut->blockedPage();
return;
}
$f = new EmailUserForm( $nu );
if ( "success" == $action ) {
$f->showSuccess( $nu );
} else if ( "submit" == $action && $wgRequest->wasPosted() &&
$wgUser->matchEditToken( $wgRequest->getVal( 'wpEditToken' ) ) )
{
# Check against the rate limiter
if( $wgUser->pingLimiter( 'emailuser' ) ) {
$wgOut->rateLimited();
return;
}
$f->doSubmit();
} else {
$f->showForm();
}
}
/**
* Implements the Special:Emailuser web interface, and invokes userMailer for sending the email message.
* @addtogroup SpecialPage
*/
class EmailUserForm {
var $target;
var $text, $subject;
var $cc_me; // Whether user requested to be sent a separate copy of their email.
/**
* @param User $target
*/
function EmailUserForm( $target ) {
global $wgRequest;
$this->target = $target;
$this->text = $wgRequest->getText( 'wpText' );
$this->subject = $wgRequest->getText( 'wpSubject' );
$this->cc_me = $wgRequest->getBool( 'wpCCMe' );
}
function showForm() {
global $wgOut, $wgUser;
$skin = $wgUser->getSkin();
$wgOut->setPagetitle( wfMsg( "emailpage" ) );
$wgOut->addWikiMsg( "emailpagetext" );
if ( $this->subject === "" ) {
$this->subject = wfMsgForContent( "defemailsubject" );
}
$emf = wfMsg( "emailfrom" );
$senderLink = $skin->makeLinkObj(
$wgUser->getUserPage(), htmlspecialchars( $wgUser->getName() ) );
$emt = wfMsg( "emailto" );
$recipientLink = $skin->makeLinkObj(
$this->target->getUserPage(), htmlspecialchars( $this->target->getName() ) );
$emr = wfMsg( "emailsubject" );
$emm = wfMsg( "emailmessage" );
$ems = wfMsg( "emailsend" );
$emc = wfMsg( "emailccme" );
$encSubject = htmlspecialchars( $this->subject );
$titleObj = SpecialPage::getTitleFor( "Emailuser" );
$action = $titleObj->escapeLocalURL( "target=" .
urlencode( $this->target->getName() ) . "&action=submit" );
$token = htmlspecialchars( $wgUser->editToken() );
$wgOut->addHTML( "
<form id=\"emailuser\" method=\"post\" action=\"{$action}\">
<table border='0' id='mailheader'><tr>
<td align='right'>{$emf}:</td>
<td align='left'><strong>{$senderLink}</strong></td>
</tr><tr>
<td align='right'>{$emt}:</td>
<td align='left'><strong>{$recipientLink}</strong></td>
</tr><tr>
<td align='right'>{$emr}:</td>
<td align='left'>
<input type='text' size='60' maxlength='200' name=\"wpSubject\" value=\"{$encSubject}\" />
</td>
</tr>
</table>
<span id='wpTextLabel'><label for=\"wpText\">{$emm}:</label><br /></span>
<textarea id=\"wpText\" name=\"wpText\" rows='20' cols='80' style=\"width: 100%;\">" . htmlspecialchars( $this->text ) .
"</textarea>
" . wfCheckLabel( $emc, 'wpCCMe', 'wpCCMe', $wgUser->getBoolOption( 'ccmeonemails' ) ) . "<br />
<input type='submit' name=\"wpSend\" value=\"{$ems}\" />
<input type='hidden' name='wpEditToken' value=\"$token\" />
</form>\n" );
}
function doSubmit() {
global $wgOut, $wgUser, $wgUserEmailUseReplyTo;
$to = new MailAddress( $this->target );
$from = new MailAddress( $wgUser );
$subject = $this->subject;
if( wfRunHooks( 'EmailUser', array( &$to, &$from, &$subject, &$this->text ) ) ) {
if( $wgUserEmailUseReplyTo ) {
// Put the generic wiki autogenerated address in the From:
// header and reserve the user for Reply-To.
//
// This is a bit ugly, but will serve to differentiate
// wiki-borne mails from direct mails and protects against
// SPF and bounce problems with some mailers (see below).
global $wgPasswordSender;
$mailFrom = new MailAddress( $wgPasswordSender );
$replyTo = $from;
} else {
// Put the sending user's e-mail address in the From: header.
//
// This is clean-looking and convenient, but has issues.
// One is that it doesn't as clearly differentiate the wiki mail
// from "directly" sent mails.
//
// Another is that some mailers (like sSMTP) will use the From
// address as the envelope sender as well. For open sites this
// can cause mails to be flunked for SPF violations (since the
// wiki server isn't an authorized sender for various users'
// domains) as well as creating a privacy issue as bounces
// containing the recipient's e-mail address may get sent to
// the sending user.
$mailFrom = $from;
$replyTo = null;
}
$mailResult = UserMailer::send( $to, $mailFrom, $subject, $this->text, $replyTo );
if( WikiError::isError( $mailResult ) ) {
$wgOut->addHTML( wfMsg( "usermailererror" ) .
' ' . htmlspecialchars( $mailResult->getMessage() ) );
} else {
// if the user requested a copy of this mail, do this now,
// unless they are emailing themselves, in which case one copy of the message is sufficient.
if ($this->cc_me && $to != $from) {
$cc_subject = wfMsg('emailccsubject', $this->target->getName(), $subject);
if( wfRunHooks( 'EmailUser', array( &$from, &$from, &$cc_subject, &$this->text ) ) ) {
$ccResult = UserMailer::send( $from, $from, $cc_subject, $this->text );
if( WikiError::isError( $ccResult ) ) {
// At this stage, the user's CC mail has failed, but their
// original mail has succeeded. It's unlikely, but still, what to do?
// We can either show them an error, or we can say everything was fine,
// or we can say we sort of failed AND sort of succeeded. Of these options,
// simply saying there was an error is probably best.
$wgOut->addHTML( wfMsg( "usermailererror" ) .
' ' . htmlspecialchars( $ccResult->getMessage() ) );
return;
}
}
}
$titleObj = SpecialPage::getTitleFor( "Emailuser" );
$encTarget = wfUrlencode( $this->target->getName() );
$wgOut->redirect( $titleObj->getFullURL( "target={$encTarget}&action=success" ) );
wfRunHooks( 'EmailUserComplete', array( $to, $from, $subject, $this->text ) );
}
}
}
function showSuccess( &$user ) {
global $wgOut;
$wgOut->setPagetitle( wfMsg( "emailsent" ) );
$wgOut->addHTML( wfMsg( "emailsenttext" ) );
$wgOut->returnToMain( false, $user->getUserPage() );
}
}