File Coverage

blib/lib/SyslogScan/SendmailUtil.pm

Criterion	Covered	Total	%
statement	1	4	25.0
branch			n/a
condition			n/a
subroutine	1	2	50.0
pod			n/a
total	2	6	33.3

# SendmailUtil.pm:  exports utilities for use with syslog
#   sendmail parsing.

package SyslogScan::SendmailUtil;

$VERSION = 0.20;

sub Version { $VERSION };

use SyslogScan::SyslogEntry;
use SyslogScan::SendmailLine;
use strict;

# getNextMailTransfer: given a filehandle, gets the next SyslogEntry
# which is also a SendmailLineTrans
sub getNextMailTransfer
{
    my $fh = shift;

    my ($pLogLine, $lineClass);
    while ($pLogLine = new SyslogScan::SyslogEntry $fh)
    {
	my $executable = $$pLogLine{'executable'};
	next unless ($executable eq 'sendmail');

	$lineClass = ref $pLogLine;

	# do not tolerate errors in sendmail module except
	# for unbalanced parens and i/o errors
	if ($lineClass =~ /BotchedEntry/)
	{
	    next if $$pLogLine{errorString} =~ /unbalanced paren/;
	    next if $$pLogLine{suspectIOError};
	    die "parsing error:  $$pLogLine{'errorString'}";
	}

        die "sanity check of class failed for $lineClass"
	    unless ($lineClass =~ /^SyslogScan::SendmailLine/);

	last if (($lineClass =~ /From/) || ($lineClass =~ /To/)
		 || ($lineClass =~ /Clone/));
    }
    return $pLogLine;   # either a Transfer, or undefined at EOF
}

sub canonAddress
{
    my $address = shift;

    $address =~ s/^\<(.+)\>$/$1/;
    $address =~ tr/A-Z/a-z/;
    $address =~ /[\!\@]/ or $address .= '@localhost';
    $address;
}

1;

__END__