This has been "fun with email" week, starting with the problem that lead to the discovery that
my $msg = new MIME::Lite( From => "Dave Smithand", ...
my $msg = new MIME::Lite( From => "dws\@postcognitive.com", ...produce significantly different email envelopes and headers, and that certain ISPs would filter out the former while letting the latter pass. (An archeological dig into MIME::Lite is on the short list for this week.) (Update: It was an old version of MIME::Lite.)
Then, one of my trusty procmail rules,
:0 * ^Content-type:.*html Mail/htmlspamwhich has faithfully trapped 12,561 HTML-only spams this year, finally serves up a false-positive. And it's a message about scheduling a job interview.
Then, last night, one of my domains gets joe-jobbed, and AOL spits back a handful of bounces before declaring me a spammer.
This week, I think I'll send a real, physical, ink-on-paper letter. It's been a while.
This:
perl -MMIME::Lite -le '$msg = MIME::Lite->new( From => "Scott Godin <sgodin\@blah.com>", Subject => "Testing...", Data => "Blah some message this is"); $msg->attach(Type => "TEXT", Data => "Heres your message"); $msg->print(\*STDOUT)'
produces no statistically different output that I can see, from this:
perl -MMIME::Lite -le '$msg = MIME::Lite->new( From => "sgodin\@blah.com", Subject => "Testing...", Data => "Blah some message this is"); $msg->attach(Type => "TEXT", Data => "Heres your message"); $msg->print(\*STDOUT)'
bash:
pv () { perl -M$1 -le "print q{$1}->VERSION";}
tcsh:
$ alias pv 'perl -M\!* -le "print q{\!*}->VERSION"'
$ pv MIME::Lite
3.01
Same Version?
Re:tried a few experiments:
dws on 2003-10-02T16:23:52
Ah. My ISP has MIME::Lite 2.117. Time to prod them for an upgrade.Re:tried a few experiments:
WebDragon on 2003-10-02T19:33:41
either that, or install it locally in ~/perl:-)