The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

SendmailUtil.pm -- utilities for sendmail packages.

SYNOPSIS

  use SyslogScan::SendmailUtil;

  open(FH,"/var/log/syslog");
  my $transfer;
  while ($transfer = SyslogScan::SendmailUtil::getNextMailTranfer(\*FH))
  {
     # process the tranfer
  }

DESCRIPTION

getNextMailTransfer queries a filehandle pointing to a syslog for the next line which is a sendmail 'To:', 'From:', and 'Clone:' lines, and returns a SyslogScan::SendmailLineFrom, SyslogScan::SendmailLineTo, or SyslogScan::SendmailLineClone object.

canonAddress() routine

The canonAddress() routine modifies the address of the Sendmail routines to be all-lowercase, remove enclosing brackets, and append '@localhost' to local addresses. Modifying this routine will change how SyslogScan canonicalizes.

AUTHOR and COPYRIGHT

The author (Rolf Harold Nelson) can currently be e-mailed as rolf@usa.healthnet.org.

This code is Copyright (C) SatelLife, Inc. 1996. All rights reserved. This code is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

In no event shall SatelLife be liable to any party for direct, indirect, special, incidental, or consequential damages arising out of the use of this software and its documentation (including, but not limited to, lost profits) even if the authors have been advised of the possibility of such damage.

SEE ALSO

SyslogScan::SendmailLineFrom, SyslogScan::SendmailLineTo, SyslogScan::SyslogEntry