3 function wfSpecialEmailuser()
5 global $wgUser, $wgOut, $action, $target;
7 if ( 0 == $wgUser->getID() ||
8 ( false === strpos( $wgUser->getEmail(), "@" ) ) ) {
9 $wgOut->errorpage( "mailnologin", "mailnologintext" );
12 $target = wfCleanQueryVar( $target );
13 if ( "" == $target ) {
14 $wgOut->errorpage( "notargettitle", "notargettext" );
17 $nt = Title
::newFromURL( $target );
18 $nu = User
::newFromName( $nt->getText() );
19 $id = $nu->idForName();
22 $wgOut->errorpage( "noemailtitle", "noemailtext" );
26 $address = $nu->getEmail();
28 if ( ( false === strpos( $address, "@" ) ) ||
29 ( 1 == $nu->getOption( "disablemail" ) ) ) {
30 $wgOut->errorpage( "noemailtitle", "noemailtext" );
33 $fields = array( "wpSubject", "wpText" );
34 wfCleanFormFields( $fields );
36 $f = new EmailUserForm( $nu->getName() . " <{$address}>" );
38 if ( "success" == $action ) { $f->showSuccess(); }
39 else if ( "submit" == $action ) { $f->doSubmit(); }
40 else { $f->showForm( "" ); }
47 function EmailUserForm( $addr )
49 $this->mAddress
= $addr;
52 function showForm( $err )
54 global $wgOut, $wgUser, $wgLang;
55 global $wpSubject, $wpText, $target;
56 $wpSubject = $_REQUEST["wpSubject"];
57 $wpText = $_REQUEST["wpText"];
59 $wgOut->setPagetitle( wfMsg( "emailpage" ) );
60 $wgOut->addWikiText( wfMsg( "emailpagetext" ) );
62 if ( ! $wpSubject ) { $wpSubject = "Wikipedia e-mail"; }
64 $emf = wfMsg( "emailfrom" );
65 $sender = $wgUser->getName();
66 $emt = wfMsg( "emailto" );
67 $rcpt = str_replace( "_", " ", urldecode( $target ) );
68 $emr = wfMsg( "emailsubject" );
69 $emm = wfMsg( "emailmessage" );
70 $ems = wfMsg( "emailsend" );
72 $action = wfLocalUrlE( $wgLang->specialPage( "Emailuser" ),
73 "target={$target}&action=submit" );
76 $wgOut->setSubtitle( wfMsg( "formerror" ) );
77 $wgOut->addHTML( "<p><font color='red' size='+1'>{$err}</font>\n" );
80 <form id=\"emailuser\" method=\"post\" action=\"{$action}\">
82 <td align=right>{$emf}:</td>
83 <td align=left><strong>{$sender}</strong></td>
85 <td align=right>{$emt}:</td>
86 <td align=left><strong>{$rcpt}</strong></td>
88 <td align=right>{$emr}:</td>
90 <input type=text name=\"wpSubject\" value=\"{$wpSubject}\">
93 <td align=right>{$emm}:</td>
95 <textarea name=\"wpText\" rows=10 cols=60 wrap=virtual>
99 <td> </td><td align=left>
100 <input type=submit name=\"wpSend\" value=\"{$ems}\">
108 global $wgOut, $wgUser, $wgLang, $wgOutputEncoding;
109 global $wpSubject, $wpText, $target;
110 $wpSubject = $_REQUEST["wpSubject"];
111 $wpText = $_REQUEST["wpText"];
113 $from = wfQuotedPrintable( $wgUser->getName() ) . " <" . $wgUser->getEmail() . ">";
114 $to = wfQuotedPrintable( $this->mAddress
);
117 "MIME-Version: 1.0\r\n" .
118 "Content-type: text/plain; charset={$wgOutputEncoding}\r\n" .
119 "Content-transfer-encoding: 8bit\r\n" .
120 "From: {$from}\r\n" .
121 "Reply-To: {$from}\r\n" .
123 "X-Mailer: MediaWiki interuser e-mailer";
124 mail( $this->mAddress
, wfQuotedPrintable( $wpSubject ), $wpText, $headers );
127 $success = wfLocalUrl( $wgLang->specialPage( "Emailuser" ),
128 "target={$target}&action=success" );
129 $wgOut->redirect( $success );
132 function showSuccess()
134 global $wgOut, $wgUser;
136 $wgOut->setPagetitle( wfMsg( "emailsent" ) );
137 $wgOut->addHTML( wfMsg( "emailsenttext" ) );
139 $wgOut->returnToMain( false );