Extract InstallSource package attribute.

This commit is contained in:
László Valkó 2018-05-26 12:21:05 +02:00
parent 3e62e5ad7e
commit 161cbfb85f

View file

@ -767,6 +767,7 @@ sub read_packages ($$$$)
my $dispver = get_registry_value($sub->{'DisplayVersion'});
my $instdate = get_registry_value($sub->{'InstallDate'});
my $instloc = get_registry_value($sub->{'InstallLocation'});
my $instsrc = get_registry_value($sub->{'InstallSource'});
my $syscomp = get_registry_value($sub->{'SystemComponent'});
my $parentkeyname = get_registry_value($sub->{'ParentKeyName'});
my $wininst = get_registry_value($sub->{'WindowsInstaller'});
@ -787,7 +788,8 @@ sub read_packages ($$$$)
DisplayName => $dispname,
DisplayVersion =>$dispver,
InstallDate => $instdate,
InstallLocation => $instloc,
InstallLocation => $instloc,
InstallSource => $instsrc,
SystemComponent => $syscomp,
WindowsInstaller => $wininst,
ReleaseType => $reltype,