[Summary view] [Print] [Text view]

   1  <?php
   2  
   3  /**
   4   * Mail functions
   5   *
   6   * @license    GPL 2 (http://www.gnu.org/licenses/gpl.html)
   7   * @author     Andreas Gohr <andi@splitbrain.org>
   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  {
  39      global $conf;
  40      global $USERINFO;
  41      /** @var Input $INPUT */
  42      global $INPUT;
  43  
  44      // auto constructed address
  45      $host = @parse_url(DOKU_URL, PHP_URL_HOST);
  46      if (!$host) $host = 'example.com';
  47      $noreply = 'noreply@' . $host;
  48  
  49      $replace = [];
  50      if (!empty($USERINFO['mail'])) {
  51          $replace['@MAIL@'] = $USERINFO['mail'];
  52      } else {
  53          $replace['@MAIL@'] = $noreply;
  54      }
  55  
  56      // use 'noreply' if no user
  57      $replace['@USER@'] = $INPUT->server->str('REMOTE_USER', 'noreply', true);
  58  
  59      if (!empty($USERINFO['name'])) {
  60          $replace['@NAME@'] = $USERINFO['name'];
  61      } else {
  62          $replace['@NAME@'] = '';
  63      }
  64  
  65      // apply replacements
  66      $from = str_replace(
  67          array_keys($replace),
  68          array_values($replace),
  69          $conf['mailfrom']
  70      );
  71  
  72      // any replacements done? set different mailfromnone
  73      if ($from != $conf['mailfrom']) {
  74          $conf['mailfromnobody'] = $noreply;
  75      } else {
  76          $conf['mailfromnobody'] = $from;
  77      }
  78      $conf['mailfrom'] = $from;
  79  }
  80  
  81  /**
  82   * Check if a given mail address is valid
  83   *
  84   * @param   string $email the address to check
  85   * @return  bool          true if address is valid
  86   */
  87  function mail_isvalid($email)
  88  {
  89      return EmailAddressValidator::checkEmailAddress($email, true);
  90  }
  91  
  92  /**
  93   * Quoted printable encoding
  94   *
  95   * @author umu <umuAThrz.tu-chemnitz.de>
  96   * @link   http://php.net/manual/en/function.imap-8bit.php#61216
  97   *
  98   * @param string $sText
  99   * @param int $maxlen
 100   * @param bool $bEmulate_imap_8bit
 101   *
 102   * @return string
 103   */
 104  function mail_quotedprintable_encode($sText, $maxlen = 74, $bEmulate_imap_8bit = true)
 105  {
 106      // split text into lines
 107      $aLines = preg_split("/(?:\r\n|\r|\n)/", $sText);
 108      $cnt = count($aLines);
 109  
 110      for ($i = 0; $i < $cnt; $i++) {
 111          $sLine =& $aLines[$i];
 112          if ($sLine === '') continue; // do nothing, if empty
 113  
 114          $sRegExp = '/[^\x09\x20\x21-\x3C\x3E-\x7E]/e';
 115  
 116          // imap_8bit encodes x09 everywhere, not only at lineends,
 117          // for EBCDIC safeness encode !"#$@[\]^`{|}~,
 118          // for complete safeness encode every character :)
 119          if ($bEmulate_imap_8bit)
 120              $sRegExp = '/[^\x20\x21-\x3C\x3E-\x7E]/';
 121  
 122          $sLine = preg_replace_callback($sRegExp, 'mail_quotedprintable_encode_callback', $sLine);
 123  
 124          // encode x09,x20 at lineends
 125          {
 126              $iLength = strlen($sLine);
 127              $iLastChar = ord($sLine[$iLength - 1]);
 128  
 129              //              !!!!!!!!
 130              // imap_8_bit does not encode x20 at the very end of a text,
 131              // here is, where I don't agree with imap_8_bit,
 132              // please correct me, if I'm wrong,
 133              // or comment next line for RFC2045 conformance, if you like
 134          if (!($bEmulate_imap_8bit && ($i == count($aLines) - 1))) {
 135              if (($iLastChar == 0x09) || ($iLastChar == 0x20)) {
 136                  $sLine[$iLength - 1] = '=';
 137                  $sLine .= ($iLastChar == 0x09) ? '09' : '20';
 138              }
 139          }
 140          }    // imap_8bit encodes x20 before chr(13), too
 141          // although IMHO not requested by RFC2045, why not do it safer :)
 142          // and why not encode any x20 around chr(10) or chr(13)
 143          if ($bEmulate_imap_8bit) {
 144              $sLine = str_replace(' =0D', '=20=0D', $sLine);
 145              //$sLine=str_replace(' =0A','=20=0A',$sLine);
 146              //$sLine=str_replace('=0D ','=0D=20',$sLine);
 147              //$sLine=str_replace('=0A ','=0A=20',$sLine);
 148          }
 149  
 150          // finally split into softlines no longer than $maxlen chars,
 151          // for even more safeness one could encode x09,x20
 152          // at the very first character of the line
 153          // and after soft linebreaks, as well,
 154          // but this wouldn't be caught by such an easy RegExp
 155          if ($maxlen) {
 156              preg_match_all('/.{1,' . ($maxlen - 2) . '}([^=]{0,2})?/', $sLine, $aMatch);
 157              $sLine = implode('=' . MAILHEADER_EOL, $aMatch[0]); // add soft crlf's
 158          }
 159      }
 160  
 161      // join lines into text
 162      return implode(MAILHEADER_EOL, $aLines);
 163  }
 164  
 165  function mail_quotedprintable_encode_callback($matches)
 166  {
 167      return sprintf("=%02X", ord($matches[0])) ;
 168  }