Added variable for short Windows domain name.
This commit is contained in:
parent
cf0c12aae2
commit
f7e3507bdb
|
@ -681,9 +681,14 @@ sub is_part_of_domain (;$)
|
|||
my $wbem = get_wbem_info();
|
||||
if (defined $wbem && $$wbem{'PartOfDomain'}) {
|
||||
$$vars{'current_domain'} = $$wbem{Domain};
|
||||
my $shortdomain = $$wbem{Domain};
|
||||
$shortdomain =~ s/\..*$//g;
|
||||
$$vars{'current_shortdomain'} = $shortdomain;
|
||||
print_log('global', INFO, 'short domain: %s', $shortdomain);
|
||||
return 1;
|
||||
}
|
||||
$$vars{'current_domain'} = '';
|
||||
$$vars{'current_shortdomain'} = '';
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in a new issue