Mercurial > hg > rc2

comparison program/steps/mail/import.inc @ 0:4681f974d28b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
vanilla 1.3.3 distro, I hope
author Charlie Root
date Thu, 04 Jan 2018 15:52:31 -0500
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:4681f974d28b
1 <?php
2
3 /**
4 +-----------------------------------------------------------------------+
5 | program/steps/mail/import.inc |
6 | |
7 | This file is part of the Roundcube Webmail client |
8 | Copyright (C) 2005-2014, The Roundcube Dev Team |
9 | |
10 | Licensed under the GNU General Public License version 3 or |
11 | any later version with exceptions for skins & plugins. |
12 | See the README file for a full license statement. |
13 | |
14 | PURPOSE: |
15 | Save the uploaded file(s) as messages to the current IMAP folder |
16 | |
17 +-----------------------------------------------------------------------+
18 | Author: Thomas Bruederli <roundcube@gmail.com> |
19 | Author: Aleksander Machniak <alec@alec.pl> |
20 +-----------------------------------------------------------------------+
21 */
22
23 // clear all stored output properties (like scripts and env vars)
24 $OUTPUT->reset();
25
26 if (is_array($_FILES['_file'])) {
27 $imported = 0;
28 $folder = $RCMAIL->storage->get_folder();
29
30 foreach ((array)$_FILES['_file']['tmp_name'] as $i => $filepath) {
31 // Process uploaded file if there is no error
32 $err = $_FILES['_file']['error'][$i];
33
34 if (!$err) {
35 // check file content type first
36 $ctype = rcube_mime::file_content_type($filepath, $_FILES['_file']['name'][$i], $_FILES['_file']['type'][$i]);
37 list($mtype_primary, $mtype_secondary) = explode('/', $ctype);
38
39 if (in_array($ctype, array('application/zip', 'application/x-zip'))) {
40 $filepath = rcmail_zip_extract($filepath);
41 if (empty($filepath)) {
42 continue;
43 }
44 }
45 else if (!in_array($mtype_primary, array('text', 'message'))) {
46 continue;
47 }
48
49 foreach ((array) $filepath as $file) {
50 // read the first few lines to detect header-like structure
51 $fp = fopen($file, 'r');
52 do {
53 $line = fgets($fp);
54 }
55 while ($line !== false && trim($line) == '');
56
57 if (!preg_match('/^From .+/', $line) && !preg_match('/^[a-z-_]+:\s+.+/i', $line)) {
58 continue;
59 }
60
61 $message = $lastline = '';
62 fseek($fp, 0);
63
64 while (($line = fgets($fp)) !== false) {
65 // importing mbox file, split by From - lines
66 if ($lastline === '' && strncmp($line, 'From ', 5) === 0 && strlen($line) > 5) {
67 if (!empty($message)) {
68 $imported += (int) rcmail_save_message($folder, $message);
69 }
70
71 $message = $line;
72 $lastline = '';
73 continue;
74 }
75
76 $message .= $line;
77 $lastline = rtrim($line);
78 }
79
80 if (!empty($message)) {
81 $imported += (int) rcmail_save_message($folder, $message);
82 }
83
84 // remove temp files extracted from zip
85 if (is_array($filepath)) {
86 unlink($file);
87 }
88 }
89 }
90 else if ($err == UPLOAD_ERR_INI_SIZE || $err == UPLOAD_ERR_FORM_SIZE) {
91 $size = $RCMAIL->show_bytes(rcube_utils::max_upload_size());
92 $msg = $RCMAIL->gettext(array('name' => 'filesizeerror', 'vars' => array('size' => $size)));
93
94 $OUTPUT->command('display_message', $msg, 'error');
95 }
96 else if ($err) {
97 $OUTPUT->show_message('fileuploaderror', 'error');
98 }
99 }
100
101 if ($imported) {
102 $OUTPUT->show_message($RCMAIL->gettext(array('name' => 'importmessagesuccess', 'nr' => $imported, 'vars' => array('nr' => $imported))), 'confirmation');
103 $OUTPUT->command('command', 'list');
104 }
105 else {
106 $OUTPUT->show_message('importmessageerror', 'error');
107 }
108 }
109 else if ($_SERVER['REQUEST_METHOD'] == 'POST') {
110 // if filesize exceeds post_max_size then $_FILES array is empty,
111 // show filesizeerror instead of fileuploaderror
112 if ($maxsize = ini_get('post_max_size'))
113 $msg = $RCMAIL->gettext(array('name' => 'filesizeerror', 'vars' => array('size' => $RCMAIL->show_bytes(parse_bytes($maxsize)))));
114 else
115 $msg = $RCMAIL->gettext('fileuploaderror');
116
117 $OUTPUT->command('display_message', $msg, 'error');
118 }
119
120 // send html page with JS calls as response
121 $OUTPUT->send('iframe');
122
123
124 function rcmail_zip_extract($path)
125 {
126 if (!class_exists('ZipArchive', false)) {
127 return;
128 }
129
130 $rcmail = rcmail::get_instance();
131 $temp_dir = $rcmail->config->get('temp_dir');
132 $zip = new ZipArchive;
133 $files = array();
134
135 if ($zip->open($path)) {
136 for ($i = 0; $i < $zip->numFiles; $i++) {
137 $entry = $zip->getNameIndex($i);
138 $tmpfname = tempnam($temp_dir, 'zipimport');
139
140 if (copy("zip://$path#$entry", $tmpfname)) {
141 $ctype = rcube_mime::file_content_type($tmpfname, $entry);
142 list($mtype_primary, $mtype_secondary) = explode('/', $ctype);
143
144 if (in_array($mtype_primary, array('text', 'message'))) {
145 $files[] = $tmpfname;
146 }
147 else {
148 unlink($tmpfname);
149 }
150 }
151 }
152
153 $zip->close();
154 }
155
156 return $files;
157 }
158
159 function rcmail_save_message($folder, &$message)
160 {
161 if (strncmp($message, 'From ', 5) === 0) {
162 // Extract the mbox from_line
163 $pos = strpos($message, "\n");
164 $from = substr($message, 0, $pos);
165 $message = substr($message, $pos + 1);
166
167 // Read the received date, support only known date formats
168
169 // RFC4155: "Sat Jan 3 01:05:34 1996"
170 $mboxdate_rx = '/^([a-z]{3} [a-z]{3} [0-9 ][0-9] [0-9]{2}:[0-9]{2}:[0-9]{2} [0-9]{4})/i';
171 // Roundcube/Zipdownload: "12-Dec-2016 10:56:33 +0100"
172 $imapdate_rx = '/^([0-9]{1,2}-[a-z]{3}-[0-9]{4} [0-9]{2}:[0-9]{2}:[0-9]{2} [0-9+-]{5})/i';
173
174 if (($pos = strpos($from, ' ', 6)) && ($dt_str = substr($from, $pos + 1))
175 && (preg_match($mboxdate_rx, $dt_str, $m) || preg_match($imapdate_rx, $dt_str, $m))
176 ) {
177 try {
178 $date = new DateTime($m[0], new DateTimeZone('UTC'));
179 }
180 catch (Exception $e) {
181 // ignore
182 }
183 }
184 }
185
186 // unquote ">From " lines in message body
187 $message = preg_replace('/\n>([>]*)From /', "\n\\1From ", $message);
188 $message = rtrim($message);
189 $rcmail = rcmail::get_instance();
190
191 if ($rcmail->storage->save_message($folder, $message, '', false, array(), $date)) {
192 return true;
193 }
194
195 rcube::raise_error("Failed to import message to $folder", true, false);
196 return false;
197 }