Claro!
O problema ocorre por causa do certificado SSL que vc está usando. O erro informa que ele espera uma hash par,
é preciso alterar a forma de entrada do @members, e coloquei uma condicional ajudar a tratar o problema, coloquei print para vc poder visualizar o retorno.
Pode demorar um pouco, mas vai dar certo.
Sudo nano /usr/share/perl5/Ocsinventory/Agent/Backend/OS/Generic/Users.pm
Altere essa parte para:
sub _getLocalGroups {
open(my $fh, '<:encoding(UTF-8)', "/etc/group") or warn;
my @groupinfo=<$fh>;
close($fh);
my @groups;
foreach my $line (@groupinfo){
next if $line =~ /^#/;
chomp $line;
my ($name, undef, $gid, $members) = split(/:/, $line);
next unless $members;
my @members = split(/,/, $members);
use Data::Dumper;
print "Group ID: $gid\n";
print "Group Name: $name\n";
print "Members: ", Dumper(\@members), "\n";
if (@members) {
push @groups, {
ID => $gid,
NAME => $name,
MEMBER => \@members,
};
}
}
return @groups;
}
