Copyright (c) 2005 by Jeffrey W Barke Copyright (c) 2006 by Anno Copyright (c) 2006 by Sandy Schoen Copyright (c) 2007 Martin Kerz This is GPL, only it seems odd to include a license in a programm that has twice the size of the license. Modifications to work with PmWiki 2.0, Copyright (c) 2005 by Patrick R. Michaud Revision 1.5 20070803 Martin Kerz * Modifications to create xhtml compliant forms * Included modifications to send the email in utf-8 by Anno * Included confirmation code of emailform-s.php by Sandy Schoen Revision 1.5.1 20070804 Martin Kerz * Renamed flags to start with Enable */ # Version date SDV($RecipeInfo['EMailForm']['Version'], '2007-08-04'); # Some messages XLSDV('en', array( 'MF' => '', 'MFsuccess' => 'Message has been sent successfully.', 'MFfailure' => 'Message could not be sent.', 'MFerror' => 'An error has occurred.', 'MFwrongcode' => 'Wrong security code. Are you sure you are human?')); #Defining variables $r = @$_REQUEST['emailform']; $EMailFormResult = FmtPageName("$[MF$r]", $pagename); $ACodeCalc = rand(100,999); # This is the default form. The '$1' is replaced with # the word that comes after the mailform: markup -- the rest are # straightforward $...Fmt substitutions. if ($EnableEMailFormSecurity==true) SDV($EMailFormFmt," "); else SDV($EMailFormFmt," "); # This defines the mailform: markup -- it's just a straight text # substitution. Markup('emailform', '>links', '/\\bemailform:(\\w+)/', FmtPageName($EMailFormFmt, $pagename)); # These define what happens after someone has submitted a message. # The variables are the header and footer for the email message, # while HandleEMailForm sends the message according to the # value of 'address' in the request. SDV($EMailFormHeader,""); SDV($EMailFormFooter, "\n-------------------------------------------\n" ."This message was sent by the PmWiki EMailForm at $ScriptUrl\n"); SDV($EMailFormDefaultSender,""); $HandleActions['emailform'] = 'HandleEMailForm'; function HandleEMailForm($pagename) { global $EMailFormAddresses, $EMailFormHeader, $EMailFormFooter, $EMailFormDefaultSender, $EnableEMailFormUTF8, $EnableEMailFormSecurity; $to = $EMailFormAddresses[$_REQUEST['address']]; $from = $_REQUEST['sender']; $subject = $_REQUEST['subject']; $text = $EMailFormHeader.stripmagic($_REQUEST['text']).$EMailFormFooter; $text = nl2br($text); $headers = "MIME-Version: 1.0\r\n"; if ($EnableEMailFormUTF8==true) $headers .= "Content-type: text/html;charset=utf-8\r\n"; else $headers .= "Content-type: text/html;charset=iso-8859-2\r\n"; $headers .= "From: $from\r\n"; if (!$from) $from=$EMailFormDefaultSender; if (!$to || !$_REQUEST['text']) $msg = 'error'; else if ($EnableEMailFormSecurity==true && $_REQUEST['ACodeReturn'] != $_REQUEST['ACodeEntered']) $msg = 'wrongcode'; else if (mail($to, $subject, $text, $headers)) $msg = 'success'; else $msg = 'failure'; header("Location: $ScriptUrl?pagename=$pagename&emailform=$msg"); } ?>