ViewVC Help

View File | Revision Log | Show Annotations | Revision Graph | Root Listing

root/i-scream/projects/cms/source/host/generic/statgrab.pl

Comparing projects/cms/source/host/generic/statgrab.pl (file contents):
Revision 1.17 by tdb, Mon Jan 29 12:21:18 2001 UTC vs.
Revision 1.23 by pjm2, Mon Feb 5 08:27:38 2001 UTC

#	Line 21 | Line 21 | $| = 1;
21		# You'd be silly not to use this ;)
22		use strict;
23
24	<	# Path's
24	>	# Paths
25		my($topbin) = "/usr/local/sbin/top";
26		my($dfbin) = "/usr/bin/df";
27		my($usersbin) = "/usr/ucb/users";
#	Line 113 | Line 113 | sub include_users() {
113		chop $users;
114		my($users_count) = 0;
115		$users_count++ while $users =~ /\w+/g;
116	<	my($users_list) = $users;
116	>	my($users_list) = $users." ";
117
118		&print_pair(1, "packet.users.count", $users_count);
119		&print_pair(0, "packet.users.list", $users_list);
#	Line 131 | Line 131 | sub include_top() {
131
132		&print_pair(1, "packet.load.load1", $top =~ /load averages:\s*([^\s]+?),/);
133		&print_pair(1, "packet.load.load5", $top =~ /load averages:\s*.+?,\s*([^\s]+?),/);
134	<	&print_pair(1, "packet.load.load15", $top =~ /load averages:\s*.+?,\s*.+?,\s*([^\s]+?)\s*/);
134	>	&print_pair(1, "packet.load.load15", $top =~ /load averages:\s*.+?,\s*.+?,\s*([^\s]+?)\s+/);
135		&print_pair(1, "packet.processes.total", $top =~ /([^\s]+?) processes:/);
136		&print_pair(1, "packet.processes.sleeping", $top =~ / ([^\s]+?) sleeping/);
137		&print_pair(1, "packet.processes.zombie", $top =~ / ([^\s]+?) zombie/);
#	Line 193 | Line 193 | sub include_osver() {
193		# sub to get system uptime.
194		sub include_uptime() {
195
196	<	# Need a regexp guru to strip the junk on this line
196	>	# grab the uptime
197		my($uptime) = `$uptimebin`;
198	+
199	+	# work out the days, hours, and minutes
200	+	if ($uptime =~ /hr/) {
201	+	# 0 minutes
202	+	$uptime =~ s/up ([0-9]+) .*, ([0-9]+) .*,/$1:$2:0/;
203	+	}
204	+	elsif ($uptime =~ /min/) {
205	+	# 0 hours
206	+	$uptime =~ s/up ([0-9]+) .*, ([0-9]+) .*,/$1:0:$2/;
207	+	}
208	+	elsif ($uptime =~ /day/) {
209	+	# normal
210	+	$uptime =~ s/up ([0-9]+) .*, ([0-9]+):([0-9]+)/$1:$2:$3/;
211	+	}
212	+	else {
213	+	# 0 days
214	+	$uptime =~ s/up ([0-9]+):([0-9]+)/0:$1:$2/;
215	+	}
216	+
217	+	# turn into minutes
218	+
219	+	$uptime =~ /([0-9]+):([0-9]+):([0-9]+)/;
220	+	$uptime = $3 + ($2 + $1*24)*60;
221
222		&print_pair(0, "packet.os.uptime", $uptime);
223
224	<	}
224	>	}

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines