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

Implemented OS version name variable '%os%'.

Browse source
This commit is contained in:
László Valkó 2018-10-14 22:01:23 +02:00
parent 50fb75ba64
commit 1856924df3
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
logging.pm
View file

@ -227,6 +227,18 @@ sub get_default_vars (;$)
$$vars{arch} = $arch; $$vars{arch} = $arch;
$$vars{xarch} = $xarch; $$vars{xarch} = $xarch;
my ($osver, $osmajor, $osminor, $osbuild) = Win32::GetOSVersion(); my ($osver, $osmajor, $osminor, $osbuild) = Win32::GetOSVersion();
if ($osmajor == 5 && $$osminor == 1) {
$$vars{os} = 'xp';
}
elsif ($osmajor == 6 && $$osminor == 1) {
$$vars{os} = '7';
}
elsif ($osmajor == 10) {
$$vars{os} = '10';
}
else {
$$vars{os} = 'unknown';
}
$$vars{osversion} = $osmajor.'.'.$osminor; $$vars{osversion} = $osmajor.'.'.$osminor;
$$vars{osmajor} = $osmajor; $$vars{osmajor} = $osmajor;
$$vars{osminor} = $osminor; $$vars{osminor} = $osminor;