51 |
global MU_TOOL_FLAGS |
global MU_TOOL_FLAGS |
52 |
global mail_prompt |
global mail_prompt |
53 |
global expect_out |
global expect_out |
54 |
|
global mail_spawn_id |
55 |
|
|
56 |
mu_version |
mu_version |
57 |
|
|
70 |
set mail_cmd "$MU_TOOL $sw" |
set mail_cmd "$MU_TOOL $sw" |
71 |
verbose "Spawning $mail_cmd" |
verbose "Spawning $mail_cmd" |
72 |
|
|
73 |
set res [remote_spawn host $mail_cmd] |
set mail_spawn_id [remote_spawn host $mail_cmd] |
74 |
if { $res < 0 || $res == "" } { |
if { $mail_spawn_id < 0 || $mail_spawn_id == "" } { |
75 |
perror "Spawning $mail_cmd failed." |
perror "Spawning $mail_cmd failed." |
76 |
return 1; |
return 1; |
77 |
} |
} |
89 |
} |
} |
90 |
|
|
91 |
proc default_mail_stop {} { |
proc default_mail_stop {} { |
|
|
|
92 |
verbose "Stopping mail" |
verbose "Stopping mail" |
93 |
|
mail_command "exit" |
94 |
|
remote_close host |
95 |
} |
} |
96 |
|
|
97 |
proc mail_start {args} { |
proc mail_start {args} { |
114 |
} |
} |
115 |
|
|
116 |
proc mail_stop {} { |
proc mail_stop {} { |
117 |
return [default_mail_stop]; |
global mail_spawn_id |
118 |
|
if {[info exists mail_spawn_id] && $mail_spawn_id > 0} { |
119 |
|
default_mail_stop |
120 |
|
unset mail_spawn_id |
121 |
|
} |
122 |
} |
} |
123 |
|
|
124 |
## |
## |
132 |
} |
} |
133 |
|
|
134 |
proc mail_exit {} { |
proc mail_exit {} { |
135 |
set res [mail_send "exit\n"] |
mail_stop |
|
sleep 5 |
|
|
return res |
|
136 |
} |
} |
137 |
|
|
138 |
# mail_test [-message MESSAGE][-default (FAIL|XFAIL)][-noprompt] |
# mail_test [-message MESSAGE][-default (FAIL|XFAIL)][-noprompt] |