<?php 
namespace fox;


/**
 * Class fox\mailClient
 **/

class mailClient {

    protected ?mailAccount $acct;
    protected $conn;
    protected $stat;
    protected $list;
    
    public array $messages=[];
    
    
    public function __construct(?mailAccount $a) {
        $this->acct = $a;
    }
    
    
    public function getList($folder=null, $criteria="UNSEEN", $range=null) {
        if (strtolower($this->acct->rxProto) != 'imap') { throw new \Exception("Protocol '".$this->acct->rxProto."' not implemented yet");}
        
        if (empty($folder)) {
            $folder=$this->acct->rxFolder;
            if (empty($folder)) {$folder = 'INBOX';}
        }
        $this->conn = (\imap_open("{".$this->acct->rxServer.":".$this->acct->rxPort."/".strtolower($this->acct->rxProto).(($this->acct->rxSSL==false)?"/novalidate-cert":"/ssl")."}$folder",$this->acct->rxLogin,$this->acct->rxPassword));
        
        if (!$this->conn)
        {
            throw new \Exception("Connection to '".$this->acct->rxServer."' failed");
        }
        
        $this->stat = (array)imap_mailboxmsginfo($this->conn);
        
        $this->list = imap_search($this->conn, $criteria, SE_UID);
        $this->messages=[];
    }
    
    public function getMessages() {
        $this->messages = [];
        if (empty($this->list)) { return; }
        foreach ($this->list as $idx) {
            array_push($this->messages, $this->getMessage($idx));
        }
    }
    
    public function getMessage($uid) {
        $message = new mailMessage();
        
        $num = imap_msgno ( $this->conn , $uid );
        $msg = imap_fetch_overview ( $this->conn , $num)[0];
        
        if (property_exists($msg, "in_reply_to")) {
            try {
                $message->addRecipient(self::decodeHeader($msg->to));
            } catch (\Exception $e) {}
        }
            
        $message->account = $this->acct;
        $message->addSender(self::decodeHeader($msg->from));
        $message->messageId = $msg->message_id;
        $message->udate = $msg->udate;
        $message->subject = self::decodeHeader(imap_utf8($msg->subject));
        $message->refNum=$num;
        $message->conn=$this->conn;
        $message->direction='RX';
        
        if (property_exists($msg, "in_reply_to")) { $message->inReplyTo=$msg->in_reply_to;};
        if (property_exists($msg, "references")) { $message->references =$msg->references;}
        
        $pheaders = imap_rfc822_parse_headers(imap_fetchheader($this->conn, $num));
        $struct = imap_fetchstructure ($this->conn, $num);
        $parts_found = null;
        $this->search_parts($struct,null,$parts_found);
        
        try {
            if (property_exists($pheaders, "fromaddress")) { foreach (explode(",", $pheaders->fromaddress) as $item) { $message->addSender(self::decodeHeader($item)); }; }
        } catch(\Exception $e) {}
        
        try {
            if (property_exists($pheaders, "toaddress")) { foreach (explode(",", $pheaders->toaddress) as $item) { $message->addRecipient(self::decodeHeader($item)); }; }
        } catch(\Exception $e) {}
        try {
            if (property_exists($pheaders, "ccaddress")) { foreach (explode(",", $pheaders->ccaddress) as $item) { $message->addCC(self::decodeHeader($item)); }; }
        } catch(\Exception $e) {}
        
        if (isset($parts_found["type"]["PLAIN"]))
        {
            $text = imap_fetchbody ($this->conn, $num, $parts_found["type"]["PLAIN"],FT_PEEK );
            $encoding = $parts_found[$parts_found["type"]["PLAIN"]]["encoding"];
            $text_encoding = $parts_found[$parts_found["type"]["PLAIN"]]["text-encoding"];
            if ($encoding == 3)
            {
                $text = base64_decode($text);
            } elseif ($encoding == 4) {
                $text=quoted_printable_decode($text);
            }
            
            if ($text_encoding == 'default')
            {
                $msg_plain_text = $text;
            } else {
                $msg_plain_text = iconv($text_encoding, "utf-8", $text);
            }
            
            $message->bodyPlain = $msg_plain_text;
        }
        
        if (isset($parts_found["type"]["HTML"]))
        {
            $encoding = $parts_found[$parts_found["type"]["HTML"]]["encoding"];
            $html_text=imap_fetchbody ($this->conn, $num, $parts_found["type"]["HTML"],FT_PEEK );
            if ($encoding == 3)
            {
                $html_text = base64_decode($html_text);
            } elseif ($encoding == 4) {
                $html_text=quoted_printable_decode($html_text);
            }

            
            $message->bodyHTML = $html_text;            
        }

        
        foreach ($parts_found as $pkey=>$part)
        {
            if ($pkey != 'type') {
                if (isset($part["disposition"]) && (($part["disposition"] == 'attachment') || (($part["dparameters"]["0"]->value != ''))))
                {
                    $att = mailAttachment::createFromPart($part, $pkey, $message);
                    $message->addAttachment($att);
                }
            }
        }
        
        //imap_setflag_full($this->conn, $message->refNum, "\Seen");
        
        return $message;
        
    }
    
