kfg/winupd
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Added variable for short Windows domain name.

Browse source
This commit is contained in:
László Valkó 2022-01-24 02:36:18 +01:00
parent cf0c12aae2
commit f7e3507bdb
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
pkgtool.pm
View file

@ -681,9 +681,14 @@ sub is_part_of_domain (;$)
my $wbem = get_wbem_info(); my $wbem = get_wbem_info();
if (defined $wbem && $$wbem{'PartOfDomain'}) { if (defined $wbem && $$wbem{'PartOfDomain'}) {
$$vars{'current_domain'} = $$wbem{Domain}; $$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; return 1;
} }
$$vars{'current_domain'} = ''; $$vars{'current_domain'} = '';
$$vars{'current_shortdomain'} = '';
return 0; return 0;
} }