Revision 3c64b5aa Ganeti/HTools/Node.hs
b/Ganeti/HTools/Node.hs | ||
---|---|---|
301 | 301 |
-- | String converter for the node list functionality. |
302 | 302 |
list :: Int -> Node -> String |
303 | 303 |
list mname t = |
304 |
let pl = plist t |
|
305 |
sl = slist t |
|
304 |
let pl = length $ plist t
|
|
305 |
sl = length $ slist t
|
|
306 | 306 |
mp = p_mem t |
307 | 307 |
dp = p_dsk t |
308 | 308 |
cp = p_cpu t |
... | ... | |
314 | 314 |
fmem = f_mem t |
315 | 315 |
imem = (truncate tmem) - nmem - xmem - fmem |
316 | 316 |
in |
317 |
printf " %c %-*s %5.0f %5d %5d %5d %5d %5d %5.0f %5d %3d %3d\ |
|
318 |
\ %.5f %.5f %.5f" |
|
317 |
if off |
|
318 |
then printf " - %-*s %57s %3d %3d" |
|
319 |
mname (name t) "" pl sl |
|
320 |
else |
|
321 |
printf " %c %-*s %5.0f %5d %5d %5d %5d %5d %5.0f %5d\ |
|
322 |
\ %4.0f %4d %3d %3d %6.4f %6.4f %5.2f" |
|
319 | 323 |
(if off then '-' else if fn then '*' else ' ') |
320 | 324 |
mname (name t) tmem nmem imem xmem fmem (r_mem t) |
321 | 325 |
((t_dsk t) / 1024) ((f_dsk t) `div` 1024) |
322 |
(length pl) (length sl) |
|
323 |
mp dp cp |
|
326 |
(t_cpu t) (u_cpu t) |
|
327 |
pl sl mp dp cp |
Also available in: Unified diff