Richard Foley > Mail-Vacation-0.05 > Mail::Vacation

Download:
Mail-Vacation-0.05.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.05   Source  

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.

syntax highlighting: