AOLserver-CtrlPort

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

            Host     => 'myhost',
            Port     => 3456,
            User     => 'username',
            Password => 'password',
        );

        my $out = $conn->send_cmds(<<EOT);
            info tclversion
        EOT

        print $out, "\n";

DESCRIPTION
    "AOLserver::CtrlPort" uses "Net::Telnet" to connect to a running
    AOLserver's control port, issues commands there and returns the output.

    It is useful for creating test suites for AOLserver applications which
    can be controlled via the control port.

    To configure AOLserver's control port, use settings similar to the
    following ones:

adm/release  view on Meta::CPAN

###########################################
use warnings;
use strict;

    # Available at http://perlmeister.com/scripts
use ModDevUtils;

ModDevUtils::release() or exit 0;

my $ball = ModDevUtils::tarball_name();
print "Copying $ball to perlmeister.com ...\n";
system("scp $ball perlmeis\@sprite.netnation.com:/home/perlmeis/tmp");
print "Releasing it on perlmeister.com ...\n";
system("ssh -l perlmeis sprite.netnation.com bin/rel $ball\n");

eg/info  view on Meta::CPAN

use AOLserver::CtrlPort;
use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($DEBUG);

my $c = AOLserver::CtrlPort->new(
    Host => 'localhost',
    Port => '3334',
);

my $out = $c->send_cmds("info tclversion\ninfo tclversion");
print "out=$out";

lib/AOLserver/CtrlPort.pm  view on Meta::CPAN

        Host     => 'myhost',
        Port     => 3456,
        User     => 'username',
        Password => 'password',
    );

    my $out = $conn->send_cmds(<<EOT);
        info tclversion
    EOT

    print $out, "\n";

=head1 DESCRIPTION

C<AOLserver::CtrlPort> uses C<Net::Telnet> to connect to a running
AOLserver's control port, issues commands there and returns the 
output.

It is useful for creating test suites for AOLserver applications which
can be controlled via the control port. 

t/002.t  view on Meta::CPAN

my $c = AOLserver::CtrlPort->new(
    Host     => $host,
    Port     => $port,
    User     => $user,
    Password => $passwd,
);

my $out = $c->send_cmds("info tcl");
like($out, qr/^\d+\.\d+\n/);
#print "out=$out\n";