[ Index ] |
PHP Cross Reference of DokuWiki |
[Summary view] [Print] [Text view]
1 <?php 2 /** 3 * Mail functions 4 * 5 * @license GPL 2 (http://www.gnu.org/licenses/gpl.html) 6 * @author Andreas Gohr <andi@splitbrain.org> 7 */ 8 9 10 /** 11 * Patterns for use in email detection and validation 12 * 13 * NOTE: there is an unquoted '/' in RFC2822_ATEXT, it must remain unquoted to be used in the parser 14 * the pattern uses non-capturing groups as captured groups aren't allowed in the parser 15 * select pattern delimiters with care! 16 * 17 * May not be completly RFC conform! 18 * @link http://www.faqs.org/rfcs/rfc2822.html (paras 3.4.1 & 3.2.4) 19 * 20 * @author Chris Smith <chris@jalakai.co.uk> 21 * Check if a given mail address is valid 22 */ 23 if (!defined('RFC2822_ATEXT')) define('RFC2822_ATEXT',"0-9a-zA-Z!#$%&'*+/=?^_`{|}~-"); 24 if (!defined('PREG_PATTERN_VALID_EMAIL')) define( 25 'PREG_PATTERN_VALID_EMAIL', 26 '['.RFC2822_ATEXT.']+(?:\.['.RFC2822_ATEXT.']+)*@(?i:[0-9a-z][0-9a-z-]*\.)+(?i:[a-z]{2,63})' 27 ); 28 29 /** 30 * Prepare mailfrom replacement patterns 31 * 32 * Also prepares a mailfromnobody config that contains an autoconstructed address 33 * if the mailfrom one is userdependent and this might not be wanted (subscriptions) 34 * 35 * @author Andreas Gohr <andi@splitbrain.org> 36 */ 37 function mail_setup(){ 38 global $conf; 39 global $USERINFO; 40 /** @var Input $INPUT */ 41 global $INPUT; 42 43 // auto constructed address 44 $host = @parse_url(DOKU_URL,PHP_URL_HOST); 45 if(!$host) $host = 'example.com'; 46 $noreply = 'noreply@'.$host; 47 48 $replace = array(); 49 if(!empty($USERINFO['mail'])){ 50 $replace['@MAIL@'] = $USERINFO['mail']; 51 }else{ 52 $replace['@MAIL@'] = $noreply; 53 } 54 55 // use 'noreply' if no user 56 $replace['@USER@'] = $INPUT->server->str('REMOTE_USER', 'noreply', true); 57 58 if(!empty($USERINFO['name'])){ 59 $replace['@NAME@'] = $USERINFO['name']; 60 }else{ 61 $replace['@NAME@'] = ''; 62 } 63 64 // apply replacements 65 $from = str_replace(array_keys($replace), 66 array_values($replace), 67 $conf['mailfrom']); 68 69 // any replacements done? set different mailfromnone 70 if($from != $conf['mailfrom']){ 71 $conf['mailfromnobody'] = $noreply; 72 }else{ 73 $conf['mailfromnobody'] = $from; 74 } 75 $conf['mailfrom'] = $from; 76 } 77 78 /** 79 * Check if a given mail address is valid 80 * 81 * @param string $email the address to check 82 * @return bool true if address is valid 83 */ 84 function mail_isvalid($email) { 85 return EmailAddressValidator::checkEmailAddress($email, true); 86 } 87 88 /** 89 * Quoted printable encoding 90 * 91 * @author umu <umuAThrz.tu-chemnitz.de> 92 * @link http://php.net/manual/en/function.imap-8bit.php#61216 93 * 94 * @param string $sText 95 * @param int $maxlen 96 * @param bool $bEmulate_imap_8bit 97 * 98 * @return string 99 */ 100 function mail_quotedprintable_encode($sText,$maxlen=74,$bEmulate_imap_8bit=true) { 101 // split text into lines 102 $aLines= preg_split("/(?:\r\n|\r|\n)/", $sText); 103 $cnt = count($aLines); 104 105 for ($i=0;$i<$cnt;$i++) { 106 $sLine =& $aLines[$i]; 107 if (strlen($sLine)===0) continue; // do nothing, if empty 108 109 $sRegExp = '/[^\x09\x20\x21-\x3C\x3E-\x7E]/e'; 110 111 // imap_8bit encodes x09 everywhere, not only at lineends, 112 // for EBCDIC safeness encode !"#$@[\]^`{|}~, 113 // for complete safeness encode every character :) 114 if ($bEmulate_imap_8bit) 115 $sRegExp = '/[^\x20\x21-\x3C\x3E-\x7E]/'; 116 117 $sLine = preg_replace_callback( $sRegExp, 'mail_quotedprintable_encode_callback', $sLine ); 118 119 // encode x09,x20 at lineends 120 { 121 $iLength = strlen($sLine); 122 $iLastChar = ord($sLine[$iLength-1]); 123 124 // !!!!!!!! 125 // imap_8_bit does not encode x20 at the very end of a text, 126 // here is, where I don't agree with imap_8_bit, 127 // please correct me, if I'm wrong, 128 // or comment next line for RFC2045 conformance, if you like 129 if (!($bEmulate_imap_8bit && ($i==count($aLines)-1))){ 130 if (($iLastChar==0x09)||($iLastChar==0x20)) { 131 $sLine[$iLength-1]='='; 132 $sLine .= ($iLastChar==0x09)?'09':'20'; 133 } 134 } 135 } // imap_8bit encodes x20 before chr(13), too 136 // although IMHO not requested by RFC2045, why not do it safer :) 137 // and why not encode any x20 around chr(10) or chr(13) 138 if ($bEmulate_imap_8bit) { 139 $sLine=str_replace(' =0D','=20=0D',$sLine); 140 //$sLine=str_replace(' =0A','=20=0A',$sLine); 141 //$sLine=str_replace('=0D ','=0D=20',$sLine); 142 //$sLine=str_replace('=0A ','=0A=20',$sLine); 143 } 144 145 // finally split into softlines no longer than $maxlen chars, 146 // for even more safeness one could encode x09,x20 147 // at the very first character of the line 148 // and after soft linebreaks, as well, 149 // but this wouldn't be caught by such an easy RegExp 150 if($maxlen){ 151 preg_match_all( '/.{1,'.($maxlen - 2).'}([^=]{0,2})?/', $sLine, $aMatch ); 152 $sLine = implode( '=' . MAILHEADER_EOL, $aMatch[0] ); // add soft crlf's 153 } 154 } 155 156 // join lines into text 157 return implode(MAILHEADER_EOL,$aLines); 158 } 159 160 function mail_quotedprintable_encode_callback($matches){ 161 return sprintf( "=%02X", ord ( $matches[0] ) ) ; 162 }
title
Description
Body
title
Description
Body
title
Description
Body
title
Body