Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

2shortplanks (968)

2shortplanks
  (email not shown publicly)
http://2shortplanks.com/
AOL IM: trelane2sp (Add Buddy, Send Message)
Yahoo! ID: trelane2sp (Add User, Send Message)

Mark Fowler has never been the same since he was elected leader of the London Perl Mongers. The strain manifests itself mainly in releasing various [cpan.org] modules [cpan.org] to CPAN, giving talks [2shortplanks.com], and use of the Trelane nick on #london.pm for endless procrastination. Doctors are still seeking a cure.
Tuesday August 21, 2001
05:07 PM

emailbot for Buffy

[ #685 ]
So yesterday Celia complained at me that I never answer her mails, which is blatantly untrue. Actually, I never answer her mails in time which, admittedly, in the end is all and all the same thing. This time it was actually critical...she wanted to know if I'd bought the next set of Buffy videos or not or should she buy them and bring them round. I hadn't and because I didn't mail her back neither did she so none of us got to watch any Buffy last night. This is not good.

So I decided to do something about it. Now I have my funky Mail::Audit script running I figured that I should get it to take some drastic action when I actually get mail sent directly to me (rather than just via the millions of email lists I seem to be on.) Since I spend quite a lot of time hanging out on IRC I figured it'd be a good idea to have it /msg me on there whenever I got a mail.

In a spare hour recently I'd written a couple of bots in POE...one that simply reversed whatever you said to it, the other that looked up the titles of web pages (in a non-blocking way of course - this is POE.) Adapting my code from this I hacked in a quick SocketFactory that listens on a socket and simply /msgs me any text that is sent to it. Three lines added to the Mail::Audit script to open, print to and then close an IO::Socket and we're in business.

Perl is so great for rapid development of simple things.