From f7e3507bdbc05168ebdfc52d214384aff480f04e Mon Sep 17 00:00:00 2001
From: Valko Laszlo <valko@linux.karinthy.hu>
Date: Mon, 24 Jan 2022 02:36:18 +0100
Subject: [PATCH] Added variable for short Windows domain name.

---
 pkgtool.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/pkgtool.pm b/pkgtool.pm
index a167ce8..7413148 100644
--- a/pkgtool.pm
+++ b/pkgtool.pm
@@ -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;
 }