3 # ============================================================================
5 # Copyright (C) THALES. All rights reserved
6 # Author: Laurent Mazet
8 # Script de controle des lames HS22 IBM
10 # 2014-12-12 V1.0 : Creation
12 # ============================================================================
18 set password "thalescom02"
23 puts "usage: set_blade_power \[host\] \[-b blade\] \[-h\] \[-l login\] \[-p password\] \[-x prompt\] \[-on|-off\]"
29 for {set i 0} {$i < [llength $argv]} {incr i} {
30 set arg [lindex $argv $i]
32 -b { set action "-blade" }
34 -l { set action "-login" }
35 -off { set state "off" }
36 -on { set state "on" }
37 -p { set action "-password" }
38 -x { set action "-prompt" }
41 -blade { set blade $arg }
42 -login { set login $arg }
43 -password { set password $arg }
44 -prompt { set prompt $arg }
45 default { set host $arg }
52 puts "missing arguments"
59 puts "missing arguments"
68 "username:" { send "$login\r" }
69 timeout { send_user "connection to host failed\n"; exit 1 }
70 eof { send_user "connection to host failed\n"; exit 1 }
76 "password:" { send "$password\r" }
77 timeout { send_user "connection to host failed\n"; exit 1 }
78 eof { send_user "connection to host failed\n"; exit 1 }
82 "$prompt" { send "env -T system:blade\[$blade\]\r" }
83 "username:" { send_user "connection to host failed\n"; exit 1 }
87 "OK" { send "power -$state\r" }
88 "empty" { send "exit\r"; send_user "\nno blade in this slot\n"; exit 0 }
89 "$prompt" { send_user "error\n"; exit 1 }
93 "OK" { send "exit\r" }
94 "$prompt" { send_user "error\n"; exit 1 }
99 # vim:set tabstop=4 shiftwidth=4 softtabstop=4: