NAME

Mail::OpenRelay::Simple - check if a mail server runs as an open relay.

SYNOPSIS

  use Mail::OpenRelay::Simple;

  my $host = "127.0.0.1"; 
 
  my $scan = Mail::OpenRelay::Simple->new({
    host       => $host,
    timeout    => 5,
    from_email => "test\@foobar.com",
    rcpt_email => "test\@foobar.com",
    banner     => 0,
    debug      => 0
  });

  print "$host open relay\n" if $scan->check;

DESCRIPTION

This module permit to check if a mail server runs as an open relay.

Note: this module provides only a simple test. No email message is sended.

METHODS

new

The constructor. Given a host returns a Mail::OpenRelay::Simple object:

  my $scan = Mail::OpenRelay::Simple->new({ host => "127.0.0.1" });

Optionally, you can also specify :

port: remote port. Default is 25;
timeout: default is 8 seconds;
from_email: default is test\@foobar.com;
rcpt_email: default is test\@foobar.com;
banner: 0 (none), 1 (show mail server banner). Default is 0;
debug: 0 (none), 1 (show all requests). Defualt is 0;

check

Checks the target.

  $scan->check;

AUTHOR

Matteo Cantoni, <mcantoni@cpan.org>

COPYRIGHT AND LICENSE

You may distribute this module under the terms of the Artistic license. See Copying file in the source distribution archive.