The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

mail_tempaddress_purge.pl - purge Mail::TempAddress::Address object when they expire

SYNOPSIS

  mail_tempaddress_purge.pl directory [min_age] [-v]

DESCRIPTION

mail_tempaddress_addresses.pl applies the Purge role from Mail::Action::Role::Purge to a Mail::TempAddress::Addresses collection. This role allows the purging of expired Mail::TempAddress::Address objects. This program is intended to be run on a regular basis from cron or a similar facility.

When run the number of addresses present in the address directory before the purge and the number of addresses purged will be listed to the terminal.

ARGUMENTS

The only required argument is the directory in which the addresses are stored. This is the same as the argument to the Mail::TempAddress constructor. For safety it is recommended that this be a absolute directory path.

OPTIONS

A minimum time that each address has been expired for may be passed as an optional argument. The time may be in seconds or a freeform expression such as "1h30m" or "2m1w".

If -v or --verbose is passed then the addresses present will be listed to the terminal both before and after the purge.

AUTHOR

James FitzGibbon, <jfitz@CPAN.ORG>

COPYRIGHT

Copyright (c) 2003, James FitzGibbon. This program is free software; you may use/modify it under the same terms as Perl itself.