<?php
/*
 * Author: Andrew Rose <hello at andrewrose dot co dot uk>
 *
 * Usage:
 * 1) 准备 cert.pem 整数和 privkey.pem 私钥文件。
 * 2) 启动服务器脚本
 * 3) 打开 TLS 连接,比如:
 *      $ openssl s_client -connect localhost:25 -starttls smtp -crlf
 * 4) 开始测试下面`cmd`方法中列出的命令。
 */
class Handler {
    public $domainName = FALSE;
    public $connections = [];
    public $buffers = [];
    public $maxRead = 256000;
    public function __construct() {
$this->ctx = new EventSslContext(EventSslContext::SSLv3_SERVER_METHOD, [
EventSslContext::OPT_LOCAL_CERT  => 'cert.pem',
EventSslContext::OPT_LOCAL_PK    => 'privkey.pem',
//EventSslContext::OPT_PASSPHRASE  => '',
EventSslContext::OPT_VERIFY_PEER => false, // 改为 true 使用真实证书
EventSslContext::OPT_ALLOW_SELF_SIGNED => true // 改为 false 使用真实证书
]);
$this->base = new EventBase();
        if (!$this->base) {
            exit("Couldn't open event base\n");
        }
        if (!$this->listener = new EventListener($this->base,
            [$this, 'ev_accept'],
$this->ctx,
EventListener::OPT_CLOSE_ON_FREE | EventListener::OPT_REUSEABLE,
            -1,
'0.0.0.0:25'))
        {
            exit("Couldn't create listener\n");
        }
$this->listener->setErrorCallback([$this, 'ev_error']);
$this->base->dispatch();
    }
    public function ev_accept($listener, $fd, $address, $ctx) {
        static $id = 0;
$id += 1;
$this->connections[$id]['clientData'] = '';
$this->connections[$id]['cnx'] = new EventBufferEvent($this->base, $fd,
EventBufferEvent::OPT_CLOSE_ON_FREE);
        if (!$this->connections[$id]['cnx']) {
            echo "Failed creating buffer\n";
$this->base->exit(NULL);
            exit(1);
        }
$this->connections[$id]['cnx']->setCallbacks([$this, "ev_read"], NULL,
            [$this, 'ev_error'], $id);
$this->connections[$id]['cnx']->enable(Event::READ | Event::WRITE);
$this->ev_write($id, '220 '.$this->domainName." wazzzap?\r\n");
    }
    function ev_error($listener, $ctx) {
$errno = EventUtil::getLastSocketErrno();
fprintf(STDERR, "Got an error %d (%s) on the listener. Shutting down.\n",
$errno, EventUtil::getLastSocketError());
        if ($errno != 0) {
$this->base->exit(NULL);
            exit();
        }
    }
    public function ev_close($id) {
$this->connections[$id]['cnx']->disable(Event::READ | Event::WRITE);
        unset($this->connections[$id]);
    }
    protected function ev_write($id, $string) {
        echo 'S('.$id.'): '.$string;
$this->connections[$id]['cnx']->write($string);
    }
    public function ev_read($buffer, $id) {
        while($buffer->input->length > 0) {
$this->connections[$id]['clientData'] .= $buffer->input->read($this->maxRead);
$clientDataLen = strlen($this->connections[$id]['clientData']);
            if($this->connections[$id]['clientData'][$clientDataLen-1] == "\n"
&& $this->connections[$id]['clientData'][$clientDataLen-2] == "\r")
            {
// remove the trailing \r\n
$line = substr($this->connections[$id]['clientData'], 0,
strlen($this->connections[$id]['clientData']) - 2);
$this->connections[$id]['clientData'] = '';
$this->cmd($buffer, $id, $line);
            }
        }
    }
    protected function cmd($buffer, $id, $line) {
        switch ($line) {
            case strncmp('EHLO ', $line, 4):
$this->ev_write($id, "250-STARTTLS\r\n");
$this->ev_write($id, "250 OK ehlo\r\n");
                break;
            case strncmp('HELO ', $line, 4):
$this->ev_write($id, "250-STARTTLS\r\n");
$this->ev_write($id, "250 OK helo\r\n");
                break;
            case strncmp('QUIT', $line, 3):
$this->ev_write($id, "250 OK quit\r\n");
$this->ev_close($id);
                break;
            case strncmp('STARTTLS', $line, 3):
$this->ev_write($id, "220 Ready to start TLS\r\n");
$this->connections[$id]['cnx'] = EventBufferEvent::sslFilter($this->base,
$this->connections[$id]['cnx'], $this->ctx,
EventBufferEvent::SSL_ACCEPTING,
EventBufferEvent::OPT_CLOSE_ON_FREE);
$this->connections[$id]['cnx']->setCallbacks([$this, "ev_read"], NULL, [$this, 'ev_error'], $id);
$this->connections[$id]['cnx']->enable(Event::READ | Event::WRITE);
                break;
            default:
                echo 'unknown command: '.$line."\n";
                break;
        }
    }
}
new Handler();