NAME
Egg::Plugin::Net::Scan - Network host's port is checked.
SYNOPSIS
use Egg qw/ Net::Scan /;
# If the port is effective, by the 25th mail is sent.
my $scan= $e->port_scan('192.168.1.1', 25, timeout => 3 );
if ( $scan->is_success ) {
$e->mail->send;
print " Mail was transmitted.";
} elsif ( $scan->is_block ) {
print " Mail server has stopped. ";
} else {
print " Error occurs: ". $scan->is_error;
}DESCRIPTION
It is a plugin to check the operational condition of arbitrary host's port.
* Because 'alarm' command is used, it operates in the platform that doesn't correspond. A fatal error occurs when it is made to do.
METHODS
port_scan ( [TARGET_HOST], [TARGET_PORT], [OPTION] )
The port scan is done and the result is returned with the 'Egg::Plugin::Net::Scan::Result' object.
When TARGET_HOST and TARGET_PORT are omitted, the exception is generated.
The following options can be passed to OPTION.
timeout
Time to wait for answer from port.
* It is judged that it is blocked when there is no answer in this time.
Default is '1'.
protcol
Communication protocol.
Default is 'tcp'.
RESULT METHODS
It is a method supported by Egg::Plugin::Net::Scan::Result.
new
Constructor.
is_success
When the answer from the port is admitted, true is restored.
is_block
When the answer from the port doesn't come back within the second of timeout, true is returned.
is_error
When some errors occur, the error message is returned.
SEE ALSO
AUTHOR
Masatoshi Mizuno <lushe@cpan.org>
COPYRIGHT
Copyright (C) 2007 by Bee Flag, Corp. <http://egg.bomcity.com/>, All Rights Reserved.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.