… | |
… | |
859 | or die "$path: short read\n"; |
859 | or die "$path: short read\n"; |
860 | |
860 | |
861 | $buf |
861 | $buf |
862 | } |
862 | } |
863 | |
863 | |
864 | # sources and resources used for this: |
864 | # sources and resources used for writing pbcdedit |
|
|
865 | # |
865 | # registry: |
866 | # registry: |
866 | # https://github.com/msuhanov/regf/blob/master/Windows%20registry%20file%20format%20specification.md |
867 | # https://github.com/msuhanov/regf/blob/master/Windows%20registry%20file%20format%20specification.md |
867 | # http://amnesia.gtisc.gatech.edu/~moyix/suzibandit.ltd.uk/MSc/ |
868 | # http://amnesia.gtisc.gatech.edu/~moyix/suzibandit.ltd.uk/MSc/ |
868 | # bcd: |
869 | # bcd: |
869 | # http://www.geoffchappell.com/notes/windows/boot/bcd/index.htm |
870 | # http://www.geoffchappell.com/notes/windows/boot/bcd/index.htm |
… | |
… | |
2248 | Objects => [undef, \%objects], |
2249 | Objects => [undef, \%objects], |
2249 | }]] |
2250 | }]] |
2250 | } |
2251 | } |
2251 | |
2252 | |
2252 | ############################################################################# |
2253 | ############################################################################# |
|
|
2254 | # edit instructions |
2253 | |
2255 | |
2254 | sub bcd_edit_eval { |
2256 | sub bcd_edit_eval { |
2255 | package pbcdedit; |
2257 | package pbcdedit; |
2256 | |
2258 | |
2257 | our ($PATH, $BCD, $DEFAULT); |
2259 | our ($PATH, $BCD, $DEFAULT); |
… | |
… | |
2304 | } |
2306 | } |
2305 | |
2307 | |
2306 | } |
2308 | } |
2307 | |
2309 | |
2308 | ############################################################################# |
2310 | ############################################################################# |
|
|
2311 | # command line parser |
2309 | |
2312 | |
2310 | # json to stdout |
2313 | # json to stdout |
2311 | sub prjson($) { |
2314 | sub prjson($) { |
2312 | print $json_coder->encode ($_[0]); |
2315 | print $json_coder->encode ($_[0]); |
2313 | } |
2316 | } |