1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
|
package Net::CLI::Interact::Transport::Telnet;
{
$Net::CLI::Interact::Transport::Telnet::VERSION = '2.142720';
}
use Moo;
use Sub::Quote;
use MooX::Types::MooseLike::Base qw(InstanceOf);
extends 'Net::CLI::Interact::Transport::Base';
{
package # hide from pause
Net::CLI::Interact::Transport::Telnet::Options;
use Moo;
use Sub::Quote;
use MooX::Types::MooseLike::Base qw(Str Int ArrayRef Any);
extends 'Net::CLI::Interact::Transport::Options';
has 'host' => (
is => 'rw',
isa => Str,
required => 1,
);
has 'port' => (
is => 'rw',
isa => Int,
default => quote_sub('23'),
);
has 'opts' => (
is => 'rw',
isa => ArrayRef[Any],
default => sub { [] },
);
}
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# allow native use of Net::Telnet on Unix
if (not Net::CLI::Interact::Transport::Base::is_win32()) {
has '+use_net_telnet_connection' => ( default => quote_sub('1') );
}
has 'connect_options' => (
is => 'ro',
isa => InstanceOf['Net::CLI::Interact::Transport::Telnet::Options'],
coerce => quote_sub(q{ (ref '' eq ref $_[0]) ? $_[0] :
Net::CLI::Interact::Transport::Telnet::Options->new(@_) }),
required => 1,
);
sub _build_app {
my $self = shift;
die "please pass location of plink.exe in 'app' parameter to new()\n"
if $self->is_win32;
return 'telnet';
}
sub runtime_options {
my $self = shift;
if ($self->is_win32) {
return (
'-telnet',
'-P', $self->connect_options->port,
@{$self->connect_options->opts},
$self->connect_options->host,
);
}
elsif ($self->can_use_pty) {
return (
Host => $self->connect_options->host,
Port => $self->connect_options->port,
@{$self->connect_options->opts},
);
}
else {
return (
@{$self->connect_options->opts},
$self->connect_options->host,
$self->connect_options->port,
);
}
}
1;
# ABSTRACT: TELNET based CLI connection
__END__
=pod
=head1 NAME
Net::CLI::Interact::Transport::Telnet - TELNET based CLI connection
=head1 VERSION
version 2.142720
=head1 DESCRIPTION
This module provides a wrapped instance of a TELNET client for use by
L<Net::CLI::Interact>.
=head1 INTERFACE
=head2 app
On Windows platforms you B<must> download the C<plink.exe> program, and pass its
location to the library in this parameter. On other platforms, this defaults to
C<telnet>.
=head2 runtime_options
Based on the C<connect_options> hash provided to Net::CLI::Interact on
construction, selects and formats parameters to provide to C<app> on the
command line. Supported attributes:
=over 4
=item host (required)
Host name or IP address of the host to which the TELNET application is to
connect.
=item port
Port number on the host which is listening for the TELNET connection.
Defaults to 23.
=item opts
If you want to pass any other options to the Telnet application, then use
this option, which should be an array reference.
On Windows platforms, each item on the list will be passed to the C<plink.exe>
application, separated by a single space character. On Unix platforms, if depends
whether you have L<IO::Pty> installed (which in turn depends on a compiler).
Typically, the L<Net::Telnet> library is used for TELNET connections, so the
list can be any options taken by its C<new()> constructor. Otherwise the local
C<telnet> application is used.
=item reap
Only used on Unix platforms, this installs a signal handler which attempts to
reap the C<ssh> child process. Pass a true value to enable this feature only
if you notice zombie processes are being left behind after use.
=back
=head1 COMPOSITION
See the following for further interface details:
=over 4
=item *
L<Net::CLI::Interact::Transport::Base>
=back
=head1 AUTHOR
Oliver Gorwits <oliver@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2014 by Oliver Gorwits.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|
