source: ocsinventory-agent/trunk/fuentes/lib/Ocsinventory/Agent/Backend/OS/MacOS/Domains.pm @ 468

Last change on this file since 468 was 468, checked in by mabarracus, 4 years ago

Copyt trusty code

File size: 939 bytes
Line 
1package Ocsinventory::Agent::Backend::OS::MacOS::Domains;
2use strict;
3
4# straight up theft from the other modules...
5
6sub check {
7    my $hostname;
8    chomp ($hostname = `hostname`);
9    my @domain = split (/\./, $hostname);
10    shift (@domain);
11    return 1 if @domain;
12    -f "/etc/resolv.conf"
13 }
14sub run {
15    my $params = shift;
16    my $common = $params->{common};
17
18    my $domain;
19    my $hostname;
20    chomp ($hostname = `hostname`);
21    my @domain = split (/\./, $hostname);
22    shift (@domain);
23    $domain = join ('.',@domain);
24
25    if (!$domain) {
26      my %domain;
27
28      open RESOLV, "/etc/resolv.conf" or warn;
29      while(<RESOLV>){
30        $domain{$2} = 1 if (/^(domain|search)\s+(.+)/);
31      }
32      close RESOLV;
33
34      $domain = join "/", keys %domain;
35    }
36
37    # If no domain name, we send "WORKGROUP"
38    $domain = 'WORKGROUP' unless $domain;
39
40    $common->setHardware({
41        WORKGROUP => $domain
42    });
43}
44
451;
Note: See TracBrowser for help on using the repository browser.