135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add debug lines and tested

Browse Source
This commit is contained in:
Oliver Gorwits
2019-03-11 17:07:42 +00:00
parent 3249739e42
commit 3fe8f383a7
1 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lib/App/Netdisco/Util/DeviceAuth.pm
View File

@@ -119,6 +119,9 @@ sub get_external_credentials {
foreach my $line (@lines) { foreach my $line (@lines) {
if ($line =~ m/^community\s*=\s*(.*)\s*$/i) { if ($line =~ m/^community\s*=\s*(.*)\s*$/i) {
if (length $1 and $mode eq 'read') { if (length $1 and $mode eq 'read') {
debug sprintf '[%s] external read credentials added',
$device->ip;
return map {{ return map {{
read => 1, read => 1,
only => [$device->ip], only => [$device->ip],
@@ -128,6 +131,9 @@ sub get_external_credentials {
} }
elsif ($line =~ m/^setCommunity\s*=\s*(.*)\s*$/i) { elsif ($line =~ m/^setCommunity\s*=\s*(.*)\s*$/i) {
if (length $1 and $mode eq 'write') { if (length $1 and $mode eq 'write') {
debug sprintf '[%s] external write credentials added',
$device->ip;
return map {{ return map {{
write => 1, write => 1,
only => [$device->ip], only => [$device->ip],
@@ -137,7 +143,15 @@ sub get_external_credentials {
} }
else { else {
my $stanza = undef; my $stanza = undef;
try { $stanza = from_json( $line ) }; try {
$stanza = from_json( $line );
debug sprintf '[%s] external credentials stanza added',
$device->ip;
}
catch {
info sprintf '[%s] error! failed to parse external credentials stanza',
$device->ip;
};
return $stanza if ref $stanza; return $stanza if ref $stanza;
} }
} }