Thijs/wiki.techinc.nl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
wiki.techinc.nl/includes/SpecialEmailuser.php

140 lines
3.5 KiB
PHP
Raw Normal View History

Fix for compatibility with short_open_tag = Off
2004-02-18 02:15:00 +00:00
<?php
Initial revision
2003-04-14 23:10:40 +00:00
Added the ability to do an authenticated SMTP login to send mail. * by setting the array variable '$wgSMTP' in Local settings, the source will use PEAR:mail to connect to a specific SMTP server to send mail. It will use an authenticated login, if requested. * Example: $wgSMTP = array ( "host" => "smtp.wherever.com", "IDHost" => "mail.wikipedia.org", "port" => "25", "auth" => true, "username" => "mailID", "password" => "mailPswd");
2004-02-27 12:48:07 +00:00
require_once('UserMailer.php');
Initial revision
2003-04-14 23:10:40 +00:00
function wfSpecialEmailuser()
{
More globals and uninitialized variables fixes. Added WebRequest ($wgRequest) object to encapsulate the handling of get/post variables: The following grab something out of $_REQUEST. The first parameter is the variable name and is required. The second is an optional default value: $wgRequest->getVal() - any type, returns NULL if no default given $wgRequest->getInt() - forced integer, 0 default $wgRequest->getText() - runs through $wgLang->recodeInput() $wgRequest->getBool() - return true/false $wgRequest->getCheck() - returns true if the var is set, even if to "" $wgRequest strips slashes at initialization if necessary. Also in this fine object: $wgRequest->wasPosted() - returns false if this wasn't a real form post, so we can protect against faked submissions in get urls. There's still plenty of work to do, not everything uses the new functions yet. To test the strict mode, do define('DEBUG_GLOBALS', 1);
2004-03-08 09:09:35 +00:00
global $wgUser, $wgOut, $wgRequest;
Initial revision
2003-04-14 23:10:40 +00:00
if ( 0 == $wgUser->getID() ||
( false === strpos( $wgUser->getEmail(), "@" ) ) ) {
$wgOut->errorpage( "mailnologin", "mailnologintext" );
return;
}
More globals and uninitialized variables fixes. Added WebRequest ($wgRequest) object to encapsulate the handling of get/post variables: The following grab something out of $_REQUEST. The first parameter is the variable name and is required. The second is an optional default value: $wgRequest->getVal() - any type, returns NULL if no default given $wgRequest->getInt() - forced integer, 0 default $wgRequest->getText() - runs through $wgLang->recodeInput() $wgRequest->getBool() - return true/false $wgRequest->getCheck() - returns true if the var is set, even if to "" $wgRequest strips slashes at initialization if necessary. Also in this fine object: $wgRequest->wasPosted() - returns false if this wasn't a real form post, so we can protect against faked submissions in get urls. There's still plenty of work to do, not everything uses the new functions yet. To test the strict mode, do define('DEBUG_GLOBALS', 1);
2004-03-08 09:09:35 +00:00
$action = $wgRequest->getVal( $action );
$target = $wgRequest->getVal( $target );
Initial revision
2003-04-14 23:10:40 +00:00
if ( "" == $target ) {
$wgOut->errorpage( "notargettitle", "notargettext" );
return;
}
$nt = Title::newFromURL( $target );
$nu = User::newFromName( $nt->getText() );
$id = $nu->idForName();
if ( 0 == $id ) {
$wgOut->errorpage( "noemailtitle", "noemailtext" );
return;
}
$nu->setID( $id );
$address = $nu->getEmail();
if ( ( false === strpos( $address, "@" ) ) ||
( 1 == $nu->getOption( "disablemail" ) ) ) {
$wgOut->errorpage( "noemailtitle", "noemailtext" );
return;
}
More globals and uninitialized variables fixes. Added WebRequest ($wgRequest) object to encapsulate the handling of get/post variables: The following grab something out of $_REQUEST. The first parameter is the variable name and is required. The second is an optional default value: $wgRequest->getVal() - any type, returns NULL if no default given $wgRequest->getInt() - forced integer, 0 default $wgRequest->getText() - runs through $wgLang->recodeInput() $wgRequest->getBool() - return true/false $wgRequest->getCheck() - returns true if the var is set, even if to "" $wgRequest strips slashes at initialization if necessary. Also in this fine object: $wgRequest->wasPosted() - returns false if this wasn't a real form post, so we can protect against faked submissions in get urls. There's still plenty of work to do, not everything uses the new functions yet. To test the strict mode, do define('DEBUG_GLOBALS', 1);
2004-03-08 09:09:35 +00:00
$f = new EmailUserForm( $nu->getName() . " <{$address}>", $target );
Initial revision
2003-04-14 23:10:40 +00:00
if ( "success" == $action ) { $f->showSuccess(); }
More globals and uninitialized variables fixes. Added WebRequest ($wgRequest) object to encapsulate the handling of get/post variables: The following grab something out of $_REQUEST. The first parameter is the variable name and is required. The second is an optional default value: $wgRequest->getVal() - any type, returns NULL if no default given $wgRequest->getInt() - forced integer, 0 default $wgRequest->getText() - runs through $wgLang->recodeInput() $wgRequest->getBool() - return true/false $wgRequest->getCheck() - returns true if the var is set, even if to "" $wgRequest strips slashes at initialization if necessary. Also in this fine object: $wgRequest->wasPosted() - returns false if this wasn't a real form post, so we can protect against faked submissions in get urls. There's still plenty of work to do, not everything uses the new functions yet. To test the strict mode, do define('DEBUG_GLOBALS', 1);
2004-03-08 09:09:35 +00:00
else if ( "submit" == $action && $wgRequest->wasPosted() ) { $f->doSubmit(); }
Initial revision
2003-04-14 23:10:40 +00:00
else { $f->showForm( "" ); }
}
class EmailUserForm {
var $mAddress;
More globals and uninitialized variables fixes. Added WebRequest ($wgRequest) object to encapsulate the handling of get/post variables: The following grab something out of $_REQUEST. The first parameter is the variable name and is required. The second is an optional default value: $wgRequest->getVal() - any type, returns NULL if no default given $wgRequest->getInt() - forced integer, 0 default $wgRequest->getText() - runs through $wgLang->recodeInput() $wgRequest->getBool() - return true/false $wgRequest->getCheck() - returns true if the var is set, even if to "" $wgRequest strips slashes at initialization if necessary. Also in this fine object: $wgRequest->wasPosted() - returns false if this wasn't a real form post, so we can protect against faked submissions in get urls. There's still plenty of work to do, not everything uses the new functions yet. To test the strict mode, do define('DEBUG_GLOBALS', 1);
2004-03-08 09:09:35 +00:00
var $target;
var $text, $subject;
Initial revision
2003-04-14 23:10:40 +00:00
More globals and uninitialized variables fixes. Added WebRequest ($wgRequest) object to encapsulate the handling of get/post variables: The following grab something out of $_REQUEST. The first parameter is the variable name and is required. The second is an optional default value: $wgRequest->getVal() - any type, returns NULL if no default given $wgRequest->getInt() - forced integer, 0 default $wgRequest->getText() - runs through $wgLang->recodeInput() $wgRequest->getBool() - return true/false $wgRequest->getCheck() - returns true if the var is set, even if to "" $wgRequest strips slashes at initialization if necessary. Also in this fine object: $wgRequest->wasPosted() - returns false if this wasn't a real form post, so we can protect against faked submissions in get urls. There's still plenty of work to do, not everything uses the new functions yet. To test the strict mode, do define('DEBUG_GLOBALS', 1);
2004-03-08 09:09:35 +00:00
function EmailUserForm( $addr, $target )
Initial revision
2003-04-14 23:10:40 +00:00
{
More globals and uninitialized variables fixes. Added WebRequest ($wgRequest) object to encapsulate the handling of get/post variables: The following grab something out of $_REQUEST. The first parameter is the variable name and is required. The second is an optional default value: $wgRequest->getVal() - any type, returns NULL if no default given $wgRequest->getInt() - forced integer, 0 default $wgRequest->getText() - runs through $wgLang->recodeInput() $wgRequest->getBool() - return true/false $wgRequest->getCheck() - returns true if the var is set, even if to "" $wgRequest strips slashes at initialization if necessary. Also in this fine object: $wgRequest->wasPosted() - returns false if this wasn't a real form post, so we can protect against faked submissions in get urls. There's still plenty of work to do, not everything uses the new functions yet. To test the strict mode, do define('DEBUG_GLOBALS', 1);
2004-03-08 09:09:35 +00:00
global $wgRequest;
Initial revision
2003-04-14 23:10:40 +00:00
$this->mAddress = $addr;
More globals and uninitialized variables fixes. Added WebRequest ($wgRequest) object to encapsulate the handling of get/post variables: The following grab something out of $_REQUEST. The first parameter is the variable name and is required. The second is an optional default value: $wgRequest->getVal() - any type, returns NULL if no default given $wgRequest->getInt() - forced integer, 0 default $wgRequest->getText() - runs through $wgLang->recodeInput() $wgRequest->getBool() - return true/false $wgRequest->getCheck() - returns true if the var is set, even if to "" $wgRequest strips slashes at initialization if necessary. Also in this fine object: $wgRequest->wasPosted() - returns false if this wasn't a real form post, so we can protect against faked submissions in get urls. There's still plenty of work to do, not everything uses the new functions yet. To test the strict mode, do define('DEBUG_GLOBALS', 1);
2004-03-08 09:09:35 +00:00
$this->target = $target;
$this->text = $wgRequest->getText( 'wpText' );
$this->subject = $wgRequest->getText( 'wpSubject' );
Initial revision
2003-04-14 23:10:40 +00:00
}
function showForm( $err )
{
global $wgOut, $wgUser, $wgLang;
More globals and uninitialized variables fixes. Added WebRequest ($wgRequest) object to encapsulate the handling of get/post variables: The following grab something out of $_REQUEST. The first parameter is the variable name and is required. The second is an optional default value: $wgRequest->getVal() - any type, returns NULL if no default given $wgRequest->getInt() - forced integer, 0 default $wgRequest->getText() - runs through $wgLang->recodeInput() $wgRequest->getBool() - return true/false $wgRequest->getCheck() - returns true if the var is set, even if to "" $wgRequest strips slashes at initialization if necessary. Also in this fine object: $wgRequest->wasPosted() - returns false if this wasn't a real form post, so we can protect against faked submissions in get urls. There's still plenty of work to do, not everything uses the new functions yet. To test the strict mode, do define('DEBUG_GLOBALS', 1);
2004-03-08 09:09:35 +00:00
global $wpSubject, $wpText;
Initial revision
2003-04-14 23:10:40 +00:00
$wgOut->setPagetitle( wfMsg( "emailpage" ) );
$wgOut->addWikiText( wfMsg( "emailpagetext" ) );
Changed default email subject from hard-coded string to LanguageXX.php entry.
2004-02-12 02:33:21 +00:00
if ( ! $wpSubject ) { $wpSubject = wfMsg( "defemailsubject" ); }
Initial revision
2003-04-14 23:10:40 +00:00
$emf = wfMsg( "emailfrom" );
$sender = $wgUser->getName();
$emt = wfMsg( "emailto" );
More globals and uninitialized variables fixes. Added WebRequest ($wgRequest) object to encapsulate the handling of get/post variables: The following grab something out of $_REQUEST. The first parameter is the variable name and is required. The second is an optional default value: $wgRequest->getVal() - any type, returns NULL if no default given $wgRequest->getInt() - forced integer, 0 default $wgRequest->getText() - runs through $wgLang->recodeInput() $wgRequest->getBool() - return true/false $wgRequest->getCheck() - returns true if the var is set, even if to "" $wgRequest strips slashes at initialization if necessary. Also in this fine object: $wgRequest->wasPosted() - returns false if this wasn't a real form post, so we can protect against faked submissions in get urls. There's still plenty of work to do, not everything uses the new functions yet. To test the strict mode, do define('DEBUG_GLOBALS', 1);
2004-03-08 09:09:35 +00:00
$rcpt = str_replace( "_", " ", $this->target );
Initial revision
2003-04-14 23:10:40 +00:00
$emr = wfMsg( "emailsubject" );
$emm = wfMsg( "emailmessage" );
$ems = wfMsg( "emailsend" );
* Fixed magic quotes in $_REQUEST, in Setup.php * Converted many instances of globals from the query to $_REQUEST * Renamed near-useless Title::getURL() to Title::getPartialURL() * Created new Title::getURL(), to replace wfLocalUrl, wfLocalUrlE, wfFullUrl and wfFullUrlE. Replaced most instances throughout the code * In Parser.php, generalised stripping of <nowiki>, <pre> and <math> to allow more general use such as nesting * Moved body of Article::preSaveTransform to Parser.php * Put lots of comments in Title.php
2004-03-06 01:49:16 +00:00
$titleObj = Title::makeTitle( NS_SPECIAL, "Emailuser" );
More globals and uninitialized variables fixes. Added WebRequest ($wgRequest) object to encapsulate the handling of get/post variables: The following grab something out of $_REQUEST. The first parameter is the variable name and is required. The second is an optional default value: $wgRequest->getVal() - any type, returns NULL if no default given $wgRequest->getInt() - forced integer, 0 default $wgRequest->getText() - runs through $wgLang->recodeInput() $wgRequest->getBool() - return true/false $wgRequest->getCheck() - returns true if the var is set, even if to "" $wgRequest strips slashes at initialization if necessary. Also in this fine object: $wgRequest->wasPosted() - returns false if this wasn't a real form post, so we can protect against faked submissions in get urls. There's still plenty of work to do, not everything uses the new functions yet. To test the strict mode, do define('DEBUG_GLOBALS', 1);
2004-03-08 09:09:35 +00:00
$action = $titleObj->escapeLocalURL( "target={$this->target}&action=submit" );
Initial revision
2003-04-14 23:10:40 +00:00
if ( "" != $err ) {
$wgOut->setSubtitle( wfMsg( "formerror" ) );
$wgOut->addHTML( "<p><font color='red' size='+1'>{$err}</font>\n" );
}
$wgOut->addHTML( "<p>
<form id=\"emailuser\" method=\"post\" action=\"{$action}\">
<table border=0><tr>
<td align=right>{$emf}:</td>
<td align=left><strong>{$sender}</strong></td>
</tr><tr>
<td align=right>{$emt}:</td>
<td align=left><strong>{$rcpt}</strong></td>
</tr><tr>
<td align=right>{$emr}:</td>
<td align=left>
<input type=text name=\"wpSubject\" value=\"{$wpSubject}\">
</td>
</tr><tr>
<td align=right>{$emm}:</td>
<td align=left>
<textarea name=\"wpText\" rows=10 cols=60 wrap=virtual>
{$wpText}
</textarea>
</td></tr><tr>
<td>&nbsp;</td><td align=left>
<input type=submit name=\"wpSend\" value=\"{$ems}\">
</td></tr></table>
</form>\n" );
}
function doSubmit()
{
global $wgOut, $wgUser, $wgLang, $wgOutputEncoding;
More globals and uninitialized variables fixes. Added WebRequest ($wgRequest) object to encapsulate the handling of get/post variables: The following grab something out of $_REQUEST. The first parameter is the variable name and is required. The second is an optional default value: $wgRequest->getVal() - any type, returns NULL if no default given $wgRequest->getInt() - forced integer, 0 default $wgRequest->getText() - runs through $wgLang->recodeInput() $wgRequest->getBool() - return true/false $wgRequest->getCheck() - returns true if the var is set, even if to "" $wgRequest strips slashes at initialization if necessary. Also in this fine object: $wgRequest->wasPosted() - returns false if this wasn't a real form post, so we can protect against faked submissions in get urls. There's still plenty of work to do, not everything uses the new functions yet. To test the strict mode, do define('DEBUG_GLOBALS', 1);
2004-03-08 09:09:35 +00:00
global $wpSubject, $wpText, $this->target;
Latest features and bug fixes imported from stable
2003-11-12 10:21:28 +00:00
$from = wfQuotedPrintable( $wgUser->getName() ) . " <" . $wgUser->getEmail() . ">";
Added the ability to do an authenticated SMTP login to send mail. * by setting the array variable '$wgSMTP' in Local settings, the source will use PEAR:mail to connect to a specific SMTP server to send mail. It will use an authenticated login, if requested. * Example: $wgSMTP = array ( "host" => "smtp.wherever.com", "IDHost" => "mail.wikipedia.org", "port" => "25", "auth" => true, "username" => "mailID", "password" => "mailPswd");
2004-02-27 12:48:07 +00:00
$mailResult = userMailer( $this->mAddress, $from, wfQuotedPrintable( $wpSubject ), $wpText );
if (! $mailResult)
{
* Fixed magic quotes in $_REQUEST, in Setup.php * Converted many instances of globals from the query to $_REQUEST * Renamed near-useless Title::getURL() to Title::getPartialURL() * Created new Title::getURL(), to replace wfLocalUrl, wfLocalUrlE, wfFullUrl and wfFullUrlE. Replaced most instances throughout the code * In Parser.php, generalised stripping of <nowiki>, <pre> and <math> to allow more general use such as nesting * Moved body of Article::preSaveTransform to Parser.php * Put lots of comments in Title.php
2004-03-06 01:49:16 +00:00
$titleObj = Title::makeTitle( NS_SPECIAL, "Emailuser" );
More globals and uninitialized variables fixes. Added WebRequest ($wgRequest) object to encapsulate the handling of get/post variables: The following grab something out of $_REQUEST. The first parameter is the variable name and is required. The second is an optional default value: $wgRequest->getVal() - any type, returns NULL if no default given $wgRequest->getInt() - forced integer, 0 default $wgRequest->getText() - runs through $wgLang->recodeInput() $wgRequest->getBool() - return true/false $wgRequest->getCheck() - returns true if the var is set, even if to "" $wgRequest strips slashes at initialization if necessary. Also in this fine object: $wgRequest->wasPosted() - returns false if this wasn't a real form post, so we can protect against faked submissions in get urls. There's still plenty of work to do, not everything uses the new functions yet. To test the strict mode, do define('DEBUG_GLOBALS', 1);
2004-03-08 09:09:35 +00:00
$wgOut->redirect( $titleObj->getFullURL( "target={$this->target}&action=success" ) );
Added the ability to do an authenticated SMTP login to send mail. * by setting the array variable '$wgSMTP' in Local settings, the source will use PEAR:mail to connect to a specific SMTP server to send mail. It will use an authenticated login, if requested. * Example: $wgSMTP = array ( "host" => "smtp.wherever.com", "IDHost" => "mail.wikipedia.org", "port" => "25", "auth" => true, "username" => "mailID", "password" => "mailPswd");
2004-02-27 12:48:07 +00:00
}
else
$wgOut->addHTML( wfMsg( "usermailererror" ) . $mailResult);
Initial revision
2003-04-14 23:10:40 +00:00
}
function showSuccess()
{
global $wgOut, $wgUser;
$wgOut->setPagetitle( wfMsg( "emailsent" ) );
$wgOut->addHTML( wfMsg( "emailsenttext" ) );
$wgOut->returnToMain( false );
}
}
?>
Reference in a new issue Copy permalink