NAME

POE::Component::RemoteTail::CustomEngine::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

new()

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.

SEE ALSO