AOLserver-CtrlPort

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

        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:

        ns_section "ns/server/${servername}/module/nscp"
            ns_param address myhostname
            ns_param port 3334
            ns_param echopassword 1
            ns_param cpcmdlogging 1

README  view on Meta::CPAN

Debugging
    AOLserver::CtrlPort is Log4perl enabled. If your scripts don't do what
    you want and you need to find out which messages are being sent back and
    forth, you can easily bump up AOLserver::CtrlPort's internal debugging
    level by saying something like

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

    in your test script before any AOLserver::CtrlPort commands are called.

    Please check out the Log::Log4perl documentation for details.

AUTHOR
    Mike Schilli, 2004, m@perlmeister.com

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

    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. 

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

    ns_section "ns/server/${servername}/module/nscp"
        ns_param address myhostname
        ns_param port 3334
        ns_param echopassword 1
        ns_param cpcmdlogging 1

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

=head1 Debugging

AOLserver::CtrlPort is Log4perl enabled. If your scripts don't do 
what you want and you need to find out which messages are being sent
back and forth, you can easily bump up AOLserver::CtrlPort's
internal debugging level by saying something like

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

in your test script before any AOLserver::CtrlPort commands are called.

Please check out the Log::Log4perl documentation for details.

=head1 AUTHOR

Mike Schilli, 2004, m@perlmeister.com

=cut

t/001.t  view on Meta::CPAN

use Test::More tests => 1;
BEGIN { use_ok('AOLserver::CtrlPort') };

t/002.t  view on Meta::CPAN

use Test::More;

BEGIN {
    if($ENV{AOLSERVERCP}) {
       plan tests => 1;
    } else {
       plan skip_all => "Only with AOLSERVERCP set to host:port:u:p";
    };
}

use AOLserver::CtrlPort;

my($host, $port, $user, $passwd) = split /:/, $ENV{AOLSERVERCP};

my $c = AOLserver::CtrlPort->new(