Proyectos de Subversion Moodle

 * @author    Andy Prevost (codeworxtech) <codeworxtech@users.sourceforge.net>

 * @author    Andy Prevost (codeworxtech) <codeworxtech@users.sourceforge.net>

 * @author    Brent R. Matzelle (original founder)

 * @author    Brent R. Matzelle (original founder)

 * @copyright 2012 - 2020 Marcus Bointon

 * @copyright 2012 - 2020 Marcus Bointon

 * @copyright 2010 - 2012 Jim Jagielski

 * @copyright 2010 - 2012 Jim Jagielski

 * @copyright 2004 - 2009 Andy Prevost

 * @copyright 2004 - 2009 Andy Prevost

 * @note      This program is distributed in the hope that it will be useful - WITHOUT

 * @note      This program is distributed in the hope that it will be useful - WITHOUT

 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

 * FITNESS FOR A PARTICULAR PURPOSE.

 * FITNESS FOR A PARTICULAR PURPOSE.

 */

 */

    /**

    /**

     * An iCal message part body.

     * An iCal message part body.

     * Only supported in simple alt or alt_inline message types

     * Only supported in simple alt or alt_inline message types

     * To generate iCal event structures, use classes like EasyPeasyICS or iCalcreator.

     * To generate iCal event structures, use classes like EasyPeasyICS or iCalcreator.

     *

     *

     *

     *

     * @var string

     * @var string

     */

     */

    public $Ical = '';

    public $Ical = '';

     * An ID to be used in the Message-ID header.

     * An ID to be used in the Message-ID header.

     * If empty, a unique id will be generated.

     * If empty, a unique id will be generated.

     * You can set your own, but it must be in the format "<id@domain>",

     * You can set your own, but it must be in the format "<id@domain>",

     * as defined in RFC5322 section 3.6.4 or it will be ignored.

     * as defined in RFC5322 section 3.6.4 or it will be ignored.

     *

     *

     *

     *

     * @var string

     * @var string

     */

     */

    public $MessageID = '';

    public $MessageID = '';

     * @var string

     * @var string

     */

     */

    public $AuthType = '';

    public $AuthType = '';

     * SMTP SMTPXClient command attibutes

     * SMTP SMTPXClient command attributes

     *

     *

     * @var array

     * @var array

     */

     */

     * 'SUCCESS' will notify you when your mail has arrived at its destination.

     * 'SUCCESS' will notify you when your mail has arrived at its destination.

     * 'FAILURE' will arrive if an error occurred during delivery.

     * 'FAILURE' will arrive if an error occurred during delivery.

     * 'DELAY'   will notify you if there is an unusual delay in delivery, but the actual

     * 'DELAY'   will notify you if there is an unusual delay in delivery, but the actual

     *           delivery's outcome (success or failure) is not yet decided.

     *           delivery's outcome (success or failure) is not yet decided.

     *

     *

     */

     */

    public $dsn = '';

    public $dsn = '';

    /**

    /**

    /**

    /**

     * Whether to generate VERP addresses on send.

     * Whether to generate VERP addresses on send.

     * Only applicable when sending via SMTP.

     * Only applicable when sending via SMTP.

     *

     *

     * @see https://en.wikipedia.org/wiki/Variable_envelope_return_path

     * @see https://en.wikipedia.org/wiki/Variable_envelope_return_path

     *

     *

     * @var bool

     * @var bool

     */

     */

    public $do_verp = false;

    public $do_verp = false;

     * Callback Action function name.

     * Callback Action function name.

     *

     *

     * The function that handles the result of the send email action.

     * The function that handles the result of the send email action.

     * It is called out by send() for each email sent.

     * It is called out by send() for each email sent.

     *

     *

     *

     *

     * Parameters:

     * Parameters:

     *   array   $to            email addresses of the recipients

     *   array   $to            email addresses of the recipients

     *   array   $cc            cc email addresses

     *   array   $cc            cc email addresses

     *   array   $bcc           bcc email addresses

     *   array   $bcc           bcc email addresses

     *   string  $subject       the subject

     *   string  $subject       the subject

     *   string  $body          the email body

     *   string  $body          the email body

    /**

    /**

     * The PHPMailer Version number.

     * The PHPMailer Version number.

     *

     *

     * @var string

     * @var string

     */

     */

    /**

    /**

     * Error severity: message only, continue processing.

     * Error severity: message only, continue processing.

     *

     *

        if ($this->SMTPDebug <= 0) {

        if ($this->SMTPDebug <= 0) {

            return;

            return;

        }

        }

        //Is this a PSR-3 logger?

        //Is this a PSR-3 logger?

        if ($this->Debugoutput instanceof \Psr\Log\LoggerInterface) {

        if ($this->Debugoutput instanceof \Psr\Log\LoggerInterface) {

            return;

            return;

        }

        }

        //Avoid clash with built-in function names

        //Avoid clash with built-in function names

     * Add an address to one of the recipient arrays or to the ReplyTo array. Because PHPMailer

     * Add an address to one of the recipient arrays or to the ReplyTo array. Because PHPMailer

     * can't validate addresses with an IDN without knowing the PHPMailer::$CharSet (that can still

     * can't validate addresses with an IDN without knowing the PHPMailer::$CharSet (that can still

     * be modified after calling this function), addition of such addresses is delayed until send().

     * be modified after calling this function), addition of such addresses is delayed until send().

     * Addresses that have been added already return false, but do not throw exceptions.

     * Addresses that have been added already return false, but do not throw exceptions.

     *

     *

     * @param string $address The email address

     * @param string $address The email address

     * @param string $name    An optional username associated with the address

     * @param string $name    An optional username associated with the address

     *

     *

     * @throws Exception

     * @throws Exception

     *

     *

     * Parse and validate a string containing one or more RFC822-style comma-separated email addresses

     * Parse and validate a string containing one or more RFC822-style comma-separated email addresses

     * of the form "display name <address>" into an array of name/address pairs.

     * of the form "display name <address>" into an array of name/address pairs.

     * Uses the imap_rfc822_parse_adrlist function if the IMAP extension is available.

     * Uses the imap_rfc822_parse_adrlist function if the IMAP extension is available.

     * Note that quotes in the name part are removed.

     * Note that quotes in the name part are removed.

     *

     *

     *

     *

     * @param string $addrstr The address list string

     * @param string $addrstr The address list string

     * @param bool   $useimap Whether to use the IMAP extension to parse the list

     * @param bool   $useimap Whether to use the IMAP extension to parse the list

     * @param string $charset The charset to use when decoding the address list string.

     * @param string $charset The charset to use when decoding the address list string.

     *

     *

                 *  * numeric TLDs: `a@b.123`

                 *  * numeric TLDs: `a@b.123`

                 *  * unbracketed IPv4 literals: `a@192.168.0.1`

                 *  * unbracketed IPv4 literals: `a@192.168.0.1`

                 *  * IPv6 literals: 'first.last@[IPv6:a1::]'

                 *  * IPv6 literals: 'first.last@[IPv6:a1::]'

                 * Not all of these will necessarily work for sending!

                 * Not all of these will necessarily work for sending!

                 *

                 *

                 * @copyright 2009-2010 Michael Rushton

                 * @copyright 2009-2010 Michael Rushton

                 * Feel free to use and redistribute this code. But please keep this copyright notice.

                 * Feel free to use and redistribute this code. But please keep this copyright notice.

                 */

                 */

                return (bool) preg_match(

                return (bool) preg_match(

                    '/^(?!(?>(?1)"?(?>\\\[ -~]|[^"])"?(?1)){255,})(?!(?>(?1)"?(?>\\\[ -~]|[^"])"?(?1)){65,}@)' .

                    '/^(?!(?>(?1)"?(?>\\\[ -~]|[^"])"?(?1)){255,})(?!(?>(?1)"?(?>\\\[ -~]|[^"])"?(?1)){65,}@)' .

        }

        }

        $header = static::stripTrailingWSP($header) . static::$LE . static::$LE;

        $header = static::stripTrailingWSP($header) . static::$LE . static::$LE;

        //This sets the SMTP envelope sender which gets turned into a return-path header by the receiver

        //This sets the SMTP envelope sender which gets turned into a return-path header by the receiver

        //A space after `-f` is optional, but there is a long history of its presence

        //A space after `-f` is optional, but there is a long history of its presence

        //causing problems, so we don't use one

        //causing problems, so we don't use one

        //Example problem: https://www.drupal.org/node/1057954

        //Example problem: https://www.drupal.org/node/1057954

        //PHP 5.6 workaround

        //PHP 5.6 workaround

        $sendmail_from_value = ini_get('sendmail_from');

        $sendmail_from_value = ini_get('sendmail_from');

     *

     *

     * @return bool

     * @return bool

     */

     */

    protected static function isPermittedPath($path)

    protected static function isPermittedPath($path)

    {

    {

        return !preg_match('#^[a-z][a-z\d+.-]*://#i', $path);

        return !preg_match('#^[a-z][a-z\d+.-]*://#i', $path);

    }

    }

    /**

    /**

    }

    }

    /**

    /**

     * Send mail using the PHP mail() function.

     * Send mail using the PHP mail() function.

     * @see http://www.php.net/manual/en/book.mail.php

     * @see https://www.php.net/manual/en/book.mail.php

     *

     *

     * @param string $header The message headers

     * @param string $header The message headers

     * @param string $body   The message body

     * @param string $body   The message body

     *

     *

        $params = null;

        $params = null;

        //This sets the SMTP envelope sender which gets turned into a return-path header by the receiver

        //This sets the SMTP envelope sender which gets turned into a return-path header by the receiver

        //A space after `-f` is optional, but there is a long history of its presence

        //A space after `-f` is optional, but there is a long history of its presence

        //Qmail docs: http://www.qmail.org/man/man8/qmail-inject.html

        //Sendmail docs: https://www.sendmail.org/~ca/email/man/sendmail.html

        //Example problem: https://www.drupal.org/node/1057954

        //Example problem: https://www.drupal.org/node/1057954

        //CVE-2016-10033, CVE-2016-10045: Don't pass -f if characters will be escaped.

        //CVE-2016-10033, CVE-2016-10045: Don't pass -f if characters will be escaped.

        if ('mail' !== $this->Mailer) {

        if ('mail' !== $this->Mailer) {

            $result .= $this->headerLine('Subject', $this->encodeHeader($this->secureHeader($this->Subject)));

            $result .= $this->headerLine('Subject', $this->encodeHeader($this->secureHeader($this->Subject)));

        }

        }

        //https://tools.ietf.org/html/rfc5322#section-3.6.4

        //https://www.rfc-editor.org/rfc/rfc5322#section-3.6.4

        if (

        if (

            '' !== $this->MessageID &&

            '' !== $this->MessageID &&

            preg_match(

            preg_match(

                '/^<((([a-z\d!#$%&\'*+\/=?^_`{|}~-]+(\.[a-z\d!#$%&\'*+\/=?^_`{|}~-]+)*)' .

                '/^<((([a-z\d!#$%&\'*+\/=?^_`{|}~-]+(\.[a-z\d!#$%&\'*+\/=?^_`{|}~-]+)*)' .

    /**

    /**

     * Encode and wrap long multibyte strings for mail headers

     * Encode and wrap long multibyte strings for mail headers

     * without breaking lines within a character.

     * without breaking lines within a character.

     * Adapted from a function by paravoid.

     * Adapted from a function by paravoid.

     *

     *

     *

     *

     * @param string $str       multi-byte text to wrap encode

     * @param string $str       multi-byte text to wrap encode

     * @param string $linebreak string to use as linefeed/end-of-line

     * @param string $linebreak string to use as linefeed/end-of-line

     *

     *

     * @return string

     * @return string

    }

    }

    /**

    /**

     * Encode a string using Q encoding.

     * Encode a string using Q encoding.

     * @see http://tools.ietf.org/html/rfc2047#section-4.2

     * @see https://www.rfc-editor.org/rfc/rfc2047#section-4.2

     *

     *

     * @param string $str      the text to encode

     * @param string $str      the text to encode

     * @param string $position Where the text is going to be used, see the RFC for what that means

     * @param string $position Where the text is going to be used, see the RFC for what that means

     *

     *

            $result = $this->Hostname;

            $result = $this->Hostname;

        } elseif (isset($_SERVER) && array_key_exists('SERVER_NAME', $_SERVER)) {

        } elseif (isset($_SERVER) && array_key_exists('SERVER_NAME', $_SERVER)) {

            $result = $_SERVER['SERVER_NAME'];

            $result = $_SERVER['SERVER_NAME'];

        } elseif (function_exists('gethostname') && gethostname() !== false) {

        } elseif (function_exists('gethostname') && gethostname() !== false) {

            $result = gethostname();

            $result = gethostname();

            $result = php_uname('n');

            $result = php_uname('n');

        }

        }

        if (!static::isValidHost($result)) {

        if (!static::isValidHost($result)) {

            return 'localhost.localdomain';

            return 'localhost.localdomain';

        }

        }

        //Simple syntax limits

        //Simple syntax limits

        if (

        if (

            empty($host)

            empty($host)

            || !is_string($host)

            || !is_string($host)

            || strlen($host) > 256

            || strlen($host) > 256

        ) {

        ) {

            return false;

            return false;

        }

        }

        //Looks like a bracketed IPv6 address

        //Looks like a bracketed IPv6 address

        if (strlen($host) > 2 && substr($host, 0, 1) === '[' && substr($host, -1, 1) === ']') {

        if (strlen($host) > 2 && substr($host, 0, 1) === '[' && substr($host, -1, 1) === ']') {

        //Need to check this first because otherwise things like `999.0.0.0` are considered valid host names

        //Need to check this first because otherwise things like `999.0.0.0` are considered valid host names

        if (is_numeric(str_replace('.', '', $host))) {

        if (is_numeric(str_replace('.', '', $host))) {

            //Is it a valid IPv4 address?

            //Is it a valid IPv4 address?

            return filter_var($host, FILTER_VALIDATE_IP, FILTER_FLAG_IPV4) !== false;

            return filter_var($host, FILTER_VALIDATE_IP, FILTER_FLAG_IPV4) !== false;

        }

        }

    }

    }

    /**

    /**

     * Get an error message in the current language.

     * Get an error message in the current language.

    /**

    /**

     * Multi-byte-safe pathinfo replacement.

     * Multi-byte-safe pathinfo replacement.

     * Drop-in replacement for pathinfo(), but multibyte- and cross-platform-safe.

     * Drop-in replacement for pathinfo(), but multibyte- and cross-platform-safe.

     * @see http://www.php.net/manual/en/function.pathinfo.php#107461

     * @see https://www.php.net/manual/en/function.pathinfo.php#107461

     *

     *

     * @param string     $path    A filename or path, does not need to exist as a file

     * @param string     $path    A filename or path, does not need to exist as a file

     * @param int|string $options Either a PATHINFO_* constant,

     * @param int|string $options Either a PATHINFO_* constant,

     *                            or a string name to return only the specified piece

     *                            or a string name to return only the specified piece

    /**

    /**

     * Generate a DKIM canonicalization header.

     * Generate a DKIM canonicalization header.

     * Uses the 'relaxed' algorithm from RFC6376 section 3.4.2.

     * Uses the 'relaxed' algorithm from RFC6376 section 3.4.2.

     * Canonicalized headers should *always* use CRLF, regardless of mailer setting.

     * Canonicalized headers should *always* use CRLF, regardless of mailer setting.

     *

     *

     *

     *

     * @param string $signHeader Header

     * @param string $signHeader Header

     *

     *

     * @return string

     * @return string

     */

     */

    {

    {

        //Normalize breaks to CRLF (regardless of the mailer)

        //Normalize breaks to CRLF (regardless of the mailer)

        $signHeader = static::normalizeBreaks($signHeader, self::CRLF);

        $signHeader = static::normalizeBreaks($signHeader, self::CRLF);

        //Unfold header lines

        //Unfold header lines

        //Note PCRE \s is too broad a definition of whitespace; RFC5322 defines it as `[ \t]`

        //Note PCRE \s is too broad a definition of whitespace; RFC5322 defines it as `[ \t]`

        //That means this may break if you do something daft like put vertical tabs in your headers.

        //That means this may break if you do something daft like put vertical tabs in your headers.

        $signHeader = preg_replace('/\r\n[ \t]+/', ' ', $signHeader);

        $signHeader = preg_replace('/\r\n[ \t]+/', ' ', $signHeader);

        //Break headers out into an array

        //Break headers out into an array

        $lines = explode(self::CRLF, $signHeader);

        $lines = explode(self::CRLF, $signHeader);

        foreach ($lines as $key => $line) {

        foreach ($lines as $key => $line) {

    /**

    /**

     * Generate a DKIM canonicalization body.

     * Generate a DKIM canonicalization body.

     * Uses the 'simple' algorithm from RFC6376 section 3.4.3.

     * Uses the 'simple' algorithm from RFC6376 section 3.4.3.

     * Canonicalized bodies should *always* use CRLF, regardless of mailer setting.

     * Canonicalized bodies should *always* use CRLF, regardless of mailer setting.

     *

     *

     *

     *

     * @param string $body Message Body

     * @param string $body Message Body

     *

     *

     * @return string

     * @return string

     */

     */

        $DKIMsignatureType = 'rsa-sha256'; //Signature & hash algorithms

        $DKIMsignatureType = 'rsa-sha256'; //Signature & hash algorithms

        $DKIMcanonicalization = 'relaxed/simple'; //Canonicalization methods of header & body

        $DKIMcanonicalization = 'relaxed/simple'; //Canonicalization methods of header & body

        $DKIMquery = 'dns/txt'; //Query method

        $DKIMquery = 'dns/txt'; //Query method

        $DKIMtime = time();

        $DKIMtime = time();

        //Always sign these headers without being asked

        //Always sign these headers without being asked

        $autoSignHeaders = [

        $autoSignHeaders = [

            'from',

            'from',

            'to',

            'to',

            'cc',

            'cc',

            'date',

            'date',

        if ('' !== $this->DKIM_identity) {

        if ('' !== $this->DKIM_identity) {

            $ident = ' i=' . $this->DKIM_identity . ';' . static::$LE;

            $ident = ' i=' . $this->DKIM_identity . ';' . static::$LE;

        }

        }

        //The DKIM-Signature header is included in the signature *except for* the value of the `b` tag

        //The DKIM-Signature header is included in the signature *except for* the value of the `b` tag

        //which is appended after calculating the signature

        //which is appended after calculating the signature

        $dkimSignatureHeader = 'DKIM-Signature: v=1;' .

        $dkimSignatureHeader = 'DKIM-Signature: v=1;' .

            ' d=' . $this->DKIM_domain . ';' .

            ' d=' . $this->DKIM_domain . ';' .

            ' s=' . $this->DKIM_selector . ';' . static::$LE .

            ' s=' . $this->DKIM_selector . ';' . static::$LE .

            ' a=' . $DKIMsignatureType . ';' .

            ' a=' . $DKIMsignatureType . ';' .

            ' q=' . $DKIMquery . ';' .

            ' q=' . $DKIMquery . ';' .