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 */ # if you want to allow sending forms with empty 'from' field, # set this to false, otherwise set to true $RequireEmail = true; XLSDV('en', array( 'MF' => '', 'MFsuccess' => 'Zpráva byla v pořádku odeslána.', 'MFfailure' => 'Zpráva nemohla být odeslána.', 'MFwrongmail' => 'e-mail je neplatný', 'MFerror' => 'Vyskytla se chyba (vyplněné položky?).')); $r = @$_REQUEST['mailform']; $MailFormResult = FmtPageName("$[MF$r]", $pagename); # This is the default form, as a table. The '$1' is replaced with # the word that comes after the mailform: markup -- the rest are # straightforward $...Fmt substitutions. SDV($MailFormFmt,"

\$MailFormResult
$[Vaše adresa:]
$[Předmět:]
$[Zpráva:]

"); # This defines the mailform: markup -- it's just a straight text # substitution. Markup('mailform', '>links', '/\\bmailform:(\\w+)/', FmtPageName($MailFormFmt, $pagename)); # These define what happens after someone has submitted a message. # The variables are the header and footer for the email message, # while HandleMailForm sends the message according to the # value of 'address' in the request. SDV($MailFormHeader,""); SDV($MailFormFooter, "\n-------------------------------------------\n"); // ."This message was sent by the PmWiki MailForm at $ScriptUrl\n"); SDV($MailFormDefaultSender,"me@test.cz"); $HandleActions['mailform'] = 'HandleMailForm'; function HandleMailForm($pagename) { global $MailFormAddresses, $MailFormHeader, $MailFormFooter, $MailFormDefaultSender, $RequireEmail; $to = $MailFormAddresses[$_REQUEST['address']]; $from = $_REQUEST['sender']; $subject = $_REQUEST['subject']; $text = $MailFormHeader.stripmagic($_REQUEST['text']).$MailFormFooter; if($RequireEmail) { if(!IsValidMail($from)) { $msg = 'wrongmail'; } else { if (!$to || !$_REQUEST['text']) { $msg = 'error'; } else if (mail($to, $subject, $text, "From: $from")) { $msg = 'success'; } else { $msg = 'failure'; } } } else { if (!$from) { $from=$MailFormDefaultSender; } if (!$to || !$_REQUEST['text']) { $msg = 'error'; } else if (mail($to, $subject, $text, "From: $from")) { $msg = 'success'; } else { $msg = 'failure'; } } header("Location: $ScriptUrl?pagename=$pagename&mailform=$msg"); } # This function checks whether the email is valid or not function IsValidMail($email) { if(ereg("^[-a-zA-Z0-9!#$%&'*+/=?^_`{|}~]+(\.[-a-zA-Z0-9!#$%&'*+/=?^_`{|}~]+)*@[a-zA-Z0-9-]+(\.[a-zA-Z0-9-]+)+$", $email)) { Return true; } else { Return false; } } ?>