使用 mtlogin 获取在 RouterOs 7.1.5 上不起作用

Question

["

I am currently encountering a problem.<\/i>

# Run commands given on the command line.
proc run_commands { prompt command } {
    global do_interact in_proc
    set in_proc 1

    # escape any parens in the prompt, such as "(enable)"
    regsub -all "\[)(]" $prompt {\\&} reprompt

    # handle escaped ;s in commands, and ;; and ^;
    regsub -all {([^\\]);} $command "\\1\u0002;" esccommand
    regsub -all {([^\\]);;} $esccommand "\\1;\u0002;" command
    regsub {^;} $command "\u0002;" esccommand
    regsub -all {[\\];} $esccommand ";" command
    regsub -all {\u0002;} $command "\u0002" esccommand
    set sep "\u0002"
    set commands [split $esccommand $sep]
    set num_commands [llength $commands]
    for {set i 0} {$i < $num_commands} { incr i} {
    send -- "[subst -nocommands [lindex $commands $i]]\r"

    if { [lindex $commands $i] == "/system/reboot"} {
        send "y\r"
    }

    expect {
        -re "^\[^\n\r]*$reprompt"       {}
        -re "^\[^\n\r ]*>>.*$reprompt"  { exp_continue }
        -re "\[\n\r]+"          { exp_continue }
    }
    }
    
    if { $do_interact == 1 } {
    interact
    return 0
    }

    send "quit\r"
    expect {
    -re "^WARNING: There are unsaved configuration changes." {
                         send "y\r"
                         exp_continue
                        }
    "\n"                    { exp_continue }
    "\[^\n\r *]*Session terminated"     { return 0 }
    timeout                 { catch {close}; catch {wait};
                          return 0
                        }
    eof                 { return 0 }
    }
    set in_proc 0
}

Answer 1

I just find the solution in mtlogin at line 625!

foreach router [lrange $argv $i end] {
set router [string tolower $router]
send_user "$router\n"

# Figure out prompt.
set prompt "] >  "   #Just added a second whitespace after >
# alteon only "enables" based on the password used at login time
set autoenable 1
set enable 0

Hope it's gonna help you