r597 - cpu/x86/pc/olpc

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!