1 |
pjm2 |
1.1 |
<? |
2 |
|
|
|
3 |
|
|
# Display the following data. |
4 |
|
|
|
5 |
pjm2 |
1.6 |
|
6 |
|
|
printLine("Machine identification"); |
7 |
pjm2 |
1.5 |
|
8 |
pjm2 |
1.1 |
showStat("Machine Name", "packet.attributes.machine_name", $input); |
9 |
pjm2 |
1.2 |
showStat("I.P. Address", "packet.attributes.ip", $input); |
10 |
|
|
|
11 |
pjm2 |
1.6 |
|
12 |
|
|
printLine("Load"); |
13 |
|
|
|
14 |
tdb |
1.11 |
showStat("Load 1", "packet.load.load1", $input, "load"); |
15 |
|
|
showStat("Load 5", "packet.load.load5", $input, "load"); |
16 |
|
|
showStat("Load 15", "packet.load.load15", $input, "load"); |
17 |
pjm2 |
1.6 |
|
18 |
|
|
|
19 |
|
|
printLine("Memory graphs"); |
20 |
|
|
|
21 |
tdb |
1.11 |
showBar("Swap Used", "packet.swap.free", "packet.swap.total", "Mb", $input, "swap", 'swap'); |
22 |
|
|
showBar("Memory Used", "packet.memory.free", "packet.memory.total", "Mb", $input, "mem", 'swap'); |
23 |
tdb |
1.12 |
showStat("Swap Pages in (per sec)", "packet.pages.swapins", $input, "paging"); |
24 |
|
|
showStat("Swap Pages out (per sec)", "packet.pages.swapouts", $input, "paging"); |
25 |
pjm2 |
1.6 |
|
26 |
|
|
printLine("CPU graphs"); |
27 |
|
|
|
28 |
tdb |
1.11 |
showBar("User CPU", "packet.cpu.user", 100, "%", $input, "cpu"); |
29 |
|
|
showBar("Swap CPU", "packet.cpu.swap", 100, "%", $input, "cpu"); |
30 |
|
|
showBar("Idle CPU", "packet.cpu.idle", 100, "%", $input, "cpu"); |
31 |
|
|
showBar("Kernel CPU", "packet.cpu.kernel", 100, "%", $input, "cpu"); |
32 |
|
|
showBar("IO wait CPU", "packet.cpu.iowait", 100, "%", $input, "cpu"); |
33 |
pjm2 |
1.6 |
|
34 |
|
|
|
35 |
pjm2 |
1.5 |
printLine("Operating System"); |
36 |
pjm2 |
1.2 |
|
37 |
pjm2 |
1.4 |
showStat("Operating System Release", "packet.os.release", $input); |
38 |
|
|
showStat("Operating System Version", "packet.os.version", $input); |
39 |
|
|
showStat("Operating System Name", "packet.os.name", $input); |
40 |
pjm2 |
1.6 |
showStat("Operating System Platform", "packet.os.platform", $input); |
41 |
pjm2 |
1.4 |
showStat("System Name", "packet.os.sysname", $input); |
42 |
pjm2 |
1.6 |
|
43 |
pjm2 |
1.2 |
|
44 |
pjm2 |
1.5 |
printLine("Processes"); |
45 |
pjm2 |
1.2 |
|
46 |
tdb |
1.11 |
showStat("Total Processes", "packet.processes.total", $input, "proc"); |
47 |
|
|
showStat("CPU Processes", "packet.processes.cpu", $input, "proc"); |
48 |
|
|
showStat("Sleeping Processes", "packet.processes.sleeping", $input, "proc"); |
49 |
|
|
showStat("Zombie Processes", "packet.processes.zombie", $input, "proc"); |
50 |
|
|
showStat("Stopped Processes", "packet.processes.stopped", $input, "proc"); |
51 |
pjm2 |
1.6 |
|
52 |
pjm2 |
1.2 |
|
53 |
pjm2 |
1.5 |
printLine("Uptime"); |
54 |
pjm2 |
1.2 |
|
55 |
pjm2 |
1.10 |
showStat("Seconds Uptime", "packet.os.uptime", $input); |
56 |
pjm2 |
1.2 |
|
57 |
pjm2 |
1.6 |
|
58 |
pjm2 |
1.9 |
printLine("Disks"); |
59 |
|
|
|
60 |
|
|
showDisks("packet.disk", "Kb", $input); |
61 |
|
|
|
62 |
|
|
|
63 |
pjm2 |
1.6 |
printLine("Packet"); |
64 |
pjm2 |
1.2 |
|
65 |
|
|
showStat("Last sequence number", "packet.attributes.seq_no", $input); |
66 |
|
|
|
67 |
pjm2 |
1.6 |
|
68 |
pjm2 |
1.5 |
printLine("Users"); |
69 |
pjm2 |
1.2 |
|
70 |
tdb |
1.11 |
showStat("Number of users", "packet.users.count", $input, "users"); |
71 |
pjm2 |
1.2 |
showStat("User list", "packet.users.list", $input); |
72 |
|
|
|
73 |
pjm2 |
1.8 |
?> |