--- projects/cms/source/host/generic/statgrab.pl 2001/01/22 17:29:28 1.12 +++ projects/cms/source/host/generic/statgrab.pl 2001/02/05 17:43:45 1.28 @@ -2,8 +2,8 @@ #----------------------------------------------------------------- # Machine statistics grabber -# $Author: pjm2 $ -# $Id: statgrab.pl,v 1.12 2001/01/22 17:29:28 pjm2 Exp $ +# $Author: tdb $ +# $Id: statgrab.pl,v 1.28 2001/02/05 17:43:45 tdb Exp $ # # A Perl script to return various information about a host machine # by examining the output of some common Unix/Linux commands. @@ -21,9 +21,17 @@ $| = 1; # You'd be silly not to use this ;) use strict; +# Paths +my($topbin) = "/usr/local/sbin/top"; +my($dfbin) = "/usr/bin/df"; +my($usersbin) = "/usr/ucb/users"; +my($unamebin) = "/usr/bin/uname"; +my($uptimebin) = "/usr/bin/uptime"; + # Run the following components: - &print_ident(); &include_osver(); +&include_uptime(); &include_users(); &include_top(); &include_disk(); @@ -42,24 +50,19 @@ exit(0); # the host should check this when reading data # means the host must be checked and updated to work with newer versions. sub print_ident() { - print 'version statgrab.pl $Revision: 1.12 $'; + print 'version statgrab.pl $Revision: 1.28 $'; print "\n"; } # sub to print pairs of data, separated by a single space character. # If the second argument is undefined, then the pair is still printed, -# however, the value shall be displayed as the string "unknown". -# If $type is non-zero, then "0" is printed instead of "unknown". +# however, the value shall be displayed as the the 'default' value +# if the passed value was undefined. sub print_pair($$$) { - my($type, $name, $value) = @_; + my($default, $name, $value) = @_; if (!defined $value) { - if ($type) { - $value = "0.00"; - } - else { - $value = "unknown"; - } + $value = $default; } # Remove the trailing linefeed if we've not already done so. @@ -74,7 +77,7 @@ sub print_pair($$$) { sub include_disk() { # Run the df program. - my(@df) = `df -ak`; + my(@df) = `$dfbin -ak`; # Go through each line of the program, looking for each thing we want. my($partition_no) = 0; @@ -84,11 +87,11 @@ sub include_disk() { # $4 will not match unless everything before it does... if (defined $5) { my ($filesystem, $kbytes, $used, $avail, $mount) = ($1, $2, $3, $4, $5); - &print_pair(0, "packet.disk.p$partition_no.attributes.name", $filesystem); - &print_pair(1, "packet.disk.p$partition_no.attributes.kbytes", $kbytes); - &print_pair(1, "packet.disk.p$partition_no.attributes.used", $used); - &print_pair(1, "packet.disk.p$partition_no.attributes.avail", $avail); - &print_pair(0, "packet.disk.p$partition_no.attributes.mount", $mount); + &print_pair("unknown", "packet.disk.p$partition_no.attributes.name", $filesystem); + &print_pair(0, "packet.disk.p$partition_no.attributes.kbytes", $kbytes); + &print_pair(0, "packet.disk.p$partition_no.attributes.used", $used); + &print_pair(0, "packet.disk.p$partition_no.attributes.avail", $avail); + &print_pair("unknown", "packet.disk.p$partition_no.attributes.mount", $mount); ++$partition_no; } } @@ -100,14 +103,15 @@ sub include_disk() { sub include_users() { # Find out all users on this machine. - my($users) = `users`; - my(@users) = split(/\s+/, $users); + my($users) = `$usersbin`; + $users = "\n" unless defined $users; + chop $users; + my($users_count) = 0; + $users_count++ while $users =~ /\w+/g; + my($users_list) = $users." "; - my($users_count) = $#users + 1; - my($users_list) = $users; - - &print_pair(1, "packet.users.count", $users_count); - &print_pair(0, "packet.users.list", $users_list); + &print_pair(0, "packet.users.count", $users_count); + &print_pair("unknown", "packet.users.list", $users_list); } @@ -116,23 +120,23 @@ sub include_users() { sub include_top() { # Find out some numbers from top. - my(@top) = `top -d2 -s1 0`; + my(@top) = `$topbin -d2 -s1 0`; my($top) = join(" ", @top); $top =~ s/\n//g; - &print_pair(1, "packet.load.load1", $top =~ /load averages:\s*([^\s]+?),/); - &print_pair(1, "packet.load.load5", $top =~ /load averages:\s*.+?,\s*([^\s]+?),/); - &print_pair(1, "packet.load.load15", $top =~ /load averages:\s*.+?,\s*.+?,\s*([^\s]+?)\s*/); - &print_pair(1, "packet.processes.total", $top =~ /([^\s]+?) processes:/); - &print_pair(1, "packet.processes.sleeping", $top =~ / ([^\s]+?) sleeping/); - &print_pair(1, "packet.processes.zombie", $top =~ / ([^\s]+?) zombie/); - &print_pair(1, "packet.processes.stopped", $top =~ / ([^\s]+?) stopped/); - &print_pair(1, "packet.processes.cpu", $top =~ /([^\s]+?)\s*on cpu/); - &print_pair(1, "packet.cpu.idle", $top =~ /([^\s]+?)% idle/); - &print_pair(1, "packet.cpu.user", $top =~ /([^\s]+?)% user/); - &print_pair(1, "packet.cpu.kernel", $top =~ /([^\s]+?)% kernel/); - &print_pair(1, "packet.cpu.iowait", $top =~ /([^\s]+?)% iowait/); - &print_pair(1, "packet.cpu.swap", $top =~ /([^\s]+?)% swap/); + &print_pair(0, "packet.load.load1", $top =~ /load averages:\s*([^\s]+?),/); + &print_pair(0, "packet.load.load5", $top =~ /load averages:\s*.+?,\s*([^\s]+?),/); + &print_pair(0, "packet.load.load15", $top =~ /load averages:\s*.+?,\s*.+?,\s*([^\s]+?)\s/); + &print_pair(0, "packet.processes.total", $top =~ /([^\s]+?) processes:/); + &print_pair(0, "packet.processes.sleeping", $top =~ / ([^\s]+?) sleeping/); + &print_pair(0, "packet.processes.zombie", $top =~ / ([^\s]+?) zombie/); + &print_pair(0, "packet.processes.stopped", $top =~ / ([^\s]+?) stopped/); + &print_pair(0, "packet.processes.cpu", $top =~ /([^\s]+?)\s*on cpu/); + &print_pair(0, "packet.cpu.idle", $top =~ /([^\s]+?)% idle/); + &print_pair(0, "packet.cpu.user", $top =~ /([^\s]+?)% user/); + &print_pair(0, "packet.cpu.kernel", $top =~ /([^\s]+?)% kernel/); + &print_pair(0, "packet.cpu.iowait", $top =~ /([^\s]+?)% iowait/); + &print_pair(0, "packet.cpu.swap", $top =~ /([^\s]+?)% swap/); # The following need to be specified in megabytes. # If they are preceeded by a G, then multiply by 1024. @@ -140,12 +144,12 @@ sub include_top() { $top =~ /([^\s]+?)([MG]) real/; my($real) = $1; $real*=1024 if $2 eq "G"; - &print_pair(1, "packet.memory.real", $real); + &print_pair(0, "packet.memory.total", $real); $top =~ /([^\s]+?)([MG]) free/; my($free) = $1; $free*=1024 if $2 eq "G"; - &print_pair(1, "packet.memory.free", $free); + &print_pair(0, "packet.memory.free", $free); $top =~ /([^\s]+?)([MG]) swap in use/; my($swap_in_use) = $1; @@ -155,10 +159,10 @@ sub include_top() { $top =~ /([^\s]+?)([MG]) swap free/; my($swap_free) = $1; $swap_free*=1024 if $2 eq "G"; - &print_pair(1, "packet.memory.swap_free", $swap_free); + &print_pair(0, "packet.swap.free", $swap_free); # AJ requested total swap instead of swap_in_use, so here we go! - &print_pair(1, "packet.memory.swap_total", $swap_free + $swap_in_use); + &print_pair(0, "packet.swap.total", $swap_free + $swap_in_use); } # sub to get details of the machine's operating system. @@ -167,16 +171,90 @@ sub include_osver() { # Find out details about the operating system # If these values remain undefined, then the print_pair # function shall show the value to be the string "unknown". - my($os_name) = `uname -s`; - my($os_release) = `uname -r`; - my($os_platform) = `uname -m`; - my($os_sysname) = `uname -n`; - my($os_version) = `uname -v`; + my($os_name) = `$unamebin -s`; + my($os_release) = `$unamebin -r`; + my($os_platform) = `$unamebin -m`; + my($os_sysname) = `$unamebin -n`; + my($os_version) = `$unamebin -v`; - &print_pair(0, "packet.os.name", $os_name); - &print_pair(0, "packet.os.release", $os_release); - &print_pair(0, "packet.os.platform", $os_platform); - &print_pair(0, "packet.os.sysname", $os_sysname); - &print_pair(0, "packet.os.version", $os_version); + &print_pair("unknown", "packet.os.name", $os_name); + &print_pair("unknown", "packet.os.release", $os_release); + &print_pair("unknown", "packet.os.platform", $os_platform); + &print_pair("unknown", "packet.os.sysname", $os_sysname); + &print_pair("unknown", "packet.os.version", $os_version); + +} + +# sub to get system uptime in seconds. +sub include_uptime() { + + # debug stuff, all the different cases + + # normal + #my($uptime) = " 4:48pm up 49 day(s), 6:30, 201 users, load average: 0.33, 0.35, 0.38\n"; + # 0 days + #my($uptime) = " 4:48pm up 6:30, 201 users, load average: 0.33, 0.35, 0.38\n"; + # 0 hours + #my($uptime) = " 4:48pm up 49 day(s), 30 min(s), 201 users, load average: 0.33, 0.35, 0.38\n"; + # 0 mins + #my($uptime) = " 4:48pm up 49 day(s), 6 hr(s), 201 users, load average: 0.33, 0.35, 0.38\n"; + # 0 days and 0 mins + #my($uptime) = " 4:48pm up 6 hr(s), 201 users, load average: 0.33, 0.35, 0.38\n"; + # 0 days and 0 hours + #my($uptime) = " 4:48pm up 30 min(s), 201 users, load average: 0.33, 0.35, 0.38\n"; + # 0 hours and 0 mins + #my($uptime) = " 4:48pm up 49 day(s), 201 users, load average: 0.33, 0.35, 0.38\n"; + + # grab the uptime + my($uptime) = `$uptimebin`; + + # work out the days, hours, and minutes + + if ($uptime =~ /day.*,\s+([0-9]+):([0-9]+)/) { + # normal + $uptime =~ /up\s+([0-9]+)\s+.*,\s+([0-9]+):([0-9]+)/; + $uptime = "$1:$2:$3"; + } + else { + if ($uptime =~ /day/) { + if ($uptime =~ /hr/) { + # 0 minutes + $uptime =~ /up\s+([0-9]+)\s+.*,\s+([0-9]+)\s+.*,/; + $uptime = "$1:$2:0"; + } + elsif ($uptime =~ /min/) { + # 0 hours + $uptime =~ /up\s+([0-9]+)\s+.*,\s+([0-9]+)\s+.*,/; + $uptime = "$1:0:$2"; + } + else { + # 0 hours and 0 mins + $uptime =~ /up\s+([0-9]+)/; + $uptime = "$1:0:0"; + } + } + elsif ($uptime =~ /hr/) { + # 0 days and 0 minutes + $uptime =~ /up\s+([0-9]+)\s+/; + $uptime = "0:$1:0"; + } + elsif ($uptime =~ /min/) { + # 0 days and 0 hours + $uptime =~ /up\s+([0-9]+)\s+/; + $uptime = "0:0:$1"; + } + else { + # 0 days + $uptime =~ /up\s+([0-9]+):([0-9]+)/; + $uptime = "0:$1:$2"; + } + } + + # turn into seconds + $uptime =~ /([0-9]+):([0-9]+):([0-9]+)/; + $uptime = ($3+($2+($1*24))*60)*60; + + # print the value out + &print_pair("unknown", "packet.os.uptime", $uptime); }