[ViewVC] Diff of: cvs/pbcdedit/pbcdedit

Comparing pbcdedit/pbcdedit (file contents):
Revision 1.42 by root, Fri Aug 16 23:59:40 2019 UTC vs.
Revision 1.76 by root, Tue Aug 9 11:44:54 2022 UTC

…		…
19	# along with this program. If not, see <https://www.gnu.org/licenses/>.	19	# along with this program. If not, see <https://www.gnu.org/licenses/>.
20	#	20	#
21		21
22	use 5.016; # numerous features need 5.14, __SUB__ needs 5.16	22	use 5.016; # numerous features need 5.14, __SUB__ needs 5.16
23		23
24	our $VERSION = '1.3';	24	our $VERSION = '1.5';
25	our $JSON_VERSION = 3; # the version of the json objects generated by this program	25	our $JSON_VERSION = 3; # the version of the json objects generated by this program
26		26
27	our $CHANGELOG = <<EOF;	27	our $CHANGELOG = <<EOF;
28		28
29	1.3	29	1.5 Mon Nov 25 15:54:34 CET 2019
		30	- add "del" edit instruction.
		31	- work around lsblk bug sometimes giving "dos" pttype for gpt partitions.
		32	- bootmenupolicy in synopsis must be set to 0 to get the text menu.
		33	- minor doc fxes.
		34	- disable use of perldoc for help, doesn't work well.
		35
		36	1.4 Thu Aug 22 10:48:22 CEST 2019
		37	- new "create" subcommand.
		38	- "create" and "edit" try to save and restore ownership/permissions
		39	of bcd hives when writing the new file.
		40	- editorial fixes to the documentation.
		41	- add mininmal hive creation example.
		42
		43	1.3 Sat Aug 17 07:04:15 CEST 2019
30	- output of pbcdedit elements --json has changed, as it didn't	44	- output of pbcdedit elements --json has changed, as it didn't
31	take the reorganisation by classes fully into account.	45	take the reorganisation by classes fully into account.
32	- json schema bumped to 3.	46	- json schema bumped to 3.
		47	- new "bcd-device" and "bcd-legacy-device" subcommands.
		48	- implement --json option for lsblk.
33		49
34	1.2 Fri Aug 16 00:20:41 CEST 2019	50	1.2 Fri Aug 16 00:20:41 CEST 2019
35	- bcde element names now depend on the bcd object type they are in,	51	- bcd element names now depend on the bcd object type they are in,
36	also affects "elements" output.	52	also affects "elements" output.
37	- json schema bumped to 2.	53	- json schema bumped to 2.
38	- new version command.	54	- new version command.
39	- numerous minor bugfixes.	55	- numerous minor bugfixes.
40		56
…		…
54	pbcdedit edit path/to/BCD edit-instructions...	70	pbcdedit edit path/to/BCD edit-instructions...
55		71
56	pbcdedit objects # list all supported object aliases and types	72	pbcdedit objects # list all supported object aliases and types
57	pbcdedit elements # list all supported bcd element aliases	73	pbcdedit elements # list all supported bcd element aliases
58		74
		75	# Example: enable text-based boot menu.
		76	pbcdedit edit /my/BCD set '{default}' bootmenupolicy 0
		77
		78	# Example change system device to first partition containing winload.
		79	pbcdedit edit /my/BCD \
		80	set '{default}' device 'locate=<null>,element,path' \
		81	set '{default}' osdevice 'locate=<null>,element,path'
		82
		83
59	=head1 DESCRIPTION	84	=head1 DESCRIPTION
60		85
61	This program allows you to create, read and modify Boot Configuration Data	86	This program allows you to create, read and modify Boot Configuration Data
62	(BCD) stores used by Windows Vista and newer versions of Windows.	87	(BCD) stores used by Windows Vista and newer versions of Windows.
63		88
…		…
142	=item C<parse> F<path> I<instructions...>	167	=item C<parse> F<path> I<instructions...>
143		168
144	Same as C<edit>, above, except it doesn't save the data store again. Can	169	Same as C<edit>, above, except it doesn't save the data store again. Can
145	be useful to extract some data from it.	170	be useful to extract some data from it.
146		171
147	=item C<lsblk>	172	=item C<create> F<path> I<instructions...>
		173
		174	Same as C<edit>, above, except it creates a new data store from scratch if
		175	needed. An existing store will be emptied completely.
		176
		177	=item C<lsblk> [C<--json>]
148		178
149	On a GNU/Linux system, you can get a list of partition device descriptors	179	On a GNU/Linux system, you can get a list of partition device descriptors
150	using this command - the external C<lsblk> command is required, as well as	180	using this command - the external C<lsblk> command is required, as well as
151	a mounted C</sys> file system.	181	a mounted C</sys> file system.
152		182
153	The output will be a list of all partitions in the system and C<partition>	183	The output will be a list of all partitions in the system and C<partition>
154	descriptors for GPT and both C<legacypartition> and C<partition>	184	descriptors for GPT and both C<legacypartition> and C<partition>
155	descriptors for MBR partitions.	185	descriptors for MBR partitions.
		186
		187	With C<--json> it will print similar information as C<lsblk --json>, but
		188	with extra C<bcd_device> and C<bcd_legacy_device> attributes.
		189
		190	=item C<bcd-device> F<path>
		191
		192	Tries to find the BCD device element for the given device, which currently
		193	must be a a partition of some kind. Prints the C<partition=> descriptor as
		194	a result, or nothing. Exit status will be true on success, and false on
		195	failure.
		196
		197	Like C<lsblk>, above, this likely only works on GNU/Linux systems.
		198
		199	Example: print the partition descriptor of tghe partition with label DATA.
		200
		201	$ pbcdedit bcd-device /dev/disk/by-label/DATA
		202	partition=<null>,harddisk,mbr,47cbc08a,213579202560
		203
		204	=item C<bcd-legacy-device> F<path>
		205
		206	Like above, but uses a C<legacypartition> descriptor instead.
156		207
157	=item C<objects> [C<--json>]	208	=item C<objects> [C<--json>]
158		209
159	Outputs two tables: a table listing all type aliases with their hex BCD	210	Outputs two tables: a table listing all type aliases with their hex BCD
160	element ID, and all object name aliases with their GUID and default type	211	element ID, and all object name aliases with their GUID and default type
…		…
262		313
263	Note that minimal doesn't mean recommended - Windows itself will add stuff	314	Note that minimal doesn't mean recommended - Windows itself will add stuff
264	to this during or after boot, and you might or might not run into issues	315	to this during or after boot, and you might or might not run into issues
265	when installing updates as it might not be able to find the F<bootmgr>.	316	when installing updates as it might not be able to find the F<bootmgr>.
266		317
		318	This is how you would create a minimal hive with PBCDEDIT from within
		319	GNU/Linux, assuming F</dev/sdc3> is the windows partition, using
		320	a random GUID for the osloader and using C<partition> instead of
		321	C<legacypartition>:
		322
		323	osldr="{$(uuidgen)}"
		324	part=$(pbcdedit bcd-device /dev/sdc3)
		325	pbcdedit create minimal.bcd \
		326	set '{bootmgr}' default "$osldr" \
		327	set "$osldr" type application::osloader \
		328	set "$osldr" description 'Windows Boot' \
		329	set "$osldr" device "$part" \
		330	set "$osldr" osdevice "$part" \
		331	set "$osldr" path '\Windows\system32\winload.exe' \
		332	set "$osldr" systemroot '\Windows'
		333
267	=head2 The C<meta> key	334	=head2 The C<meta> key
268		335
269	The C<meta> key is not stored in the BCD data store but is used only	336	The C<meta> key is not stored in the BCD data store but is used only
270	by PBCDEDIT. It is always generated when exporting, and importing will	337	by PBCDEDIT. It is always generated when exporting, and importing will
271	be refused when it exists and the version stored inside doesn't store	338	be refused when it exists and the version stored inside doesn't match
272	the JSON schema version of PBCDEDIT. This ensures that different and	339	the JSON schema version of PBCDEDIT. This ensures that different and
273	incompatible versions of PBCDEDIT will not read and misinterpret each	340	incompatible versions of PBCDEDIT will not read and misinterpret each
274	others data.	341	others data.
275		342
276	=head2 The object keys	343	=head2 The object keys
…		…
285		352
286	Some of these GUIDs are fixed well known GUIDs which PBCDEDIT will decode	353	Some of these GUIDs are fixed well known GUIDs which PBCDEDIT will decode
287	into human-readable strings such as C<{globalsettings}>, which is the same	354	into human-readable strings such as C<{globalsettings}>, which is the same
288	as C<{7ea2e1ac-2e61-4728-aaa3-896d9d0a9f0e}>.	355	as C<{7ea2e1ac-2e61-4728-aaa3-896d9d0a9f0e}>.
289		356
290	Each BCD, object has an associated type. For example,	357	Each BCD object has an associated type. For example,
291	C<application::osloader> for objects loading Windows via F<winload.exe>,	358	C<application::osloader> for objects loading Windows via F<winload.exe>,
292	C<application::bootsector> for real mode applications and so on.	359	C<application::bootsector> for real mode applications and so on.
293		360
294	The type of a object is stored in the pseudo BCD element C<type> (see next	361	The type of a object is stored in the pseudo BCD element C<type> (see next
295	section).	362	section).
…		…
370	"timeout" : 30,	437	"timeout" : 30,
371		438
372	=item integer list	439	=item integer list
373		440
374	This is a list of 64 bit integers separated by whitespace. It is not used	441	This is a list of 64 bit integers separated by whitespace. It is not used
375	much, so here is a somewhat artificial an untested example of using	442	much, so here is a somewhat artificial and untested example of using
376	C<customactions> to specify a certain custom, eh, action to be executed	443	C<customactions> to specify a certain custom, eh, action to be executed
377	when pressing C<F10> at boot:	444	when pressing C<F10> at boot:
378		445
379	"customactions" : "0x1000044000001 0x54000001",	446	"customactions" : "0x1000044000001 0x54000001",
380		447
…		…
408	This type is why I write I<most> are easy to explain earlier: This type	475	This type is why I write I<most> are easy to explain earlier: This type
409	is the pinnacle of Microsoft-typical hacks layered on top of other	476	is the pinnacle of Microsoft-typical hacks layered on top of other
410	hacks. Understanding this type took more time than writing all the rest of	477	hacks. Understanding this type took more time than writing all the rest of
411	PBCDEDIT, and because it is so complex, this type has its own subsection	478	PBCDEDIT, and because it is so complex, this type has its own subsection
412	below.	479	below.
		480
413	=back	481	=back
414		482
415	=head4 The BCD "device" element type	483	=head3 The BCD "device" element type
416		484
417	Device elements specify, well, devices. They are used for such diverse	485	Device elements specify, well, devices. They are used for such diverse
418	purposes such as finding a TFTP network boot image, serial ports or VMBUS	486	purposes such as finding a TFTP network boot image, serial ports or VMBUS
419	devices, but most commonly they are used to specify the disk (harddisk,	487	devices, but most commonly they are used to specify the disk (harddisk,
420	cdrom, ramdisk, vhd...) to boot from.	488	cdrom, ramdisk, vhd...) to boot from.
…		…
428	element, so almost everything known about it had to be researched first	496	element, so almost everything known about it had to be researched first
429	in the process of writing this script, and consequently, support for BCD	497	in the process of writing this script, and consequently, support for BCD
430	device elements is partial only.	498	device elements is partial only.
431		499
432	On the other hand, the expressive power of PBCDEDIT in specifying devices	500	On the other hand, the expressive power of PBCDEDIT in specifying devices
433	is much bigger than BCDEDIT and therefore more can be done with it. The	501	is much greater than BCDEDIT and therefore more can be done with it. The
434	downside is that BCD device elements are much more complicated than what	502	downside is that BCD device elements are much more complicated than what
435	you might think from reading the BCDEDIT documentation.	503	you might think from reading the BCDEDIT documentation.
436		504
437	In other words, simple things are complicated, and complicated things are	505	In other words, simple things are complicated, and complicated things are
438	possible.	506	possible.
…		…
445	[{GUID}]type[<flags>][=arg,arg...]	513	[{GUID}]type[<flags>][=arg,arg...]
446		514
447	Here are some examples:	515	Here are some examples:
448		516
449	boot	517	boot
450	{b097d29f-bc00-11e9-8a9a-525400123456}block=file,<boot>,\\EFI"	518	{b097d29f-bc00-11e9-8a9a-525400123456}block=file,<boot>,\EFI
451	locate=<null>,element,systemroot	519	locate=<null>,element,systemroot
452	partition=<null>,harddisk,mbr,47cbc08a,1048576	520	partition=<null>,harddisk,mbr,47cbc08a,1048576
453	partition=<null>,harddisk,gpt,9742e468-9206-48a0-b4e4-c4e9745a356a,76d39e5f-ad1b-407e-9c05-c81eb83b57dd	521	partition=<null>,harddisk,gpt,9742e468-9206-48a0-b4e4-c4e9745a356a,76d39e5f-ad1b-407e-9c05-c81eb83b57dd
454	block<1>=ramdisk,<partition=<null>,harddisk,mbr,47cbc08a,68720525312>,0,0,0,\Recovery\b097d29e-bc00-11e9-8a9a-525400123456\Winre.wim	522	block<1>=ramdisk,<partition=<null>,harddisk,mbr,47cbc08a,68720525312>,0,0,0,\Recovery\b097d29e-bc00-11e9-8a9a-525400123456\Winre.wim
455	block=file,<partition=<null>,harddisk,gpt,9742e468-9206-48a0-b4e4-c4e9745a356a,ee3a393a-f0de-4057-9946-88584245ed48>,\	523	block=file,<partition=<null>,harddisk,gpt,9742e468-9206-48a0-b4e4-c4e9745a356a,ee3a393a-f0de-4057-9946-88584245ed48>,\
…		…
605		673
606	Last not least, the most complex type, C<block>, which... specifies block	674	Last not least, the most complex type, C<block>, which... specifies block
607	devices (which could be inside a F<vhdx> file for example).	675	devices (which could be inside a F<vhdx> file for example).
608		676
609	I<devicetypes> is one of C<harddisk>, C<floppy>, C<cdrom>, C<ramdisk>,	677	I<devicetypes> is one of C<harddisk>, C<floppy>, C<cdrom>, C<ramdisk>,
610	C<file> or C<vhd> - the same as for C<partiion=>.	678	C<file> or C<vhd> - the same as for C<partition=>.
611		679
612	The remaining arguments change depending on the I<devicetype>:	680	The remaining arguments change depending on the I<devicetype>:
613		681
614	=over	682	=over
615		683
…		…
645		713
646	Probably not yet implemented. Tell me of your needs...	714	Probably not yet implemented. Tell me of your needs...
647		715
648	=back	716	=back
649		717
650	=back5 Examples	718	=back
		719
		720	=head4 Examples
651		721
652	This concludes the syntax overview for device elements, but probably	722	This concludes the syntax overview for device elements, but probably
653	leaves many questions open. I can't help with most of them, as I also ave	723	leaves many questions open. I can't help with most of them, as I also have
654	many questions, but I can walk you through some actual examples using more	724	many questions, but I can walk you through some actual examples using more
655	complex aspects.	725	complex aspects.
		726
		727	=over
656		728
657	=item C<< locate=<block=vhd,<block=file,<locate=<null>,path,\disk.vhdx>,\disk.vhdx>>,element,path >>	729	=item C<< locate=<block=vhd,<block=file,<locate=<null>,path,\disk.vhdx>,\disk.vhdx>>,element,path >>
658		730
659	Just like with C declarations, you best treat device descriptors as	731	Just like with C declarations, you best treat device descriptors as
660	instructions to find your device and work your way from the inside out:	732	instructions to find your device and work your way from the inside out:
…		…
732	I don't know what the purpose of the C<< <1> >> flag value is, but it	804	I don't know what the purpose of the C<< <1> >> flag value is, but it
733	seems to be always there on this kind of entry.	805	seems to be always there on this kind of entry.
734		806
735	If you have some good examples to add here, feel free to mail me.	807	If you have some good examples to add here, feel free to mail me.
736		808
		809	=back
		810
