Egg::Plugin::Net::Scan - Network host's port is checked.
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; }
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.
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'.
It is a method supported by Egg::Plugin::Net::Scan::Result.
my $result= $e->port_cacan( ....... );
Constructor.
When the answer from the port is admitted, true is restored.
When the answer from the port doesn't come back within the second of timeout, true is returned.
When some errors occur, the error message is returned.
Socket, Egg::Release,
Masatoshi Mizuno <lushe@cpan.org>
Copyright (C) 2008 Bee Flag, Corp. <http://egg.bomcity.com/>.
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.
To install Egg::Plugin::Net::Scan, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Egg::Plugin::Net::Scan
CPAN shell
perl -MCPAN -e shell install Egg::Plugin::Net::Scan
For more information on module installation, please visit the detailed CPAN module installation guide.