Author: wmb Date: 2007-08-31 10:05:44 +0200 (Fri, 31 Aug 2007) New Revision: 597
Modified: cpu/x86/pc/olpc/security.fth Log: OLPC security - Added error messages about bad serial numbers and UUIDs.
Modified: cpu/x86/pc/olpc/security.fth =================================================================== --- cpu/x86/pc/olpc/security.fth 2007-08-31 07:59:15 UTC (rev 596) +++ cpu/x86/pc/olpc/security.fth 2007-08-31 08:05:44 UTC (rev 597) @@ -188,14 +188,26 @@
: get-my-sn ( -- error? )
- " SN" find-tag 0= if true exit then ( adr len ) - ?-null dup d# 11 <> if 2drop true exit then ( adr len ) + " SN" find-tag 0= if + " No serial number in mfg data" ?lease-debug-cr + true exit + then ( adr len ) + ?-null dup d# 11 <> if + " Invalid serial number" ?lease-debug-cr + 2drop true exit + then ( adr len ) machine-id-buf swap move
[char] : machine-id-buf d# 11 + c!
- " U#" find-tag 0= if true exit then ( adr len ) - ?-null dup d# 36 <> if 2drop true exit then ( adr len ) + " U#" find-tag 0= if + " No UUID in mfg data" ?lease-debug-cr + true exit + then ( adr len ) + ?-null dup d# 36 <> if + " Invalid UUID" ?lease-debug-cr + 2drop true exit + then ( adr len ) machine-id-buf d# 12 + swap move
[char] : machine-id-buf d# 48 + c!