substr($r_oid,0,length($_)) eq $_
} keys %$oid2name)[0] || die "no name for $r_oid in ",dump($oid2name);
my $name = $oid2name->{$oid};
-warn "++ $oid $name $var\n";
if ( $name =~ m{^\@} ) {
my $no_prefix = $name;
$no_prefix =~ s{^\@}{};
}
warn "## $ip response ",dump($response->{$ip});
- save_json $ip => $response->{$ip};
- print $log encode_json($response->{$ip}),"\n";
}
foreach my $host ( @printers ) {
}
print "$ip ",dump($status);
+ save_json $ip => $response->{$ip};
+ print $log encode_json($response->{$ip}),"\n";
}
close($log);