blob: a0f0c6b53187536fbcfd26e6fad8ea9d6c277029 [file] [log] [blame] [raw]
#!/bin/sh
# vzubc - a tool for displaying OpenVZ user beancounters.
# Copyright (C) 2011, Parallels, Inc. All rights reserved.
# Licensed under GNU GPL v2 or later version.
umask 0077
# Ratio of held/limit to bypass quiet
Q_HELD=0.8
# Ratio of maxheld/limit to bypass quiet
Q_MAXHELD=0.5
# Directory to store previous failcnt values for relative mode
STOREDIR=/tmp/vzubc.store
# Colors
C_BRIGHT="\\033[1;32m"
C_ERROR="\\033[1;31m"
C_WARNING="\\033[1;33m"
C_NORMAL="\\033[0;39m"
usage() {
cat << EOF
Usage: vzubc [option ...] [<ctid> ...]
-w, --watch:
Run itself under watch(1) (a la top mode, Ctrl-C to exit).
-wd: show differences between runs
-wn <time>: refresh every <time> seconds
-q, --quiet:
Quiet mode (only show beancounters with fails and close to limits).
-qh <ratio>: quiet threshold for held/limit ratio (default: $Q_HELD)
-qm <ratio>: quiet threshold for maxheld/limit ratio (default: $Q_MAXHELD)
-r, --relative:
Relative mode, show fail counters delta compared to previous run.
-rc: clear all saved fail counter data for relative mode
-rd <dir>: directory for storing data (default: $STOREDIR)
-i, --incremental:
Incremental mode, add held value delta compared to previous run.
If used together with -q, beancounters with changed values are also shown.
-ic: clear all saved held data for incremental mode
-id <dir>: synonym for -rd
-c, --color:
Enable color highlighting (using same thresholds as for --quiet).
Color mode is not compatible with --watch.
-f, --file <file>:
File to read UBC values from. Defaults are /proc/bc/resources or
/proc/user_beancounters. Use - to read from stdin.
<ctid>: container name/ID to show info about (can be used multiple times)
EOF
exit $1
}
CTIDS=""
FILE=""
WATCH=""
ARGV=$*
# For vzlist to work, make sure @SBINDIR@ is in $PATH
if ! echo ":${PATH}:" | fgrep -q ':@SBINDIR@:'; then
PATH="@SBINDIR@:$PATH"
fi
chk_zeroarg() {
if test -z "$2"; then
echo "Error: option $1 requires an argument" 1>&2
usage 1
fi
}
while test $# -gt 0; do
case $1 in
-W) # Internal use only
watch=
;;
-w|--watch)
if ! which watch >/dev/null; then
echo "Error: watch binary not found" 1>&2
exit 1
fi
watch=yes
;;
-wd)
watch=yes
WATCH_ARGS="$WATCH_ARGS -d"
;;
-wn)
chk_zeroarg $1 $2
watch=yes
WATCH_ARGS="$WATCH_ARGS -n $2"
shift
;;
-q|--quiet)
quiet=1
;;
-qh)
chk_zeroarg $1 $2
thr=1
Q_HELD=$2
shift
;;
-qm)
chk_zeroarg $1 $2
thr=1
Q_MAXHELD=$2
shift
;;
-r|--relative)
relative=1
;;
-rc)
rm -f $STOREDIR/ubc.*.failcnt
;;
-rd|-id)
chk_zeroarg $1 $2
STOREDIR=$2
shift
;;
-i|--incremental)
incremental=1
;;
-ic)
rm -f $STOREDIR/ubc.*.held
;;
-c|--color)
if ! test -z "$watch"; then
echo "Error: can't use --watch and --color together"
usage 1
fi
color=1
AWK_COLORS="-v c_h=$C_BRIGHT -v c_n=$C_NORMAL -v c_w=$C_WARNING -v c_e=$C_ERROR"
;;
-h|--help)
usage 0
;;
-f|--file)
chk_zeroarg $1 $2
FILE=$2
shift
;;
-*)
echo "Unrecognized option: $1" 1>&2
usage 1
;;
*)
# Try to convert CT name to ID
ID=$(vzlist -H -o ctid "$1" 2>/dev/null)
if test $? -eq 0; then
CTIDS=$(echo $CTIDS $ID)
else
CTIDS=$(echo $CTIDS $1)
fi
;;
esac
shift
done
if test -n "$thr" -a -z "$color" -a -z "$quiet"; then
echo "Error: -qh and -qm only make sense with --quiet or --color"
usage 1
fi
if test -z "$FILE"; then
# No file name given, substitute sane default
FILE=/proc/bc/resources
test -f $FILE || FILE=/proc/user_beancounters
fi
# Test that input file is readable
if test "$FILE" != "-"; then
cat < "$FILE" > /dev/null || exit 1
fi
# Relative/incremental mode preparations and sanity checks
if test -n "$relative" -o -n "$incremental"; then
# Create dir if needed
if ! test -d $STOREDIR; then
mkdir $STOREDIR || exit 1
fi
# Check we can write to it
touch $STOREDIR/ubc.test || exit 1
rm -f $STOREDIR/ubc.test || exit 1
fi
# Re-exec ourselves under watch
test -z "$watch" || exec watch $WATCH_ARGS -- $0 $ARGV -W
cat $FILE | LANG=C awk -v CTIDS=" ${CTIDS} " -v quiet="$quiet" \
-v qheld="$Q_HELD" -v qmaxheld="$Q_MAXHELD" \
-v rel="$relative" -v storedir="$STOREDIR" \
-v inc="$incremental" $AWK_COLORS \
'
BEGIN {
if (qmaxheld > qheld)
qmaxheld=qheld
}
function hr(res, v) {
if ((v == 9223372036854775807) || (v == 2147483647) || (v == 0))
return "- ";
i=1
if ((res ~ /pages$/) && (v != 0)) {
v = v*4; i++
}
while (v >= 1024) {
v=v/1024
i++
}
fmt="%d%c"
if (v < 100)
fmt="%.3g%c"
return sprintf(fmt, v, substr(" KMGTPEZY", i, 1))
}
function dp(p, d) {
if ((d == 0) || (d == 9223372036854775807) || (d == 2147483647))
return "- "
r = sprintf("%.1f", p / d * 100);
fmt="%d"
if (r < 10)
fmt="%.1g"
r = sprintf(fmt, r)
if (r == 0)
return "- "
return r "%"
}
function important(id, held, maxheld, barrier, limit, failcnt) {
if (failcnt > 0)
return 2;
if (barrier == 0)
barrier = limit;
if ((barrier == 9223372036854775807) || (barrier == 2147483647))
return 0;
if (held > barrier)
return 2;
if (held > barrier * qheld)
return 1;
if (maxheld > barrier * qmaxheld)
return 1;
return 0;
}
/^Version: / {
if ($2 != "2.5") {
print "Error: unknown version:",
$2 > "/dev/stderr"
exit 1
}
next
}
/^[[:space:]]*uid / {
next
}
/^[[:space:]]*dummy/ {
id=""
next
}
/^[[:space:]]*[0-9]+:/ {
header=""
bcid=strtonum($1)
if ((CTIDS !~ /^[ ]*$/) && (CTIDS !~ " " bcid " ")) {
bcid=""
next
}
header=sprintf( c_h \
"----------------------------------------------------------------%s\n" \
"CT %-10s| HELD%s Bar%% Lim%%| MAXH Bar%% Lim%%| BAR | LIM |%cFAIL\n" \
"-------------+-%s--------------+---------------+-----+-----+------" \
c_n, inc ? "-------" : "",
bcid, inc ? " +/- " : "", rel ? "+" : " ", inc ? "-------" : "")
id=$2
held=$3
maxheld=$4
barrier=$5
limit=$6
failcnt=$7
}
/^[[:space:]]*[a-z]+/ {
id=$1
held=$2
maxheld=$3
barrier=$4
limit=$5
failcnt=$6
}
((id!="") && (bcid!="")) {
newfc=failcnt
store=storedir "/ubc." bcid "." id
if ( (rel) && (failcnt > 0) ) {
f_file=store ".failcnt"
getline oldfc < f_file
if (oldfc > 0)
failcnt=failcnt-oldfc
if (failcnt < 0)
failcnt=newfc
}
save_held=0
dh=0
if (inc) {
d_held=" "
h_file=store ".held"
save_held=1
getline o_held < h_file
if (o_held >= 0) {
dh=held - o_held
sig="+"
if (dh < 0) {
dh=-dh; sig="-"
}
if (dh != 0)
d_held = sprintf("%7s", sig hr(id, dh))
else
save_held=0
}
}
imp=important(id, held, maxheld, barrier, limit, failcnt)
if ((quiet) && (!imp) && (dh==0)) {
id=""
next
}
if (header != "") {
if (printed)
print ""
print header
printed=1
header=""
}
if (imp == 2)
printf c_e;
else if (imp == 1)
printf c_w;
else
printf c_n;
printf "%13s|%5s%s %4s %4s|%5s %4s %4s|%5s|%5s| %5s\n" c_n,
id,
hr(id, held), d_held, dp(held, barrier), dp(held, limit),
hr(id, maxheld), dp(maxheld, barrier), dp(maxheld, limit),
hr(id, barrier), hr(id, limit), hr("", failcnt)
if ( (rel) && (newfc > 0) ) {
print newfc > f_file
close(f_file)
}
if (save_held) {
print held > h_file
close(h_file)
}
id=""
}
END {
if (printed)
printf "----------------------------------------------------------------%s\n", inc ? "-------" : ""
}
'