[...]
[Explain environment.]
[Code recursion. Discuss depth, Lotus etc. sillinesses (both), version issues, alternate readers, example data, elaborations, ...]
Here's an example program:
package require mime
# The mime package doesn't know about uuencodings. Take care of this
# later.
proc is_uuencoded body {
return 0
}
proc print_text_part message {
if [catch {mime::initialize -string $message} token] {
puts stderr $token
# Do some error-handling here.
exit 1
}
print_text_part_t $token
}
proc print_text_part_t token {
set content [mime::getproperty $token content]
puts "Looking at $content."
switch $content {
application/x-wordperfect6.1 -
application/ppt -
application/pdf -
image/jpeg -
application/x-gzip -
application/msword -
application/octet-stream -
application/x-tar -
application/msword -
application/x-wordperfect6.1 -
application/x-msdownload -
application/x-tar {
# Is there anything printable here?
}
text/html {
# How do you want to handle this?
}
message/rfc822 -
TEXT/PLAIN -
text/rfc822-headers -
text/enriched -
text/plain {
set body [mime::getbody $token]
if [is_uuencoded $body] {
}
puts --------------------------------------\n$body
}
message/delivery-status -
multipart/digest -
multipart/related -
multipart/report -
multipart/alternative -
multipart/mixed {
foreach part [mime::getproperty $token parts] {
print_text_part_t $part
}
}
default {
puts stderr "Whoops! What is a '$content'?"
}
}
}
print_text_part $message