5 require_once 'Pman.php';
7 class Pman_Core_Import_Core_email extends Pman
9 static $cli_desc = "Import an email into core_email template";
11 static $cli_opts = array(
13 'desc' => 'File to import',
20 'desc' => 'Master template (wrapper to body)',
28 'desc' => 'Update template (deletes old version?)',
35 'desc' => 'Force usage of file (so content is not editable in Management system)',
45 $ff = HTML_FlexyFramework::get();
52 function get($part = '', $opts=array()) {
53 $this->updateOrCreateEmail($part, $opts, false);
56 function updateOrCreateEmail($part='', $opts, $cm = false, $mapping = false){
58 // DB_DataObject::debugLevel(1);
60 $template_name = preg_replace('/\.[a-z]+$/i', '', basename($opts['file']));
62 if (!file_exists($opts['file'])) {
63 $this->jerr("file does not exist : " . $opts['file']);
67 if (!empty($opts['master']) && !file_exists($opts['master'])) {
68 $this->jerr("master file does not exist : " . $opts['master']);
73 $cm = DB_dataObject::factory('core_email');
74 $ret = $cm->get('name',$template_name);
75 if($ret && empty($opts['update'])) {
76 $this->jerr("use --update to update the template..");
79 $mailtext = file_get_contents($opts['file']);
81 if (!empty($opts['master'])) {
83 $mailtext = file_get_contents($opts['master']);
84 $mailtext = str_replace('{outputBody():h}', $body, $mailtext);
88 foreach ($mapping as $k => $v) {
89 $mailtext = str_replace($k, $v, $mailtext);
93 require_once 'Mail/mimeDecode.php';
94 require_once 'Mail/RFC822.php';
96 $decoder = new Mail_mimeDecode($mailtext);
97 $parts = $decoder->getSendArray();
98 if (is_a($parts,'PEAR_Error')) {
99 echo $parts->toString() . "\n";
103 $headers = $parts[1];
104 $from = new Mail_RFC822();
105 $from_str = $from->parseAddressList($headers['From']);
107 $from_name = trim($from_str[0]->personal, '"');
109 $from_email = $from_str[0]->mailbox . '@' . $from_str[0]->host;
112 if (!empty($opts['use-file'])) {
121 'bodytext' => !empty($opts['use-file']) ? '' : $parts[2],
122 'updated_dt' => date('Y-m-d H:i:s'),
123 'use_file' => !empty($opts['use-file']) ? realpath($opts['file']) : '',
130 'from_name' => $from_name,
131 'from_email' => $from_email,
132 'subject' => $headers['Subject'],
133 'name' => $template_name,
134 'bodytext' => !empty($opts['use-file']) ? '' : $parts[2],
135 'updated_dt' => date('Y-m-d H:i:s'),
136 'created_dt' => date('Y-m-d H:i:s'),
137 'use_file' => !empty($opts['use-file']) ? realpath($opts['file']) : '',