Author image Masatoshi Mizuno
and 1 contributors

NAME

Egg::Plugin::Net::Ping - Net::Ping for Egg plugin.

SYNOPSIS

  use Egg qw/ Net::Ping /;
  
  __PACKAGE__->egg_startup(
    ...
    .....
    plugin_net_ping => {
      protcol => 'tcp',
      timeout => 3,
      retry   => 1,
      wait    => 0.5,
      },
    );

  if ( $e->ping('192.168.1.1') ) {
    print " Ping was answered. !! ";
  } else {
    print " There is no answer to Ping. ";
  }

DESCRIPTION

It is a plug-in to investigate while arbitrary PC is operating by Net::Ping.

CONFIGURATION

Please set 'plugin_net_ping'.

protcol

They are the protocols such as tcp and udp.

Default is 'tcp'.

* I do not think that it operates well perhaps excluding tcp.

timeout

Time to wait for answer of ping.

Default is '3'.

retry

Frequency in which ping is done.

wait

Waiting time to doing next retry.

Default is '0.5'.

self_addr

Own host address.

METHODS

ping ( [TARGET_HOST], [ARGS_HASH] )

Ping is sent to TARGET_HOST, and the succeeding frequency is returned.

ARGS_HASH overwrites initialization.

* When retry is set to five times or more, five is compulsorily set.

  $e->ping('192.168.1.111', retry => 5 );

SEE ALSO

Egg::Release, Net::Ping,

AUTHOR

Masatoshi Mizuno <lushe@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2008 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.