    protected function search_parts($struct, $path=null, &$parts_found=null)
    {
        if (!isset($path))
        {
            $path='';
            $parts_found = null;
            $parts_found["type"]["HTML"] = null;
            $parts_found["type"]["PLAIN"] = null;
            
        }
        $retval = $this->parce_struct($struct);
        $path_rv = $path;
        if ($path_rv == '') { $path_rv = 1;}
        $parts_found[$path_rv] = $retval;
        
        
        if (($retval["type"] == 0) && ($retval["subtype"] == "PLAIN"))
        {
            $parts_found["type"]["PLAIN"] = $path_rv;
        } elseif (($retval["type"] == 0) && ($retval["subtype"] == "HTML"))
        {
            $parts_found["type"]["HTML"] = $path_rv;
        }
        
        if ($retval["parts_count"] > 0)
        {
            foreach ($struct->parts as $pkey=>$part)
            {
                $path_t = $path;
                if ($path_t != '') {$path_t .= '.';};
                //	    $path_t=$path.".".($pkey+1);
                $path_t.=($pkey+1);
                $this->search_parts($part, $path_t, $parts_found);
            }
        }
        return $retval;
    }
    
    protected function parce_struct($struct, $path="")
    {
        $retval["type"] = $struct->type;
        $retval["encoding"] = $struct->encoding;
        $retval["subtype"] = ($struct->ifsubtype==1)?$struct->subtype:"-1";
        $retval["disposition"] = ($struct->ifdisposition==1)?$struct->disposition:null;
        $retval["dparameters"] = ($struct->ifdparameters==1)?$struct->dparameters:null;
        $retval["parts_count"] = ($retval["type"] == TYPEMULTIPART)?count($struct->parts):0;
        $retval["text-encoding"] = "default";
        if (isset($struct->parameters))
        {
            foreach ($struct->parameters as $p_stk)
            {
                if ($p_stk->attribute=="charset")
                {
                    $retval["text-encoding"] = $p_stk->value;
                }
            }
        }
        
        //    $retval["parts"] = $struct->parts;
        return $retval;
    }
    
    /* workaround to make most of headers to parse properly */
    protected static function decodeHeader($hdr, $cset = 'UTF8')
    {
        // Copied nearly intact from PEAR's Mail_mimeDecode.
        $hdr = preg_replace('/(=\?[^?]+\?(q|b)\?[^?]*\?=)(\s)+=\?/i', '\1=?', $hdr);
        $m = array();
        if(is_array($hdr))
            $hdr = $hdr[0];
            while(preg_match('/(=\?([^?]+)\?(q|b)\?([^?]*)\?=)/i', $hdr, $m))
            {
                $encoded  = $m[1];
                $charset  = strtoupper($m[2]);
                $encoding = strtolower($m[3]);
                $text     = $m[4];
                
                switch($encoding)
                {
                    case 'b':
                        $text = base64_decode($text);
                        break;
                    case 'q':
                        $text = str_replace('_', ' ', $text);
                        preg_match_all('/=([a-f0-9]{2})/i', $text, $m);
                        foreach($m[1] as $value)
                            $text = str_replace('=' . $value, chr(hexdec($value)), $text);
                            break;
                }
                if($charset !== $cset)
                    $text = self::charconv($charset, $cset, $text);
                    $hdr = str_replace($encoded, $text, $hdr);
            }
            return $hdr;
    }
    
    /* workaround to make most of headers to parse properly */
    protected function charconv($enc_from, $enc_to, $text)
    {
        if(function_exists('iconv'))
            return iconv($enc_from, $enc_to, $text);
            elseif(function_exists('recode_string'))
            return recode_string("$enc_from..$enc_to", $text);
            elseif(function_exists('mb_convert_encoding'))
            return mb_convert_encoding($text, $enc_to, $enc_from);
            return $text;
    }
}


?>