NAME
POE::Component::RemoteTail::Engine::NetSSHPerl - Pure Perl SSH engine
SYNOPSIS
use POE::Component::Remotetail;
my $tailer = POE::Component::RemoteTail->spawn();
my $job = $tailer->job(
host => $host1,
path => $path,
user => $user,
password => $password,
process_class => "POE::Component::RemoteTail::CustomEngine::NetSSHPerl"
);
POE::Session->create(
inline_states => {
_start => sub {
my $kernel = @_[KERNEL];
$kernel->post($tailer->session_id(), "start_tail" => {job => $job});
$kernel->delay_add("stop_job", 100);
},
stop_job => sub {
my $kernel = @_[KERNEL];
$kernel->post($tailer->session_id(), "stop_tail" => {job => $job});
}
}
);
POE::Kernel->run();
DESCRIPTION
POE::Component::RemoteTail::CustomEngine::NetSSHPerl adopts Net::SSH::Perl inside.
Every engine has to override 'process_entry()' method.
METHOD
process_entry()
AUTHOR
Takeshi Miki <miki@cpan.org>
LICENSE
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.