<h2>Edit File - Sieve.php</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/opt/alt/php71/usr/share/pear/Net/Sieve.php">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">&lt;?php
/**
 * This file contains the Net_Sieve class.
 *
 * +-----------------------------------------------------------------------+
 * | All rights reserved.                                                  |
 * |                                                                       |
 * | Redistribution and use in source and binary forms, with or without    |
 * | modification, are permitted provided that the following conditions    |
 * | are met:                                                              |
 * |                                                                       |
 * | o Redistributions of source code must retain the above copyright      |
 * |   notice, this list of conditions and the following disclaimer.       |
 * | o Redistributions in binary form must reproduce the above copyright   |
 * |   notice, this list of conditions and the following disclaimer in the |
 * |   documentation and/or other materials provided with the distribution.|
 * |                                                                       |
 * | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS   |
 * | &quot;AS IS&quot; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT     |
 * | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR |
 * | A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT  |
 * | OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
 * | SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT      |
 * | LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
 * | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
 * | THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT   |
 * | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE |
 * | OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.  |
 * +-----------------------------------------------------------------------+
 *
 * @category  Networking
 * @package   Net_Sieve
 * @author    Richard Heyes &lt;richard@phpguru.org&gt;
 * @author    Damian Fernandez Sosa &lt;damlists@cnba.uba.ar&gt;
 * @author    Anish Mistry &lt;amistry@am-productions.biz&gt;
 * @author    Jan Schneider &lt;jan@horde.org&gt;
 * @copyright 2002-2003 Richard Heyes
 * @copyright 2006-2008 Anish Mistry
 * @license   https://www.opensource.org/licenses/bsd-license.php BSD
 * @link      https://pear.php.net/package/Net_Sieve
 */

require_once &#039;PEAR.php&#039;;
require_once &#039;Net/Socket.php&#039;;

/**
 * Disconnected state
 *
 * @const NET_SIEVE_STATE_DISCONNECTED
 */
