| line |
true |
false |
branch |
|
154
|
0 |
0 |
unless open my $key, "<", $privateKey |
|
156
|
0 |
0 |
if (/ENCRYPTED/) |
|
168
|
0 |
1 |
unless @$argsRef |
|
170
|
2 |
2 |
++$even_lc % 2 && defined $_ ? : |
|
173
|
0 |
2 |
unless defined $argsIn[$i] |
|
174
|
2 |
0 |
if ($validArgs{$argsIn[$i]}) |
|
178
|
0 |
0 |
unless $noCarp |
|
186
|
0 |
0 |
unless @$argsRef |
|
188
|
0 |
0 |
++$even_lc % 2 ? : |
|
191
|
0 |
0 |
if $suppressArgs{$argsIn[$i]} |
|
201
|
0 |
2 |
if (not defined $mode) { } |
|
|
0 |
2 |
elsif ($mode =~ /^\s*die\s*$/i) { } |
|
|
0 |
2 |
elsif ($mode =~ /^\s*croak\s*$/i) { } |
|
|
2 |
0 |
elsif ($mode =~ /^\s*return\s*$/i) { } |
|
|
0 |
0 |
elsif (ref $mode) { } |
|
209
|
0 |
0 |
unless (validCodeRef($mode)) |
|
225
|
0 |
0 |
defined $1 ? : |
|
231
|
0 |
0 |
if ref $codeRef eq "CODE" |
|
232
|
0 |
0 |
if ref $codeRef eq "ARRAY" and ref $codeRef->[0] eq "CODE" |
|
239
|
0 |
0 |
if ref $callRef eq "CODE" |
|
249
|
0 |
0 |
if validCodeRef($mode) |
|
250
|
0 |
0 |
if lc $privacy eq "clear" |
|
251
|
0 |
0 |
if lc $privacy eq "hide" |
|
263
|
0 |
1 |
if (@_ == 1) { } |
|
270
|
0 |
1 |
defined $args{'debug'} ? : |
|
271
|
1 |
0 |
defined $args{'errmode'} ? : |
|
272
|
0 |
1 |
defined $args{'errmsg_format'} ? : |
|
273
|
0 |
1 |
unless defined $connectionType |
|
275
|
1 |
0 |
if ($connectionType =~ /^TELNET$/i) { } |
|
|
0 |
0 |
elsif ($connectionType =~ /^SSH$/i) { } |
|
276
|
0 |
1 |
unless $UseTelnet |
|
285
|
0 |
0 |
unless $UseSSH |
|
291
|
0 |
0 |
if ($^O eq 'MSWin32') { } |
|
292
|
0 |
0 |
unless $UseSerial |
|
295
|
0 |
0 |
$debug & 2 ? : |
|
296
|
0 |
0 |
unless $parent = "Win32::SerialPort"->new($connectionType, !($debug & 1)) |
|
300
|
0 |
0 |
unless $UseSerial |
|
303
|
0 |
0 |
$debug & 2 ? : |
|
304
|
0 |
0 |
unless $parent = "Device::SerialPort"->new($connectionType, !($debug & 1)) |
|
364
|
0 |
1 |
$connectionType eq 'SSH' ? : |
|
365
|
0 |
1 |
if ($connectionType eq "SERIAL") |
|
367
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
370
|
1 |
0 |
if ($connectionType eq "TELNET") |
|
377
|
1 |
1 |
if ($arg eq 'errmode') { } |
|
|
0 |
1 |
elsif ($arg eq 'errmsg_format') { } |
|
|
0 |
1 |
elsif ($arg eq 'timeout') { } |
|
|
0 |
1 |
elsif ($arg eq 'connection_timeout') { } |
|
|
0 |
1 |
elsif ($arg eq 'read_block_size') { } |
|
|
0 |
1 |
elsif ($arg eq 'blocking') { } |
|
|
0 |
1 |
elsif ($arg eq 'read_attempts') { } |
|
|
0 |
1 |
elsif ($arg eq 'readwait_timer') { } |
|
|
0 |
1 |
elsif ($arg eq 'data_with_error') { } |
|
|
0 |
1 |
elsif ($arg eq 'return_reference') { } |
|
|
0 |
1 |
elsif ($arg eq 'output_record_separator') { } |
|
|
0 |
1 |
elsif ($arg eq 'prompt_credentials') { } |
|
|
0 |
1 |
elsif ($arg eq 'prompt') { } |
|
|
0 |
1 |
elsif ($arg eq 'username_prompt') { } |
|
|
0 |
1 |
elsif ($arg eq 'password_prompt') { } |
|
|
0 |
1 |
elsif ($arg eq 'terminal_type') { } |
|
|
0 |
1 |
elsif ($arg eq 'window_size') { } |
|
|
0 |
1 |
elsif ($arg eq 'report_query_status') { } |
|
|
0 |
1 |
elsif ($arg eq 'input_log') { } |
|
|
0 |
1 |
elsif ($arg eq 'output_log') { } |
|
|
0 |
1 |
elsif ($arg eq 'dump_log') { } |
|
|
0 |
1 |
elsif ($arg eq 'debug') { } |
|
415
|
0 |
0 |
if (@_ == 1) { } |
|
417
|
0 |
0 |
if ($args{'host'} =~ /^(.+?)\s+(\d+)$/ or $args{'host'} =~ /^([^:\s]+?):(\d+)$/) |
|
435
|
0 |
0 |
defined $args{'blocking'} ? : |
|
|
0 |
0 |
defined $args{'connection_timeout'} ? : |
|
|
0 |
0 |
defined $args{'errmode'} ? : |
|
462
|
0 |
0 |
defined $args{'prompt_credentials'} ? : |
|
466
|
0 |
0 |
if ($self->{'TYPE'} ne "SERIAL" and not $UseSocketIP and defined $args{'blocking'} and not $args{'blocking'}) |
|
470
|
0 |
0 |
if defined $self->{'POLL'}{'errmode'} |
|
478
|
0 |
0 |
if @_ |
|
480
|
0 |
0 |
unless (defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == "Control::CLI"->can("connect_poll")) |
|
484
|
0 |
0 |
if defined $self->{'POLL'}{'errmode'} |
|
487
|
0 |
0 |
unless defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0 |
|
499
|
0 |
0 |
defined $args{'timeout'} ? : |
|
500
|
0 |
0 |
defined $args{'blocking'} ? : |
|
501
|
0 |
0 |
defined $args{'return_reference'} ? : |
|
502
|
0 |
0 |
defined $args{'errmode'} ? : |
|
503
|
0 |
0 |
if defined $errmode |
|
505
|
0 |
0 |
if $blocking and not length $self->{'BUFFER'} |
|
517
|
0 |
0 |
defined $args{'read_attempts'} ? : |
|
518
|
0 |
0 |
defined $args{'readwait_timer'} ? : |
|
519
|
0 |
0 |
defined $args{'data_with_error'} ? : |
|
520
|
0 |
0 |
defined $args{'timeout'} ? : |
|
521
|
0 |
0 |
defined $args{'blocking'} ? : |
|
522
|
0 |
0 |
defined $args{'return_reference'} ? : |
|
523
|
0 |
0 |
defined $args{'errmode'} ? : |
|
524
|
0 |
0 |
if defined $errmode |
|
528
|
0 |
0 |
if (not length $$bufref and $blocking) |
|
530
|
0 |
0 |
unless defined $bufref |
|
536
|
0 |
0 |
unless (defined $outref) |
|
537
|
0 |
0 |
if $dataWithError and length $$bufref |
|
540
|
0 |
0 |
if (length $$outref) |
|
546
|
0 |
0 |
$returnRef ? : |
|
558
|
0 |
0 |
if (@_ == 1) { } |
|
565
|
0 |
0 |
if $args[$i] eq "match" |
|
566
|
0 |
0 |
if $args[$i] eq "match_list" and ref $args[$i + 1] eq "ARRAY" |
|
567
|
0 |
0 |
if $args[$i] eq "timeout" |
|
568
|
0 |
0 |
if $args[$i] eq "blocking" |
|
569
|
0 |
0 |
if $args[$i] eq "return_reference" |
|
570
|
0 |
0 |
if $args[$i] eq "errmode" |
|
571
|
0 |
0 |
if $args[$i] eq "poll_syntax" |
|
597
|
0 |
0 |
if defined $self->{'POLL'}{'errmode'} |
|
601
|
0 |
0 |
if ($pollSyntax) { } |
|
602
|
0 |
0 |
wantarray ? : |
|
605
|
0 |
0 |
wantarray ? : |
|
613
|
0 |
0 |
if @_ |
|
615
|
0 |
0 |
unless (defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == "Control::CLI"->can("waitfor_poll")) |
|
620
|
0 |
0 |
if defined $self->{'POLL'}{'errmode'} |
|
623
|
0 |
0 |
unless defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0 |
|
634
|
0 |
0 |
if (@_ == 1) { } |
|
641
|
0 |
0 |
unless defined $args{'string'} |
|
642
|
0 |
0 |
defined $args{'errmode'} ? : |
|
643
|
0 |
0 |
if defined $errmode |
|
653
|
0 |
0 |
if (@_ == 1) { } |
|
660
|
0 |
0 |
defined $args{'errmode'} ? : |
|
661
|
0 |
0 |
if defined $errmode |
|
695
|
0 |
0 |
defined $args{'blocking'} ? : |
|
|
0 |
0 |
defined $args{'timeout'} ? : |
|
|
0 |
0 |
defined $args{'errmode'} ? : |
|
|
0 |
0 |
defined $args{'return_reference'} ? : |
|
705
|
0 |
0 |
defined $args{'prompt_credentials'} ? : |
|
|
0 |
0 |
defined $args{'prompt'} ? : |
|
|
0 |
0 |
defined $args{'username_prompt'} ? : |
|
|
0 |
0 |
defined $args{'password_prompt'} ? : |
|
709
|
0 |
0 |
if defined $self->{'POLL'}{'errmode'} |
|
717
|
0 |
0 |
if @_ |
|
719
|
0 |
0 |
unless (defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == "Control::CLI"->can("login_poll")) |
|
724
|
0 |
0 |
if defined $self->{'POLL'}{'errmode'} |
|
727
|
0 |
0 |
unless defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0 |
|
738
|
0 |
0 |
if (@_ == 1) { } |
|
745
|
0 |
0 |
unless defined $args{'command'} |
|
758
|
0 |
0 |
defined $args{'blocking'} ? : |
|
|
0 |
0 |
defined $args{'timeout'} ? : |
|
|
0 |
0 |
defined $args{'errmode'} ? : |
|
|
0 |
0 |
defined $args{'return_reference'} ? : |
|
764
|
0 |
0 |
defined $args{'prompt'} ? : |
|
769
|
0 |
0 |
if defined $self->{'POLL'}{'errmode'} |
|
773
|
0 |
0 |
if ($args{'poll_syntax'}) { } |
|
774
|
0 |
0 |
wantarray ? : |
|
777
|
0 |
0 |
wantarray ? : |
|
785
|
0 |
0 |
if @_ |
|
787
|
0 |
0 |
unless (defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == "Control::CLI"->can("cmd_poll")) |
|
792
|
0 |
0 |
if defined $self->{'POLL'}{'errmode'} |
|
795
|
0 |
0 |
unless defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0 |
|
806
|
0 |
0 |
if (@_ == 1) { } |
|
820
|
0 |
0 |
defined $args{'blocking'} ? : |
|
|
0 |
0 |
defined $args{'errmode'} ? : |
|
835
|
0 |
0 |
defined $args{'baudrate'} ? : |
|
|
0 |
0 |
defined $args{'parity'} ? : |
|
|
0 |
0 |
defined $args{'databits'} ? : |
|
|
0 |
0 |
defined $args{'stopbits'} ? : |
|
|
0 |
0 |
defined $args{'handshake'} ? : |
|
838
|
0 |
0 |
if defined $self->{'POLL'}{'errmode'} |
|
846
|
0 |
0 |
if @_ |
|
848
|
0 |
0 |
unless (defined $self->{'POLL'} and $self->{'POLL'}{'coderef'} == "Control::CLI"->can("change_baudrate_poll")) |
|
852
|
0 |
0 |
if defined $self->{'POLL'}{'errmode'} |
|
855
|
0 |
0 |
unless defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0 |
|
866
|
0 |
0 |
unless (defined $fh) |
|
869
|
0 |
0 |
if ($self->{'TYPE'} eq 'TELNET') { } |
|
871
|
0 |
0 |
if (defined $fh and $self->{'PARENT'}->errmsg =~ /problem creating $fh: (.*)/) |
|
876
|
0 |
0 |
unless (ref $fh or length $fh) |
|
880
|
0 |
0 |
unless (ref $fh or defined fileno $fh) |
|
883
|
0 |
0 |
unless open $fh, ">", "$logfile" |
|
896
|
0 |
0 |
unless (defined $fh) |
|
899
|
0 |
0 |
if ($self->{'TYPE'} eq 'TELNET') { } |
|
901
|
0 |
0 |
if (defined $fh and $self->{'PARENT'}->errmsg =~ /problem creating $fh: (.*)/) |
|
906
|
0 |
0 |
unless (ref $fh or length $fh) |
|
910
|
0 |
0 |
unless (ref $fh or defined fileno $fh) |
|
913
|
0 |
0 |
unless open $fh, ">", "$logfile" |
|
926
|
0 |
0 |
unless (defined $fh) |
|
929
|
0 |
0 |
if ($self->{'TYPE'} eq 'TELNET') { } |
|
931
|
0 |
0 |
if (defined $fh and $self->{'PARENT'}->errmsg =~ /problem creating $fh: (.*)/) |
|
936
|
0 |
0 |
unless (ref $fh or length $fh) |
|
940
|
0 |
0 |
unless (ref $fh or defined fileno $fh) |
|
943
|
0 |
0 |
unless open $fh, ">", "$logfile" |
|
956
|
0 |
0 |
if ($self->{'TYPE'} eq 'TELNET') { } |
|
|
0 |
0 |
elsif ($self->{'TYPE'} eq 'SSH') { } |
|
|
0 |
0 |
elsif ($self->{'TYPE'} eq 'SERIAL') { } |
|
958
|
0 |
0 |
$self->{'PARENT'}->eof ? : |
|
962
|
0 |
0 |
if defined $self->{'PARENT'} and not defined $self->{'SSHCHANNEL'} |
|
964
|
0 |
0 |
if $self->{'SSHCHANNEL'}->eof |
|
967
|
0 |
0 |
if $sshError == -1 |
|
968
|
0 |
0 |
if $sshError == -43 |
|
986
|
0 |
0 |
if $self->eof |
|
988
|
0 |
0 |
if ($self->{'TYPE'} eq 'TELNET') { } |
|
|
0 |
0 |
elsif ($self->{'TYPE'} eq 'SSH') { } |
|
|
0 |
0 |
elsif ($self->{'TYPE'} eq 'SERIAL') { } |
|
991
|
0 |
0 |
unless $self->{'PARENT'}->break |
|
995
|
0 |
0 |
unless $self->put("string", "~B", "errmode", "return") |
|
1012
|
0 |
0 |
if (@_ == 1) { } |
|
1020
|
0 |
0 |
if ($self->{'TYPE'} eq 'TELNET') { } |
|
|
0 |
0 |
elsif ($self->{'TYPE'} eq 'SSH') { } |
|
|
0 |
0 |
elsif ($self->{'TYPE'} eq 'SERIAL') { } |
|
1021
|
0 |
0 |
if defined $self->{'PARENT'} |
|
1023
|
0 |
0 |
if defined $self->{'SOCKET'} |
|
1027
|
0 |
0 |
if defined $self->{'SSHCHANNEL'} |
|
1029
|
0 |
0 |
if defined $self->{'PARENT'} |
|
1031
|
0 |
0 |
if defined $self->{'SOCKET'} |
|
1035
|
0 |
0 |
if (defined $self->{'PARENT'} and not $self->{'SERIALEOF'}) |
|
1037
|
0 |
0 |
if defined $self->{'BAUDRATE'} |
|
1050
|
0 |
0 |
if ($args{'close_logs'}) |
|
1051
|
0 |
0 |
if (defined $self->input_log) |
|
1055
|
0 |
0 |
if (defined $self->output_log) |
|
1059
|
0 |
0 |
if (defined $self->dump_log) |
|
1063
|
0 |
0 |
if ($self->{'TYPE'} eq "TELNET" and defined $self->parent->option_log) |
|
1098
|
0 |
0 |
if ($_[0]->isa($Package)) { } |
|
|
0 |
0 |
elsif (ref $_[0]) { } |
|
1110
|
0 |
0 |
if (defined $args{'object_complete'}) |
|
1111
|
0 |
0 |
if ($args{'object_complete'} =~ /^all|next$/i) { } |
|
1118
|
0 |
0 |
if (defined $args{'object_error'}) |
|
1119
|
0 |
0 |
if ($args{'object_error'} =~ /^return|ignore$/i) { } |
|
1126
|
0 |
0 |
if (defined $args{'poll_timer'}) |
|
1127
|
0 |
0 |
if ($args{'poll_timer'} =~ /\d+/) { } |
|
1134
|
0 |
0 |
if (defined $args{'poll_code'}) |
|
1135
|
0 |
0 |
unless (validCodeRef($args{'poll_code'})) |
|
1140
|
0 |
0 |
defined $self ? : |
|
|
0 |
0 |
defined $args{'errmode'} ? : |
|
1141
|
0 |
0 |
defined $self ? : |
|
|
0 |
0 |
defined $args{'errmsg_format'} ? : |
|
1142
|
0 |
0 |
unless defined $self or defined $args{'object_list'} |
|
1149
|
0 |
0 |
if (defined $self) { } |
|
|
0 |
0 |
elsif (ref $args{'object_list'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $args{'object_list'} eq 'HASH') { } |
|
1150
|
0 |
0 |
unless (defined $self->{'POLL'}) |
|
1151
|
0 |
0 |
if defined $args{'errmode'} |
|
1154
|
0 |
0 |
defined $args{'errmode'} ? : |
|
1156
|
0 |
0 |
if $ok or not defined $ok |
|
1162
|
0 |
0 |
unless $obj->isa($Package) |
|
1163
|
0 |
0 |
unless (defined $obj->{'POLL'}) |
|
1164
|
0 |
0 |
if defined $args{'errmode'} |
|
1168
|
0 |
0 |
defined $objLastPollTime->[$i] ? : |
|
1169
|
0 |
0 |
defined $args{'errmode'} ? : |
|
1170
|
0 |
0 |
if ($ok) { } |
|
|
0 |
0 |
elsif (not defined $ok) { } |
|
1172
|
0 |
0 |
unless ($obj->{'POLLREPORTED'}) |
|
1179
|
0 |
0 |
unless ($obj->{'POLLREPORTED'}) |
|
1186
|
0 |
0 |
if ($objLastPollTime->[$i] - $objStartTime > $pollTimer and $args{'poll_code'}) { } |
|
1198
|
0 |
0 |
unless $obj->isa($Package) |
|
1199
|
0 |
0 |
unless (defined $obj->{'POLL'}) |
|
1200
|
0 |
0 |
if defined $args{'errmode'} |
|
1204
|
0 |
0 |
defined $objLastPollTime->{$key} ? : |
|
1205
|
0 |
0 |
defined $args{'errmode'} ? : |
|
1206
|
0 |
0 |
if ($ok) { } |
|
|
0 |
0 |
elsif (not defined $ok) { } |
|
1208
|
0 |
0 |
unless ($obj->{'POLLREPORTED'}) |
|
1215
|
0 |
0 |
unless ($obj->{'POLLREPORTED'}) |
|
1222
|
0 |
0 |
if ($objLastPollTime->{$key} - $objStartTime > $pollTimer and $args{'poll_code'}) { } |
|
1236
|
0 |
0 |
if $running == 0 or $objComplete eq "next" and @lastCompleted or $objError eq "return" and @lastFailed |
|
1238
|
0 |
0 |
if ($args{'poll_code'} and not $pollActHost) |
|
1243
|
0 |
0 |
if $mainLoopSleep > 0 |
|
1246
|
0 |
0 |
unless wantarray |
|
1256
|
0 |
0 |
if (defined $newSetting) |
|
1258
|
0 |
0 |
if ($self->{'TYPE'} eq "TELNET") |
|
1277
|
0 |
0 |
if defined $newSetting |
|
1285
|
0 |
0 |
if defined $newSetting |
|
1293
|
0 |
0 |
if defined $newSetting |
|
1301
|
0 |
0 |
if defined $newSetting |
|
1309
|
0 |
0 |
if defined $newSetting |
|
1317
|
0 |
0 |
if defined $newSetting |
|
1325
|
0 |
0 |
if (defined $newSetting) |
|
1327
|
0 |
0 |
$newSetting eq "\r" ? : |
|
1337
|
0 |
0 |
if (defined $newSetting) |
|
1338
|
0 |
0 |
if (ref $newSetting and not validCodeRef($newSetting)) |
|
1357
|
0 |
0 |
if (defined $newSetting) |
|
1368
|
0 |
0 |
if (defined $newSetting) |
|
1379
|
0 |
0 |
if (defined $newSetting) |
|
1390
|
0 |
0 |
if (defined $newSetting) |
|
1391
|
0 |
0 |
length $newSetting ? : |
|
1401
|
0 |
0 |
if (defined $width and not $width or defined $height and not $height) { } |
|
|
0 |
0 |
elsif (defined $width and defined $height) { } |
|
1405
|
0 |
0 |
if ($width =~ /^\d+$/ and $height =~ /^\d+$/) { } |
|
1419
|
0 |
0 |
if defined $newSetting |
|
1428
|
1 |
0 |
if (defined $newSetting and my $newMode = parse_errmode($pkgsub, $newSetting)) |
|
1439
|
0 |
0 |
if (@_ == 1) { } |
|
1446
|
0 |
0 |
defined $args{'errmsg_format'} ? : |
|
1448
|
0 |
0 |
if defined $args{'set_message'} |
|
1458
|
0 |
0 |
if (defined $newSetting) |
|
1459
|
0 |
0 |
if ($newSetting =~ /^\s*terse\s*$/i) { } |
|
|
0 |
0 |
elsif ($newSetting =~ /^\s*verbose\s*$/i) { } |
|
|
0 |
0 |
elsif ($newSetting =~ /^\s*default\s*$/i) { } |
|
1466
|
0 |
0 |
if defined $newSetting |
|
1475
|
0 |
0 |
if (defined $newSetting and $newSetting != $currentSetting) |
|
1477
|
0 |
0 |
if ($self->{'TYPE'} eq 'SSH') { } |
|
|
0 |
0 |
elsif ($self->{'TYPE'} eq 'SERIAL') { } |
|
1478
|
0 |
0 |
$newSetting & 2 ? : |
|
1481
|
0 |
0 |
if ($^O eq 'MSWin32') { } |
|
1483
|
0 |
0 |
$newSetting & 2 ? : |
|
1487
|
0 |
0 |
$newSetting & 2 ? : |
|
1535
|
0 |
0 |
if ($self->{'TYPE'} eq 'SERIAL') { } |
|
1610
|
0 |
0 |
if (defined $self->{'POLL'} and defined $self->{'POLL'}{'complete'} and $self->{'POLL'}{'complete'} == 0) |
|
1647
|
0 |
0 |
unless defined $self->{'POLL'} |
|
1649
|
0 |
0 |
if @{$self->{'POLL'}{'cache'};} |
|
1660
|
0 |
0 |
unless ($self->{'POLLING'}) |
|
1674
|
0 |
0 |
if (defined $timeout) |
|
1679
|
0 |
0 |
@{$self->{'POLL'}{'cache'};} ? : |
|
1690
|
0 |
0 |
unless ($self->{'POLLING'}) |
|
1705
|
0 |
0 |
@{$self->{'POLL'}{'cache'};} ? : |
|
1716
|
0 |
0 |
unless ($self->{'POLLING'}) |
|
1722
|
0 |
0 |
if (@{$self->{'POLL'}{'cache'};}) |
|
1723
|
0 |
0 |
if defined $ok and $ok == 0 |
|
1726
|
0 |
0 |
unless defined $ok |
|
1727
|
0 |
0 |
unless wantarray |
|
1732
|
0 |
0 |
unless $self->{'POLL'}{'output_requested'} and $self->{'POLL'}{'output_type'} |
|
1735
|
0 |
0 |
if ($self->{'POLL'}{'output_type'} & 1) |
|
1738
|
0 |
0 |
if ($self->{'POLL'}{'return_reference'}) { } |
|
1745
|
0 |
0 |
if ($self->{'POLL'}{'output_type'} & 2) |
|
1746
|
0 |
0 |
if (ref $self->{'POLL'}{'output_result'} eq 'ARRAY') { } |
|
1747
|
0 |
0 |
if ($self->{'POLL'}{'return_list'}) { } |
|
1766
|
0 |
0 |
unless ($self->{'POLLING'}) |
|
1771
|
0 |
0 |
if ($self->{'POLL'}{'blocking'}) { } |
|
1775
|
0 |
0 |
unless (defined $self->{'POLL'}{'endtime'}) |
|
1778
|
0 |
0 |
unless &Control::CLI::time() > $self->{'POLL'}{'endtime'} |
|
1788
|
0 |
0 |
unless ($self->{'POLLING'}) |
|
1793
|
0 |
0 |
if ($UseSocketIP) { } |
|
1796
|
0 |
0 |
unless (defined $self->{'POLL'}{'socket'}) |
|
1799
|
0 |
0 |
unless ($self->{'POLL'}{'blocking'}) |
|
1800
|
0 |
0 |
if (defined $self->{'POLL'}{'timeout'}) { } |
|
1808
|
0 |
0 |
unless $self->{'POLL'}{'socket'} = "IO::Socket::IP"->new("PeerHost", $host, "PeerPort", $port, "Blocking", 0) |
|
1822
|
0 |
0 |
if ($self->{'POLL'}{'blocking'}) { } |
|
1824
|
0 |
0 |
unless select undef, $wvec, $evec, $self->{'POLL'}{'timeout'} |
|
1827
|
0 |
0 |
unless (select undef, $wvec, $evec, 0) |
|
1828
|
0 |
0 |
unless &Control::CLI::time() > $self->{'POLL'}{'endtime'} |
|
1833
|
0 |
0 |
if $! |
|
1840
|
0 |
0 |
unless $self->{'POLL'}{'socket'} = "IO::Socket::INET"->new("PeerHost", $host, "PeerPort", $port, "Timeout", $self->{'POLL'}{'timeout'}) |
|
1850
|
0 |
0 |
unless ($self->{'POLLING'}) |
|
1855
|
0 |
0 |
if ($self->{'POLL'}{'blocking'}) { } |
|
1862
|
0 |
0 |
unless (defined $self->{'POLL'}{'read_buffer'}) |
|
1863
|
0 |
0 |
if defined $errmsg |
|
1869
|
0 |
0 |
if ($self->{'POLL'}{'already_polled'}) |
|
1875
|
0 |
0 |
unless (defined $self->{'POLL'}{'endtime'}) |
|
1884
|
0 |
0 |
unless (defined $self->{'POLL'}{'read_buffer'}) |
|
1885
|
0 |
0 |
if defined $errmsg |
|
1888
|
0 |
0 |
if (length $self->{'POLL'}{'read_buffer'}) |
|
1895
|
0 |
0 |
if (&Control::CLI::time() > $self->{'POLL'}{'endtime'}) { } |
|
1898
|
0 |
0 |
if defined $errmsg |
|
1910
|
0 |
0 |
unless defined $readAttempts |
|
1911
|
0 |
0 |
unless defined $readwaitTimer |
|
1912
|
0 |
0 |
unless defined $dataWithError |
|
1915
|
0 |
0 |
unless ($self->{'POLLING'}) |
|
1921
|
0 |
0 |
if ($self->{'POLL'}{'blocking'}) { } |
|
1931
|
0 |
0 |
unless (defined $self->{'POLL'}{'read_buffer'}) |
|
1932
|
0 |
0 |
if defined $errmsg |
|
1938
|
0 |
0 |
if ($self->{'POLL'}{'already_polled'}) |
|
1944
|
0 |
0 |
if ($firstReadRequired and not defined $self->{'POLL'}{'endtime'}) { } |
|
|
0 |
0 |
elsif (not $firstReadRequired || defined $self->{'POLL'}{'waittime'}) { } |
|
1957
|
0 |
0 |
unless (defined $outref) |
|
1958
|
0 |
0 |
if ($dataWithError and length $self->{'POLL'}{'read_buffer'}) |
|
1964
|
0 |
0 |
if defined $errmsg |
|
1967
|
0 |
0 |
if (length $$outref) |
|
1974
|
0 |
0 |
if (defined $self->{'POLL'}{'waittime'}) { } |
|
1975
|
0 |
0 |
if (&Control::CLI::time() > $self->{'POLL'}{'waittime'}) { } |
|
1986
|
0 |
0 |
if (&Control::CLI::time() > $self->{'POLL'}{'endtime'}) { } |
|
1989
|
0 |
0 |
if defined $errmsg |
|
2005
|
0 |
0 |
unless ($self->{'POLLING'}) |
|
2010
|
0 |
0 |
unless (defined $self->{'POLL'}{$pollsub}) |
|
2016
|
0 |
0 |
if (@_ and not %args) |
|
2047
|
0 |
0 |
defined $args{'username'} ? : |
|
|
0 |
0 |
defined $args{'password'} ? : |
|
|
0 |
0 |
defined $args{'passphrase'} ? : |
|
|
0 |
0 |
defined $args{'prompt_credentials'} ? : |
|
2052
|
0 |
0 |
if defined $connect->{'errmode'} |
|
2056
|
0 |
0 |
if ($connect->{'stage'} < 1) |
|
2061
|
0 |
0 |
if defined $connect->{'terminal_type'} |
|
2062
|
0 |
0 |
if defined $connect->{'window_size'} |
|
2065
|
0 |
0 |
if ($self->{'TYPE'} eq 'TELNET') { } |
|
|
0 |
0 |
elsif ($self->{'TYPE'} eq 'SSH') { } |
|
|
0 |
0 |
elsif ($self->{'TYPE'} eq 'SERIAL') { } |
|
2066
|
0 |
0 |
if ($connect->{'stage'} < 1) |
|
2068
|
0 |
0 |
unless defined $connect->{'host'} |
|
2071
|
0 |
0 |
unless defined $connect->{'port'} |
|
2074
|
0 |
0 |
if (not $self->{'POLL'}{'blocking'} and $connect->{'atomic_connect'}) { } |
|
2085
|
0 |
0 |
unless $ok |
|
2090
|
0 |
0 |
unless $self->{'PARENT'}->fhopen($self->{'SOCKET'}) |
|
2091
|
0 |
0 |
if ($^O eq "MSWin32") |
|
2095
|
0 |
0 |
if (exists $telobj->{'select_supported'} and not $telobj->{'select_supported'}) |
|
2105
|
0 |
0 |
if $connect->{'atomic_connect'} |
|
2108
|
0 |
0 |
if ($connect->{'stage'} < 1) |
|
2110
|
0 |
0 |
unless defined $connect->{'host'} |
|
2111
|
0 |
0 |
unless defined $connect->{'port'} |
|
2114
|
0 |
0 |
if (not $self->{'POLL'}{'blocking'} and $connect->{'atomic_connect'}) { } |
|
2122
|
0 |
0 |
if ($connect->{'stage'} < 2) |
|
2125
|
0 |
0 |
unless $ok |
|
2137
|
0 |
0 |
if $@ |
|
2138
|
0 |
0 |
unless $ok |
|
2139
|
0 |
0 |
unless $self->{'POLL'}{'blocking'} |
|
2141
|
0 |
0 |
if ($connect->{'stage'} < 3) |
|
2143
|
0 |
0 |
if ($connect->{'callback'}) |
|
2144
|
0 |
0 |
if (validCodeRef($connect->{'callback'})) { } |
|
2146
|
0 |
0 |
defined $errmsg ? : |
|
|
0 |
0 |
unless $ok |
|
2147
|
0 |
0 |
unless $self->{'POLL'}{'blocking'} |
|
2154
|
0 |
0 |
if ($connect->{'stage'} < 4) |
|
2156
|
0 |
0 |
unless (defined $connect->{'username'}) |
|
2157
|
0 |
0 |
unless $connect->{'prompt_credentials'} |
|
2162
|
0 |
0 |
if (not $self->{'POLL'}{'blocking'} and &Control::CLI::time() > $self->{'POLL'}{'endtime'}) |
|
2167
|
0 |
0 |
if $auth eq "publickey" |
|
2168
|
0 |
0 |
if $auth eq "password" |
|
2169
|
0 |
0 |
if $auth eq "keyboard-interactive" |
|
2174
|
0 |
0 |
unless $self->{'POLL'}{'blocking'} |
|
2176
|
0 |
0 |
if ($connect->{'stage'} < 5) |
|
2178
|
0 |
0 |
if ($connect->{'authPublicKey'}) |
|
2179
|
0 |
0 |
if (defined $connect->{'publickey'} and defined $connect->{'privatekey'}) { } |
|
|
0 |
0 |
elsif (not $connect->{'authPassword'}) { } |
|
2181
|
0 |
0 |
unless -e $connect->{'publickey'} |
|
2183
|
0 |
0 |
unless -e $connect->{'privatekey'} |
|
2184
|
0 |
0 |
unless ($connect->{'passphrase'}) |
|
2186
|
0 |
0 |
unless defined $passphReq |
|
2187
|
0 |
0 |
if ($passphReq) |
|
2188
|
0 |
0 |
unless $connect->{'prompt_credentials'} |
|
2195
|
0 |
0 |
if (not $self->{'POLL'}{'blocking'} and &Control::CLI::time() > $self->{'POLL'}{'endtime'}) |
|
2204
|
0 |
0 |
if ($ok) { } |
|
|
0 |
0 |
elsif (not $connect->{'authPassword'} && (defined $connect->{'password'} || $connect->{'prompt_credentials'})) { } |
|
2205
|
0 |
0 |
if $connect->{'passphrase'} |
|
2212
|
0 |
0 |
unless $self->{'POLL'}{'blocking'} |
|
2219
|
0 |
0 |
if ($connect->{'stage'} < 6) |
|
2221
|
0 |
0 |
if ($connect->{'authPassword'} and not $self->{'PARENT'}->auth_ok) |
|
2222
|
0 |
0 |
unless (defined $connect->{'password'}) |
|
2223
|
0 |
0 |
unless $connect->{'prompt_credentials'} |
|
2228
|
0 |
0 |
if (not $self->{'POLL'}{'blocking'} and &Control::CLI::time() > $self->{'POLL'}{'endtime'}) |
|
2231
|
0 |
0 |
if ($connect->{'authPassword'} & 1) { } |
|
|
0 |
0 |
elsif ($connect->{'authPassword'} & 2) { } |
|
2233
|
0 |
0 |
unless $self->{'PARENT'}->auth_password($connect->{'username'}, $connect->{'password'}) |
|
2238
|
0 |
0 |
unless $self->{'PARENT'}->auth_keyboard($connect->{'username'}, $connect->{'password'}) |
|
2246
|
0 |
0 |
unless $self->{'POLL'}{'blocking'} |
|
2250
|
0 |
0 |
unless $self->{'PARENT'}->auth_ok |
|
2253
|
0 |
0 |
if (not $self->{'POLL'}{'blocking'} and &Control::CLI::time() > $self->{'POLL'}{'endtime'}) |
|
2261
|
0 |
0 |
if $connect->{'atomic_connect'} |
|
2264
|
0 |
0 |
unless defined $connect->{'handshake'} |
|
2265
|
0 |
0 |
unless defined $connect->{'baudrate'} |
|
2266
|
0 |
0 |
unless defined $connect->{'parity'} |
|
2267
|
0 |
0 |
unless defined $connect->{'databits'} |
|
2268
|
0 |
0 |
unless defined $connect->{'stopbits'} |
|
2269
|
0 |
0 |
unless $self->{'PARENT'}->handshake($connect->{'handshake'}) |
|
2270
|
0 |
0 |
unless ($self->{'PARENT'}->baudrate($connect->{'baudrate'})) |
|
2272
|
0 |
0 |
if ($^O eq 'MSWin32' and $connect->{'forcebaud'}) { } |
|
2279
|
0 |
0 |
unless $self->{'PARENT'}->parity($connect->{'parity'}) |
|
2280
|
0 |
0 |
unless ($connect->{'parity'} eq "none") |
|
2281
|
0 |
0 |
unless $self->{'PARENT'}->parity_enable(1) |
|
2283
|
0 |
0 |
unless $self->{'PARENT'}->databits($connect->{'databits'}) |
|
2284
|
0 |
0 |
unless $self->{'PARENT'}->stopbits($connect->{'stopbits'}) |
|
2285
|
0 |
0 |
unless $self->{'PARENT'}->write_settings |
|
2287
|
0 |
0 |
unless $self->{'PARENT'}->buffers($ComPortReadBuffer, 0) |
|
2288
|
0 |
0 |
if ($^O eq "MSWin32") |
|
2289
|
0 |
0 |
unless $self->{'PARENT'}->read_interval($ComReadInterval) |
|
2292
|
0 |
0 |
unless defined $self->{'PARENT'}->read_char_time(0) |
|
2312
|
0 |
0 |
unless ($self->{'POLLING'}) |
|
2317
|
0 |
0 |
unless (defined $self->{'POLL'}{$pollsub}) |
|
2320
|
0 |
0 |
if (@_ and not %args) |
|
2338
|
0 |
0 |
defined $args{'username'} ? : |
|
|
0 |
0 |
defined $args{'password'} ? : |
|
|
0 |
0 |
defined $args{'prompt'} ? : |
|
|
0 |
0 |
defined $args{'username_prompt'} ? : |
|
|
0 |
0 |
defined $args{'password_prompt'} ? : |
|
|
0 |
0 |
defined $args{'prompt_credentials'} ? : |
|
2343
|
0 |
0 |
if defined $login->{'errmode'} |
|
2344
|
0 |
0 |
if $self->eof |
|
2346
|
0 |
0 |
if ($login->{'stage'} < 1) |
|
2348
|
0 |
0 |
if ($self->{'LOGINSTAGE'} eq 'username') { } |
|
|
0 |
0 |
elsif ($self->{'LOGINSTAGE'} eq 'password') { } |
|
2349
|
0 |
0 |
unless $login->{'username'} |
|
2350
|
0 |
0 |
unless $self->print("line", $login->{'username'}, "errmode", "return") |
|
2356
|
0 |
0 |
unless $login->{'password'} |
|
2357
|
0 |
0 |
unless $self->print("line", $login->{'password'}, "errmode", "return") |
|
2365
|
0 |
0 |
unless $ok |
|
2370
|
0 |
0 |
if ($self->{'POLL'}{'local_buffer'} =~ /$login->{'username_prompt'}/) |
|
2371
|
0 |
0 |
if ($login->{'login_attempted'}) |
|
2374
|
0 |
0 |
unless ($login->{'username'}) |
|
2375
|
0 |
0 |
if ($self->{'TYPE'} eq 'SSH') { } |
|
2379
|
0 |
0 |
unless ($login->{'prompt_credentials'}) |
|
2386
|
0 |
0 |
unless $self->print("line", $login->{'username'}, "errmode", "return") |
|
2393
|
0 |
0 |
if ($self->{'POLL'}{'local_buffer'} =~ /$login->{'password_prompt'}/) |
|
2394
|
0 |
0 |
unless (defined $login->{'password'}) |
|
2395
|
0 |
0 |
unless (defined $login->{'prompt_credentials'}) |
|
2401
|
0 |
0 |
unless $self->print("line", $login->{'password'}, "errmode", "return") |
|
2410
|
0 |
0 |
if $login->{'login_attempted'} |
|
2420
|
0 |
0 |
unless ($self->{'POLLING'}) |
|
2425
|
0 |
0 |
unless (defined $self->{'POLL'}{$pollsub}) |
|
2428
|
0 |
0 |
if (@_ and not %args) |
|
2431
|
0 |
0 |
unless ref $args{'match_list'} eq "ARRAY" |
|
2447
|
0 |
0 |
if defined $waitfor->{'errmode'} |
|
2448
|
0 |
0 |
if $self->eof |
|
2450
|
0 |
0 |
if ($waitfor->{'stage'} < 1) |
|
2452
|
0 |
0 |
unless @{$waitfor->{'matchpat'};} |
|
2457
|
0 |
0 |
if ($@) |
|
2465
|
0 |
0 |
unless $ok |
|
2469
|
0 |
0 |
if ($self->{'POLL'}{'local_buffer'} =~ s/$pattern//) |
|
2475
|
0 |
0 |
if length $self->{'POLL'}{'local_buffer'} |
|
2485
|
0 |
0 |
unless ($self->{'POLLING'}) |
|
2490
|
0 |
0 |
unless (defined $self->{'POLL'}{$pollsub}) |
|
2493
|
0 |
0 |
if (@_ and not %args) |
|
2506
|
0 |
0 |
defined $args{'prompt'} ? : |
|
2511
|
0 |
0 |
if defined $cmd->{'errmode'} |
|
2512
|
0 |
0 |
if $self->eof |
|
2514
|
0 |
0 |
if ($cmd->{'stage'} < 1) |
|
2521
|
0 |
0 |
unless $self->print("line", $cmd->{'command'}, "errmode", "return") |
|
2528
|
0 |
0 |
unless $ok |
|
2530
|
0 |
0 |
if ($cmd->{'cmdEchoRemoved'}) { } |
|
2538
|
0 |
0 |
if ($self->{'POLL'}{'local_buffer'} =~ s/^.*\n//) |
|
2557
|
0 |
0 |
unless ($self->{'POLLING'}) |
|
2562
|
0 |
0 |
unless (defined $self->{'POLL'}{$pollsub}) |
|
2565
|
0 |
0 |
if (@_ and not %args) |
|
2581
|
0 |
0 |
defined $args{'baudrate'} ? : |
|
|
0 |
0 |
defined $args{'parity'} ? : |
|
|
0 |
0 |
defined $args{'databits'} ? : |
|
|
0 |
0 |
defined $args{'stopbits'} ? : |
|
|
0 |
0 |
defined $args{'handshake'} ? : |
|
2586
|
0 |
0 |
if defined $changeBaud->{'errmode'} |
|
2588
|
0 |
0 |
unless $self->{'TYPE'} eq "SERIAL" |
|
2589
|
0 |
0 |
if $self->{'SERIALEOF'} |
|
2591
|
0 |
0 |
if ($changeBaud->{'stage'} < 1) |
|
2595
|
0 |
0 |
if ($changeBaud->{'stage'} < 2) |
|
2597
|
0 |
0 |
unless $ok |
|
2602
|
0 |
0 |
if ($^O eq 'MSWin32') { } |
|
2603
|
0 |
0 |
unless $self->{'PARENT'} = "Win32::SerialPort"->new($self->{'COMPORT'}, !($self->{'debug'} & 1)) |
|
2607
|
0 |
0 |
unless $self->{'PARENT'} = "Device::SerialPort"->new($self->{'COMPORT'}, !($self->{'debug'} & 1)) |
|
2610
|
0 |
0 |
unless $self->{'PARENT'}->handshake($changeBaud->{'handshake'}) |
|
2611
|
0 |
0 |
unless ($self->{'PARENT'}->baudrate($changeBaud->{'baudrate'})) |
|
2613
|
0 |
0 |
if ($^O eq 'MSWin32' and $changeBaud->{'forcebaud'}) { } |
|
2620
|
0 |
0 |
unless $self->{'PARENT'}->parity($changeBaud->{'parity'}) |
|
2621
|
0 |
0 |
unless ($changeBaud->{'parity'} eq "none") |
|
2622
|
0 |
0 |
unless $self->{'PARENT'}->parity_enable(1) |
|
2624
|
0 |
0 |
unless $self->{'PARENT'}->databits($changeBaud->{'databits'}) |
|
2625
|
0 |
0 |
unless $self->{'PARENT'}->stopbits($changeBaud->{'stopbits'}) |
|
2626
|
0 |
0 |
unless $self->{'PARENT'}->write_settings |
|
2628
|
0 |
0 |
unless $self->{'PARENT'}->buffers($ComPortReadBuffer, 0) |
|
2629
|
0 |
0 |
if ($^O eq "MSWin32") |
|
2630
|
0 |
0 |
unless $self->{'PARENT'}->read_interval($ComReadInterval) |
|
2633
|
0 |
0 |
unless defined $self->{'PARENT'}->read_char_time(0) |
|
2646
|
0 |
0 |
if (shift() & $self->{'debug'}) |
|
2660
|
0 |
0 |
if (length $self->{'QUERYBUFFER'}) |
|
2664
|
0 |
0 |
if ($$bufRef =~ /(\e(?:\[.?)?)$/) |
|
2667
|
0 |
0 |
if ($VT100_QueryDeviceStatus =~ /^\Q$escFrag\E/) |
|
2672
|
0 |
0 |
unless $$bufRef =~ s/\Q$VT100_QueryDeviceStatus\E//go |
|
2684
|
0 |
0 |
$returnRef ? : |
|
2694
|
0 |
0 |
if ($self->{'TYPE'} eq 'TELNET') { } |
|
|
0 |
0 |
elsif ($self->{'TYPE'} eq 'SSH') { } |
|
|
0 |
0 |
elsif ($self->{'TYPE'} eq 'SERIAL') { } |
|
2696
|
0 |
0 |
if $self->eof |
|
2697
|
0 |
0 |
unless defined $buffer |
|
2700
|
0 |
0 |
unless defined $self->{'SSHCHANNEL'} |
|
2702
|
0 |
0 |
unless (defined $buffer and length $buffer) |
|
2703
|
0 |
0 |
if $self->eof |
|
2705
|
0 |
0 |
unless ($self->{'PARENT'}->poll($timeout * 1000, \@poll) and $poll[0]{'revents'}{'in'}) |
|
2709
|
0 |
0 |
unless defined $inBytes |
|
2711
|
0 |
0 |
if defined $self->{'INPUTLOGFH'} |
|
2712
|
0 |
0 |
if defined $self->{'DUMPLOGFH'} |
|
2715
|
0 |
0 |
if $self->{'SERIALEOF'} |
|
2716
|
0 |
0 |
if ($^O eq 'MSWin32') { } |
|
2720
|
0 |
0 |
$timeout == 0 ? : |
|
|
0 |
0 |
unless ($self->{'PARENT'}->read_const_time($timeout == 0 ? 1 : $timeout * 1000)) |
|
2726
|
0 |
0 |
unless $inBytes |
|
2730
|
0 |
0 |
unless ($self->{'PARENT'}->read_const_time($PollTimer)) |
|
2739
|
0 |
0 |
if ($ticks++ > $ticksTimeout) |
|
2745
|
0 |
0 |
if defined $self->{'INPUTLOGFH'} |
|
2746
|
0 |
0 |
if defined $self->{'DUMPLOGFH'} |
|
2752
|
0 |
0 |
if ($self->{'report_query_status'}) |
|
2754
|
0 |
0 |
unless (length $buffer) |
|
2756
|
0 |
0 |
if $timeout <= 0 |
|
2761
|
0 |
0 |
$returnRef ? : |
|
2769
|
0 |
0 |
if ($self->{'TYPE'} eq 'TELNET') { } |
|
|
0 |
0 |
elsif ($self->{'TYPE'} eq 'SSH') { } |
|
|
0 |
0 |
elsif ($self->{'TYPE'} eq 'SERIAL') { } |
|
2771
|
0 |
0 |
if $self->eof |
|
2772
|
0 |
0 |
unless defined $buffer |
|
2775
|
0 |
0 |
unless defined $self->{'SSHCHANNEL'} |
|
2779
|
0 |
0 |
unless defined $buffer |
|
2780
|
0 |
0 |
if (length $buffer) |
|
2781
|
0 |
0 |
if defined $self->{'INPUTLOGFH'} |
|
2782
|
0 |
0 |
if defined $self->{'DUMPLOGFH'} |
|
2786
|
0 |
0 |
if $self->{'SERIALEOF'} |
|
2790
|
0 |
0 |
unless ($self->{'PARENT'}->read_const_time(1)) |
|
2796
|
0 |
0 |
unless defined $buffer |
|
2797
|
0 |
0 |
if (length $buffer) |
|
2798
|
0 |
0 |
if defined $self->{'INPUTLOGFH'} |
|
2799
|
0 |
0 |
if defined $self->{'DUMPLOGFH'} |
|
2806
|
0 |
0 |
if length $buffer and $self->{'report_query_status'} |
|
2809
|
0 |
0 |
if length $self->{'BUFFER'} |
|
2812
|
0 |
0 |
$returnRef ? : |
|
2819
|
0 |
0 |
if $self->eof |
|
2821
|
0 |
0 |
if ($self->{'TYPE'} eq 'TELNET') { } |
|
|
0 |
0 |
elsif ($self->{'TYPE'} eq 'SSH') { } |
|
|
0 |
0 |
elsif ($self->{'TYPE'} eq 'SERIAL') { } |
|
2825
|
0 |
0 |
unless $self->{'PARENT'}->put("String", $$outref, "Telnetmode", $self->{'TELNETMODE'}) |
|
2828
|
0 |
0 |
unless defined $self->{'SSHCHANNEL'} |
|
2830
|
0 |
0 |
if defined $self->{'OUTPUTLOGFH'} |
|
2831
|
0 |
0 |
if defined $self->{'DUMPLOGFH'} |
|
2835
|
0 |
0 |
unless $countOut |
|
2836
|
0 |
0 |
if $countOut != length $$outref |
|
2837
|
0 |
0 |
if defined $self->{'OUTPUTLOGFH'} |
|
2838
|
0 |
0 |
if defined $self->{'DUMPLOGFH'} |
|
2852
|
0 |
0 |
if (ref $fh and ref $fh ne 'GLOB') { } |
|
2870
|
0 |
0 |
if ($len >= 16) { } |
|
2892
|
0 |
0 |
if $$dataRef |
|
2900
|
0 |
0 |
if $msgFormat =~ /^\s*verbose\s*$/i |
|
2902
|
0 |
0 |
if $msgFormat =~ /^\s*default\s*$/i or not $msgFormat =~ /^\s*terse\s*$/i |
|
2913
|
0 |
0 |
if (defined $mode) |
|
2914
|
0 |
0 |
if (ref $mode) |
|
2918
|
0 |
0 |
if $mode eq "return" |
|
2919
|
0 |
0 |
if $mode eq "croak" |
|
2920
|
0 |
0 |
if $mode eq "die" |
|
2931
|
0 |
0 |
unless ($self->{'POLLREPORTED'}) |
|
2932
|
0 |
0 |
if (defined $errmode) |
|
2936
|
0 |
0 |
if ($timeCredit > 0 and defined $self->{'POLL'}{'endtime'}) |
|
2940
|
0 |
0 |
if defined $self->{'POLL'}{'endtime'} |
|
2946
|
0 |
0 |
unless ($self->{'POLLREPORTED'}) |
|
2947
|
0 |
0 |
unless defined $ok |
|
2949
|
0 |
0 |
if defined $errmode |
|
2961
|
0 |
0 |
if defined &Net::Telnet::_log_option and $telobj->{'opt_log'} |
|
2971
|
0 |
0 |
if defined $self->{'terminal_type'} |
|
2972
|
0 |
0 |
if @{$self->{'window_size'};} |
|
2975
|
0 |
0 |
if defined &Net::Telnet::_flush_opts and length $telobj->{'unsent_opts'} |
|
2984
|
0 |
0 |
if ($option == &TELOPT_NAWS and @{$self->{'window_size'};}) |
|
2989
|
0 |
0 |
if (defined &Net::Telnet::_log_option and $telobj->{'opt_log'}) |
|
3005
|
0 |
0 |
if defined &Net::Telnet::_log_option and $telobj->{'opt_log'} |
|
3008
|
0 |
0 |
if ($option == &TELOPT_TTYPE and defined $self->{'terminal_type'}) |
|
3011
|
0 |
0 |
if defined &Net::Telnet::_log_option and $telobj->{'opt_log'} |
|
3015
|
0 |
0 |
if ($option == &TELOPT_NAWS and @{$self->{'window_size'};}) |
|
3018
|
0 |
0 |
if defined &Net::Telnet::_log_option and $telobj->{'opt_log'} |