blob: 68b5454d3745be06b82baacb8e816e94e15df277 (
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
|
#!/bin/sh -e
set -euo pipefail
OPTS="bmcstate,bootprogress,chassisstate,hoststate,power,state,status"
USAGE="Usage: obmcutil [-h]
{$OPTS}"
INTERFACE_ROOT=xyz.openbmc_project
STATE_INTERFACE=$INTERFACE_ROOT.State
OBJECT_ROOT=/xyz/openbmc_project
STATE_OBJECT=$OBJECT_ROOT/state
print_help ()
{
echo "$USAGE"
echo ""
echo "positional arguments:"
echo " {$OPTS}"
echo ""
echo "optional arguments:"
echo " -h, --help show this help message and exit"
exit 0
}
get_property ()
{
busctl get-property "$@"
}
state_query ()
{
local state=$(get_property "$@" | cut -d '"' -f2)
printf "%-20s: %s\n" $4 $state
}
handle_cmd ()
{
case "$1" in
bmcstate)
OBJECT=$STATE_OBJECT/bmc0
SERVICE=$(mapper get-service $OBJECT)
INTERFACE=$STATE_INTERFACE.BMC
PROPERTY=CurrentBMCState
state_query $SERVICE $OBJECT $INTERFACE $PROPERTY
;;
chassisstate)
OBJECT=$STATE_OBJECT/chassis0
SERVICE=$(mapper get-service $OBJECT)
INTERFACE=$STATE_INTERFACE.Chassis
PROPERTY=CurrentPowerState
state_query $SERVICE $OBJECT $INTERFACE $PROPERTY
;;
hoststate)
OBJECT=$STATE_OBJECT/host0
SERVICE=$(mapper get-service $OBJECT)
INTERFACE=$STATE_INTERFACE.Host
PROPERTY=CurrentHostState
state_query $SERVICE $OBJECT $INTERFACE $PROPERTY
;;
state|status)
for query in bmcstate chassisstate hoststate
do
handle_cmd $query
done
;;
bootprogress)
OBJECT=$STATE_OBJECT/host0
SERVICE=$(mapper get-service $OBJECT)
INTERFACE=$STATE_INTERFACE.Boot.Progress
PROPERTY=BootProgress
state_query $SERVICE $OBJECT $INTERFACE $PROPERTY
;;
power)
OBJECT=/org/openbmc/control/power0
SERVICE=$(mapper get-service $OBJECT)
INTERFACE=org.openbmc.control.Power
for property in pgood state pgood_timeout
do
# get_property can potentially return several
# different formats of values, so we do the parsing outside
# of get_property depending on the query. These queries
# return 'i VALUE' formatted strings.
STATE=$(get_property $SERVICE $OBJECT $INTERFACE $property \
| sed 's/i[ ^I]*//')
printf "%s = %s\n" $property $STATE
done
;;
-h|--help)
print_help
;;
*)
echo "ERROR: Invalid Choice: '$1'"
echo "$USAGE"
;;
esac
}
handle_cmd $1
|