Changeset 1127 for branches/sandbox


Ignore:
Timestamp:
Mar 29, 2011 4:38:31 PM (10 years ago)
Author:
toby
Message:

fix TLS reporting

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/rb.tcl

    r1124 r1127  
    186186        set line [readexp "${key}TLSF1"]
    187187        for {set j 0} {$j < 20} {incr j} {
    188             lappend tlsvars [string trim [string range $line [expr {3*$j}] [expr {3*$j+2}]]]
     188            set var [string trim [string range $line [expr {3*$j}] [expr {3*$j+2}]]]
     189            if {$var == ""} {set var 0}
     190            lappend tlsvars $var
    189191        }
    190192        for {set j 0} {$j < 20} {incr j} {
     
    206208                incr j2 8
    207209            }
    208             lappend tlsvals [string trim [string range $line $j1 $j2]]
     210            set val [string trim [string range $line $j1 $j2]]
     211            if {$val == ""} {set val 0}
     212            lappend tlsvals $val
    209213        }
    210214    }
Note: See TracChangeset for help on using the changeset viewer.