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;

SEE ALSO

http://en.wikipedia.org/wiki/Open_mail_relay

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.

Copyright (c) 2006, Matteo Cantoni