Changeset 1127

Timestamp:

Mar 29, 2011 4:38:31 PM (10 years ago)

Author:

toby

Message:

fix TLS reporting

File:

• branches/sandbox/rb.tcl (modified) (2 diffs)

branches/sandbox/rb.tcl

@@ -186 +186 @@
         set line [readexp "${key}TLSF1"]
         for {set j 0} {$j < 20} {incr j} {
-            lappend tlsvars [string trim [string range $line [expr {3*$j}] [expr {3*$j+2}]]]
+            set var [string trim [string range $line [expr {3*$j}] [expr {3*$j+2}]]]
+            if {$var == ""} {set var 0}
+            lappend tlsvars $var
         }
         for {set j 0} {$j < 20} {incr j} {
@@ -206 +208 @@
                 incr j2 8
             }
-            lappend tlsvals [string trim [string range $line $j1 $j2]]
+            set val [string trim [string range $line $j1 $j2]]
+            if {$val == ""} {set val 0}
+            lappend tlsvals $val
         }
     }