|
NAMEEmail::Delete - Delete Messages from FoldersVERSIONversion 2.002SYNOPSISuse Email::Delete qw[delete_message]; my $message_id = shift @ARGV; delete_message from => $ENV{MAIL}, matching => sub { my $message = shift; $message->header('Message-ID') =~ $message_id; }; DESCRIPTIONThis software will delete messages from a given folder if the test returns true.delete_messagedelete_message from => 'folder_name', with => 'My::Delete::Package', matching => sub { return_true_for_delete() }; "from" is a required parameter, a string containing the folder name to delete from. By default "Email::FolderType" is used to determine what package to use when deleting a message. To override the default, specify the "with" parameter. Your package's "delete_message" function will be called with the same arguments that "delete_message" from Email::Delete is called with. "matching" is a required argument. Its value is a code reference. If the anonymouse subroutine returns a true value, the current message is deleted. Each message is passed to the "matching" test in turn. The first and only argument to "matching" is an "Email::Simple" object representing the message. If you should ever want to stop processing a mailbox, just call "die" from your code reference. A proper deleting package will not delete mail until all the messages have been scanned. So if you throw an exception, your mail will be preserved and scanning will be aborted. SEE ALSOEmail::Simple, Email::Folder, Email::LocalDelivery, perl.AUTHORCasey West, <casey@geeknest.com>.COPYRIGHTCopyright (c) 2004 Casey West. All rights reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Visit the GSP FreeBSD Man Page Interface. |