error $rv
}
if {[regexp {^problem (.*)} $rv dummy problem]} {
- ucmdr {} "$target $problem."
+ ucmdr {} "The user `$target' $problem."
} elseif {[regexp {^ok ([^ ]+) ([0-9]+)$} $rv dummy tty idlesince]} {
set idletime [expr {$now - $idlesince}]
set ls $now