NAME

Mail::Vacation - implements unix vacation program

DESCRIPTION

Reimplentation of the unix <B>vacation</B> program, with the intention of using various authorisation and control configurations, eg LDAP.

SYNOPSIS

use Mail::Vacation;

$o_vac  = Mail::Vacation->new($config) or die("failed :-(");

$o_vac->start;

$o_vac->process($o_mail_internet); 

$o_vac->finish;

$i_isok = $o_vac->isok;

@s_msgs = $o_vac->messages;

ABSTRACT

Perl implementation of the vacation mail handling program, with the intention of using various authorisation and control configurations, eg LDAP. Logging to syslog.

NOTES

Configure this instance in the 'vacation.conf' file

Logging is via syslog to /var/log/messages, (make sure syslogd is running!)

SCRIPTS

vacation.pl

standard vacation script expecting /home/$user/.vacation message file to operate

cleanup.pl

cleans configurable time-expired repliedtodbdir entries via cron job

test.cgi

vanilla 'hello world' script to test httpd installation against script directory

SEE ALSO

Config::General::Extended

Mail::Internet

Sys::Syslog

EXPORT

None by default.

require Exporter;

our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw( ) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw( );

new

Create new Mail::Vacation object

$o_vac = Mail::Vacation->new($config_file);

start

Things to do before we process anything

$o_vac->start();

finish

Finishing stuff goes here

$o_vac->finish();

process

Process the given mail

$o_vac->process($o_main_internet, [h_test]);

cleanup

Cleanup replied-to dbs based on (now - expirytime) or optionally given date. All entries older than given date will be removed, to clean a file, you can empty it by giving a date of, for example, '99999999'.

$o_vac->cleanup($date, [opt_a_ref_addresses]);

isok

Return current valid value

$i_isok = $o_vac->isok;

messages

Return current messages

print $o_vac->messages;

AUTHOR

Richard Foley, <richard.foley@rfi.net>

COPYRIGHT AND LICENSE

Copyright 2002 by Richard Foley

Sponsered by Octogon Gmbh, Feldafing, Germany

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

cpanm Mail::Vacation

perl -MCPAN -e shell
install Mail::Vacation