/usr/local/CPAN/Ocsinventory-Agent/Ocsinventory/Agent/Backend/OS/Linux/Domains.pm

• package Ocsinventory::Agent::Backend::OS::Linux::Domains
  • check
  • run
• EOF

package Ocsinventory::Agent::Backend::OS::Linux::Domains;
use strict;

sub check {
  return unless can_run ("hostname");
  my @domain = `hostname -d`;
  return 1 if @domain || can_read ("/etc/resolv.conf");
  0;
}
sub run {
  my $params = shift;
  my $inventory = $params->{inventory};

  my $domain;
  my %domain;
  my @dns_list;
  my $dns;
  chomp($domain = `hostname -d`);

  open RESOLV, "/etc/resolv.conf" or warn;
    while(<RESOLV>){
      if (/^nameserver\s+(\S+)/i) {
        push(@dns_list,$1);
      }
      elsif (!$domain) {
        $domain{$2} = 1 if (/^(domain|search)\s+(.+)/);
      }
    }
  close RESOLV;

  if (!$domain) {
    $domain = join "/", keys %domain;
  }
  
  $dns=join("/",@dns_list);
  # If no domain name, we send "WORKGROUP"
  $domain = 'WORKGROUP' unless $domain;

  $inventory->setHardware({
      WORKGROUP => $domain,
      DNS => $dns
    });

}

1;