Posted to tcl by dgood` at Wed Aug 31 20:51:48 GMT 2011view pretty

if {$user_input eq ""} {
    set menu_level main
} elseif {[scan $user_input {%s %s} cmd msg_id] != 2} {
    puts stdout "\nInvalid Input, try again.\n"
} else {
    if {![string is wordchar -strict $cmd]} {
        puts stdout "\nInvalid Command_Name!\n"
    } elseif {![string is digit -strict $msg_id]} {
        puts stdout "\nInvalid Message_ID!\n"
    } else {
        simple_cmd $fh $msg_id $cmd
    }
}