| |
265 |
265 |
if { [llength $v ] > 1 } { |
| |
266 |
266 |
set v0 [lindex $v 0] |
| |
267 |
267 |
} else { |
| |
268 |
268 |
set v0 $v |
| |
269 |
269 |
} |
| |
270 |
270 |
if { [regexp -nocase -- $re822 $v0 match r_ts] } { |
| |
271 |
271 |
set age_s [mime::parsedatetime $r_ts rclock] |
| |
272 |
272 |
set dt_cs [expr { [clock seconds] - $age_s } ] |
| |
273 |
273 |
lappend headers_list "aml_datetime_cs" $dt_cs |
| |
274 |
274 |
} |
| |
275 |
275 |
} |
| |
276 |
276 |
default { |
| |
277 |
277 |
# do nothing |
| |
278 |
278 |
} |
| |
279 |
279 |
} |
| |
280 |
280 |
lappend headers_list $h $v |
| |
281 |
281 |
} |
| |
282 |
282 |
lappend headers_list "aml_received_cs" [file mtime ${message_fpn}] |
| |
283 |
283 |
lappend headers_list "uid" $uid_val |
| |
284 |
284 |
|
| |
285 |
|
# Append property_list to to headers_list |
| |
|
285 |
# Append property_list to headers_list |
| |
286 |
286 |
set prop_list [mime::getproperty $m_id] |
| |
287 |
287 |
#set prop_names_list /mime::getproperty $m_id -names/ |
| |
288 |
288 |
foreach {n v} $prop_list { |
| |
289 |
289 |
switch -nocase -exact -- $n { |
| |
290 |
290 |
params { |
| |
291 |
291 |
# extract name as header filename |
| |
292 |
292 |
foreach {m w} $v { |
| |
293 |
293 |
if { [string match -nocase "*name" $m] } { |
| |
294 |
294 |
regsub -all -nocase -- {[^0-9a-zA-Z-.,\_]} $w {_} w |
| |
295 |
295 |
if { $w eq "" } { |
| |
296 |
296 |
set w "untitled" |
| |
297 |
297 |
} |
| |
298 |
298 |
set filename $w |
| |
299 |
299 |
lappend headers_list "filename" $w |
| |
300 |
300 |
} else { |
| |
301 |
301 |
lappend headers_list $m $w |
| |
302 |
302 |
} |
| |
303 |
303 |
} |
| |
304 |
304 |
} |
| |
305 |
305 |
default { |