737		811
738	=head1 EDITING BCD STORES	812	=head1 EDITING BCD STORES
739		813
740	The C<edit> and C<parse> subcommands allow you to read a BCD data store	814	The C<edit> and C<parse> subcommands allow you to read a BCD data store
741	and modify it or extract data from it. This is done by executing a series	815	and modify it or extract data from it. This is done by executing a series
…		…
761	Example: change the bootmgr default too	835	Example: change the bootmgr default too
762	C<{b097d2ad-bc00-11e9-8a9a-525400123456}>:	836	C<{b097d2ad-bc00-11e9-8a9a-525400123456}>:
763		837
764	pbcdedit edit BCD set "{bootmgr}" default "{b097d2ad-bc00-11e9-8a9a-525400123456}"	838	pbcdedit edit BCD set "{bootmgr}" default "{b097d2ad-bc00-11e9-8a9a-525400123456}"
765		839
		840	=item C<del> I<object> I<element>
		841
		842	Similar to C<get>, but removed the BCD element from the specified BCD object.
		843
766	=item C<eval> I<perlcode>	844	=item C<eval> I<perlcode>
767		845
768	This takes the next argument, interprets it as Perl code and	846	This takes the next argument, interprets it as Perl code and
769	evaluates it. This allows you to do more complicated modifications or	847	evaluates it. This allows you to do more complicated modifications or
770	extractions.	848	extractions.
…		…
870		948
871	# hack used for debugging	949	# hack used for debugging
872	sub xxd($$) {	950	sub xxd($$) {
873	open my $xxd, "\| xxd \| sed -e 's/^/\Q$_[0]\E: /'";	951	open my $xxd, "\| xxd \| sed -e 's/^/\Q$_[0]\E: /'";
874	syswrite $xxd, $_[1];	952	syswrite $xxd, $_[1];
		953	}
		954
		955	# get some meta info on a file (uid, gid, perms)
		956	sub stat_get($) {
		957	[(stat shift)[4, 5, 2]]
		958	}
		959
		960	# set stat info on a file
		961	sub stat_set($$) {
		962	my ($fh_or_path, $stat) = @_;
		963
		964	return unless $stat;
		965	chown $stat->[0], $stat->[1], $fh_or_path;
		966	chmod +($stat->[2] & 07777), $fh_or_path;
875	}	967	}
876		968
877	sub file_load($) {	969	sub file_load($) {
878	my ($path) = @_;	970	my ($path) = @_;
879		971
…		…
882	my $size = -s $fh;	974	my $size = -s $fh;
883	$size = read $fh, my $buf, $size	975	$size = read $fh, my $buf, $size
884	or die "$path: short read\n";	976	or die "$path: short read\n";
885		977
886	$buf	978	$buf
		979	}
		980
		981	sub file_save($$;$) {
		982	my ($path, $data, $stat) = @_;
		983
		984	open my $fh, ">:raw", "$path~"
		985	or die "$path~: $!\n";
		986	print $fh $data
		987	or die "$path~: short write\n";
		988	stat_set $fh, $stat;
		989	$fh->sync;
		990	close $fh;
		991
		992	rename "$path~", $path;
887	}	993	}
888		994
889	# sources and resources used for writing pbcdedit	995	# sources and resources used for writing pbcdedit
890	#	996	#
891	# registry:	997	# registry:
…		…
1077	my ($rname, $root) = $decode_key->($rootcell);	1183	my ($rname, $root) = $decode_key->($rootcell);
1078		1184
1079	[$rname, $root]	1185	[$rname, $root]
1080	}	1186	}
1081		1187
1082	# return a binary windows fILETIME struct	1188	# return a binary windows FILETIME struct
1083	sub filetime_now {	1189	sub filetime_now {
1084	my ($s, $ms) = Time::HiRes::gettimeofday;	1190	my ($s, $ms) = Time::HiRes::gettimeofday;
1085		1191
1086	pack "Q<", $s = ($s * 1_000_000 + $ms) * 10 + 116_444_736_000_000_000	1192	pack "Q<", ($s * 1_000_000 + $ms) * 10
		1193	+ 116_444_736_000_000_000 # 1970-01-01 00:00:00
1087	}	1194	}
1088		1195
1089	# encode a registry hive	1196	# encode a registry hive
1090	sub regf_encode($) {	1197	sub regf_encode($) {
1091	my ($hive) = @_;	1198	my ($hive) = @_;
…		…
1094		1201
1095	# the filetime is apparently used to verify log file validity,	1202	# the filetime is apparently used to verify log file validity,
1096	# so by generating a new timestamp the log files should automatically	1203	# so by generating a new timestamp the log files should automatically
1097	# become invalidated and windows would "self-heal" them.	1204	# become invalidated and windows would "self-heal" them.
1098	# (update: has been verified by reverse engineering)	1205	# (update: has been verified by reverse engineering)
1099	# possibly the fact that the two sequence numbes match might also	1206	# possibly the fact that the two sequence numbers match might also
1100	# make windows think that the hive is not dirty and ignore logs.	1207	# make windows think that the hive is not dirty and ignore logs.
1101	# (update: has been verified by reverse engineering)	1208	# (update: has been verified by reverse engineering)
1102		1209
1103	my $now = filetime_now;	1210	my $now = filetime_now;
1104		1211
…		…
1248		1355
1249	regf_decode file_load $path	1356	regf_decode file_load $path
1250	}	1357	}
1251		1358
1252	# encode and save registry to file	1359	# encode and save registry to file
1253	sub regf_save {	1360	sub regf_save($$;$) {
1254	my ($path, $hive) = @_;	1361	my ($path, $hive, $stat) = @_;
1255		1362
1256	$hive = regf_encode $hive;	1363	$hive = regf_encode $hive;
1257		1364
1258	open my $regf, ">:raw", "$path~"	1365	file_save $path, $hive, $stat;
1259	or die "$path~: $!\n";
1260	print $regf $hive
1261	or die "$path~: short write\n";
1262	$regf->sync;
1263	close $regf;
1264
1265	rename "$path~", $path;
1266	}	1366	}
1267		1367
1268	#############################################################################	1368	#############################################################################
1269	# bcd stuff	1369	# bcd stuff
1270		1370
1271	# human-readable alises for GUID object identifiers	1371	# human-readable aliases for GUID object identifiers
1272	our %bcd_objects = (	1372	our %bcd_objects = (
1273	'{0ce4991b-e6b3-4b16-b23c-5e0d9250e5d9}' => '{emssettings}',	1373	'{0ce4991b-e6b3-4b16-b23c-5e0d9250e5d9}' => '{emssettings}',
1274	'{1afa9c49-16ab-4a5c-4a90-212802da9460}' => '{resumeloadersettings}',	1374	'{1afa9c49-16ab-4a5c-4a90-212802da9460}' => '{resumeloadersettings}',
1275	'{1cae1eb7-a0df-4d4d-9851-4860e34ef535}' => '{default}',	1375	'{1cae1eb7-a0df-4d4d-9851-4860e34ef535}' => '{default}',
1276	'{313e8eed-7098-4586-a9bf-309c61f8d449}' => '{kerneldbgsettings}',	1376	'{313e8eed-7098-4586-a9bf-309c61f8d449}' => '{kerneldbgsettings}',
…		…
1406	BCDE_FORMAT_STRING , sub { shift },	1506	BCDE_FORMAT_STRING , sub { shift },
1407	BCDE_FORMAT_GUID , sub { dec_wguid enc_wguid shift },	1507	BCDE_FORMAT_GUID , sub { dec_wguid enc_wguid shift },
1408	BCDE_FORMAT_GUID_LIST , sub { join " ", map dec_wguid enc_wguid $_, @{+shift} },	1508	BCDE_FORMAT_GUID_LIST , sub { join " ", map dec_wguid enc_wguid $_, @{+shift} },
1409	BCDE_FORMAT_INTEGER , sub { unpack "Q", pack "a8", pack "H*", shift }, # integer might be 4 or 8 bytes - caused by ms coding bugs	1509	BCDE_FORMAT_INTEGER , sub { unpack "Q", pack "a8", pack "H*", shift }, # integer might be 4 or 8 bytes - caused by ms coding bugs
1410	BCDE_FORMAT_BOOLEAN , sub { shift eq "00" ? 0 : 1 },	1510	BCDE_FORMAT_BOOLEAN , sub { shift eq "00" ? 0 : 1 },
1411	BCDE_FORMAT_INTEGER_LIST, sub { join " ", unpack "Q", pack "H", shift }, # not sure if this cna be 4 bytes	1511	BCDE_FORMAT_INTEGER_LIST, sub { join " ", unpack "Q", pack "H", shift }, # not sure if this can be 4 bytes
1412	);	1512	);
1413		1513
1414	our %bcde_enc = (	1514	our %bcde_enc = (
1415	BCDE_FORMAT_DEVICE , sub { binary => enc_device $_[0], $_[1] },	1515	BCDE_FORMAT_DEVICE , sub { binary => enc_device $_[0], $_[1] },
1416	BCDE_FORMAT_STRING , sub { sz => shift },	1516	BCDE_FORMAT_STRING , sub { sz => shift },
…		…
1422	);	1522	);
1423		1523
1424	# BCD Elements	1524	# BCD Elements
1425	our %bcde_byclass = (	1525	our %bcde_byclass = (
1426	any => {	1526	any => {
1427	0x11000001 => 'device',	1527	0x11000001 => 'device',
1428	0x12000002 => 'path',	1528	0x12000002 => 'path',
1429	0x12000004 => 'description',	1529	0x12000004 => 'description',
1430	0x12000005 => 'locale',	1530	0x12000005 => 'locale',
1431	0x14000006 => 'inherit',	1531	0x14000006 => 'inherit',
1432	0x15000007 => 'truncatememory',	1532	0x15000007 => 'truncatememory',
1433	0x14000008 => 'recoverysequence',	1533	0x14000008 => 'recoverysequence',
1434	0x16000009 => 'recoveryenabled',	1534	0x16000009 => 'recoveryenabled',
1435	0x1700000a => 'badmemorylist',	1535	0x1700000a => 'badmemorylist',
1436	0x1600000b => 'badmemoryaccess',	1536	0x1600000b => 'badmemoryaccess',
1437	0x1500000c => 'firstmegabytepolicy',	1537	0x1500000c => 'firstmegabytepolicy',
1438	0x1500000d => 'relocatephysical',	1538	0x1500000d => 'relocatephysical',
1439	0x1500000e => 'avoidlowmemory',	1539	0x1500000e => 'avoidlowmemory',
1440	0x1600000f => 'traditionalkseg',	1540	0x1600000f => 'traditionalkseg',
1441	0x16000010 => 'bootdebug',	1541	0x16000010 => 'bootdebug',
1442	0x15000011 => 'debugtype',	1542	0x15000011 => 'debugtype',
1443	0x15000012 => 'debugaddress',	1543	0x15000012 => 'debugaddress',
1444	0x15000013 => 'debugport',	1544	0x15000013 => 'debugport',
1445	0x15000014 => 'baudrate',	1545	0x15000014 => 'baudrate',
1446	0x15000015 => 'channel',	1546	0x15000015 => 'channel',
1447	0x12000016 => 'targetname',	1547	0x12000016 => 'targetname',
1448	0x16000017 => 'noumex',	1548	0x16000017 => 'noumex',
1449	0x15000018 => 'debugstart',	1549	0x15000018 => 'debugstart',
1450	0x12000019 => 'busparams',	1550	0x12000019 => 'busparams',
1451	0x1500001a => 'hostip',	1551	0x1500001a => 'hostip',
1452	0x1500001b => 'port',	1552	0x1500001b => 'port',
1453	0x1600001c => 'dhcp',	1553	0x1600001c => 'dhcp',
1454	0x1200001d => 'key',	1554	0x1200001d => 'key',
1455	0x1600001e => 'vm',	1555	0x1600001e => 'vm',
1456	0x16000020 => 'bootems',	1556	0x16000020 => 'bootems',
1457	0x15000022 => 'emsport',	1557	0x15000022 => 'emsport',
1458	0x15000023 => 'emsbaudrate',	1558	0x15000023 => 'emsbaudrate',
1459	0x12000030 => 'loadoptions',	1559	0x12000030 => 'loadoptions',
1460	0x16000040 => 'advancedoptions',	1560	0x16000040 => 'advancedoptions',
1461	0x16000041 => 'optionsedit',	1561	0x16000041 => 'optionsedit',
1462	0x15000042 => 'keyringaddress',	1562	0x15000042 => 'keyringaddress',
1463	0x11000043 => 'bootstatdevice',	1563	0x11000043 => 'bootstatdevice',
1464	0x12000044 => 'bootstatfilepath',	1564	0x12000044 => 'bootstatfilepath',
1465	0x16000045 => 'preservebootstat',	1565	0x16000045 => 'preservebootstat',
1466	0x16000046 => 'graphicsmodedisabled',	1566	0x16000046 => 'graphicsmodedisabled',
1467	0x15000047 => 'configaccesspolicy',	1567	0x15000047 => 'configaccesspolicy',
1468	0x16000048 => 'nointegritychecks',	1568	0x16000048 => 'nointegritychecks',
1469	0x16000049 => 'testsigning',	1569	0x16000049 => 'testsigning',
1470	0x1200004a => 'fontpath',	1570	0x1200004a => 'fontpath',
1471	0x1500004b => 'integrityservices',	1571	0x1500004b => 'integrityservices',
1472	0x1500004c => 'volumebandid',	1572	0x1500004c => 'volumebandid',
1473	0x16000050 => 'extendedinput',	1573	0x16000050 => 'extendedinput',
1474	0x15000051 => 'initialconsoleinput',	1574	0x15000051 => 'initialconsoleinput',
1475	0x15000052 => 'graphicsresolution',	1575	0x15000052 => 'graphicsresolution',
1476	0x16000053 => 'restartonfailure',	1576	0x16000053 => 'restartonfailure',
1477	0x16000054 => 'highestmode',	1577	0x16000054 => 'highestmode',
1478	0x16000060 => 'isolatedcontext',	1578	0x16000060 => 'isolatedcontext',
1479	0x15000065 => 'displaymessage',	1579	0x15000065 => 'displaymessage',
1480	0x15000066 => 'displaymessageoverride',	1580	0x15000066 => 'displaymessageoverride',
1481	0x16000068 => 'nobootuxtext',	1581	0x16000068 => 'nobootuxtext',
1482	0x16000069 => 'nobootuxprogress',	1582	0x16000069 => 'nobootuxprogress',
1483	0x1600006a => 'nobootuxfade',	1583	0x1600006a => 'nobootuxfade',
1484	0x1600006b => 'bootuxreservepooldebug',	1584	0x1600006b => 'bootuxreservepooldebug',
1485	0x1600006c => 'bootuxdisabled',	1585	0x1600006c => 'bootuxdisabled',
1486	0x1500006d => 'bootuxfadeframes',	1586	0x1500006d => 'bootuxfadeframes',
1487	0x1600006e => 'bootuxdumpstats',	1587	0x1600006e => 'bootuxdumpstats',
1488	0x1600006f => 'bootuxshowstats',	1588	0x1600006f => 'bootuxshowstats',
1489	0x16000071 => 'multibootsystem',	1589	0x16000071 => 'multibootsystem',
1490	0x16000072 => 'nokeyboard',	1590	0x16000072 => 'nokeyboard',
1491	0x15000073 => 'aliaswindowskey',	1591	0x15000073 => 'aliaswindowskey',
1492	0x16000074 => 'bootshutdowndisabled',	1592	0x16000074 => 'bootshutdowndisabled',
1493	0x15000075 => 'performancefrequency',	1593	0x15000075 => 'performancefrequency',
1494	0x15000076 => 'securebootrawpolicy',	1594	0x15000076 => 'securebootrawpolicy',
1495	0x17000077 => 'allowedinmemorysettings',	1595	0x17000077 => 'allowedinmemorysettings',
1496	0x15000079 => 'bootuxtransitiontime',	1596	0x15000079 => 'bootuxtransitiontime',
1497	0x1600007a => 'mobilegraphics',	1597	0x1600007a => 'mobilegraphics',
1498	0x1600007b => 'forcefipscrypto',	1598	0x1600007b => 'forcefipscrypto',
1499	0x1500007d => 'booterrorux',	1599	0x1500007d => 'booterrorux',
1500	0x1600007e => 'flightsigning',	1600	0x1600007e => 'flightsigning',
1501	0x1500007f => 'measuredbootlogformat',	1601	0x1500007f => 'measuredbootlogformat',
1502	0x15000080 => 'displayrotation',	1602	0x15000080 => 'displayrotation',
1503	0x15000081 => 'logcontrol',	1603	0x15000081 => 'logcontrol',
1504	0x16000082 => 'nofirmwaresync',	1604	0x16000082 => 'nofirmwaresync',
1505	0x11000084 => 'windowssyspart',	1605	0x11000084 => 'windowssyspart',
1506	0x16000087 => 'numlock',	1606	0x16000087 => 'numlock',
1507	0x26000202 => 'skipffumode',	1607	0x26000202 => 'skipffumode',
1508	0x26000203 => 'forceffumode',	1608	0x26000203 => 'forceffumode',
1509	0x25000510 => 'chargethreshold',	1609	0x25000510 => 'chargethreshold',
1510	0x26000512 => 'offmodecharging',	1610	0x26000512 => 'offmodecharging',
1511	0x25000aaa => 'bootflow',	1611	0x25000aaa => 'bootflow',
1512	0x45000001 => 'devicetype',	1612	0x45000001 => 'devicetype',
1513	0x42000002 => 'applicationrelativepath',	1613	0x42000002 => 'applicationrelativepath',
1514	0x42000003 => 'ramdiskdevicerelativepath',	1614	0x42000003 => 'ramdiskdevicerelativepath',
1515	0x46000004 => 'omitosloaderelements',	1615	0x46000004 => 'omitosloaderelements',
1516	0x47000006 => 'elementstomigrate',	1616	0x47000006 => 'elementstomigrate',
1517	0x46000010 => 'recoveryos',	1617	0x46000010 => 'recoveryos',
1518	},	1618	},
1519	bootapp => {	1619	bootapp => {
1520	0x26000145 => 'enablebootdebugpolicy',	1620	0x26000145 => 'enablebootdebugpolicy',
1521	0x26000146 => 'enablebootorderclean',	1621	0x26000146 => 'enablebootorderclean',
1522	0x26000147 => 'enabledeviceid',	1622	0x26000147 => 'enabledeviceid',
1523	0x26000148 => 'enableffuloader',	1623	0x26000148 => 'enableffuloader',
1524	0x26000149 => 'enableiuloader',	1624	0x26000149 => 'enableiuloader',
1525	0x2600014a => 'enablemassstorage',	1625	0x2600014a => 'enablemassstorage',
1526	0x2600014b => 'enablerpmbprovisioning',	1626	0x2600014b => 'enablerpmbprovisioning',
1527	0x2600014c => 'enablesecurebootpolicy',	1627	0x2600014c => 'enablesecurebootpolicy',
1528	0x2600014d => 'enablestartcharge',	1628	0x2600014d => 'enablestartcharge',
1529	0x2600014e => 'enableresettpm',	1629	0x2600014e => 'enableresettpm',
1530	},	1630	},
1531	bootmgr => {	1631	bootmgr => {
1532	0x24000001 => 'displayorder',	1632	0x24000001 => 'displayorder',
1533	0x24000002 => 'bootsequence',	1633	0x24000002 => 'bootsequence',
1534	0x23000003 => 'default',	1634	0x23000003 => 'default',
1535	0x25000004 => 'timeout',	1635	0x25000004 => 'timeout',
1536	0x26000005 => 'resume',	1636	0x26000005 => 'resume',
1537	0x23000006 => 'resumeobject',	1637	0x23000006 => 'resumeobject',
1538	0x24000007 => 'startupsequence',	1638	0x24000007 => 'startupsequence',
1539	0x24000010 => 'toolsdisplayorder',	1639	0x24000010 => 'toolsdisplayorder',
1540	0x26000020 => 'displaybootmenu',	1640	0x26000020 => 'displaybootmenu',
1541	0x26000021 => 'noerrordisplay',	1641	0x26000021 => 'noerrordisplay',
1542	0x21000022 => 'bcddevice',	1642	0x21000022 => 'bcddevice',
1543	0x22000023 => 'bcdfilepath',	1643	0x22000023 => 'bcdfilepath',
1544	0x26000024 => 'hormenabled',	1644	0x26000024 => 'hormenabled',
1545	0x26000025 => 'hiberboot',	1645	0x26000025 => 'hiberboot',
1546	0x22000026 => 'passwordoverride',	1646	0x22000026 => 'passwordoverride',
1547	0x22000027 => 'pinpassphraseoverride',	1647	0x22000027 => 'pinpassphraseoverride',
1548	0x26000028 => 'processcustomactionsfirst',	1648	0x26000028 => 'processcustomactionsfirst',
1549	0x27000030 => 'customactions',	1649	0x27000030 => 'customactions',
1550	0x26000031 => 'persistbootsequence',	1650	0x26000031 => 'persistbootsequence',
1551	0x26000032 => 'skipstartupsequence',	1651	0x26000032 => 'skipstartupsequence',
1552	0x22000040 => 'fverecoveryurl',	1652	0x22000040 => 'fverecoveryurl',
1553	0x22000041 => 'fverecoverymessage',	1653	0x22000041 => 'fverecoverymessage',
1554	},	1654	},
1555	device => {	1655	device => {
1556	0x35000001 => 'ramdiskimageoffset',	1656	0x35000001 => 'ramdiskimageoffset',
1557	0x35000002 => 'ramdisktftpclientport',	1657	0x35000002 => 'ramdisktftpclientport',
1558	0x31000003 => 'ramdisksdidevice',	1658	0x31000003 => 'ramdisksdidevice',
1559	0x32000004 => 'ramdisksdipath',	1659	0x32000004 => 'ramdisksdipath',
1560	0x35000005 => 'ramdiskimagelength',	1660	0x35000005 => 'ramdiskimagelength',
1561	0x36000006 => 'exportascd',	1661	0x36000006 => 'exportascd',
1562	0x35000007 => 'ramdisktftpblocksize',	1662	0x35000007 => 'ramdisktftpblocksize',
1563	0x35000008 => 'ramdisktftpwindowsize',	1663	0x35000008 => 'ramdisktftpwindowsize',
1564	0x36000009 => 'ramdiskmcenabled',	1664	0x36000009 => 'ramdiskmcenabled',
1565	0x3600000a => 'ramdiskmctftpfallback',	1665	0x3600000a => 'ramdiskmctftpfallback',
1566	0x3600000b => 'ramdisktftpvarwindow',	1666	0x3600000b => 'ramdisktftpvarwindow',
1567	},	1667	},
1568	memdiag => {	1668	memdiag => {
1569	0x25000001 => 'passcount',	1669	0x25000001 => 'passcount',
1570	0x25000002 => 'testmix',	1670	0x25000002 => 'testmix',
1571	0x25000003 => 'failurecount',	1671	0x25000003 => 'failurecount',
1572	0x26000003 => 'cacheenable',	1672	0x26000003 => 'cacheenable',
1573	0x25000004 => 'testtofail',	1673	0x25000004 => 'testtofail',
1574	0x26000004 => 'failuresenabled',	1674	0x26000004 => 'failuresenabled',
1575	0x25000005 => 'stridefailcount',	1675	0x25000005 => 'stridefailcount',
1576	0x26000005 => 'cacheenable',	1676	0x26000005 => 'cacheenable',
1577	0x25000006 => 'invcfailcount',	1677	0x25000006 => 'invcfailcount',
1578	0x25000007 => 'matsfailcount',	1678	0x25000007 => 'matsfailcount',
1579	0x25000008 => 'randfailcount',	1679	0x25000008 => 'randfailcount',
1580	0x25000009 => 'chckrfailcount',	1680	0x25000009 => 'chckrfailcount',
1581	},	1681	},
1582	ntldr => {	1682	ntldr => {
1583	0x22000001 => 'bpbstring',	1683	0x22000001 => 'bpbstring',
1584	},	1684	},
1585	osloader => {	1685	osloader => {
1586	0x21000001 => 'osdevice',	1686	0x21000001 => 'osdevice',
1587	0x22000002 => 'systemroot',	1687	0x22000002 => 'systemroot',
1588	0x23000003 => 'resumeobject',	1688	0x23000003 => 'resumeobject',
1589	0x26000004 => 'stampdisks',	1689	0x26000004 => 'stampdisks',
1590	0x26000010 => 'detecthal',	1690	0x26000010 => 'detecthal',
1591	0x22000011 => 'kernel',	1691	0x22000011 => 'kernel',
1592	0x22000012 => 'hal',	1692	0x22000012 => 'hal',
1593	0x22000013 => 'dbgtransport',	1693	0x22000013 => 'dbgtransport',
1594	0x25000020 => 'nx',	1694	0x25000020 => 'nx',
1595	0x25000021 => 'pae',	1695	0x25000021 => 'pae',
1596	0x26000022 => 'winpe',	1696	0x26000022 => 'winpe',
1597	0x26000024 => 'nocrashautoreboot',	1697	0x26000024 => 'nocrashautoreboot',
1598	0x26000025 => 'lastknowngood',	1698	0x26000025 => 'lastknowngood',
1599	0x26000026 => 'oslnointegritychecks',	1699	0x26000026 => 'oslnointegritychecks',
1600	0x26000027 => 'osltestsigning',	1700	0x26000027 => 'osltestsigning',
1601	0x26000030 => 'nolowmem',	1701	0x26000030 => 'nolowmem',
1602	0x25000031 => 'removememory',	1702	0x25000031 => 'removememory',
1603	0x25000032 => 'increaseuserva',	1703	0x25000032 => 'increaseuserva',
1604	0x25000033 => 'perfmem',	1704	0x25000033 => 'perfmem',
1605	0x26000040 => 'vga',	1705	0x26000040 => 'vga',
1606	0x26000041 => 'quietboot',	1706	0x26000041 => 'quietboot',
1607	0x26000042 => 'novesa',	1707	0x26000042 => 'novesa',
1608	0x26000043 => 'novga',	1708	0x26000043 => 'novga',
1609	0x25000050 => 'clustermodeaddressing',	1709	0x25000050 => 'clustermodeaddressing',
1610	0x26000051 => 'usephysicaldestination',	1710	0x26000051 => 'usephysicaldestination',
1611	0x25000052 => 'restrictapiccluster',	1711	0x25000052 => 'restrictapiccluster',
1612	0x22000053 => 'evstore',	1712	0x22000053 => 'evstore',
1613	0x26000054 => 'uselegacyapicmode',	1713	0x26000054 => 'uselegacyapicmode',
1614	0x26000060 => 'onecpu',	1714	0x26000060 => 'onecpu',
1615	0x25000061 => 'numproc',	1715	0x25000061 => 'numproc',
1616	0x26000062 => 'maxproc',	1716	0x26000062 => 'maxproc',
1617	0x25000063 => 'configflags',	1717	0x25000063 => 'configflags',
1618	0x26000064 => 'maxgroup',	1718	0x26000064 => 'maxgroup',
1619	0x26000065 => 'groupaware',	1719	0x26000065 => 'groupaware',
1620	0x25000066 => 'groupsize',	1720	0x25000066 => 'groupsize',
1621	0x26000070 => 'usefirmwarepcisettings',	1721	0x26000070 => 'usefirmwarepcisettings',
1622	0x25000071 => 'msi',	1722	0x25000071 => 'msi',
1623	0x25000072 => 'pciexpress',	1723	0x25000072 => 'pciexpress',
1624	0x25000080 => 'safeboot',	1724	0x25000080 => 'safeboot',
1625	0x26000081 => 'safebootalternateshell',	1725	0x26000081 => 'safebootalternateshell',
1626	0x26000090 => 'bootlog',	1726	0x26000090 => 'bootlog',
1627	0x26000091 => 'sos',	1727	0x26000091 => 'sos',
1628	0x260000a0 => 'debug',	1728	0x260000a0 => 'debug',
1629	0x260000a1 => 'halbreakpoint',	1729	0x260000a1 => 'halbreakpoint',
1630	0x260000a2 => 'useplatformclock',	1730	0x260000a2 => 'useplatformclock',
1631	0x260000a3 => 'forcelegacyplatform',	1731	0x260000a3 => 'forcelegacyplatform',
1632	0x260000a4 => 'useplatformtick',	1732	0x260000a4 => 'useplatformtick',
1633	0x260000a5 => 'disabledynamictick',	1733	0x260000a5 => 'disabledynamictick',
1634	0x250000a6 => 'tscsyncpolicy',	1734	0x250000a6 => 'tscsyncpolicy',
1635	0x260000b0 => 'ems',	1735	0x260000b0 => 'ems',
1636	0x250000c0 => 'forcefailure',	1736	0x250000c0 => 'forcefailure',
1637	0x250000c1 => 'driverloadfailurepolicy',	1737	0x250000c1 => 'driverloadfailurepolicy',
1638	0x250000c2 => 'bootmenupolicy',	1738	0x250000c2 => 'bootmenupolicy',
1639	0x260000c3 => 'onetimeadvancedoptions',	1739	0x260000c3 => 'onetimeadvancedoptions',
1640	0x260000c4 => 'onetimeoptionsedit',	1740	0x260000c4 => 'onetimeoptionsedit',
1641	0x250000e0 => 'bootstatuspolicy',	1741	0x250000e0 => 'bootstatuspolicy',
1642	0x260000e1 => 'disableelamdrivers',	1742	0x260000e1 => 'disableelamdrivers',
1643	0x250000f0 => 'hypervisorlaunchtype',	1743	0x250000f0 => 'hypervisorlaunchtype',
1644	0x220000f1 => 'hypervisorpath',	1744	0x220000f1 => 'hypervisorpath',
1645	0x260000f2 => 'hypervisordebug',	1745	0x260000f2 => 'hypervisordebug',
1646	0x250000f3 => 'hypervisordebugtype',	1746	0x250000f3 => 'hypervisordebugtype',
1647	0x250000f4 => 'hypervisordebugport',	1747	0x250000f4 => 'hypervisordebugport',
1648	0x250000f5 => 'hypervisorbaudrate',	1748	0x250000f5 => 'hypervisorbaudrate',
1649	0x250000f6 => 'hypervisorchannel',	1749	0x250000f6 => 'hypervisorchannel',
1650	0x250000f7 => 'bootux',	1750	0x250000f7 => 'bootux',
1651	0x260000f8 => 'hypervisordisableslat',	1751	0x260000f8 => 'hypervisordisableslat',
1652	0x220000f9 => 'hypervisorbusparams',	1752	0x220000f9 => 'hypervisorbusparams',
1653	0x250000fa => 'hypervisornumproc',	1753	0x250000fa => 'hypervisornumproc',
1654	0x250000fb => 'hypervisorrootprocpernode',	1754	0x250000fb => 'hypervisorrootprocpernode',
1655	0x260000fc => 'hypervisoruselargevtlb',	1755	0x260000fc => 'hypervisoruselargevtlb',
1656	0x250000fd => 'hypervisorhostip',	1756	0x250000fd => 'hypervisorhostip',
1657	0x250000fe => 'hypervisorhostport',	1757	0x250000fe => 'hypervisorhostport',
1658	0x250000ff => 'hypervisordebugpages',	1758	0x250000ff => 'hypervisordebugpages',
1659	0x25000100 => 'tpmbootentropy',	1759	0x25000100 => 'tpmbootentropy',
1660	0x22000110 => 'hypervisorusekey',	1760	0x22000110 => 'hypervisorusekey',
1661	0x22000112 => 'hypervisorproductskutype',	1761	0x22000112 => 'hypervisorproductskutype',
1662	0x25000113 => 'hypervisorrootproc',	1762	0x25000113 => 'hypervisorrootproc',
1663	0x26000114 => 'hypervisordhcp',	1763	0x26000114 => 'hypervisordhcp',
1664	0x25000115 => 'hypervisoriommupolicy',	1764	0x25000115 => 'hypervisoriommupolicy',
1665	0x26000116 => 'hypervisorusevapic',	1765	0x26000116 => 'hypervisorusevapic',
1666	0x22000117 => 'hypervisorloadoptions',	1766	0x22000117 => 'hypervisorloadoptions',
1667	0x25000118 => 'hypervisormsrfilterpolicy',	1767	0x25000118 => 'hypervisormsrfilterpolicy',
1668	0x25000119 => 'hypervisormmionxpolicy',	1768	0x25000119 => 'hypervisormmionxpolicy',
1669	0x2500011a => 'hypervisorschedulertype',	1769	0x2500011a => 'hypervisorschedulertype',
1670	0x25000120 => 'xsavepolicy',	1770	0x25000120 => 'xsavepolicy',
1671	0x25000121 => 'xsaveaddfeature0',	1771	0x25000121 => 'xsaveaddfeature0',
1672	0x25000122 => 'xsaveaddfeature1',	1772	0x25000122 => 'xsaveaddfeature1',
1673	0x25000123 => 'xsaveaddfeature2',	1773	0x25000123 => 'xsaveaddfeature2',
1674	0x25000124 => 'xsaveaddfeature3',	1774	0x25000124 => 'xsaveaddfeature3',
1675	0x25000125 => 'xsaveaddfeature4',	1775	0x25000125 => 'xsaveaddfeature4',
1676	0x25000126 => 'xsaveaddfeature5',	1776	0x25000126 => 'xsaveaddfeature5',
1677	0x25000127 => 'xsaveaddfeature6',	1777	0x25000127 => 'xsaveaddfeature6',
1678	0x25000128 => 'xsaveaddfeature7',	1778	0x25000128 => 'xsaveaddfeature7',
1679	0x25000129 => 'xsaveremovefeature',	1779	0x25000129 => 'xsaveremovefeature',
1680	0x2500012a => 'xsaveprocessorsmask',	1780	0x2500012a => 'xsaveprocessorsmask',
1681	0x2500012b => 'xsavedisable',	1781	0x2500012b => 'xsavedisable',
1682	0x2500012c => 'kerneldebugtype',	1782	0x2500012c => 'kerneldebugtype',
1683	0x2200012d => 'kernelbusparams',	1783	0x2200012d => 'kernelbusparams',
1684	0x2500012e => 'kerneldebugaddress',	1784	0x2500012e => 'kerneldebugaddress',
1685	0x2500012f => 'kerneldebugport',	1785	0x2500012f => 'kerneldebugport',
1686	0x25000130 => 'claimedtpmcounter',	1786	0x25000130 => 'claimedtpmcounter',
1687	0x25000131 => 'kernelchannel',	1787	0x25000131 => 'kernelchannel',
1688	0x22000132 => 'kerneltargetname',	1788	0x22000132 => 'kerneltargetname',
1689	0x25000133 => 'kernelhostip',	1789	0x25000133 => 'kernelhostip',
1690	0x25000134 => 'kernelport',	1790	0x25000134 => 'kernelport',
1691	0x26000135 => 'kerneldhcp',	1791	0x26000135 => 'kerneldhcp',
1692	0x22000136 => 'kernelkey',	1792	0x22000136 => 'kernelkey',
1693	0x22000137 => 'imchivename',	1793	0x22000137 => 'imchivename',
1694	0x21000138 => 'imcdevice',	1794	0x21000138 => 'imcdevice',
1695	0x25000139 => 'kernelbaudrate',	1795	0x25000139 => 'kernelbaudrate',
1696	0x22000140 => 'mfgmode',	1796	0x22000140 => 'mfgmode',
1697	0x26000141 => 'event',	1797	0x26000141 => 'event',
1698	0x25000142 => 'vsmlaunchtype',	1798	0x25000142 => 'vsmlaunchtype',
1699	0x25000144 => 'hypervisorenforcedcodeintegrity',	1799	0x25000144 => 'hypervisorenforcedcodeintegrity',
1700	0x21000150 => 'systemdatadevice',	1800	0x21000150 => 'systemdatadevice',
1701	0x21000151 => 'osarcdevice',	1801	0x21000151 => 'osarcdevice',
1702	0x21000153 => 'osdatadevice',	1802	0x21000153 => 'osdatadevice',
1703	0x21000154 => 'bspdevice',	1803	0x21000154 => 'bspdevice',
1704	0x21000155 => 'bspfilepath',	1804	0x21000155 => 'bspfilepath',
1705	},	1805	},
1706	resume => {	1806	resume => {
1707	0x21000001 => 'filedevice',	1807	0x21000001 => 'filedevice',
1708	0x22000002 => 'filepath',	1808	0x22000002 => 'filepath',
1709	0x26000003 => 'customsettings',	1809	0x26000003 => 'customsettings',
1710	0x26000004 => 'pae',	1810	0x26000004 => 'pae',
1711	0x21000005 => 'associatedosdevice',	1811	0x21000005 => 'associatedosdevice',
1712	0x26000006 => 'debugoptionenabled',	1812	0x26000006 => 'debugoptionenabled',
1713	0x25000007 => 'bootux',	1813	0x25000007 => 'bootux',
1714	0x25000008 => 'bootmenupolicy',	1814	0x25000008 => 'bootmenupolicy',
1715	0x26000024 => 'hormenabled',	1815	0x26000024 => 'hormenabled',
1716	},	1816	},
1717	startup => {	1817	startup => {
1718	0x26000001 => 'pxesoftreboot',	1818	0x26000001 => 'pxesoftreboot',
1719	0x22000002 => 'applicationname',	1819	0x22000002 => 'applicationname',
1720	},	1820	},
1721	);	1821	);
1722		1822
1723	# mask, value => class	1823	# mask, value => class
1724	our @bcde_typeclass = (	1824	our @bcde_typeclass = (
…		…
1788	our @part_type = qw(gpt mbr raw);	1888	our @part_type = qw(gpt mbr raw);
1789		1889
1790	our $NULL_DEVICE = "\x00" x 16;	1890	our $NULL_DEVICE = "\x00" x 16;
1791		1891
1792	# biggest bitch to decode, ever	1892	# biggest bitch to decode, ever
1793	# this decoded a device portion after the GUID	1893	# this decodes a device portion after the GUID
1794	sub dec_device_($$);	1894	sub dec_device_($$);
1795	sub dec_device_($$) {	1895	sub dec_device_($$) {
1796	my ($device, $type) = @_;	1896	my ($device, $type) = @_;
1797		1897
1798	my $res;	1898	my $res;
…		…
2205	or die "$_: malformed or missing vmbus interface instance guid\n";	2305	or die "$_: malformed or missing vmbus interface instance guid\n";
2206	my $instance = enc_guid $1;	2306	my $instance = enc_guid $1;
2207		2307
2208	$payload = pack "a16a16x24", $type, $instance;	2308	$payload = pack "a16a16x24", $type, $instance;
2209		2309
		2310	# } elsif ($type eq "udp") {
		2311	# $payload = pack "Va16", 1, "12345678";
		2312
2210	} else {	2313	} else {
2211	die "$type: not a supported device type (binary, null, boot, legacypartition, partition, block, locate)\n";	2314	die "$type: not a supported device type (binary, null, boot, legacypartition, partition, block, locate)\n";
2212	}	2315	}
2213		2316
2214	return (	2317	return (
…		…
2379		2482
2380	$object = $object eq "{default}" ? $default : dec_wguid enc_wguid $object;	2483	$object = $object eq "{default}" ? $default : dec_wguid enc_wguid $object;
2381		2484
2382	$bcd->{$object}{$elem} = $value;	2485	$bcd->{$object}{$elem} = $value;
2383		2486
		2487	} elsif ($insn eq "del") {
		2488	my $object = shift @insns;
		2489	my $elem = shift @insns;
		2490
		2491	$object = $object eq "{default}" ? $default : dec_wguid enc_wguid $object;
		2492
		2493	delete $bcd->{$object}{$elem};
		2494
2384	} elsif ($insn eq "eval") {	2495	} elsif ($insn eq "eval") {
2385	my $perl = shift @insns;	2496	my $perl = shift @insns;
2386	bcd_edit_eval "#line 1 'eval'\n$perl";	2497	bcd_edit_eval "#line 1 'eval'\n$perl";
2387		2498
2388	} elsif ($insn eq "do") {	2499	} elsif ($insn eq "do") {
2389	my $path = shift @insns;	2500	my $path = shift @insns;
2390	my $file = file_load $path;	2501	my $file = file_load $path;
2391	bcd_edit_eval "#line 1 '$path'\n$file";	2502	bcd_edit_eval "#line 1 '$path'\n$file";
2392		2503
2393	} else {	2504	} else {
2394	die "$insn: not a recognized instruction for edit/parse\n";	2505	die "$insn: not a recognized instruction for create/edit/parse\n";
2395	}	2506	}
2396	}	2507	}
2397		2508
2398	}	2509	}
2399		2510
2400	#############################################################################	2511	#############################################################################
2401	# command line parser	2512	# other utilities
2402		2513
2403	# json to stdout	2514	# json to stdout
2404	sub prjson($) {	2515	sub prjson($) {
2405	print $json_coder->encode ($_[0]);	2516	print $json_coder->encode ($_[0]);
2406	}	2517	}
…		…
2410	my $json;	2521	my $json;
2411	1 while read STDIN, $json, 65536, length $json;	2522	1 while read STDIN, $json, 65536, length $json;
2412	$json_coder->decode ($json)	2523	$json_coder->decode ($json)
2413	}	2524	}
2414		2525
2415	# all subcommands	2526	sub lsblk() {
		2527	my $lsblk = $json_coder->decode (scalar qx<lsblk --json -o PATH,KNAME,MAJ:MIN,TYPE,PTTYPE,PTUUID,PARTUUID,LABEL,FSTYPE>);
		2528
		2529	for my $dev (@{ $lsblk->{blockdevices} }) {
		2530	if ($dev->{type} eq "part") {
		2531
		2532	# lsblk sometimes gives a bogus pttype, so we recreate it here
		2533	$dev->{pttype} = $dev->{ptuuid} =~ /^$RE_GUID\z/
		2534	? "gpt" : "dos";
		2535
		2536	if ($dev->{pttype} eq "gpt") {
		2537	$dev->{bcd_device} = "partition=<null>,harddisk,gpt,$dev->{ptuuid},$dev->{partuuid}";
		2538	} elsif ($dev->{pttype} eq "dos") { # why not "mbr" :(
		2539	if ($dev->{partuuid} =~ /^([0-9a-f]{8})-([0-9a-f]{2})\z/i) {
		2540	my ($diskid, $partno) = ($1, hex $2);
		2541	$dev->{bcd_legacy_device} = "legacypartition=<null>,harddisk,mbr,$diskid,$partno";
		2542	if (open my $fh, "/sys/class/block/$dev->{kname}/start") {
		2543	my $start = 512 * readline $fh;
		2544	$dev->{bcd_device} = "partition=<null>,harddisk,mbr,$diskid,$start";
		2545	}
		2546	}
		2547	}
		2548	}
		2549	}
		2550
		2551	$lsblk->{blockdevices}
		2552	}
		2553
		2554	sub prdev($$) {
		2555	my ($path, $attribute) = @_;
		2556
		2557	# rather than stat'ing and guessing how devices are encoded, we use lsblk for this
		2558	my $mm = $json_coder->decode (scalar qx<lsblk -d -o MAJ:MIN -J \Q$path\E>)->{blockdevices}[0]{"maj:min"};
		2559
		2560	my $lsblk = lsblk;
		2561
		2562	for my $dev (@$lsblk) {
		2563	if ($dev->{"maj:min"} eq $mm && $dev->{$attribute}) {
		2564	say $dev->{$attribute};
		2565	exit 0;
		2566	}
		2567	}
		2568
		2569	exit 1;
		2570	}
		2571
		2572	#############################################################################
		2573	# command line parser
		2574
