FortiOS.pm: tabs to spaces cleanup

This commit is contained in:
Christian Ramseyer
2023-11-03 22:38:39 +01:00
parent 275d7481f5
commit 8f0434a75a

View File

@@ -50,18 +50,18 @@ sub get_paginated_output {
if ($match) { if ($match) {
if ($match =~ $more_pattern) { if ($match =~ $more_pattern) {
$more_flag = 1; $more_flag = 1;
@lines = split(/\R/, $before); @lines = split(/\R/, $before);
push(@alllines, grep {$_ =~ /\S/} @lines); push(@alllines, grep {$_ =~ /\S/} @lines);
debug("skipping through --More-- pagination"); debug("skipping through --More-- pagination");
$expect->send(" "); $expect->send(" ");
} elsif ($match =~ $prompt) { } elsif ($match =~ $prompt) {
$more_flag = 0; $more_flag = 0;
@lines = split(/\R/, $before); @lines = split(/\R/, $before);
push(@alllines, grep {$_ =~ /\S/} @lines); push(@alllines, grep {$_ =~ /\S/} @lines);
foreach my $line (@alllines) { foreach my $line (@alllines) {
debug("output collected: $line") if $line; debug("output collected: $line") if $line;
} }
last; last;
} }
} }
} }
@@ -142,7 +142,7 @@ sub arpnip {
foreach (@data) { foreach (@data) {
if ($_ && /^Virtual domain configuration: multiple$/) { if ($_ && /^Virtual domain configuration: multiple$/) {
$multi_vdom = 1; $multi_vdom = 1;
last; last;
} }
} }
my $arpentries = []; my $arpentries = [];
@@ -158,9 +158,9 @@ sub arpnip {
foreach (@$vdoms) { foreach (@$vdoms) {
$expect->send("config vdom\n"); $expect->send("config vdom\n");
$expect->expect($timeout, -re, $prompt); $expect->expect($timeout, -re, $prompt);
$expect->send("edit $_\n"); $expect->send("edit $_\n");
debug ("switched to config vdom; edit $_"); debug ("switched to config vdom; edit $_");
$expect->expect($timeout, -re, $prompt); $expect->expect($timeout, -re, $prompt);
arpnip_context($expect, $prompt, $timeout, $arpentries); arpnip_context($expect, $prompt, $timeout, $arpentries);
$expect->send("end\n"); $expect->send("end\n");