blob: 4c1e9e296ea27da666c89940f2ac7cbaccd58248 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
#!/usr/bin/expect
###############################################################################
# reboot-laurel -- Reboot a system attached to a Laurel DPM meter.
#
# This script provides standalone control for the Laurel DPM ammeter when
# setup to control power to a target using the alarm relays. This is actually
# a creative misuse of the meter. We are actually sending commands to the
# meter that trigger alarm relays to be "always on" or "always off".
#
# In addition to controlling power to a target, the meter will report the
# current ammeter reading using the 'value' command.
#
# Usage:
# reboot-laurel <ttydev> <on|off|reset|value>
#
# Copyright (c) 2007, Wind River Systems
# Author: James Puderer <James.Puderer@windriver.com>
#
###############################################################################
# This script depends on the ckermit package.
##### Configuration #####
set tty_line /dev/ttyUSB0
set tty_baud 9600
set reset_delay 5000
#########################
log_user 0
# Triggers alarm relay when over a large negative amperage (always true)
set command(relay1_on) "*1F386800000\r"
set command(relay2_on) "*1F389800000\r"
# Triggers alarm relay when under a large positive amperage (always false)
set command(relay1_off) "*1F3867FFFFF\r"
set command(relay2_off) "*1F3897FFFFF\r"
set command(get_value) "*1B1\r"
proc usage { } {
global argv0
puts stderr "Usage: $argv0 <ttydev> <on|off|reset|value>\n"
exit 1
}
proc connect { tty_line tty_baud } {
global spawn_id
spawn kermit -Y
expect {
"C-Kermit>" { }
timeout { error "Timeout starting kermit" }
}
send "set line $tty_line\n"
send "set speed $tty_baud\n"
expect {
"$tty_baud bps" { }
"Sorry, device is in use" { error "Serial device is in use" }
timeout { error "Kermit timed out" }
}
send "set flow none\n"
send "set carrier-watch off\n"
send "c\n"
expect {
"Port already in use" { error "Port already in use" }
"\n-------*\n" { }
timeout { error "Kermit timed out" }
}
}
proc disconnect { } {
global spawn_id
close
}
proc on { } {
global spawn_id command
send $command(relay1_on)
after 100
send $command(relay2_on)
after 100
}
proc off { } {
global spawn_id command
send $command(relay1_off)
after 100
send $command(relay2_off)
after 100
}
proc reset { } {
global spawn_id reset_delay command
send $command(relay1_off)
after 100
send $command(relay2_off)
after $reset_delay
send $command(relay1_on)
after 100
send $command(relay2_on)
after 100
}
proc value { } {
global spawn_id command
set timeout 1
expect "*"
send $command(get_value)
expect {
-re {[-| ][0-9][0-9]\.[0-9][0-9][0-9]} { return $expect_out(0,string) }
}
}
# Handle command line
if {[llength $argv] < 2} {
usage
}
set tty_line [lindex $argv 0]
set action [string tolower [lindex $argv 1]]
if { ($action == "on") || ($action == "off") || ($action == "reset") } {
connect $tty_line $tty_baud
$action
disconnect
} elseif { $action == "value" } {
connect $tty_line $tty_baud
puts [$action]
disconnect
} else {
usage
}
|