2416	our %CMD = (	2575	our %CMD = (
2417	help => sub {	2576	help => sub {
2418	require Pod::Usage;	2577	require Pod::Usage;
2419	Pod::Usage::pod2usage (-verbose => 2);	2578	Pod::Usage::pod2usage (-verbose => 2, -quotes => "none", -noperldoc => 1);
2420	},	2579	},
2421		2580
2422	objects => sub {	2581	objects => sub {
2423	my %rbcd_types = reverse %bcd_types;	2582	my %rbcd_types = reverse %bcd_types;
2424	$_ = sprintf "%08x", $_ for values %rbcd_types;	2583	$_ = sprintf "%08x", $_ for values %rbcd_types;
…		…
2511		2670
2512	import => sub {	2671	import => sub {
2513	regf_save shift, bcd_encode rdjson;	2672	regf_save shift, bcd_encode rdjson;
2514	},	2673	},
2515		2674
		2675	create => sub {
		2676	my $path = shift;
		2677	my $stat = stat_get $path; # should actually be done at file load time
		2678	my $bcd = { };
		2679	bcd_edit $path, $bcd, @_;
		2680	regf_save $path, bcd_encode $bcd;
		2681	stat_set $path, $stat;
		2682	},
		2683
2516	edit => sub {	2684	edit => sub {
2517	my $path = shift;	2685	my $path = shift;
		2686	my $stat = stat_get $path; # should actually be done at file load time
2518	my $bcd = bcd_decode regf_load $path;	2687	my $bcd = bcd_decode regf_load $path;
2519	bcd_edit $path, $bcd, @_;	2688	bcd_edit $path, $bcd, @_;
2520	regf_save $path, bcd_encode $bcd;	2689	regf_save $path, bcd_encode $bcd;
		2690	stat_set $path, $stat;
2521	},	2691	},
2522		2692
2523	parse => sub {	2693	parse => sub {
2524	my $path = shift;	2694	my $path = shift;
2525	my $bcd = bcd_decode regf_load $path;	2695	my $bcd = bcd_decode regf_load $path;
…		…
2534	"import-regf" => sub {	2704	"import-regf" => sub {
2535	regf_save shift, rdjson;	2705	regf_save shift, rdjson;
2536	},	2706	},
2537		2707
2538	lsblk => sub {	2708	lsblk => sub {
		2709	my $json = $_[0] eq "--json";
		2710
		2711	my $lsblk = lsblk;
		2712
		2713	if ($json) {
		2714	prjson $lsblk;
		2715	} else {
2539	printf "%-10s %-8.8s %-6.6s %-3s %s\n", "DEVICE", "LABEL", "FSTYPE", "PT", "DEVICE DESCRIPTOR";	2716	printf "%-10s %-8.8s %-6.6s %-3s %s\n", "DEVICE", "LABEL", "FSTYPE", "PT", "DEVICE DESCRIPTOR";
2540		2717	for my $dev (@$lsblk) {
2541	my $lsblk = $json_coder->decode (scalar qx<lsblk --json -o PATH,KNAME,TYPE,PTTYPE,PTUUID,PARTUUID,LABEL,FSTYPE>);	2718	for my $bcd ($dev->{bcd_device}, $dev->{bcd_legacy_device}) {
2542
2543	for my $dev (@{ $lsblk->{blockdevices} }) {
2544	my $pr = sub {
2545	printf "%-10s %-8.8s %-6.6s %-3s %s\n",	2719	printf "%-10s %-8.8s %-6.6s %-3s %s\n",
2546	$dev->{path}, $dev->{label}, $dev->{fstype}, $dev->{pttype}, $_[0];	2720	$dev->{path}, $dev->{label}, $dev->{fstype}, $dev->{pttype}, $bcd
2547	};
2548
2549	if ($dev->{type} eq "part") {
2550	if ($dev->{pttype} eq "gpt") {
2551	$pr->("partition=<null>,harddisk,gpt,$dev->{ptuuid},$dev->{partuuid}");
2552	} elsif ($dev->{pttype} eq "dos") { # why not "mbr" :(
2553	if ($dev->{partuuid} =~ /^([0-9a-f]{8})-([0-9a-f]{2})\z/i) {
2554	my ($diskid, $partno) = ($1, hex $2);
2555	$pr->("legacypartition=<null>,harddisk,mbr,$diskid,$partno");
2556	if (open my $fh, "/sys/class/block/$dev->{kname}/start") {
2557	my $start = 512 * readline $fh;
2558	$pr->("partition=<null>,harddisk,mbr,$diskid,$start");
2559	}	2721	if $bcd;
2560	}
2561	}	2722	}
2562	}	2723	}
2563	}	2724	}
		2725	},
		2726
		2727	"bcd-device" => sub {
		2728	prdev shift, "bcd_device";
		2729	},
		2730
		2731	"bcd-legacy-device" => sub {
		2732	prdev shift, "bcd_legacy_device";
2564	},	2733	},
2565		2734
2566	version => sub {	2735	version => sub {
2567	print "\n",	2736	print "\n",
2568	"PBCDEDIT version $VERSION, copyright 2019 Marc A. Lehmann <pbcdedit\@schmorp.de>.\n",	2737	"PBCDEDIT version $VERSION, copyright 2019 Marc A. Lehmann <pbcdedit\@schmorp.de>.\n",

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing pbcdedit/pbcdedit (file contents): Revision 1.42 by root, Fri Aug 16 23:59:40 2019 UTC vs. Revision 1.76 by root, Tue Aug 9 11:44:54 2022 UTC

Diff Legend

Comparing pbcdedit/pbcdedit (file contents):
Revision 1.42 by root, Fri Aug 16 23:59:40 2019 UTC vs.
Revision 1.76 by root, Tue Aug 9 11:44:54 2022 UTC