How I Learned To Stop Worrying and Love Email

Ready? 250 OK! Everybody loves email, right? Right! What better language than Perl for handling all your email needs? None, right? Right! After all, with about nine hundred email modules on the CPAN, the only question is: which tool is right for the job?

This year, the Perl Email Project is going to tell you what's what. We'll see what modules solve what problems, how they differ, and how they (may or my not) work together.

We'll also show what problems aren't well-solved, what is in the works to make it happen, and how you can help.

Transcript

1. Perl Email Project the 2007 PEP talk!!!
2. How I Learned To Stop Worrying and Love Email
3. rjbs @cpan.org
5. we’re hiring: http:/ /xrl.us/pobox
6. Perl Email Project
7. PEP
8. Email::
9. simple efficient accurate
10. less processor time
11. less memory
12. fewer classes
13. fewer methods
14. LESS OF A PAIN IN THE ASS
15. Make Email Handling Suck Less
16. writing better modules
17. maintaining old modules
18. sharing knowledge
19. Modules!
20. Frameworks
21. Mail-Box
22. Email::
23. Message Objects
24. Email::Simple & Email::MIME
26. use Email::Simple;
27. use Email::Simple; my $email = Email::Simple->new($string);
28. use Email::Simple; my $email = Email::Simple->new($string); use Email::Simple::Creator;
29. use Email::Simple; my $email = Email::Simple->new($string); use Email::Simple::Creator; my $email = Email::Simple->create(
30. use Email::Simple; my $email = Email::Simple->new($string); use Email::Simple::Creator; my $email = Email::Simple->create( header => [
31. use Email::Simple; my $email = Email::Simple->new($string); use Email::Simple::Creator; my $email = Email::Simple->create( header => [ To => ‘rjbs@cpan.org’,
32. use Email::Simple; my $email = Email::Simple->new($string); use Email::Simple::Creator; my $email = Email::Simple->create( header => [ To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’,
33. use Email::Simple; my $email = Email::Simple->new($string); use Email::Simple::Creator; my $email = Email::Simple->create( header => [ To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’,
34. use Email::Simple; my $email = Email::Simple->new($string); use Email::Simple::Creator; my $email = Email::Simple->create( header => [ To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, Keyword => ‘1099’,
35. use Email::Simple; my $email = Email::Simple->new($string); use Email::Simple::Creator; my $email = Email::Simple->create( header => [ To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, Keyword => ‘1099’, Keyword => ‘1040’,
36. use Email::Simple; my $email = Email::Simple->new($string); use Email::Simple::Creator; my $email = Email::Simple->create( header => [ To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, Keyword => ‘1099’, Keyword => ‘1040’, ],
37. use Email::Simple; my $email = Email::Simple->new($string); use Email::Simple::Creator; my $email = Email::Simple->create( header => [ To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, Keyword => ‘1099’, Keyword => ‘1040’, ], body => “[ insert threatening text here ]”
38. use Email::Simple; my $email = Email::Simple->new($string); use Email::Simple::Creator; my $email = Email::Simple->create( header => [ To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, Keyword => ‘1099’, Keyword => ‘1040’, ], body => “[ insert threatening text here ]” );
40. $email->as_string;
41. $email->as_string; $email->header(‘Subject’);
42. $email->as_string; $email->header(‘Subject’); $email->header_set(Subject => ‘Re: mtfnpy’);
43. $email->as_string; $email->header(‘Subject’); $email->header_set(Subject => ‘Re: mtfnpy’); $email->body;
44. $email->as_string; $email->header(‘Subject’); $email->header_set(Subject => ‘Re: mtfnpy’); $email->body; $email->body_set($big_string);
46. use Email::Simple;
47. use Email::Simple; my $email = Email::Simple->new( \$string );
48. use Email::Simple; my $email = Email::Simple->new( \$string ); $email->body_set( \$new_body );
49. use Email::Simple; my $email = Email::Simple->new( \$string ); $email->body_set( \$new_body ); use Email::Simple::FromHandle;
50. use Email::Simple; my $email = Email::Simple->new( \$string ); $email->body_set( \$new_body ); use Email::Simple::FromHandle; my $email = Email::SimpleFromHandle->new(
51. use Email::Simple; my $email = Email::Simple->new( \$string ); $email->body_set( \$new_body ); use Email::Simple::FromHandle; my $email = Email::SimpleFromHandle->new( $input_handle
52. use Email::Simple; my $email = Email::Simple->new( \$string ); $email->body_set( \$new_body ); use Email::Simple::FromHandle; my $email = Email::SimpleFromHandle->new( $input_handle );
53. use Email::Simple; my $email = Email::Simple->new( \$string ); $email->body_set( \$new_body ); use Email::Simple::FromHandle; my $email = Email::SimpleFromHandle->new( $input_handle ); $email->stream_to($output_handle);
55. my $email = Email::MIME->new(\$string);
56. my $email = Email::MIME->new(\$string); use Email::MIME::Creator;
57. my $email = Email::MIME->new(\$string); use Email::MIME::Creator; my $email = Email::MIME->create(
58. my $email = Email::MIME->new(\$string); use Email::MIME::Creator; my $email = Email::MIME->create( header => [
59. my $email = Email::MIME->new(\$string); use Email::MIME::Creator; my $email = Email::MIME->create( header => [ To => ‘rjbs@cpan.org’,
60. my $email = Email::MIME->new(\$string); use Email::MIME::Creator; my $email = Email::MIME->create( header => [ To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’,
61. my $email = Email::MIME->new(\$string); use Email::MIME::Creator; my $email = Email::MIME->create( header => [ To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’,
62. my $email = Email::MIME->new(\$string); use Email::MIME::Creator; my $email = Email::MIME->create( header => [ To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, ],
63. my $email = Email::MIME->new(\$string); use Email::MIME::Creator; my $email = Email::MIME->create( header => [ To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, ], attributes =>
64. my $email = Email::MIME->new(\$string); use Email::MIME::Creator; my $email = Email::MIME->create( header => [ To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, ], attributes => { content_type => ‘multipart/mixed’ },
65. my $email = Email::MIME->new(\$string); use Email::MIME::Creator; my $email = Email::MIME->create( header => [ To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, ], attributes => { content_type => ‘multipart/mixed’ }, parts => [
66. my $email = Email::MIME->new(\$string); use Email::MIME::Creator; my $email = Email::MIME->create( header => [ To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, ], attributes => { content_type => ‘multipart/mixed’ }, parts => [ Email::MIME->create(...),
67. my $email = Email::MIME->new(\$string); use Email::MIME::Creator; my $email = Email::MIME->create( header => [ To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, ], attributes => { content_type => ‘multipart/mixed’ }, parts => [ Email::MIME->create(...), Email::MIME->create(...),
68. my $email = Email::MIME->new(\$string); use Email::MIME::Creator; my $email = Email::MIME->create( header => [ To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, ], attributes => { content_type => ‘multipart/mixed’ }, parts => [ Email::MIME->create(...), Email::MIME->create(...), ],
69. my $email = Email::MIME->new(\$string); use Email::MIME::Creator; my $email = Email::MIME->create( header => [ To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, ], attributes => { content_type => ‘multipart/mixed’ }, parts => [ Email::MIME->create(...), Email::MIME->create(...), ], );
71. $email->subparts;
72. $email->subparts; $email->parts_set(@parts);
73. $email->subparts; $email->parts_set(@parts); $email->body_raw;
74. problems
75. still not efficient enough problems
76. still not efficient enough FromHandle doesn’t do MIME problems
77. still not efficient enough FromHandle doesn’t do MIME Email::MIME doesn’t stream problems
78. still not efficient enough FromHandle doesn’t do MIME Email::MIME doesn’t stream fairly small feature set* problems
79. MIME::Entity
81. my $entity = MIME::Entity->new($input_handle);
82. my $entity = MIME::Entity->new($input_handle); my $entity = MIME::Entity->new(\@lines);
83. my $entity = MIME::Entity->new($input_handle); my $entity = MIME::Entity->new(\@lines); my $entity = MIME::Entity->build(
84. my $entity = MIME::Entity->new($input_handle); my $entity = MIME::Entity->new(\@lines); my $entity = MIME::Entity->build( To => ‘rjbs@cpan.org’,
85. my $entity = MIME::Entity->new($input_handle); my $entity = MIME::Entity->new(\@lines); my $entity = MIME::Entity->build( To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’,
86. my $entity = MIME::Entity->new($input_handle); my $entity = MIME::Entity->new(\@lines); my $entity = MIME::Entity->build( To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’,
87. my $entity = MIME::Entity->new($input_handle); my $entity = MIME::Entity->new(\@lines); my $entity = MIME::Entity->build( To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, ‘Keyword:’ => [ 1099, 1040 ],
88. my $entity = MIME::Entity->new($input_handle); my $entity = MIME::Entity->new(\@lines); my $entity = MIME::Entity->build( To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, ‘Keyword:’ => [ 1099, 1040 ], Data => [ “This might be an audit.” ],
89. my $entity = MIME::Entity->new($input_handle); my $entity = MIME::Entity->new(\@lines); my $entity = MIME::Entity->build( To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, ‘Keyword:’ => [ 1099, 1040 ], Data => [ “This might be an audit.” ], );
90. my $entity = MIME::Entity->new($input_handle); my $entity = MIME::Entity->new(\@lines); my $entity = MIME::Entity->build( To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, ‘Keyword:’ => [ 1099, 1040 ], Data => [ “This might be an audit.” ], ); $entity->attach(
91. my $entity = MIME::Entity->new($input_handle); my $entity = MIME::Entity->new(\@lines); my $entity = MIME::Entity->build( To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, ‘Keyword:’ => [ 1099, 1040 ], Data => [ “This might be an audit.” ], ); $entity->attach( Path => ‘./reports/audit-results.pdf’,
92. my $entity = MIME::Entity->new($input_handle); my $entity = MIME::Entity->new(\@lines); my $entity = MIME::Entity->build( To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, ‘Keyword:’ => [ 1099, 1040 ], Data => [ “This might be an audit.” ], ); $entity->attach( Path => ‘./reports/audit-results.pdf’, Type => ‘application/pdf’,
93. my $entity = MIME::Entity->new($input_handle); my $entity = MIME::Entity->new(\@lines); my $entity = MIME::Entity->build( To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, ‘Keyword:’ => [ 1099, 1040 ], Data => [ “This might be an audit.” ], ); $entity->attach( Path => ‘./reports/audit-results.pdf’, Type => ‘application/pdf’, );
94. problems
95. really big (loads 50+ extra modules) problems
96. really big (loads 50+ extra modules) large, sometimes confusing interface problems
97. really big (loads 50+ extra modules) large, sometimes confusing interface history of subtle bugs problems
98. Mail::Message (a Mail::Box Production)
100. my $mail = Mail::Message->read($input_handle);
101. my $mail = Mail::Message->read($input_handle); my $mail = Mail::Message->build(
102. my $mail = Mail::Message->read($input_handle); my $mail = Mail::Message->build( To => ‘rjbs@cpan.org’,
103. my $mail = Mail::Message->read($input_handle); my $mail = Mail::Message->build( To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’,
104. my $mail = Mail::Message->read($input_handle); my $mail = Mail::Message->build( To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’,
105. my $mail = Mail::Message->read($input_handle); my $mail = Mail::Message->build( To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, Keyword => 1099,
106. my $mail = Mail::Message->read($input_handle); my $mail = Mail::Message->build( To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, Keyword => 1099, Keyword => 1040,
107. my $mail = Mail::Message->read($input_handle); my $mail = Mail::Message->build( To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, Keyword => 1099, Keyword => 1040,
108. my $mail = Mail::Message->read($input_handle); my $mail = Mail::Message->build( To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, Keyword => 1099, Keyword => 1040, data => “This might be an audit.\n”,
109. my $mail = Mail::Message->read($input_handle); my $mail = Mail::Message->build( To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, Keyword => 1099, Keyword => 1040, data => “This might be an audit.\n”, file => ‘./reports/audit-results.pdf’,
110. my $mail = Mail::Message->read($input_handle); my $mail = Mail::Message->build( To => ‘rjbs@cpan.org’, From => ‘IRS <the.man@irs.gov>’, Subject => ‘Please See Me’, Keyword => 1099, Keyword => 1040, data => “This might be an audit.\n”, file => ‘./reports/audit-results.pdf’, );
112. $mail->string;
113. $mail->string; $mail->head->get(‘Subject’);
114. $mail->string; $mail->head->get(‘Subject’); $mail->head->delete(‘X-Pointles’);
115. $mail->string; $mail->head->get(‘Subject’); $mail->head->delete(‘X-Pointles’); $mail->head->reset(Subject => “I’m on TV!”);
116. $mail->string; $mail->head->get(‘Subject’); $mail->head->delete(‘X-Pointles’); $mail->head->reset(Subject => “I’m on TV!”); $mail->body(
117. $mail->string; $mail->head->get(‘Subject’); $mail->head->delete(‘X-Pointles’); $mail->head->reset(Subject => “I’m on TV!”); $mail->body( Mail::Message::Body->new(data => $data),
118. $mail->string; $mail->head->get(‘Subject’); $mail->head->delete(‘X-Pointles’); $mail->head->reset(Subject => “I’m on TV!”); $mail->body( Mail::Message::Body->new(data => $data), );
120. $mail->body->parts;
121. $mail->body->parts; $mail->body->attach(@things);
122. $mail->body->parts; $mail->body->attach(@things); $mail->body->part(1)->delete;
123. $mail->body->parts; $mail->body->attach(@things); $mail->body->part(1)->delete; my @parts = $mail->body->parts(
124. $mail->body->parts; $mail->body->attach(@things); $mail->body->part(1)->delete; my @parts = $mail->body->parts( sub { $_[0]->mimeType eq ‘text/html }
125. $mail->body->parts; $mail->body->attach(@things); $mail->body->part(1)->delete; my @parts = $mail->body->parts( sub { $_[0]->mimeType eq ‘text/html } );
126. $mail->body->parts; $mail->body->attach(@things); $mail->body->part(1)->delete; my @parts = $mail->body->parts( sub { $_[0]->mimeType eq ‘text/html } ); $_->delete for @parts;
127. $mail->body->parts; $mail->body->attach(@things); $mail->body->part(1)->delete; my @parts = $mail->body->parts( sub { $_[0]->mimeType eq ‘text/html } ); $_->delete for @parts; $mail->body->rebuild;
128. problems
129. really big (loads 40+ extra modules) problems
130. really big (loads 40+ extra modules) large, sometimes confusing interface problems
131. Mail::Internet
132. Mail::Internet
133. MIME::Lite
134. MIME::Lite
135. Email::Abstract
137. my $abstract = Email::Abstract->new($thing);
138. my $abstract = Email::Abstract->new($thing);
139. my $abstract = Email::Abstract->new($thing); $abstract->get_header(‘Subject’);
140. my $abstract = Email::Abstract->new($thing); $abstract->get_header(‘Subject’); $abstract->set_header(Subject => ‘Foo!’);
141. my $abstract = Email::Abstract->new($thing); $abstract->get_header(‘Subject’); $abstract->set_header(Subject => ‘Foo!’);
142. my $abstract = Email::Abstract->new($thing); $abstract->get_header(‘Subject’); $abstract->set_header(Subject => ‘Foo!’); $abstract->get_body;
143. my $abstract = Email::Abstract->new($thing); $abstract->get_header(‘Subject’); $abstract->set_header(Subject => ‘Foo!’); $abstract->get_body; $abstract->set_body(‘This is a short body!’);
144. my $abstract = Email::Abstract->new($thing); $abstract->get_header(‘Subject’); $abstract->set_header(Subject => ‘Foo!’); $abstract->get_body; $abstract->set_body(‘This is a short body!’);
145. my $abstract = Email::Abstract->new($thing); $abstract->get_header(‘Subject’); $abstract->set_header(Subject => ‘Foo!’); $abstract->get_body; $abstract->set_body(‘This is a short body!’); $abstract->as_string;
146. my $abstract = Email::Abstract->new($thing); $abstract->get_header(‘Subject’); $abstract->set_header(Subject => ‘Foo!’); $abstract->get_body; $abstract->set_body(‘This is a short body!’); $abstract->as_string;
147. my $abstract = Email::Abstract->new($thing); $abstract->get_header(‘Subject’); $abstract->set_header(Subject => ‘Foo!’); $abstract->get_body; $abstract->set_body(‘This is a short body!’); $abstract->as_string; $abstract->cast(‘Mail::Internet’);
149. Email::Simple & ::MIME
150. Email::Simple & ::MIME MIME::Entity
151. Email::Simple & ::MIME MIME::Entity Mail::Internet
152. Email::Simple & ::MIME MIME::Entity Mail::Internet Mail::Message
153. Email::Simple & ::MIME MIME::Entity Mail::Internet Mail::Message more coming
154. problems
155. missing some key methods problems
156. missing some key methods needs more testing for complex message types problems
157. missing some key methods needs more testing for complex message types can be inefficient problems
158. suggestion
159. suggestion learn all of Email::Simple and most of Email::MIME
160. suggestion learn all of Email::Simple and most of Email::MIME for sending your own simple emails, use these
161. suggestion
162. learn the basics of Mail::Message suggestion
163. learn the basics of Mail::Message use it if you know you’ll need to use more of Mail::Box in the future suggestion
164. learn the basics of Mail::Message use it if you know you’ll need to use more of Mail::Box in the future use it if you have complex encoding or MIME-handling requirements suggestion
165. suggestion
166. learn the basics of handling MIME::Entity messages suggestion
167. learn the basics of handling MIME::Entity messages lots of code uses them suggestion
168. learn the basics of handling MIME::Entity messages lots of code uses them use MIME::Entity when you need to cope with crappy input that nothing else can parse suggestion
169. suggestion
170. suggestion if you write an API that is passed an email message, consider using Abstract
171. suggestion if you write an API that is passed an email message, consider using Abstract if it exists primarily for handling email, pick a more complete library to use, and stick to it.
172. Email Collections
173. Mail::Box
175. my $maildir = Mail::Box::Maildir->new
176. my $maildir = Mail::Box::Maildir->new folder => ‘./Maildir/’,
177. my $maildir = Mail::Box::Maildir->new folder => ‘./Maildir/’, );
178. my $maildir = Mail::Box::Maildir->new folder => ‘./Maildir/’, );
179. my $maildir = Mail::Box::Maildir->new folder => ‘./Maildir/’, ); my $message = $maildir->message(4);
180. my $maildir = Mail::Box::Maildir->new folder => ‘./Maildir/’, ); my $message = $maildir->message(4);
181. my $maildir = Mail::Box::Maildir->new folder => ‘./Maildir/’, ); my $message = $maildir->message(4); $message->delete;
182. my $maildir = Mail::Box::Maildir->new folder => ‘./Maildir/’, ); my $message = $maildir->message(4); $message->delete;
183. my $maildir = Mail::Box::Maildir->new folder => ‘./Maildir/’, ); my $message = $maildir->message(4); $message->delete; my $newmsg = Mail::Message->new(...);
184. my $maildir = Mail::Box::Maildir->new folder => ‘./Maildir/’, ); my $message = $maildir->message(4); $message->delete; my $newmsg = Mail::Message->new(...);
185. my $maildir = Mail::Box::Maildir->new folder => ‘./Maildir/’, ); my $message = $maildir->message(4); $message->delete; my $newmsg = Mail::Message->new(...); $maildir->addMessage($newmsg);
186. my $maildir = Mail::Box::Maildir->new folder => ‘./Maildir/’, ); my $message = $maildir->message(4); $message->delete; my $newmsg = Mail::Message->new(...); $maildir->addMessage($newmsg);
187. my $maildir = Mail::Box::Maildir->new folder => ‘./Maildir/’, ); my $message = $maildir->message(4); $message->delete; my $newmsg = Mail::Message->new(...); $maildir->addMessage($newmsg); $maildir->write;
188. folders over the net
189. subfolders
190. threading
191. delayed reading & construction
192. suggestion
193. suggestion if you need to manage mailboxes, just use it
194. suggestion if you need to manage mailboxes, just use it there isn’t really any alternative
195. suggestion if you need to manage mailboxes, just use it there isn’t really any alternative unless you count...
196. Email::Folder (and friends)
197. a bunch of modules
198. Email::Feature::Type
199. Email::FolderType
201. use Email::FolderType qw(folder_type);
202. use Email::FolderType qw(folder_type);
203. use Email::FolderType qw(folder_type); my $type = folder_type(‘./Maildir’);
204. use Email::FolderType qw(folder_type); my $type = folder_type(‘./Maildir’); # => ‘Mbox’
205. use Email::FolderType qw(folder_type); my $type = folder_type(‘./Maildir’); # => ‘Mbox’
206. use Email::FolderType qw(folder_type); my $type = folder_type(‘./Maildir’); # => ‘Mbox’ my $type = folder_type(‘./Maildir/’);
207. use Email::FolderType qw(folder_type); my $type = folder_type(‘./Maildir’); # => ‘Mbox’ my $type = folder_type(‘./Maildir/’); # => ‘Maildir’
208. use Email::FolderType qw(folder_type); my $type = folder_type(‘./Maildir’); # => ‘Mbox’ my $type = folder_type(‘./Maildir/’); # => ‘Maildir’
209. use Email::FolderType qw(folder_type); my $type = folder_type(‘./Maildir’); # => ‘Mbox’ my $type = folder_type(‘./Maildir/’); # => ‘Maildir’ my $type = folder_type(‘./Maildir//’);
210. use Email::FolderType qw(folder_type); my $type = folder_type(‘./Maildir’); # => ‘Mbox’ my $type = folder_type(‘./Maildir/’); # => ‘Maildir’ my $type = folder_type(‘./Maildir//’); # => Ezmlm
211. Email::Folder
212. Email::Folder::Reader
214. my $reader = Email::Folder->new(“./Maildir/”);
215. my $reader = Email::Folder->new(“./Maildir/”);
216. my $reader = Email::Folder->new(“./Maildir/”); while (my $email = $reader->next_message) {
217. my $reader = Email::Folder->new(“./Maildir/”); while (my $email = $reader->next_message) { print “to delete!”
218. my $reader = Email::Folder->new(“./Maildir/”); while (my $email = $reader->next_message) { print “to delete!” if $email->header(‘from’) =~ /Laura/i;
219. my $reader = Email::Folder->new(“./Maildir/”); while (my $email = $reader->next_message) { print “to delete!” if $email->header(‘from’) =~ /Laura/i; }
220. Email::Delete
221. my $reader = Email::Folder->new(“./Maildir/”); while (my $email = $reader->next_message) { $email->delete if $email->header(‘from’) =~ /Laura/i; }
222. my $reader = Email::Folder->new(“./Maildir/”); while (my $email = $reader->next_message) { $email->delete if $email->header(‘from’) =~ /Laura/i; } NOT REAL CODE
224. delete_message(
225. delete_message( from => “./Maildir/”,
226. delete_message( from => “./Maildir/”, matching => sub {
227. delete_message( from => “./Maildir/”, matching => sub { shift->header(‘message-id’)
228. delete_message( from => “./Maildir/”, matching => sub { shift->header(‘message-id’) eq
229. delete_message( from => “./Maildir/”, matching => sub { shift->header(‘message-id’) eq $email->header(‘message-id’)
230. delete_message( from => “./Maildir/”, matching => sub { shift->header(‘message-id’) eq $email->header(‘message-id’) },
231. delete_message( from => “./Maildir/”, matching => sub { shift->header(‘message-id’) eq $email->header(‘message-id’) }, );
233. my $reader = Email::Folder->new(“./Maildir/”);
234. my $reader = Email::Folder->new(“./Maildir/”);
235. my $reader = Email::Folder->new(“./Maildir/”); $saw_id{ $_->header(‘message-id’) } = 1
236. my $reader = Email::Folder->new(“./Maildir/”); $saw_id{ $_->header(‘message-id’) } = 1 while my $_ = $reader->next_message;
237. my $reader = Email::Folder->new(“./Maildir/”); $saw_id{ $_->header(‘message-id’) } = 1 while my $_ = $reader->next_message;
238. my $reader = Email::Folder->new(“./Maildir/”); $saw_id{ $_->header(‘message-id’) } = 1 while my $_ = $reader->next_message; delete_message(
239. my $reader = Email::Folder->new(“./Maildir/”); $saw_id{ $_->header(‘message-id’) } = 1 while my $_ = $reader->next_message; delete_message( from => “./Maildir”,
240. my $reader = Email::Folder->new(“./Maildir/”); $saw_id{ $_->header(‘message-id’) } = 1 while my $_ = $reader->next_message; delete_message( from => “./Maildir”, matching => sub { my $email = shift;
241. my $reader = Email::Folder->new(“./Maildir/”); $saw_id{ $_->header(‘message-id’) } = 1 while my $_ = $reader->next_message; delete_message( from => “./Maildir”, matching => sub { my $email = shift; $email->header(‘references’)
242. my $reader = Email::Folder->new(“./Maildir/”); $saw_id{ $_->header(‘message-id’) } = 1 while my $_ = $reader->next_message; delete_message( from => “./Maildir”, matching => sub { my $email = shift; $email->header(‘references’) and
243. my $reader = Email::Folder->new(“./Maildir/”); $saw_id{ $_->header(‘message-id’) } = 1 while my $_ = $reader->next_message; delete_message( from => “./Maildir”, matching => sub { my $email = shift; $email->header(‘references’) and ! $saw_id{ $email->header(‘references’) }
244. my $reader = Email::Folder->new(“./Maildir/”); $saw_id{ $_->header(‘message-id’) } = 1 while my $_ = $reader->next_message; delete_message( from => “./Maildir”, matching => sub { my $email = shift; $email->header(‘references’) and ! $saw_id{ $email->header(‘references’) } },
245. my $reader = Email::Folder->new(“./Maildir/”); $saw_id{ $_->header(‘message-id’) } = 1 while my $_ = $reader->next_message; delete_message( from => “./Maildir”, matching => sub { my $email = shift; $email->header(‘references’) and ! $saw_id{ $email->header(‘references’) } }, );
246. my $reader = Email::Folder->new(“./Maildir/”); $saw_id{ $_->header(‘message-id’) } = 1 while my $_ = $reader->next_message; delete_message( from => “./Maildir”, matching => sub { my $email = shift; $email->header(‘references’) and ! $saw_id{ $email->header(‘references’) } }, );
247. so, we can delete
248. (sort of)
249. how do we add?
250. Email::LocalDelivery
252. @successes = Email::LocalDelivery->deliver(
253. @successes = Email::LocalDelivery->deliver( $string,
254. @successes = Email::LocalDelivery->deliver( $string, ‘./Maildir/’,
255. @successes = Email::LocalDelivery->deliver( $string, ‘./Maildir/’, ‘/var/spool/mail/rjbs’,
256. @successes = Email::LocalDelivery->deliver( $string, ‘./Maildir/’, ‘/var/spool/mail/rjbs’, ‘imap://rjbs@mailstore.pobox.com/INBOX’,
257. @successes = Email::LocalDelivery->deliver( $string, ‘./Maildir/’, ‘/var/spool/mail/rjbs’, ‘imap://rjbs@mailstore.pobox.com/INBOX’, );
258. @successes = Email::LocalDelivery->deliver( $string, ‘./Maildir/’, ‘/var/spool/mail/rjbs’, ‘imap://rjbs@mailstore.pobox.com/INBOX’, );
259. can’t stream the message must load it all into memory and then copy it
260. problems
261. problems the pieces don’t fit together
262. problems the pieces don’t fit together can be very inefficient
263. problems the pieces don’t fit together can be very inefficient difficult to extend
264. suggestion
265. suggestion fine for a quick one-off
266. suggestion fine for a quick one-off not ready for prime time
267. Net::Protocol
268. Net::IMAP::Simple Net::IMAP Mail::IMAPClient Net::POP3 Mail::POP3Client
269. Sending Mail
270. Mail::Send
271. Mail::Mailer
273. my $mailer = Mail::Mailer->new(‘sendmail’);
274. my $mailer = Mail::Mailer->new(‘sendmail’);
275. my $mailer = Mail::Mailer->new(‘sendmail’); $mailer->open({
276. my $mailer = Mail::Mailer->new(‘sendmail’); $mailer->open({ To => [ ‘boss@corp’, ‘boss2@corp’ ],
277. my $mailer = Mail::Mailer->new(‘sendmail’); $mailer->open({ To => [ ‘boss@corp’, ‘boss2@corp’ ], Bcc => ‘the.ceo@corp’,
278. my $mailer = Mail::Mailer->new(‘sendmail’); $mailer->open({ To => [ ‘boss@corp’, ‘boss2@corp’ ], Bcc => ‘the.ceo@corp’, Subject => ‘u sux’,
279. my $mailer = Mail::Mailer->new(‘sendmail’); $mailer->open({ To => [ ‘boss@corp’, ‘boss2@corp’ ], Bcc => ‘the.ceo@corp’, Subject => ‘u sux’, });
280. my $mailer = Mail::Mailer->new(‘sendmail’); $mailer->open({ To => [ ‘boss@corp’, ‘boss2@corp’ ], Bcc => ‘the.ceo@corp’, Subject => ‘u sux’, });
281. my $mailer = Mail::Mailer->new(‘sendmail’); $mailer->open({ To => [ ‘boss@corp’, ‘boss2@corp’ ], Bcc => ‘the.ceo@corp’, Subject => ‘u sux’, }); print $mailer "Body of message";
282. my $mailer = Mail::Mailer->new(‘sendmail’); $mailer->open({ To => [ ‘boss@corp’, ‘boss2@corp’ ], Bcc => ‘the.ceo@corp’, Subject => ‘u sux’, }); print $mailer "Body of message";
283. my $mailer = Mail::Mailer->new(‘sendmail’); $mailer->open({ To => [ ‘boss@corp’, ‘boss2@corp’ ], Bcc => ‘the.ceo@corp’, Subject => ‘u sux’, }); print $mailer "Body of message"; $mailer->close;
284. my $mailer = Mail::Mailer->new(‘sendmail’); $mailer->open({ To => [ ‘boss@corp’, ‘boss2@corp’ ], Bcc => ‘the.ceo@corp’, Subject => ‘u sux’, }); print $mailer "Body of message"; $mailer->close; # ...and it gets sent
285. Mail::Sender
286. my $sender = Mail::Sender->new({ smtp => ‘smtp.haliburton.gov’, }); $sender->Open({ from => 'your@address.com', to => 'other@address.com', subject => 'HTML test', ctype => "text/html", encoding => "7bit" }) or die $Mail::Sender::Error,"\n"; while (<$input>) { $sender->SendEx($_); # no encoding! }; $sender->Close();
287. Mail::Sendmail
288. use Mail::Sendmail; sendmail( To => ‘guy@2nd.row.org’, From => ‘rjbs@cpan.org’, Subject => ‘STFU’, Body => $entire_message_body, ) or die “sendmail: $Mail::Sendmail::error”;
289. Mail::Transport (a Mail::Box Production)
291. my $sender = Mail::Transport::SMTP->new(
292. my $sender = Mail::Transport::SMTP->new( hostname => ‘nebu.fleet.zion.gov’,
293. my $sender = Mail::Transport::SMTP->new( hostname => ‘nebu.fleet.zion.gov’, username => ‘t.anderson@yahoo.com’,
294. my $sender = Mail::Transport::SMTP->new( hostname => ‘nebu.fleet.zion.gov’, username => ‘t.anderson@yahoo.com’, password => ‘viagra’,
295. my $sender = Mail::Transport::SMTP->new( hostname => ‘nebu.fleet.zion.gov’, username => ‘t.anderson@yahoo.com’, password => ‘viagra’, );
296. my $sender = Mail::Transport::SMTP->new( hostname => ‘nebu.fleet.zion.gov’, username => ‘t.anderson@yahoo.com’, password => ‘viagra’, );
297. my $sender = Mail::Transport::SMTP->new( hostname => ‘nebu.fleet.zion.gov’, username => ‘t.anderson@yahoo.com’, password => ‘viagra’, ); $sender->send(
298. my $sender = Mail::Transport::SMTP->new( hostname => ‘nebu.fleet.zion.gov’, username => ‘t.anderson@yahoo.com’, password => ‘viagra’, ); $sender->send( $message,
299. my $sender = Mail::Transport::SMTP->new( hostname => ‘nebu.fleet.zion.gov’, username => ‘t.anderson@yahoo.com’, password => ‘viagra’, ); $sender->send( $message, from => $env_sender,
300. my $sender = Mail::Transport::SMTP->new( hostname => ‘nebu.fleet.zion.gov’, username => ‘t.anderson@yahoo.com’, password => ‘viagra’, ); $sender->send( $message, from => $env_sender, to => $env_rcpt,
301. my $sender = Mail::Transport::SMTP->new( hostname => ‘nebu.fleet.zion.gov’, username => ‘t.anderson@yahoo.com’, password => ‘viagra’, ); $sender->send( $message, from => $env_sender, to => $env_rcpt, );
302. ::Exim ::Mailx ::Qmail ::SMTP ::Sendmail
303. Email::Send
305. my $sender = Email::Send->new({
306. my $sender = Email::Send->new({ mailer => ‘SMTP’,
307. my $sender = Email::Send->new({ mailer => ‘SMTP’, mailer_args => [
308. my $sender = Email::Send->new({ mailer => ‘SMTP’, mailer_args => [ Host => ‘sir-mx-a-lot.plusplus.com’,
309. my $sender = Email::Send->new({ mailer => ‘SMTP’, mailer_args => [ Host => ‘sir-mx-a-lot.plusplus.com’, username => ‘rjbs’,
310. my $sender = Email::Send->new({ mailer => ‘SMTP’, mailer_args => [ Host => ‘sir-mx-a-lot.plusplus.com’, username => ‘rjbs’, password => ‘g0t b4ckUPS’,
311. my $sender = Email::Send->new({ mailer => ‘SMTP’, mailer_args => [ Host => ‘sir-mx-a-lot.plusplus.com’, username => ‘rjbs’, password => ‘g0t b4ckUPS’, ],
312. my $sender = Email::Send->new({ mailer => ‘SMTP’, mailer_args => [ Host => ‘sir-mx-a-lot.plusplus.com’, username => ‘rjbs’, password => ‘g0t b4ckUPS’, ], });
313. my $sender = Email::Send->new({ mailer => ‘SMTP’, mailer_args => [ Host => ‘sir-mx-a-lot.plusplus.com’, username => ‘rjbs’, password => ‘g0t b4ckUPS’, ], });
314. my $sender = Email::Send->new({ mailer => ‘SMTP’, mailer_args => [ Host => ‘sir-mx-a-lot.plusplus.com’, username => ‘rjbs’, password => ‘g0t b4ckUPS’, ], }); my $rv = $sender->send($email);
315. my $sender = Email::Send->new({ mailer => ‘SMTP’, mailer_args => [ Host => ‘sir-mx-a-lot.plusplus.com’, username => ‘rjbs’, password => ‘g0t b4ckUPS’, ], }); my $rv = $sender->send($email);
316. my $sender = Email::Send->new({ mailer => ‘SMTP’, mailer_args => [ Host => ‘sir-mx-a-lot.plusplus.com’, username => ‘rjbs’, password => ‘g0t b4ckUPS’, ], }); my $rv = $sender->send($email); unless ($rv) {
317. my $sender = Email::Send->new({ mailer => ‘SMTP’, mailer_args => [ Host => ‘sir-mx-a-lot.plusplus.com’, username => ‘rjbs’, password => ‘g0t b4ckUPS’, ], }); my $rv = $sender->send($email); unless ($rv) { die “failed to send: “ . $rv->string;
318. my $sender = Email::Send->new({ mailer => ‘SMTP’, mailer_args => [ Host => ‘sir-mx-a-lot.plusplus.com’, username => ‘rjbs’, password => ‘g0t b4ckUPS’, ], }); my $rv = $sender->send($email); unless ($rv) { die “failed to send: “ . $rv->string; }
319. problems
320. problems Return::Value
321. problems Return::Value no envelope sender
322. problems Return::Value no envelope sender awkward mailer/sender distinction
323. problems Return::Value no envelope sender awkward mailer/sender distinction difficult to extend api
324. problems Return::Value no envelope sender awkward mailer/sender distinction difficult to extend api not enough API guaranteed for interchangeability
325. Email::Sender?
327. my $sender = Email::Sender::SMTP->new({
328. my $sender = Email::Sender::SMTP->new({ host => ‘sir-mx-a-lot.plusplus.com’,
329. my $sender = Email::Sender::SMTP->new({ host => ‘sir-mx-a-lot.plusplus.com’, user => ‘rjbs’,
330. my $sender = Email::Sender::SMTP->new({ host => ‘sir-mx-a-lot.plusplus.com’, user => ‘rjbs’, pass => ‘wishiwereanoscarmeyerweiner’,
331. my $sender = Email::Sender::SMTP->new({ host => ‘sir-mx-a-lot.plusplus.com’, user => ‘rjbs’, pass => ‘wishiwereanoscarmeyerweiner’, });
332. my $sender = Email::Sender::SMTP->new({ host => ‘sir-mx-a-lot.plusplus.com’, user => ‘rjbs’, pass => ‘wishiwereanoscarmeyerweiner’, });
333. my $sender = Email::Sender::SMTP->new({ host => ‘sir-mx-a-lot.plusplus.com’, user => ‘rjbs’, pass => ‘wishiwereanoscarmeyerweiner’, }); $sender->send(
334. my $sender = Email::Sender::SMTP->new({ host => ‘sir-mx-a-lot.plusplus.com’, user => ‘rjbs’, pass => ‘wishiwereanoscarmeyerweiner’, }); $sender->send( $email,
335. my $sender = Email::Sender::SMTP->new({ host => ‘sir-mx-a-lot.plusplus.com’, user => ‘rjbs’, pass => ‘wishiwereanoscarmeyerweiner’, }); $sender->send( $email, {
336. my $sender = Email::Sender::SMTP->new({ host => ‘sir-mx-a-lot.plusplus.com’, user => ‘rjbs’, pass => ‘wishiwereanoscarmeyerweiner’, }); $sender->send( $email, { to => $env_rcpt, # or \@env_rcpts
337. my $sender = Email::Sender::SMTP->new({ host => ‘sir-mx-a-lot.plusplus.com’, user => ‘rjbs’, pass => ‘wishiwereanoscarmeyerweiner’, }); $sender->send( $email, { to => $env_rcpt, # or \@env_rcpts from => $env_sender,
338. my $sender = Email::Sender::SMTP->new({ host => ‘sir-mx-a-lot.plusplus.com’, user => ‘rjbs’, pass => ‘wishiwereanoscarmeyerweiner’, }); $sender->send( $email, { to => $env_rcpt, # or \@env_rcpts from => $env_sender, }
339. my $sender = Email::Sender::SMTP->new({ host => ‘sir-mx-a-lot.plusplus.com’, user => ‘rjbs’, pass => ‘wishiwereanoscarmeyerweiner’, }); $sender->send( $email, { to => $env_rcpt, # or \@env_rcpts from => $env_sender, } );
340. Email::Sender::Simple->send( $email, { to => $recipient, from => $sender, }, );
341. Email::Sender::Simple->send( $email, { to => $recipient, from => $sender, }, ); $ EMAIL_SENDER=SQLite ./your-program
342. Filtering Mail
343. Mail::Audit
345. my $mail = Mail::Audit->new;
346. my $mail = Mail::Audit->new;
347. my $mail = Mail::Audit->new; $mail->ignore if $mail->from_daemon;
348. my $mail = Mail::Audit->new; $mail->ignore if $mail->from_daemon;
349. my $mail = Mail::Audit->new; $mail->ignore if $mail->from_daemon; $mail->accept(‘apologies’)
350. my $mail = Mail::Audit->new; $mail->ignore if $mail->from_daemon; $mail->accept(‘apologies’) if $mail->subject =~ /sorry/i;
351. my $mail = Mail::Audit->new; $mail->ignore if $mail->from_daemon; $mail->accept(‘apologies’) if $mail->subject =~ /sorry/i;
352. my $mail = Mail::Audit->new; $mail->ignore if $mail->from_daemon; $mail->accept(‘apologies’) if $mail->subject =~ /sorry/i; $mail->reject if $mail->from =~ /laura/i;
353. my $mail = Mail::Audit->new; $mail->ignore if $mail->from_daemon; $mail->accept(‘apologies’) if $mail->subject =~ /sorry/i; $mail->reject if $mail->from =~ /laura/i;
354. my $mail = Mail::Audit->new; $mail->ignore if $mail->from_daemon; $mail->accept(‘apologies’) if $mail->subject =~ /sorry/i; $mail->reject if $mail->from =~ /laura/i; $mail->accept;
355. Email::Filter
357. my $mail = Email::Filter->new;
358. my $mail = Email::Filter->new;
359. my $mail = Email::Filter->new; $mail->ignore if $mail->from_daemon;
360. my $mail = Email::Filter->new; $mail->ignore if $mail->from_daemon;
361. my $mail = Email::Filter->new; $mail->ignore if $mail->from_daemon; $mail->accept(‘apologies’)
362. my $mail = Email::Filter->new; $mail->ignore if $mail->from_daemon; $mail->accept(‘apologies’) if $mail->subject =~ /sorry/i;
363. my $mail = Email::Filter->new; $mail->ignore if $mail->from_daemon; $mail->accept(‘apologies’) if $mail->subject =~ /sorry/i;
364. my $mail = Email::Filter->new; $mail->ignore if $mail->from_daemon; $mail->accept(‘apologies’) if $mail->subject =~ /sorry/i; $mail->reject if $mail->from =~ /laura/i;
365. my $mail = Email::Filter->new; $mail->ignore if $mail->from_daemon; $mail->accept(‘apologies’) if $mail->subject =~ /sorry/i; $mail->reject if $mail->from =~ /laura/i;
366. my $mail = Email::Filter->new; $mail->ignore if $mail->from_daemon; $mail->accept(‘apologies’) if $mail->subject =~ /sorry/i; $mail->reject if $mail->from =~ /laura/i; $mail->accept;
367. key differences
368. key differences Mail::Audit does more
369. key differences Mail::Audit does more Mail::Audit is > 4x the size
370. key differences Mail::Audit does more Mail::Audit is > 4x the size Mail::Audit is totally insane
371. key differences Mail::Audit does more Mail::Audit is > 4x the size Mail::Audit is totally insane Mail::Audit is better tested
372. Mail::Procmail
373. Mail::Procmail It’s like Mail::Audit
374. Mail::Procmail It’s like Mail::Audit but exports a bunch of subs
375. Mail::Procmail It’s like Mail::Audit but exports a bunch of subs can be made into a E::F plugin
376. Mail::Procmail It’s like Mail::Audit but exports a bunch of subs can be made into a E::F plugin built-in logging
377. Mail::Sort
378. Mail::Sort It’s like Mail::Audit
379. Mail::Sort It’s like Mail::Audit but has lots more methods
380. Mail::Sort It’s like Mail::Audit but has lots more methods mostly for common matches
381. Mail::Sort It’s like Mail::Audit but has lots more methods mostly for common matches could be some E::F plugins
382. Email Addresses
383. HATE!!
384. Mail::Address Email::Address
385. Mail::Address Email::Address
386. Mail::Message ::Field:: Address
387. Email::Valid address is well-formed domain name is valid domain is fqdn in a tld domain actually exists some per-domain rules some fudging allowed
388. Cool Stuff
389. Email::Stuff
391. Email::Stuff
392. Email::Stuff ->from('Principal Skinner <seymore@se.edu>')
393. Email::Stuff ->from('Principal Skinner <seymore@se.edu>') ->to('rjbs@cpan.org')
394. Email::Stuff ->from('Principal Skinner <seymore@se.edu>') ->to('rjbs@cpan.org') ->text_body(“Please see me after class.”)
395. Email::Stuff ->from('Principal Skinner <seymore@se.edu>') ->to('rjbs@cpan.org') ->text_body(“Please see me after class.”) ->header(Keywords => “trouble”)
396. Email::Stuff ->from('Principal Skinner <seymore@se.edu>') ->to('rjbs@cpan.org') ->text_body(“Please see me after class.”) ->header(Keywords => “trouble”) ->header(Keywords => “deep”)
397. Email::Stuff ->from('Principal Skinner <seymore@se.edu>') ->to('rjbs@cpan.org') ->text_body(“Please see me after class.”) ->header(Keywords => “trouble”) ->header(Keywords => “deep”) ->attach(
398. Email::Stuff ->from('Principal Skinner <seymore@se.edu>') ->to('rjbs@cpan.org') ->text_body(“Please see me after class.”) ->header(Keywords => “trouble”) ->header(Keywords => “deep”) ->attach( slurp(‘1099.pdf’),
399. Email::Stuff ->from('Principal Skinner <seymore@se.edu>') ->to('rjbs@cpan.org') ->text_body(“Please see me after class.”) ->header(Keywords => “trouble”) ->header(Keywords => “deep”) ->attach( slurp(‘1099.pdf’), filename => 'dead_bunbun_proof.gif')
400. Email::Stuff ->from('Principal Skinner <seymore@se.edu>') ->to('rjbs@cpan.org') ->text_body(“Please see me after class.”) ->header(Keywords => “trouble”) ->header(Keywords => “deep”) ->attach( slurp(‘1099.pdf’), filename => 'dead_bunbun_proof.gif') ->send;
401. HTML Email (yeah, I know)
402. Email::MIME ::CreateHTML
405. use Email::MIME::CreateHTML;
406. use Email::MIME::CreateHTML; my $email = Email::MIME->create_html(
407. use Email::MIME::CreateHTML; my $email = Email::MIME->create_html( header => [
408. use Email::MIME::CreateHTML; my $email = Email::MIME->create_html( header => [ to => ‘mom@aol.com’,
409. use Email::MIME::CreateHTML; my $email = Email::MIME->create_html( header => [ to => ‘mom@aol.com’, from => ‘rjbs@cpan.org’,
410. use Email::MIME::CreateHTML; my $email = Email::MIME->create_html( header => [ to => ‘mom@aol.com’, from => ‘rjbs@cpan.org’, subject => ‘Happy Birthday!’,
411. use Email::MIME::CreateHTML; my $email = Email::MIME->create_html( header => [ to => ‘mom@aol.com’, from => ‘rjbs@cpan.org’, subject => ‘Happy Birthday!’, ],
412. use Email::MIME::CreateHTML; my $email = Email::MIME->create_html( header => [ to => ‘mom@aol.com’, from => ‘rjbs@cpan.org’, subject => ‘Happy Birthday!’, ], body => $html,
413. use Email::MIME::CreateHTML; my $email = Email::MIME->create_html( header => [ to => ‘mom@aol.com’, from => ‘rjbs@cpan.org’, subject => ‘Happy Birthday!’, ], body => $html, );
414. use Email::MIME::CreateHTML; my $email = Email::MIME->create_html( header => [ to => ‘mom@aol.com’, from => ‘rjbs@cpan.org’, subject => ‘Happy Birthday!’, ], body => $html, text_body => $text, );
415. my $markdown = slurp(STDIN); use Email::MIME::CreateHTML; my $email = Email::MIME->create_html( header => [ to => ‘mom@aol.com’, from => ‘rjbs@cpan.org’, subject => ‘Happy Birthday!’, ], body => markdown($markdown), text_body => $markdown, );
416. use Email::StripMIME qw(strip_mime); my $stripped_email = Email::MIME->new( strip_mime($email->as_string) );
417. Sifting Through MIME Parts
418. Email::MIME::XPath
420. use Email::MIME::XPath;
421. use Email::MIME::XPath;
422. use Email::MIME::XPath; my ($part) = $email->xpath_findnodes(“//plain”);
423. use Email::MIME::XPath; my ($part) = $email->xpath_findnodes(“//plain”);
424. use Email::MIME::XPath; my ($part) = $email->xpath_findnodes(“//plain”); my @images = $email->xpath_findnodes(
425. use Email::MIME::XPath; my ($part) = $email->xpath_findnodes(“//plain”); my @images = $email->xpath_findnodes( “//png|//jpeg|//gif”
426. use Email::MIME::XPath; my ($part) = $email->xpath_findnodes(“//plain”); my @images = $email->xpath_findnodes( “//png|//jpeg|//gif” );
427. use Email::MIME::XPath; my ($part) = $email->xpath_findnodes(“//plain”); my @images = $email->xpath_findnodes( “//png|//jpeg|//gif” );
428. use Email::MIME::XPath; my ($part) = $email->xpath_findnodes(“//plain”); my @images = $email->xpath_findnodes( “//png|//jpeg|//gif” ); my $address = $part->xpath_address;
429. use Email::MIME::XPath; my ($part) = $email->xpath_findnodes(“//plain”); my @images = $email->xpath_findnodes( “//png|//jpeg|//gif” ); my $address = $part->xpath_address; die “error in part $address!”;
430. Sending Signed Mail
432. my $gpg = Mail::GPG->new(
433. my $gpg = Mail::GPG->new( default_key_id => ‘12345678’,
434. my $gpg = Mail::GPG->new( default_key_id => ‘12345678’, ;
435. my $gpg = Mail::GPG->new( default_key_id => ‘12345678’, ;
436. my $gpg = Mail::GPG->new( default_key_id => ‘12345678’, ; my $signed_entity = $gpg->mime_sign(
437. my $gpg = Mail::GPG->new( default_key_id => ‘12345678’, ; my $signed_entity = $gpg->mime_sign( entity => $entity,
438. my $gpg = Mail::GPG->new( default_key_id => ‘12345678’, ; my $signed_entity = $gpg->mime_sign( entity => $entity, );
439. Managing Your Mail
441. addressbook = App::Addex::AddressBook::Apple
442. addressbook = App::Addex::AddressBook::Apple output = App::Addex::Output::Mutt
443. addressbook = App::Addex::AddressBook::Apple output = App::Addex::Output::Mutt output = App::Addex::Output::Procmail
444. addressbook = App::Addex::AddressBook::Apple output = App::Addex::Output::Mutt output = App::Addex::Output::Procmail output = App::Addex::Output::SpamAssassin
445. addressbook = App::Addex::AddressBook::Apple output = App::Addex::Output::Mutt output = App::Addex::Output::Procmail output = App::Addex::Output::SpamAssassin
446. addressbook = App::Addex::AddressBook::Apple output = App::Addex::Output::Mutt output = App::Addex::Output::Procmail output = App::Addex::Output::SpamAssassin [App::Addex::Output::Mutt]
447. addressbook = App::Addex::AddressBook::Apple output = App::Addex::Output::Mutt output = App::Addex::Output::Procmail output = App::Addex::Output::SpamAssassin [App::Addex::Output::Mutt] filename = mutt/alias-abook
448. addressbook = App::Addex::AddressBook::Apple output = App::Addex::Output::Mutt output = App::Addex::Output::Procmail output = App::Addex::Output::SpamAssassin [App::Addex::Output::Mutt] filename = mutt/alias-abook
449. addressbook = App::Addex::AddressBook::Apple output = App::Addex::Output::Mutt output = App::Addex::Output::Procmail output = App::Addex::Output::SpamAssassin [App::Addex::Output::Mutt] filename = mutt/alias-abook [App::Addex::Output::Procmail]
450. addressbook = App::Addex::AddressBook::Apple output = App::Addex::Output::Mutt output = App::Addex::Output::Procmail output = App::Addex::Output::SpamAssassin [App::Addex::Output::Mutt] filename = mutt/alias-abook [App::Addex::Output::Procmail] filename = procmail/friends.rc
451. addressbook = App::Addex::AddressBook::Apple output = App::Addex::Output::Mutt output = App::Addex::Output::Procmail output = App::Addex::Output::SpamAssassin [App::Addex::Output::Mutt] filename = mutt/alias-abook [App::Addex::Output::Procmail] filename = procmail/friends.rc
452. addressbook = App::Addex::AddressBook::Apple output = App::Addex::Output::Mutt output = App::Addex::Output::Procmail output = App::Addex::Output::SpamAssassin [App::Addex::Output::Mutt] filename = mutt/alias-abook [App::Addex::Output::Procmail] filename = procmail/friends.rc [App::Addex::Output::SpamAssassin]
453. addressbook = App::Addex::AddressBook::Apple output = App::Addex::Output::Mutt output = App::Addex::Output::Procmail output = App::Addex::Output::SpamAssassin [App::Addex::Output::Mutt] filename = mutt/alias-abook [App::Addex::Output::Procmail] filename = procmail/friends.rc [App::Addex::Output::SpamAssassin] filename = spamassassin/whitelists-abook
454. addressbook = App::Addex::AddressBook::Apple output = App::Addex::Output::Mutt output = App::Addex::Output::Procmail output = App::Addex::Output::SpamAssassin [App::Addex::Output::Mutt] filename = mutt/alias-abook [App::Addex::Output::Procmail] filename = procmail/friends.rc [App::Addex::Output::SpamAssassin] filename = spamassassin/whitelists-abook
455. addressbook = App::Addex::AddressBook::Apple output = App::Addex::Output::Mutt output = App::Addex::Output::Procmail output = App::Addex::Output::SpamAssassin [App::Addex::Output::Mutt] filename = mutt/alias-abook [App::Addex::Output::Procmail] filename = procmail/friends.rc [App::Addex::Output::SpamAssassin] filename = spamassassin/whitelists-abook
458. alias mollymillions molly@bama-online.com (Molly Millions) alias mollymillions-home molly@bama-online.com (Molly Millions) alias mollymillions-work mm@solo.com (Molly Millions) alias mollymillions-work-1 s.shears@bodymiraculous.com (Molly Millions)
459. alias mollymillions molly@bama-online.com (Molly Millions) alias mollymillions-home molly@bama-online.com (Molly Millions) alias mollymillions-work mm@solo.com (Molly Millions) alias mollymillions-work-1 s.shears@bodymiraculous.com (Molly Millions) mailboxes =friends.molly
460. alias mollymillions molly@bama-online.com (Molly Millions) alias mollymillions-home molly@bama-online.com (Molly Millions) alias mollymillions-work mm@solo.com (Molly Millions) alias mollymillions-work-1 s.shears@bodymiraculous.com (Molly Millions) mailboxes =friends.molly save-hook ~fmolly@bama-online.com =friends.molly save-hook ~fmm@solo.com =friends.molly save-hook ~fs.shears@bodymiraculous.com =friends.molly
461. alias mollymillions molly@bama-online.com (Molly Millions) alias mollymillions-home molly@bama-online.com (Molly Millions) alias mollymillions-work mm@solo.com (Molly Millions) alias mollymillions-work-1 s.shears@bodymiraculous.com (Molly Millions) send-hook ~tmolly@bama-online.com set signature="~/.sig/ninja" send-hook ~tmm@solo.com set signature="~/.sig/ninja" send-hook ~ts.shears@bodymiraculous.com set signature="~/.sig/ ninja" mailboxes =friends.molly save-hook ~fmolly@bama-online.com =friends.molly save-hook ~fmm@solo.com =friends.molly save-hook ~fs.shears@bodymiraculous.com =friends.molly
463. :0 * From:.*molly@bama-online.com .friends.molly/ :0 * From:.*mm@solo.com .friends.molly/ :0 * From:.*s.shears@bodymiraculous.com .friends.molly/
464. :0 * From:.*molly@bama-online.com .friends.molly/ :0 * From:.*mm@solo.com .friends.molly/ :0 * From:.*s.shears@bodymiraculous.com .friends.molly/ whitelist_from molly@bama-online.com whitelist_from mm@solo.com whitelist_from s.shears@bodymiraculous.com
465. The Future
466. Email::Corpus
467. Email::Corpus::Email
468. Email::Corpus::Addr
469. Email::KB::Headers
470. Metadata Plugin
471. Bounce Classifier
472. http:/ /emailproject.perl.org/ pep@perl.or
473. Thank You!