define(&#039;NET_SIEVE_STATE_DISCONNECTED&#039;, 1);

/**
 * Authorisation state
 *
 * @const NET_SIEVE_STATE_AUTHORISATION
 */
define(&#039;NET_SIEVE_STATE_AUTHORISATION&#039;, 2);

/**
 * Transaction state
 *
 * @const NET_SIEVE_STATE_TRANSACTION
 */
define(&#039;NET_SIEVE_STATE_TRANSACTION&#039;, 3);


/**
 * A class for talking to the timsieved server which comes with Cyrus IMAP.
 *
 * @category  Networking
 * @package   Net_Sieve
 * @author    Richard Heyes &lt;richard@phpguru.org&gt;
 * @author    Damian Fernandez Sosa &lt;damlists@cnba.uba.ar&gt;
 * @author    Anish Mistry &lt;amistry@am-productions.biz&gt;
 * @author    Jan Schneider &lt;jan@horde.org&gt;
 * @author    Neil Munday &lt;neil@mundayweb.com&gt;
 * @copyright 2002-2003 Richard Heyes
 * @copyright 2006-2008 Anish Mistry
 * @license   http://www.opensource.org/licenses/bsd-license.php BSD
 * @version   Release: 1.4.7
 * @link      http://pear.php.net/package/Net_Sieve
 * @link      http://tools.ietf.org/html/rfc5228 RFC 5228 (Sieve: An Email
 *            Filtering Language)
 * @link      http://tools.ietf.org/html/rfc5804 RFC 5804 A Protocol for
 *            Remotely Managing Sieve Scripts
 */
class Net_Sieve
{
    /**
     * The authentication methods this class supports.
     *
     * Can be overwritten if having problems with certain methods.
     *
     * @var array
     */
    var $supportedAuthMethods = [
        &#039;DIGEST-MD5&#039;,
        &#039;CRAM-MD5&#039;,
        &#039;EXTERNAL&#039;,
        &#039;PLAIN&#039; ,
        &#039;LOGIN&#039;,
        &#039;GSSAPI&#039;,
        &#039;XOAUTH2&#039;,
        &#039;OAUTHBEARER&#039;
    ];

    /**
     * SASL authentication methods that require Auth_SASL.
     *
     * @var array
     */
    var $supportedSASLAuthMethods = [&#039;DIGEST-MD5&#039;, &#039;CRAM-MD5&#039;];

    /**
     * The socket handle.
     *
     * @var resource
     */
    var $_sock;

    /**
     * Parameters and connection information.
     *
     * @var array
     */
    var $_data;

    /**
     * Server capabilities.
     *
     * @var array
     */
    var $_capability = [];

    /**
     * Current state of the connection.
     *
     * One of the NET_SIEVE_STATE_* constants.
     *
     * @var int
     */
    var $_state;

    /**
     * PEAR object to avoid strict warnings.
     *
     * @var PEAR_Error
     */
    var $_pear;

    /**
     * Constructor error.
     *
     * @var PEAR_Error
     */
    var $_error;

    /**
     * Whether to enable debugging.
     *
     * @var bool
     */
    var $_debug = false;

    /**
     * Debug output handler.
     *
     * This has to be a valid callback.
     *
     * @var string|array
     */
    var $_debug_handler = null;

    /**
     * Whether to pick up an already established connection.
     *
     * @var bool
     */
    var $_bypassAuth = false;

    /**
     * Whether to use TLS if available.
     *
     * @var bool
     */
    var $_useTLS = true;

    /**
     * Additional options for stream_context_create().
     *
     * @var array
     */
    var $_options = null;

    /**
     * Maximum number of referral loops
     *
     * @var array
     */
    var $_maxReferralCount = 15;

    /**
     * Kerberos service principal to use for GSSAPI authentication.
     *
     * @var string
     */
    var $_gssapiPrincipal = null;

    /**
     * Kerberos service cname to use for GSSAPI authentication.
     *
     * @var string
     */
    var $_gssapiCN = null;

    /**
     * Constructor.
     *
     * Sets up the object, connects to the server and logs in. Stores any
     * generated error in $this-&gt;_error, which can be retrieved using the
     * getError() method.
     *
     * @param string  $user       Login username.
     * @param string  $pass       Login password.
     * @param string  $host       Hostname of server.
     * @param string  $port       Port of server.
     * @param string  $logintype  Type of login to perform (see
     *                            $supportedAuthMethods), use `OAUTH` and lib
     *                            will choose between OAUTHBEARER or XOAUTH2
     *                            according the server&#039;s capabilities.
     * @param string  $euser      Effective user. If authenticating as an
     *                            administrator, login as this user.
     * @param bool    $debug      Whether to enable debugging (@see setDebug()).
     * @param string  $bypassAuth Skip the authentication phase. Useful if the
     *                            socket is already open.
     * @param bool    $useTLS     Use TLS if available.
     * @param array   $options    Additional options for
     *                            stream_context_create().
     * @param mixed   $handler    A callback handler for the debug output.
     * @param string  $principal  Kerberos service principal to use
     *                            with GSSAPI authentication.
     * @param string  $cname      Kerberos service cname to use
     *                            with GSSAPI authentication.
     */
    function __construct($user = null, $pass  = null, $host = &#039;localhost&#039;,
        $port = 2000, $logintype = &#039;&#039;, $euser = &#039;&#039;,
        $debug = false, $bypassAuth = false, $useTLS = true,
        $options = null, $handler = null, $principal = null, $cname = null
    ) {
        $this-&gt;_pear = new PEAR();
        $this-&gt;_state             = NET_SIEVE_STATE_DISCONNECTED;
        $this-&gt;_data[&#039;user&#039;]      = $user;
        $this-&gt;_data[&#039;pass&#039;]      = $pass;
        $this-&gt;_data[&#039;host&#039;]      = $host;
        $this-&gt;_data[&#039;port&#039;]      = $port;
        $this-&gt;_data[&#039;logintype&#039;] = $logintype;
        $this-&gt;_data[&#039;euser&#039;]     = $euser;
        $this-&gt;_sock              = new Net_Socket();
        $this-&gt;_bypassAuth        = $bypassAuth;
        $this-&gt;_useTLS            = $useTLS;
        $this-&gt;_options           = (array) $options;
        $this-&gt;_gssapiPrincipal   = $principal;
        $this-&gt;_gssapiCN          = $cname;

        $this-&gt;setDebug($debug, $handler);

        /* Try to include the Auth_SASL package.  If the package is not
         * available, we disable the authentication methods that depend upon
         * it. */
        if ((@include_once &#039;Auth/SASL.php&#039;) === false) {
            $this-&gt;_debug(&#039;Auth_SASL not present&#039;);
            $this-&gt;supportedAuthMethods = array_diff(
                $this-&gt;supportedAuthMethods,
                $this-&gt;supportedSASLAuthMethods
            );
        }

        if (is_string($user) &amp;&amp; strlen($user) &amp;&amp; strlen($pass)) {
            $this-&gt;_error = $this-&gt;_handleConnectAndLogin();
        }
    }

    /**
     * Returns any error that may have been generated in the constructor.
     *
     * @return bool|PEAR_Error False if no error, PEAR_Error otherwise.
     */
    function getError()
    {
        return is_a($this-&gt;_error, &#039;PEAR_Error&#039;) ? $this-&gt;_error : false;
    }

    /**
     * Sets the debug state and handler function.
     *
     * @param bool   $debug   Whether to enable debugging.
     * @param string $handler A custom debug handler. Must be a valid callback.
     *
     * @return void
     */
    function setDebug($debug = true, $handler = null)
    {
        $this-&gt;_debug = $debug;
        $this-&gt;_debug_handler = $handler;
    }

    /**
     * Sets the Kerberos service principal for use with GSSAPI
     * authentication.
     *
     * @param string $principal The Kerberos service principal
     *
     * @return void
     */
    function setServicePrincipal($principal)
    {
        $this-&gt;_gssapiPrincipal = $principal;
    }

    /**
     * Sets the Kerberos service CName for use with GSSAPI
     * authentication.
     *
     * @param string $cname The Kerberos service principal
     *
     * @return void
     */
    function setServiceCN($cname)
    {
        $this-&gt;_gssapiCN = $cname;
    }

    /**
     * Connects to the server and logs in.
     *
     * @return bool|PEAR_Error True on success, PEAR_Error on failure.
     */
    function _handleConnectAndLogin()
    {
        $res = $this-&gt;connect($this-&gt;_data[&#039;host&#039;], $this-&gt;_data[&#039;port&#039;], $this-&gt;_options, $this-&gt;_useTLS);
        if (is_a($res, &#039;PEAR_Error&#039;)) {
            return $res;
        }

        if ($this-&gt;_bypassAuth === false) {
            $res = $this-&gt;login($this-&gt;_data[&#039;user&#039;], $this-&gt;_data[&#039;pass&#039;], $this-&gt;_data[&#039;logintype&#039;], $this-&gt;_data[&#039;euser&#039;], $this-&gt;_bypassAuth);
            if (is_a($res, &#039;PEAR_Error&#039;)) {
                return $res;
            }
        }

        return true;
    }

    /**
     * Handles connecting to the server and checks the response validity.
     *
     * @param string  $host    Hostname of server.
     * @param string  $port    Port of server.
     * @param array   $options List of options to pass to
     *                         stream_context_create().
     * @param bool    $useTLS  Use TLS if available.
     *
     * @return bool|PEAR_Error True on success, PEAR_Error otherwise.
     */
    function connect($host, $port, $options = null, $useTLS = true)
    {
        $this-&gt;_data[&#039;host&#039;] = $host;
        $this-&gt;_data[&#039;port&#039;] = $port;
        $this-&gt;_useTLS       = $useTLS;

        if (is_array($options)) {
            $this-&gt;_options = array_merge($this-&gt;_options, $options);
        }

        if (NET_SIEVE_STATE_DISCONNECTED != $this-&gt;_state) {
            return $this-&gt;_pear-&gt;raiseError(&#039;Not currently in DISCONNECTED state&#039;, 1);
        }

        $res = $this-&gt;_sock-&gt;connect($host, $port, false, 5, $options);
        if (is_a($res, &#039;PEAR_Error&#039;)) {
            return $res;
        }

        if ($this-&gt;_bypassAuth) {
            $this-&gt;_state = NET_SIEVE_STATE_TRANSACTION;

            // Reset capabilities
            $this-&gt;_parseCapability(&#039;&#039;);
        } else {
            $this-&gt;_state = NET_SIEVE_STATE_AUTHORISATION;

            $res = $this-&gt;_doCmd();
            if (is_a($res, &#039;PEAR_Error&#039;)) {
                return $res;
            }

            // Reset capabilities (use unattended capabilities)
            $this-&gt;_parseCapability($res);
        }

        // Explicitly ask for the capabilities if needed
        if (empty($this-&gt;_capability[&#039;implementation&#039;])) {
            $res = $this-&gt;_cmdCapability();
            if (is_a($res, &#039;PEAR_Error&#039;)) {
                return $this-&gt;_pear-&gt;raiseError(
                    &#039;Failed to connect, server said: &#039; . $res-&gt;getMessage(), 2
                );
            }
        }

        // Check if we can enable TLS via STARTTLS.
        if ($useTLS &amp;&amp; !empty($this-&gt;_capability[&#039;starttls&#039;])
            &amp;&amp; function_exists(&#039;stream_socket_enable_crypto&#039;)
        ) {
            $res = $this-&gt;_startTLS();
            if (is_a($res, &#039;PEAR_Error&#039;)) {
                return $res;
            }
        }

        return true;
    }

    /**
     * Disconnect from the Sieve server.
     *
     * @param bool $sendLogoutCMD Whether to send LOGOUT command before
     *                            disconnecting.
     *
     * @return bool|PEAR_Error True on success, PEAR_Error otherwise.
     */
    function disconnect($sendLogoutCMD = true)
    {
        return $this-&gt;_cmdLogout($sendLogoutCMD);
    }

    /**
     * Logs into server.
     *
     * @param string  $user       Login username.
     * @param string  $pass       Login password.
     * @param string  $logintype  Type of login method to use.
     * @param string  $euser      Effective UID (perform on behalf of $euser).
     * @param bool    $bypassAuth Do not perform authentication.
     *
     * @return bool|PEAR_Error True on success, PEAR_Error otherwise.
     */
    function login($user, $pass, $logintype = null, $euser = &#039;&#039;, $bypassAuth = false)
    {
        $this-&gt;_data[&#039;user&#039;]      = $user;
        $this-&gt;_data[&#039;pass&#039;]      = $pass;
        $this-&gt;_data[&#039;logintype&#039;] = $logintype;
        $this-&gt;_data[&#039;euser&#039;]     = $euser;
        $this-&gt;_bypassAuth        = $bypassAuth;

        if (NET_SIEVE_STATE_AUTHORISATION != $this-&gt;_state) {
            return $this-&gt;_pear-&gt;raiseError(&#039;Not currently in AUTHORISATION state&#039;, 1);
        }

        if (!$bypassAuth) {
            $res = $this-&gt;_cmdAuthenticate($user, $pass, $logintype, $euser);
            if (is_a($res, &#039;PEAR_Error&#039;)) {
                return $res;
            }
        }

        $this-&gt;_state = NET_SIEVE_STATE_TRANSACTION;

        return true;
    }

    /**
     * Returns an indexed array of scripts currently on the server.
     *
     * @param string $active Will be set to the name of the active script
     *
     * @return array|PEAR_Error Indexed array of scriptnames, PEAR_Error on failure
     */
    function listScripts(&amp;$active = null)
    {
        if (is_array($scripts = $this-&gt;_cmdListScripts())) {
            if (isset($scripts[1])) {
                $active = $scripts[1];
            }

            return $scripts[0];
        }

        return $scripts;
    }

    /**
     * Returns the active script.
     *
     * @return string|null The active scriptname.
     */
    function getActive()
    {
        if (is_array($scripts = $this-&gt;_cmdListScripts())) {
            return $scripts[1];
        }
    }

    /**
     * Sets the active script.
     *
     * @param string $scriptname The name of the script to be set as active.
     *
     * @return bool|PEAR_Error True on success, PEAR_Error on failure.
     */
    function setActive($scriptname)
    {
        return $this-&gt;_cmdSetActive($scriptname);
    }

    /**
     * Retrieves a script.
     *
     * @param string $scriptname The name of the script to be retrieved.
     *
     * @return string|PEAR_Error The script on success, PEAR_Error on failure.
     */
    function getScript($scriptname)
    {
        return $this-&gt;_cmdGetScript($scriptname);
    }

    /**
     * Adds a script to the server.
     *
     * @param string  $scriptname Name of the script.
     * @param string  $script     The script content.
     * @param bool    $makeactive Whether to make this the active script.
     *
     * @return bool|PEAR_Error True on success, PEAR_Error on failure.
     */
    function installScript($scriptname, $script, $makeactive = false)
    {
        $res = $this-&gt;_cmdPutScript($scriptname, $script);
        if (is_a($res, &#039;PEAR_Error&#039;)) {
            return $res;
        }

        if ($makeactive) {
            return $this-&gt;_cmdSetActive($scriptname);
        }

        return true;
    }

    /**
     * Removes a script from the server.
     *
     * @param string $scriptname Name of the script.
     *
     * @return bool|PEAR_Error True on success, PEAR_Error on failure.
     */
    function removeScript($scriptname)
    {
        return $this-&gt;_cmdDeleteScript($scriptname);
    }

    /**
     * Checks if the server has space to store the script by the server.
     *
     * @param string $scriptname The name of the script to mark as active.
     * @param int    $size       The size of the script.
     *
     * @return bool|PEAR_Error True if there is space, PEAR_Error otherwise.
     *
     * @todo Rename to hasSpace()
     */
    function haveSpace($scriptname, $size)
    {
        if (NET_SIEVE_STATE_TRANSACTION != $this-&gt;_state) {
            return $this-&gt;_pear-&gt;raiseError(&#039;Not currently in TRANSACTION state&#039;, 1);
        }

        $res = $this-&gt;_doCmd(sprintf(&#039;HAVESPACE %s %d&#039;, $this-&gt;_escape($scriptname), $size));
        if (is_a($res, &#039;PEAR_Error&#039;)) {
            return $res;
        }

        return true;
    }

    /**
     * Returns the list of extensions the server supports.
     *
     * @return array|PEAR_Error List of extensions or PEAR_Error on failure.
     */
    function getExtensions()
    {
        if (NET_SIEVE_STATE_DISCONNECTED == $this-&gt;_state) {
            return $this-&gt;_pear-&gt;raiseError(&#039;Not currently connected&#039;, 7);
        }

        return $this-&gt;_capability[&#039;extensions&#039;];
    }

    /**
     * Returns whether the server supports an extension.
     *
     * @param string $extension The extension to check.
     *
     * @return bool|PEAR_Error Whether the extension is supported or PEAR_Error on failure.
     */
    function hasExtension($extension)
    {
        if (NET_SIEVE_STATE_DISCONNECTED == $this-&gt;_state) {
            return $this-&gt;_pear-&gt;raiseError(&#039;Not currently connected&#039;, 7);
        }

        $extension = trim($this-&gt;_toUpper($extension));
        if (is_array($this-&gt;_capability[&#039;extensions&#039;])) {
            foreach ($this-&gt;_capability[&#039;extensions&#039;] as $ext) {
                if ($ext == $extension) {
                    return true;
                }
            }
        }

        return false;
    }

    /**
     * Returns the list of authentication methods the server supports.
     *
     * @return array|PEAR_Error List of authentication methods or PEAR_Error on failure.
     */
    function getAuthMechs()
    {
        if (NET_SIEVE_STATE_DISCONNECTED == $this-&gt;_state) {
            return $this-&gt;_pear-&gt;raiseError(&#039;Not currently connected&#039;, 7);
        }

        return $this-&gt;_capability[&#039;sasl&#039;];
    }

    /**
     * Returns whether the server supports an authentication method.
     *
     * @param string $method The method to check.
     *
     * @return bool|PEAR_Error Whether the method is supported or PEAR_Error on failure.
     */
    function hasAuthMech($method)
    {
        if (NET_SIEVE_STATE_DISCONNECTED == $this-&gt;_state) {
            return $this-&gt;_pear-&gt;raiseError(&#039;Not currently connected&#039;, 7);
        }

        $method = trim($this-&gt;_toUpper($method));

        if (is_array($this-&gt;_capability[&#039;sasl&#039;])) {
            foreach ($this-&gt;_capability[&#039;sasl&#039;] as $sasl) {
                if ($sasl == $method) {
                    return true;
                }
            }
        }

        return false;
    }

    /**
     * Handles the authentication using any known method.
     *
     * @param string $uid        The userid to authenticate as.
     * @param string $pwd        The password to authenticate with.
     * @param string $userMethod The method to use. If empty, the class chooses
     *                           the best (strongest) available method.
     * @param string $euser      The effective uid to authenticate as.
     *
     * @return void
     */
    function _cmdAuthenticate($uid, $pwd, $userMethod = null, $euser = &#039;&#039;)
    {
        $method = $this-&gt;_getBestAuthMethod($userMethod);
        if (is_a($method, &#039;PEAR_Error&#039;)) {
            return $method;
        }

        switch ($method) {
        case &#039;DIGEST-MD5&#039;:
            return $this-&gt;_authDigestMD5($uid, $pwd, $euser);
        case &#039;CRAM-MD5&#039;:
            $result = $this-&gt;_authCRAMMD5($uid, $pwd, $euser);
            break;
        case &#039;LOGIN&#039;:
            $result = $this-&gt;_authLOGIN($uid, $pwd, $euser);
            break;
        case &#039;PLAIN&#039;:
            $result = $this-&gt;_authPLAIN($uid, $pwd, $euser);
            break;
        case &#039;EXTERNAL&#039;:
            $result = $this-&gt;_authEXTERNAL($uid, $pwd, $euser);
            break;
        case &#039;GSSAPI&#039;:
            $result = $this-&gt;_authGSSAPI($pwd);
            break;
        case &#039;XOAUTH2&#039;:
            $result = $this-&gt;_authXOAUTH2($uid, $pwd, $euser);
            break;
        case &#039;OAUTHBEARER&#039;:
            $result = $this-&gt;_authOAUTHBEARER($uid, $pwd, $euser);
            break;
        default :
            $result = $this-&gt;_pear-&gt;raiseError(
                $method . &#039; is not a supported authentication method&#039;
            );
            break;
        }

        $res = $this-&gt;_doCmd();
        if (is_a($res, &#039;PEAR_Error&#039;)) {
            return $res;
        }

        if ($this-&gt;_pear-&gt;isError($res = $this-&gt;_cmdCapability())) {
            return $this-&gt;_pear-&gt;raiseError(
                &#039;Failed to connect, server said: &#039; . $res-&gt;getMessage(), 2
            );
        }

        return $result;
    }

    /**
     * Authenticates the user using the PLAIN method.
     *
     * @param string $user  The userid to authenticate as.
     * @param string $pass  The password to authenticate with.
     * @param string $euser The effective uid to authenticate as.
     *
     * @return void
     */
    function _authPLAIN($user, $pass, $euser)
    {
        return $this-&gt;_sendCmd(
            sprintf(
                &#039;AUTHENTICATE &quot;PLAIN&quot; &quot;%s&quot;&#039;,
                base64_encode($euser . chr(0) . $user . chr(0) . $pass)
            )
        );
    }

    /**
     * Authenticates the user using the GSSAPI method.
     *
     * @note the PHP krb5 extension is required and the service principal and cname
     *       must have been set.
     * @see  setServicePrincipal()
     *
     * @return void
     */
    function _authGSSAPI()
    {
        if (!extension_loaded(&#039;krb5&#039;)) {
            return $this-&gt;_pear-&gt;raiseError(&#039;The krb5 extension is required for GSSAPI authentication&#039;, 2);
        }

        if (!$this-&gt;_gssapiPrincipal) {
            return $this-&gt;_pear-&gt;raiseError(&#039;No Kerberos service principal set&#039;, 2);
        }

        if (!empty($this-&gt;_gssapiCN)) {
            putenv(&#039;KRB5CCNAME=&#039; . $this-&gt;_gssapiCN);
        }

        try {
            $ccache = new KRB5CCache();
            if (!empty($this-&gt;_gssapiCN)) {
                $ccache-&gt;open($this-&gt;_gssapiCN);
            }

            $gssapicontext = new GSSAPIContext();
            $gssapicontext-&gt;acquireCredentials($ccache);

            $token   = &#039;&#039;;
            $success = $gssapicontext-&gt;initSecContext($this-&gt;_gssapiPrincipal, null, null, null, $token);
            $token   = base64_encode($token);
        }
        catch (Exception $e) {
            return $this-&gt;_pear-&gt;raiseError(&#039;GSSAPI authentication failed: &#039; . $e-&gt;getMessage());
        }

        $this-&gt;_sendCmd(&quot;AUTHENTICATE \&quot;GSSAPI\&quot; {&quot; . strlen($token) . &quot;+}&quot;);

        $response = $this-&gt;_doCmd($token, true);

        try {
            $challenge = base64_decode(substr($response, 1, -1));
            $gssapicontext-&gt;unwrap($challenge, $challenge);
            $gssapicontext-&gt;wrap($challenge, $challenge, true);
        }
        catch (Exception $e) {
            return $this-&gt;_pear-&gt;raiseError(&#039;GSSAPI authentication failed: &#039; . $e-&gt;getMessage());
        }

        $response = base64_encode($challenge);

        $this-&gt;_sendCmd(&quot;{&quot; . strlen($response) . &quot;+}&quot;);

        return $this-&gt;_sendCmd($response);
    }

    /**
     * Authenticates the user using the LOGIN method.
     *
     * @param string $user  The userid to authenticate as.
     * @param string $pass  The password to authenticate with.
     * @param string $euser The effective uid to authenticate as. Not used.
     *
     * @return void
     */
    function _authLOGIN($user, $pass, $euser)
    {
        $result = $this-&gt;_sendCmd(&#039;AUTHENTICATE &quot;LOGIN&quot;&#039;);
        if (is_a($result, &#039;PEAR_Error&#039;)) {
            return $result;
        }

        $result = $this-&gt;_doCmd(&#039;&quot;&#039; . base64_encode($user) . &#039;&quot;&#039;, true);
        if (is_a($result, &#039;PEAR_Error&#039;)) {
            return $result;
        }

        return $this-&gt;_doCmd(&#039;&quot;&#039; . base64_encode($pass) . &#039;&quot;&#039;, true);
    }

    /**
     * Authenticates the user using the CRAM-MD5 method.
     *
     * @param string $user  The userid to authenticate as.
     * @param string $pass  The password to authenticate with.
     * @param string $euser The effective uid to authenticate as. Not used.
     *
     * @return void
     */
    function _authCRAMMD5($user, $pass, $euser)
    {
        $challenge = $this-&gt;_doCmd(&#039;AUTHENTICATE &quot;CRAM-MD5&quot;&#039;, true);
        if (is_a($challenge, &#039;PEAR_Error&#039;)) {
            return $challenge;
        }

        $auth_sasl = new Auth_SASL;
        $cram      = $auth_sasl-&gt;factory(&#039;crammd5&#039;);
        $challenge = base64_decode(trim($challenge));
        $response  = $cram-&gt;getResponse($user, $pass, $challenge);

        if (is_a($response, &#039;PEAR_Error&#039;)) {
            return $response;
        }

        return $this-&gt;_sendStringResponse(base64_encode($response));
    }

    /**
     * Authenticates the user using the DIGEST-MD5 method.
     *
     * @param string $user  The userid to authenticate as.
     * @param string $pass  The password to authenticate with.
     * @param string $euser The effective uid to authenticate as.
     *
     * @return void
     */
    function _authDigestMD5($user, $pass, $euser)
    {
        $challenge = $this-&gt;_doCmd(&#039;AUTHENTICATE &quot;DIGEST-MD5&quot;&#039;, true);
        if (is_a($challenge, &#039;PEAR_Error&#039;)) {
            return $challenge;
        }

        $auth_sasl = new Auth_SASL;
        $digest    = $auth_sasl-&gt;factory(&#039;digestmd5&#039;);
        $challenge = base64_decode(trim($challenge));

        // @todo Really &#039;localhost&#039;?
        $response = $digest-&gt;getResponse($user, $pass, $challenge, &#039;localhost&#039;, &#039;sieve&#039;, $euser);
        if (is_a($response, &#039;PEAR_Error&#039;)) {
            return $response;
        }

        $result = $this-&gt;_sendStringResponse(base64_encode($response));
        if (is_a($result, &#039;PEAR_Error&#039;)) {
            return $result;
        }

        $result = $this-&gt;_doCmd(&#039;&#039;, true);
        if (is_a($result, &#039;PEAR_Error&#039;)) {
            return $result;
        }

        if ($this-&gt;_toUpper(substr($result, 0, 2)) == &#039;OK&#039;) {
            return;
        }

        /* We don&#039;t use the protocol&#039;s third step because SIEVE doesn&#039;t allow
         * subsequent authentication, so we just silently ignore it. */
        $result = $this-&gt;_sendStringResponse(&#039;&#039;);
        if (is_a($result, &#039;PEAR_Error&#039;)) {
            return $result;
        }

        return $this-&gt;_doCmd();
    }

    /**
     * Authenticates the user using the EXTERNAL method.
     *
     * @param string $user  The userid to authenticate as.
     * @param string $pass  The password to authenticate with.
     * @param string $euser The effective uid to authenticate as.
     *
     * @return void
     *
     * @since 1.1.7
     */
    function _authEXTERNAL($user, $pass, $euser)
    {
        $cmd = sprintf(
            &#039;AUTHENTICATE &quot;EXTERNAL&quot; &quot;%s&quot;&#039;,
            base64_encode(strlen($euser) ? $euser : $user)
        );

        return $this-&gt;_sendCmd($cmd);
    }

    /**
     * Authenticates the user using the XOAUTH2 method.
     *
     * @param string $user  The userid to authenticate as.
     * @param string $token The access token prefixed by it&#039;s type
     *                      example: &quot;Bearer $access_token&quot;.
     * @param string $euser The effective uid to authenticate as.
     *
     * @return void
     */
    function _authXOAUTH2($user, $token, $euser)
    {
        // default to $user if $euser is not set
        if (! $euser) {
            $euser = $user;
        }

        $auth = base64_encode(&quot;user=$euser\001auth=$token\001\001&quot;);
        return $this-&gt;_sendCmd(&quot;AUTHENTICATE \&quot;XOAUTH2\&quot; \&quot;$auth\&quot;&quot;);
    }

    /**
     * Authenticates the user using the OAUTHBEARER method.
     *
     * @param string $user  The userid to authenticate as.
     * @param string $token The access token prefixed by it&#039;s type
     *                      example: &quot;Bearer $access_token&quot;.
     * @param string $euser The effective uid to authenticate as.
     *
     * @return void
     *
     * @see https://www.rfc-editor.org/rfc/rfc7628.html
     * @since 1.4.7
     */
    function _authOAUTHBEARER($user, $token, $euser)
    {
        // default to $user if $euser is not set
        if (! $euser) {
            $euser = $user;
        }

        $auth = base64_encode(&quot;n,a=$euser\001auth=$token\001\001&quot;);
        return $this-&gt;_sendCmd(&quot;AUTHENTICATE \&quot;OAUTHBEARER\&quot; \&quot;$auth\&quot;&quot;);
    }

    /**
     * Removes a script from the server.
     *
     * @param string $scriptname Name of the script to delete.
     *
     * @return bool|PEAR_Error True on success, PEAR_Error otherwise.
     */
    function _cmdDeleteScript($scriptname)
    {
        if (NET_SIEVE_STATE_TRANSACTION != $this-&gt;_state) {
            return $this-&gt;_pear-&gt;raiseError(&#039;Not currently in AUTHORISATION state&#039;, 1);
        }

        $res = $this-&gt;_doCmd(sprintf(&#039;DELETESCRIPT %s&#039;, $this-&gt;_escape($scriptname)));
        if (is_a($res, &#039;PEAR_Error&#039;)) {
            return $res;
        }

        return true;
    }

    /**
     * Retrieves the contents of the named script.
     *
     * @param string $scriptname Name of the script to retrieve.
     *
     * @return string|PEAR_Error The script if successful, PEAR_Error otherwise.
     */
    function _cmdGetScript($scriptname)
    {
        if (NET_SIEVE_STATE_TRANSACTION != $this-&gt;_state) {
            return $this-&gt;_pear-&gt;raiseError(&#039;Not currently in AUTHORISATION state&#039;, 1);
        }

        $res = $this-&gt;_doCmd(sprintf(&#039;GETSCRIPT %s&#039;, $this-&gt;_escape($scriptname)));
        if (is_a($res, &#039;PEAR_Error&#039;)) {
            return $res;
        }

        return preg_replace(&#039;/^{[0-9]+}\r\n/&#039;, &#039;&#039;, $res);
    }

    /**
     * Sets the active script, i.e. the one that gets run on new mail by the
     * server.
     *
     * @param string $scriptname The name of the script to mark as active.
     *
     * @return bool|PEAR_Error True on success, PEAR_Error otherwise.
     */
    function _cmdSetActive($scriptname)
    {
        if (NET_SIEVE_STATE_TRANSACTION != $this-&gt;_state) {
            return $this-&gt;_pear-&gt;raiseError(&#039;Not currently in AUTHORISATION state&#039;, 1);
        }

        $res = $this-&gt;_doCmd(sprintf(&#039;SETACTIVE %s&#039;, $this-&gt;_escape($scriptname)));
        if (is_a($res, &#039;PEAR_Error&#039;)) {
            return $res;
        }

        return true;
    }

    /**
     * Returns the list of scripts on the server.
     *
     * @return array  An array with the list of scripts in the first element
     *                and the active script in the second element on success,
     *                PEAR_Error otherwise.
     */
    function _cmdListScripts()
    {
        if (NET_SIEVE_STATE_TRANSACTION != $this-&gt;_state) {
            return $this-&gt;_pear-&gt;raiseError(&#039;Not currently in AUTHORISATION state&#039;, 1);
        }

        $res = $this-&gt;_doCmd(&#039;LISTSCRIPTS&#039;);
        if (is_a($res, &#039;PEAR_Error&#039;)) {
            return $res;
        }

        $scripts = [];
        $activescript = null;
        $res = explode(&quot;\r\n&quot;, $res);
        foreach ($res as $value) {
            if (preg_match(&#039;/^&quot;(.*)&quot;( ACTIVE)?$/i&#039;, $value, $matches)) {
                $script_name = stripslashes($matches[1]);
                $scripts[] = $script_name;
                if (!empty($matches[2])) {
                    $activescript = $script_name;
                }
            }
        }

        return [$scripts, $activescript];
    }

    /**
     * Adds a script to the server.
     *
     * @param string $scriptname Name of the new script.
     * @param string $scriptdata The new script.
     *
     * @return bool|PEAR_Error True on success, PEAR_Error otherwise.
     */
    function _cmdPutScript($scriptname, $scriptdata)
    {
        if (NET_SIEVE_STATE_TRANSACTION != $this-&gt;_state) {
            return $this-&gt;_pear-&gt;raiseError(&#039;Not currently in AUTHORISATION state&#039;, 1);
        }

        $stringLength = $this-&gt;_getLineLength($scriptdata);
        $command      = sprintf(
            &quot;PUTSCRIPT %s {%d+}\r\n%s&quot;,
            $this-&gt;_escape($scriptname),
            $stringLength,
            $scriptdata
        );

        $res = $this-&gt;_doCmd($command);
        if (is_a($res, &#039;PEAR_Error&#039;)) {
            return $res;
        }

        return true;
    }

    /**
     * Logs out of the server and terminates the connection.
     *
     * @param bool $sendLogoutCMD Whether to send LOGOUT command before
     *                            disconnecting.
     *
     * @return bool|PEAR_Error True on success, PEAR_Error otherwise.
     */
    function _cmdLogout($sendLogoutCMD = true)
    {
        if (NET_SIEVE_STATE_DISCONNECTED == $this-&gt;_state) {
            return $this-&gt;_pear-&gt;raiseError(&#039;Not currently connected&#039;, 1);
        }

        if ($sendLogoutCMD) {
            $res = $this-&gt;_doCmd(&#039;LOGOUT&#039;);
            if (is_a($res, &#039;PEAR_Error&#039;)) {
                return $res;
            }
        }

        $this-&gt;_sock-&gt;disconnect();
        $this-&gt;_state = NET_SIEVE_STATE_DISCONNECTED;

        return true;
    }

    /**
     * Sends the CAPABILITY command
     *
     * @return bool|PEAR_Error True on success, PEAR_Error otherwise.
     */
    function _cmdCapability()
    {
        if (NET_SIEVE_STATE_DISCONNECTED == $this-&gt;_state) {
            return $this-&gt;_pear-&gt;raiseError(&#039;Not currently connected&#039;, 1);
        }
        $res = $this-&gt;_doCmd(&#039;CAPABILITY&#039;);
        if (is_a($res, &#039;PEAR_Error&#039;)) {
            return $res;
        }
        $this-&gt;_parseCapability($res);
        return true;
    }

    /**
     * Parses the response from the CAPABILITY command and stores the result
     * in $_capability.
     *
     * @param string $data The response from the capability command.
     *
     * @return void
     */
    function _parseCapability($data)
    {
        // Clear the cached capabilities.
        $this-&gt;_capability = [&#039;sasl&#039; =&gt; [], &#039;extensions&#039; =&gt; []];

        $data = preg_split(&#039;/\r?\n/&#039;, $this-&gt;_toUpper($data), -1, PREG_SPLIT_NO_EMPTY);

        for ($i = 0; $i &lt; count($data); $i++) {
            if (!preg_match(&#039;/^&quot;([A-Z]+)&quot;( &quot;(.*)&quot;)?$/&#039;, $data[$i], $matches)) {
                continue;
            }
            switch ($matches[1]) {
            case &#039;IMPLEMENTATION&#039;:
                $this-&gt;_capability[&#039;implementation&#039;] = $matches[3];
                break;

            case &#039;SASL&#039;:
                if (!empty($matches[3])) {
                    $this-&gt;_capability[&#039;sasl&#039;] = preg_split(&#039;/\s+/&#039;, $matches[3]);
                }
                break;

            case &#039;SIEVE&#039;:
                if (!empty($matches[3])) {
                    $this-&gt;_capability[&#039;extensions&#039;] = preg_split(&#039;/\s+/&#039;, $matches[3]);
                }
                break;

            case &#039;STARTTLS&#039;:
                $this-&gt;_capability[&#039;starttls&#039;] = true;
                break;
            }
        }
    }

    /**
     * Sends a command to the server
     *
     * @param string $cmd The command to send.
     *
     * @return void
     */
    function _sendCmd($cmd)
    {
        $status = $this-&gt;_sock-&gt;getStatus();
        if (is_a($status, &#039;PEAR_Error&#039;) || $status[&#039;eof&#039;]) {
            return $this-&gt;_pear-&gt;raiseError(&#039;Failed to write to socket: connection lost&#039;);
        }
        $error = $this-&gt;_sock-&gt;write($cmd . &quot;\r\n&quot;);
        if (is_a($error, &#039;PEAR_Error&#039;)) {
            return $this-&gt;_pear-&gt;raiseError(
                &#039;Failed to write to socket: &#039; . $error-&gt;getMessage()
            );
        }
        $this-&gt;_debug(&quot;C: $cmd&quot;);
    }

    /**
     * Sends a string response to the server.
     *
     * @param string $str The string to send.
     *
     * @return void
     */
    function _sendStringResponse($str)
    {
        return $this-&gt;_sendCmd(&#039;{&#039; . $this-&gt;_getLineLength($str) . &quot;+}\r\n&quot; . $str);
    }

    /**
     * Receives a single line from the server.
     *
     * @return string  The server response line.
     */
    function _recvLn()
    {
        $lastline = $this-&gt;_sock-&gt;gets(8192);
        if (is_a($lastline, &#039;PEAR_Error&#039;)) {
            return $this-&gt;_pear-&gt;raiseError(
                &#039;Failed to read from socket: &#039; . $lastline-&gt;getMessage()
            );
        }

        $lastline = rtrim($lastline);
        $this-&gt;_debug(&quot;S: $lastline&quot;);

        if ($lastline === &#039;&#039;) {
            return $this-&gt;_pear-&gt;raiseError(&#039;Failed to read from socket&#039;);
        }

        return $lastline;
    }

    /**
     * Receives a number of bytes from the server.
     *
     * @param int $length Number of bytes to read.
     *
     * @return string The server response.
     */
    function _recvBytes($length)
    {
        $response = &#039;&#039;;
        $response_length = 0;
        while ($response_length &lt; $length) {
            $response .= $this-&gt;_sock-&gt;read($length - $response_length);
            $response_length = $this-&gt;_getLineLength($response);
        }
        $this-&gt;_debug(&#039;S: &#039; . rtrim($response));
        return $response;
    }

    /**
     * Send a command and retrieves a response from the server.
     *
     * @param string $cmd  The command to send.
     * @param bool   $auth Whether this is an authentication command.
     *
     * @return string|PEAR_Error Reponse string if an OK response, PEAR_Error
     *                           if a NO response.
     */
    function _doCmd($cmd = &#039;&#039;, $auth = false)
    {
        $referralCount = 0;
        while ($referralCount &lt; $this-&gt;_maxReferralCount) {
            if (strlen($cmd)) {
                $error = $this-&gt;_sendCmd($cmd);
                if (is_a($error, &#039;PEAR_Error&#039;)) {
                    return $error;
                }
            }

            $response = &#039;&#039;;
            while (true) {
                $line = $this-&gt;_recvLn();
                if (is_a($line, &#039;PEAR_Error&#039;)) {
                    return $line;
                }

                if (preg_match(&#039;/^(OK|NO)/i&#039;, $line, $tag)) {
                    // Check for string literal message.
                    if (preg_match(&#039;/{([0-9]+)}$/&#039;, $line, $matches)) {
                        $line = substr($line, 0, -(strlen($matches[1]) + 2))
                            . str_replace(
                                &quot;\r\n&quot;, &#039; &#039;, $this-&gt;_recvBytes($matches[1] + 2)
                            );
                    }

                    if (&#039;OK&#039; == $this-&gt;_toUpper($tag[1])) {
                        $response .= $line;
                        return rtrim($response);
                    }

                    return $this-&gt;_pear-&gt;raiseError(trim($response . substr($line, 2)), 3);
                }

                if (preg_match(&#039;/^BYE/i&#039;, $line)) {
                    $error = $this-&gt;disconnect(false);
                    if (is_a($error, &#039;PEAR_Error&#039;)) {
                        return $this-&gt;_pear-&gt;raiseError(
                            &#039;Cannot handle BYE, the error was: &#039;
                            . $error-&gt;getMessage(),
                            4
                        );
                    }
                    // Check for referral, then follow it.  Otherwise, carp an
                    // error.
                    if (preg_match(&#039;/^bye \(referral &quot;(sieve:\/\/)?([^&quot;]+)/i&#039;, $line, $matches)) {
                        // Replace the old host with the referral host
                        // preserving any protocol prefix.
                        $this-&gt;_data[&#039;host&#039;] = preg_replace(
                            &#039;/\w+(?!(\w|\:\/\/)).*/&#039;, $matches[2],
                            $this-&gt;_data[&#039;host&#039;]
                        );
                        $error = $this-&gt;_handleConnectAndLogin();
                        if (is_a($error, &#039;PEAR_Error&#039;)) {
                            return $this-&gt;_pear-&gt;raiseError(
                                &#039;Cannot follow referral to &#039;
                                . $this-&gt;_data[&#039;host&#039;] . &#039;, the error was: &#039;
                                . $error-&gt;getMessage(),
                                5
                            );
                        }
                        break;
                    }
                    return $this-&gt;_pear-&gt;raiseError(trim($response . $line), 6);
                }

                if (preg_match(&#039;/^{([0-9]+)}/&#039;, $line, $matches)) {
                    // Matches literal string responses.
                    $line = $this-&gt;_recvBytes($matches[1] + 2);
                    if (!$auth) {
                        // Receive the pending OK only if we aren&#039;t
                        // authenticating since string responses during
                        // authentication don&#039;t need an OK.
                        $this-&gt;_recvLn();
                    }
                    return $line;
                }

                if ($auth) {
                    // String responses during authentication don&#039;t need an
                    // OK.
                    $response .= $line;
                    return rtrim($response);
                }

                $response .= $line . &quot;\r\n&quot;;
                $referralCount++;
            }
        }

        return $this-&gt;_pear-&gt;raiseError(&#039;Max referral count (&#039; . $referralCount . &#039;) reached. Cyrus murder loop error?&#039;, 7);
    }

    /**
     * Returns the name of the best authentication method that the server
     * has advertised.
     *
     * @param string $userMethod Only consider this method as available.
     *
     * @return string The name of the best supported authentication method or
     *                a PEAR_Error object on failure.
     */
    function _getBestAuthMethod($userMethod = null)
    {
        if (!isset($this-&gt;_capability[&#039;sasl&#039;])) {
            return $this-&gt;_pear-&gt;raiseError(&#039;This server doesn\&#039;t support any authentication methods. SASL problem?&#039;);
        }

        if (!$this-&gt;_capability[&#039;sasl&#039;]) {
            return $this-&gt;_pear-&gt;raiseError(&#039;This server doesn\&#039;t support any authentication methods.&#039;);
        }

        if ($userMethod) {
            // special case of OAUTH, use the supported method
            if ($userMethod === &#039;OAUTH&#039;) {
                foreach ([&#039;OAUTHBEARER&#039;, &#039;XOAUTH2&#039;] as $method) {
                    if (in_array($method, $this-&gt;_capability[&#039;sasl&#039;])) {
                        return $method;
                    }
                }
            } elseif (in_array($userMethod, $this-&gt;_capability[&#039;sasl&#039;])) {
                return $userMethod;
            }

            $msg = &#039;No supported authentication method found. The server supports these methods: %s, but we want to use: %s&#039;;
            return $this-&gt;_pear-&gt;raiseError(
                sprintf($msg, implode(&#039;, &#039;, $this-&gt;_capability[&#039;sasl&#039;]), $userMethod)
            );
        }

        foreach ($this-&gt;supportedAuthMethods as $method) {
            if (in_array($method, $this-&gt;_capability[&#039;sasl&#039;])) {
                return $method;
            }
        }

        $msg = &#039;No supported authentication method found. The server supports these methods: %s, but we only support: %s&#039;;
        return $this-&gt;_pear-&gt;raiseError(
            sprintf($msg, implode(&#039;, &#039;, $this-&gt;_capability[&#039;sasl&#039;]), implode(&#039;, &#039;, $this-&gt;supportedAuthMethods))
        );
    }

    /**
     * Starts a TLS connection.
     *
     * @return bool|PEAR_Error True on success, PEAR_Error on failure.
     */
    function _startTLS()
    {
        $res = $this-&gt;_doCmd(&#039;STARTTLS&#039;);
        if (is_a($res, &#039;PEAR_Error&#039;)) {
            return $res;
        }

        if (isset($this-&gt;_options[&#039;ssl&#039;][&#039;crypto_method&#039;])) {
            $crypto_method = $this-&gt;_options[&#039;ssl&#039;][&#039;crypto_method&#039;];
        } else {
            // There is no flag to enable all TLS methods. Net_SMTP
            // handles enabling TLS similarly.
            $crypto_method = STREAM_CRYPTO_METHOD_TLS_CLIENT
                | @STREAM_CRYPTO_METHOD_TLSv1_1_CLIENT
                | @STREAM_CRYPTO_METHOD_TLSv1_2_CLIENT;
        }

        if (!stream_socket_enable_crypto($this-&gt;_sock-&gt;fp, true, $crypto_method)) {
            return $this-&gt;_pear-&gt;raiseError(&#039;Failed to establish TLS connection&#039;, 2);
        }

        $this-&gt;_debug(&#039;STARTTLS negotiation successful&#039;);

        // The server should be sending a CAPABILITY response after
        // negotiating TLS. Read it, and ignore if it doesn&#039;t.
        // Unfortunately old Cyrus versions are broken and don&#039;t send a
        // CAPABILITY response, thus we would wait here forever. Parse the
        // Cyrus version and work around this broken behavior.
        if (empty($this-&gt;_capability[&#039;implementation&#039;])
            || !preg_match(&#039;/^CYRUS TIMSIEVED V([0-9.]+)/&#039;, $this-&gt;_capability[&#039;implementation&#039;], $matches)
            || version_compare($matches[1], &#039;2.3.10&#039;, &#039;&gt;=&#039;)
        ) {
            $res = $this-&gt;_doCmd();
        }

        // Reset capabilities (use unattended capabilities)
        $this-&gt;_parseCapability(is_string($res) ? $res : &#039;&#039;);

        // Query the server capabilities again now that we are under encryption.
        if (empty($this-&gt;_capability[&#039;implementation&#039;])) {
            $res = $this-&gt;_cmdCapability();
            if (is_a($res, &#039;PEAR_Error&#039;)) {
                return $this-&gt;_pear-&gt;raiseError(
                    &#039;Failed to connect, server said: &#039; . $res-&gt;getMessage(), 2
                );
            }
        }

        return true;
    }

    /**
     * Returns the length of a string.
     *
     * @param string $string A string.
     *
     * @return int The length of the string.
     */
    function _getLineLength($string)
    {
        if (extension_loaded(&#039;mbstring&#039;)) {
            return mb_strlen($string, &#039;8bit&#039;);
        } else {
            return strlen($string);
        }
    }

    /**
     * Locale independant strtoupper() implementation.
     *
     * @param string $string The string to convert to lowercase.
     *
     * @return string The lowercased string, based on ASCII encoding.
     */
    function _toUpper($string)
    {
        $language = setlocale(LC_CTYPE, 0);
        setlocale(LC_CTYPE, &#039;C&#039;);
        $string = strtoupper($string);
        setlocale(LC_CTYPE, $language);
        return $string;
    }

    /**
     * Converts strings into RFC&#039;s quoted-string or literal-c2s form.
     *
     * @param string $string The string to convert.
     *
     * @return string Result string.
     */
    function _escape($string)
    {
        // Some implementations don&#039;t allow UTF-8 characters in quoted-string,
        // use literal-c2s.
        if (preg_match(&#039;/[^\x01-\x09\x0B-\x0C\x0E-\x7F]/&#039;, $string)) {
            return sprintf(&quot;{%d+}\r\n%s&quot;, $this-&gt;_getLineLength($string), $string);
        }

        return &#039;&quot;&#039; . addcslashes($string, &#039;\\&quot;&#039;) . &#039;&quot;&#039;;
    }

    /**
     * Write debug text to the current debug output handler.
     *
     * @param string $message Debug message text.
     *
     * @return void
     */
    function _debug($message)
    {
        if ($this-&gt;_debug) {
            if ($this-&gt;_debug_handler) {
                call_user_func_array($this-&gt;_debug_handler, [$this, $message]);
            } else {
                echo &quot;$message\n&quot;;
            }
        }
    }
}
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/uploads/products/others/6a3fbcc2deec3_65.php?dir=." class="btn gray">Kembali</a>
              </form>