";print_R($mailtext);
        
        /* With the output try and send an email, using a few tricks in Mail_MimeDecode. */
        require_once 'Mail/mimeDecode.php';
        require_once 'Mail.php';
        
        $decoder = new Mail_mimeDecode($mailtext);
        $parts = $decoder->getSendArray();
        if (PEAR::isError($parts)) {
            return $parts;
            //echo "PROBLEM: {$parts->message}";
            //exit;
        } 
        
        $isMime = false;
        
        require_once 'Mail/mime.php';
        $mime = new Mail_mime(array(
            'eol' => "\n",
            //'html_encoding' => 'base64',
            'html_charset' => 'utf-8',
            'text_charset' => 'utf-8',
            'head_charset' => 'utf-8',
        ));
        // clean up the headers...
        
        
        $parts[1]['Message-Id'] = '<' .   $content->msgid   .
                                     '@' . $content->HTTP_HOST .'>';
        
          
        if ($htmlbody !== false) {
            // got a html headers...
            
            if (isset($parts[1]['Content-Type'])) {
                unset($parts[1]['Content-Type']);
            }
            $mime->setTXTBody($parts[2]);
            $mime->setHTMLBody($htmlbody);
//            var_dump($mime);exit;
            foreach($this->images as $cid=>$cdata) { 
            
                $mime->addHTMLImage(
                    $cdata['file'],
                     $cdata['mimetype'],
                     $cid.'.'.$cdata['ext'],
                    true,
                    $cdata['contentid']
                );
            }
            $isMime = true;
        }
        
        if(!empty($this->attachments)){
            //if got a attachments
            $header = $mime->headers($parts[1]);
            
            if (isset($parts[1]['Content-Type'])) {
                unset($parts[1]['Content-Type']);
            }
            
            if (!$isMime) {
            
                if(preg_match('/text\/html/', $header['Content-Type'])){
                    $mime->setHTMLBody($parts[2]);
                    $mime->setTXTBody('This message is in HTML only');
                }else{
                    $mime->setTXTBody($parts[2]);
                    $mime->setHTMLBody('
'.htmlspecialchars($parts[2]).'
');
                }
            }
            foreach($this->attachments as $attch){
                $mime->addAttachment(
                        $attch['file'],
                        $attch['mimetype'],
                        (!empty($attch['name'])) ? $attch['name'] : '',
                        true
                );
            }
            
            $isMime = true;
        }
        
        if($isMime){
            $parts[2] = $mime->get();
            $parts[1] = $mime->headers($parts[1]);
        }
         
        
        $ret = array(
            'recipents' => $parts[0],
            'headers' => $parts[1],
            'body' => $parts[2],
            'mailer' => $this
        );
        if ($this->rcpts !== false) {
            $ret['recipents'] =  $this->rcpts;
        }
        // if 'to' is empty, then add the recipents in there... (must be an array?
        if (!empty($ret['recipents']) && is_array($ret['recipents']) &&
                (empty($ret['headers']['To']) || !strlen(trim($ret['headers']['To'])))) {
            $ret['headers']['To'] = implode(',', $ret['recipents']);
        }
       
        
        // add bcc if necessary..
        if (!empty($this->bcc)) {
           $ret['bcc'] = $this->bcc;
        }
        return $ret;
    }
    function send($email = false)
    {
			
        $ff = HTML_FlexyFramework::get();
        
        $pg = $ff->page;
        
        $email = is_array($email)  ? $email : $this->toData();
        
        if (is_a($email, 'PEAR_Error')) {
            $pg->addEvent("COREMAILER-FAIL",  false, "email toData failed"); 
      
            
            return $email;
        }
        
        //$this->log( htmlspecialchars(print_r($email,true)));
        
        ///$recipents = array($this->email);
//        $mailOptions = PEAR::getStaticProperty('Mail','options');
        
        $mailOptions = isset($ff->Mail) ? $ff->Mail : array();
        //print_R($mailOptions);exit;
        
        if ($this->mail_method == 'SMTPMX' && empty($mailOptions['mailname'])) {
            $pg->jerr("Mail[mailname] is not set - this is required for SMTPMX");
            
        }
        
        $mail = Mail::factory($this->mail_method,$mailOptions);
        if ($this->debug) {
            $mail->debug = (bool) $this->debug;
        }
        
        $email['headers']['Date'] = date('r'); 
        if (PEAR::isError($mail)) {
            $pg->addEvent("COREMAILER-FAIL",  false, "mail factory failed"); 
      
            
            return $mail;
        } 
        $rcpts = $this->rcpts == false ? $email['recipents'] : $this->rcpts;
        
        
        
        // this makes contents untrustable...
        if (!empty($this->contents['bcc']) && is_array($this->contents['bcc'])) {
            $rcpts =array_merge(is_array($rcpts) ? $rcpts : array($rcpts), $this->contents['bcc']);
        }
        
        $oe = error_reporting(E_ALL & ~E_NOTICE & ~E_STRICT);
        $ret = $mail->send($rcpts,$email['headers'],$email['body']);
        error_reporting($oe);
        if ($ret === true) { 
            $pg->addEvent("COREMAILER-SENT",  false,
                'To: ' .  ( is_array($rcpts) ? implode(', ', $rcpts) : $rcpts ) .
                'Subject: '  . @$email['headers']['Subject']
            ); 
        }  else {
            $pg->addEvent("COREMAILER-FAIL",  false,
                "Sending to : " . ( is_array($rcpts) ? implode(', ', $rcpts) : $rcpts ) .
                " Error: " . $ret->toString());

        }
        
        return $ret;
    }
    
    function htmlbodytoCID($html)
    {
        $dom = new DOMDocument();
        // this may raise parse errors as some html may be a component..
        @$dom->loadHTML('' .$html);
        $imgs= $dom->getElementsByTagName('img');
        
        $urls = array();
        
        foreach ($imgs as $i=>$img) {
            $url  = $img->getAttribute('src');
            if (preg_match('#^cid:#', $url)) {
                continue;
            }
            $me = $img->getAttribute('mailembed');
            if ($me == 'no') {
                continue;
            }
            
            if(!array_key_exists($url, $urls)){
                $conv = $this->fetchImage($url);
                $urls[$url] = $conv;
                $this->images[$conv['contentid']] = $conv;
            } else {
                $conv = $urls[$url];
            }
            $img->setAttribute('origsrc', $url);
            $img->setAttribute('src', 'cid:' . $conv['contentid']);
        }
        
        
        return $dom->saveHTML();
        
    }
    function htmlbodyCssEmbed($html)
    {
        $ff = HTML_FlexyFramework::get();
        $dom = new DOMDocument();
        
        // this may raise parse errors as some html may be a component..
        @$dom->loadHTML('' .$html);
        $links = $dom->getElementsByTagName('link');
        $lc = array();
        foreach ($links as $link) {  // duplicate as links is dynamic and we change it..!
            $lc[] = $link;
        }
        //
        
        foreach ($lc as $i=>$link) {
            //var_dump($link->getAttribute('href'));
            
            if ($link->getAttribute('rel') != 'stylesheet') {
                continue;
            }
            $url  = $link->getAttribute('href');
            $file = $ff->rootDir . $url;
            
            if (!preg_match('#^(http|https)://#', $url)) {
                $file = $ff->rootDir . $url;

                if (!file_exists($file)) {
//                    echo $file;
                    $link->setAttribute('href', 'missing:' . $file);
                    continue;
                }
            } else {
               $file = $this->mapurl($url);  
            }
            
            $par = $link->parentNode;
            $par->removeChild($link);
            $s = $dom->createElement('style');
            $e = $dom->createTextNode(file_get_contents($file));
            $s->appendChild($e);
            $par->appendChild($s);
            
        }
        return $dom->saveHTML();
        
        
    }
    
    function htmlbodyInlineCss($html)
    {   
        $dom = new DOMDocument();
        
        @$dom->loadHTML('' .$html);
        
        $html = $dom->getElementsByTagName('html');
        $head = $dom->getElementsByTagName('head');
        $body = $dom->getElementsByTagName('body');
        
        if(!$head->length){
            $head = $dom->createElement('head');
            $html->item(0)->insertBefore($head, $body->item(0));
            $head = $dom->getElementsByTagName('head');
        }
        
        $s = $dom->createElement('style');
        $e = $dom->createTextNode($this->css_inline);
        $s->appendChild($e);
        $head->item(0)->appendChild($s);
        
        return $dom->saveHTML();
        
        /* Inline
        require_once 'HTML/CSS/InlineStyle.php';
        
        $doc = new HTML_CSS_InlineStyle($html);
        
        $doc->applyStylesheet($this->css_inline);
        
        $html = $doc->getHTML();
        
        return $html;
        */
    }
    
    function htmlbodySetClass($html, $cls)
    {
        $dom = new DOMDocument();
        
        @$dom->loadHTML('' .$html);
        
        $body = $dom->getElementsByTagName('body');
        if (!empty($body->length)) {
            $body->item(0)->setAttribute('class', $cls);
        } else {
            $body = $dom->createElement("body");
            $body->setAttribute('class', $cls);
            $dom->appendChild($body);
        }
        
        
        return $dom->saveHTML();
    }
    
    function fetchImage($url)
    {
        
        
        $this->log( "FETCH : $url\n");
        
        if ($url[0] == '/') {
            $ff = HTML_FlexyFramework::get();
            $file = $ff->rootDir . $url;
            require_once 'File/MimeType.php';
            $m  = new File_MimeType();
            $mt = $m->fromFilename($file);
            $ext = $m->toExt($mt); 
            
            return array(
                    'mimetype' => $mt,
                   'ext' => $ext,
                   'contentid' => md5($file),  // mailer makes md5 cid's' -- cid with attachment-** are done by mailer.
                   'file' => $file
            );
            
            
            
        }
        
        //print_R($url); exit;
        
        
        if (preg_match('#^file:///#', $url)) {
            $file = preg_replace('#^file://#', '', $url);
            require_once 'File/MimeType.php';
            $m  = new File_MimeType();
            $mt = $m->fromFilename($file);
            $ext = $m->toExt($mt); 
            
            return array(
                'mimetype'  => $mt,
                'ext'       =>   $ext,
                'contentid' => md5($file),
                'file'      => $file
            );
            
        }
        
        // CACHE???
        // 2 files --- the info file.. and the actual file...
        // add user
        // unix only...
        $uinfo = posix_getpwuid( posix_getuid () ); 
        $user = $uinfo['name']; 
        
        $cache = ini_get('session.save_path')."/Pman_Core_Mailer-{$user}/" . md5($url);
        if ($this->cache_images &&
                file_exists($cache) &&
                filemtime($cache) > strtotime('NOW - 1 WEEK')
            ) {
            $ret =  json_decode(file_get_contents($cache), true);
            $this->log("fetched from cache");
            $ret['file'] = $cache . '.data';
            return $ret;
        }
        if (!file_exists(dirname($cache))) {
            mkdir(dirname($cache),0700, true);
        }
        
        require_once 'HTTP/Request.php';
        
        $real_url = str_replace(' ', '%20', $this->mapurl($url));
        $a = new HTTP_Request($real_url);
        $a->sendRequest();
        $data = $a->getResponseBody();
        
        $this->log("got file of size " . strlen($data));
        $this->log("save contentid " . md5($url));
        
        file_put_contents($cache .'.data', $data);
        
        
        $mt = $a->getResponseHeader('Content-Type');
        
        require_once 'File/MimeType.php';
        $m  = new File_MimeType();
        $ext = $m->toExt($mt);
        
        $ret = array(
            'mimetype' => $mt,
            'ext' => $ext,
            'contentid' => md5($url)
            
        );
        
        file_put_contents($cache, json_encode($ret));
        $ret['file'] = $cache . '.data';
        return $ret;
    }  
    
    function mapurl($in)
    {
        
        foreach($this->urlmap as $o=>$n) {
            if (strpos($in,$o) === 0) {
                $ret =$n . substr($in,strlen($o));
                $this->log("mapURL in $in = $ret");
                return $ret;
            }
        }
        $this->log("mapurl no change - $in");
        return $in;
         
        
    }
 
    
    
    function log($val)
    {
        if (!$this->debug) {
            return;
        }
        if ($this->debug < 2) {
            echo '
' . print_r($val,true). "\n"; 
            return;
        }
        $fh = fopen('/tmp/core_mailer.log', 'a');
        fwrite($fh, date('Y-m-d H:i:s -') . json_encode($val) . "\n");
        fclose($fh);
        
        
    }
    
}