Author: shadzik Date: Wed Oct 7 22:02:28 2009 New Revision: 10718 Modified: toys/stbr/stbr.tcl Log: - again fixes - 0.9.1
Modified: toys/stbr/stbr.tcl ============================================================================== --- toys/stbr/stbr.tcl (original) +++ toys/stbr/stbr.tcl Wed Oct 7 22:02:28 2009 @@ -1,6 +1,6 @@ # Send To Builder Request TCL by [email protected] -set versionstr "Send To Builder Request TCL v0.9 by shadzik" +set versionstr "Send To Builder Request TCL v0.9.1 by shadzik" set cmdbook "./scripts/cmdbook.txt" set logfile "/home/users/stbr/db/stbrlog.db" @@ -224,23 +224,20 @@ set bconds_without [lrange $bsplited 1 end] if {([string match *+* $bcondhalf])} { set bsplited [split $bcondhalf "+"] - set bconds_with [lrange $bsplited 0 end] + set bconds_with [lrange $bsplited 1 end] } - } elseif {([string match *+* $bcondhalf])} { - set bsplited [split $bcondhalf "+"] - set bconds_with [lrange $bsplited 0 end] - } + } } elseif {([string match *-* $bcondhalf])} { set bsplited [split $bcondhalf "-"] set bcondhalf [lindex $bsplited 0] set bconds_without [lrange $bsplited 1 end] if {([string match *+* $bcondhalf])} { set bsplited [split $bcondhalf "+"] - set bconds_with [lrange $bsplited 0 end] + set bconds_with [lrange $bsplited 1 end] } - } else { + } elseif {([string match *+* $bcondhalf])} { set bsplited [split $bcondhalf "+"] - set bconds_with [lrange $bsplited 0 end] + set bconds_with [lrange $bsplited 1 end] } } } elseif {([string match *:* $spec])} { _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
