*** dZSbot.tcl.bak      Fri Sep 21 14:01:55 2007
--- dZSbot.tcl  Fri Sep 21 14:12:03 2007
***************
*** 1104,1115 ****
     return
   }

   foreach line [split $output "\n"] {
     foreach {name value} [array get tmpdev] {
!       if {[string equal [lindex $line 0] [lindex $value 0]]} {
!               if {[scan $line "%s %lu %lu %lu" devName devSize devUsed devFree] != 4} {
                        putlog "dZSbot warning: Invalid \"df -$flags\" line: $line"
                        continue
                }
                set devPercFree [format "%.1f" [expr {(double($devFree) / double($devSize)) * 100}]]
                set devPercUsed [format "%.1f" [expr {(double($devUsed) / double($devSize)) * 100}]]
--- 1104,1115 ----
     return
   }

   foreach line [split $output "\n"] {
     foreach {name value} [array get tmpdev] {
!       if {([string equal [lindex $line 0] [lindex $value 0]]) || ([string equal [lindex $line 5] [lindex $value 0]])} {
!               if {[scan $line "%s %lu %lu %lu %s %s" devName devSize devUsed devFree devPercent devMount] != 6} {
                        putlog "dZSbot warning: Invalid \"df -$flags\" line: $line"
                        continue
                }
                set devPercFree [format "%.1f" [expr {(double($devFree) / double($devSize)) * 100}]]
                set devPercUsed [format "%.1f" [expr {(double($devUsed) / double($devSize)) * 100}]]