| 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 | ?> |