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.28 by tdb, Mon Feb 5 17:43:45 2001 UTC vs.
Revision 1.39 by tdb, Mon Mar 19 22:38:20 2001 UTC

#	Line 21 | Line 21 | $| = 1;
21		# You'd be silly not to use this ;)
22		use strict;
23
24	<	# Paths
25	<	my($topbin) = "/usr/local/sbin/top";
26	<	my($dfbin) = "/usr/bin/df";
27	<	my($usersbin) = "/usr/ucb/users";
28	<	my($unamebin) = "/usr/bin/uname";
29	<	my($uptimebin) = "/usr/bin/uptime";
24	>	# Have to hope this will work really.
25	>	my($ostype) = `uname -s`; chop($ostype);
26
27	+	# Decide which paths we should use.
28	+	my($topbin); my($dfbin); my($usersbin);
29	+	my($unamebin); my($uptimebin); my($sysctlbin);
30	+
31	+	if ($ostype eq "SunOS") {
32	+	# covers: Solaris 8
33	+	$topbin = "/usr/local/sbin/top -d2 -s1 0";
34	+	$dfbin = "/usr/bin/df";
35	+	$usersbin = "/usr/ucb/users";
36	+	$unamebin = "/usr/bin/uname";
37	+	$uptimebin = "/usr/bin/uptime";
38	+	}
39	+	elsif ($ostype eq "Linux") {
40	+	# covers: Debian r2.2
41	+	$topbin = "/usr/bin/top -d1 -n0 -b";
42	+	$dfbin = "/bin/df";
43	+	$usersbin = "/usr/bin/users";
44	+	$unamebin = "/bin/uname";
45	+	$uptimebin = "/usr/bin/uptime";
46	+	}
47	+	elsif ($ostype eq "FreeBSD") {
48	+	# covers: FreeBSD 4.2-STABLE
49	+	$topbin = "/usr/bin/top -d2 -s1 0";
50	+	$dfbin = "/bin/df";
51	+	$usersbin = "/usr/bin/users";
52	+	$unamebin = "/usr/bin/uname";
53	+	$uptimebin = "/usr/bin/uptime";
54	+	$sysctlbin = "/sbin/sysctl";
55	+	}
56	+	else {
57	+	print "statgrab.pl Error: Unable to identify system type - \"$ostype\".\n";
58	+	print "\"uname -s\" does not report one of the following known types;\n";
59	+	print "      SunOS, Linux, FreeBSD\n";
60	+	exit(1);
61	+	}
62	+
63		# Run the following components: -
64		&print_ident();
65		&include_osver();
#	Line 42 | Line 74 | exit(0);
74
75
76
45	–
46	–
47	–
48	–
77		# prints out an identifier for this version of statgrab.pl
78		# the host should check this when reading data
79		# means the host must be checked and updated to work with newer versions.
#	Line 83 | Line 111 | sub include_disk() {
111		my($partition_no) = 0;
112		for (my($i) = 0; $i < $#df; $i++) {
113		my($line) = $df[$i];
114	<	$line =~ /^(\/[^\s]*)\s*([0-9]*)\s*([0-9]*)\s*([0-9]*)\s*[^\s]*\s*(\/[^\s]*)\s*/;
114	>	$line =~ /^([^\s]*)\s*([0-9]*)\s*([0-9]*)\s*([0-9]*)\s*[^\s]*\s*(\/[^\s]*)\s*/;
115		# $4 will not match unless everything before it does...
116		if (defined $5) {
117		my ($filesystem, $kbytes, $used, $avail, $mount) = ($1, $2, $3, $4, $5);
#	Line 120 | Line 148 | sub include_users() {
148		sub include_top() {
149
150		# Find out some numbers from top.
151	<	my(@top) = `$topbin -d2 -s1 0`;
151	>	my(@top) = `$topbin`;
152		my($top) = join(" ", @top);
153		$top =~ s/\n//g;
154
155	<	&print_pair(0, "packet.load.load1", $top =~ /load averages:\s*([^\s]+?),/);
156	<	&print_pair(0, "packet.load.load5", $top =~ /load averages:\s*.+?,\s*([^\s]+?),/);
157	<	&print_pair(0, "packet.load.load15", $top =~ /load averages:\s*.+?,\s*.+?,\s*([^\s]+?)\s/);
158	<	&print_pair(0, "packet.processes.total", $top =~ /([^\s]+?) processes:/);
159	<	&print_pair(0, "packet.processes.sleeping", $top =~ / ([^\s]+?) sleeping/);
160	<	&print_pair(0, "packet.processes.zombie", $top =~ / ([^\s]+?) zombie/);
161	<	&print_pair(0, "packet.processes.stopped", $top =~ / ([^\s]+?) stopped/);
162	<	&print_pair(0, "packet.processes.cpu", $top =~ /([^\s]+?)\s*on cpu/);
163	<	&print_pair(0, "packet.cpu.idle", $top =~ /([^\s]+?)% idle/);
164	<	&print_pair(0, "packet.cpu.user", $top =~ /([^\s]+?)% user/);
165	<	&print_pair(0, "packet.cpu.kernel", $top =~ /([^\s]+?)% kernel/);
166	<	&print_pair(0, "packet.cpu.iowait", $top =~ /([^\s]+?)% iowait/);
167	<	&print_pair(0, "packet.cpu.swap", $top =~ /([^\s]+?)% swap/);
155	>	if($ostype eq "SunOS") {
156	>	&print_pair(0, "packet.processes.total", $top =~ /([^\s]+?) processes:/);
157	>	&print_pair(0, "packet.processes.sleeping", $top =~ / ([^\s]+?) sleeping/);
158	>	&print_pair(0, "packet.processes.zombie", $top =~ / ([^\s]+?) zombie/);
159	>	&print_pair(0, "packet.processes.stopped", $top =~ / ([^\s]+?) stopped/);
160	>	&print_pair(0, "packet.processes.cpu", $top =~ /([^\s]+?)\s*on cpu/);
161	>	&print_pair(0, "packet.cpu.idle", $top =~ /([^\s]+?)% idle/);
162	>	&print_pair(0, "packet.cpu.user", $top =~ /([^\s]+?)% user/);
163	>	&print_pair(0, "packet.cpu.kernel", $top =~ /([^\s]+?)% kernel/);
164	>	&print_pair(0, "packet.cpu.iowait", $top =~ /([^\s]+?)% iowait/);
165	>	&print_pair(0, "packet.cpu.swap", $top =~ /([^\s]+?)% swap/);
166	>
167	>	# The following need to be specified in megabytes.
168	>	# If they are preceeded by a G, then multiply by 1024.
169	>
170	>	$top =~ /([^\s]+?)([KMG]) real/;
171	>	my($real) = $1;
172	>	$real*=1024 if $2 eq "G";
173	>	$real/=1024 if $2 eq "K";
174	>	&print_pair(0, "packet.memory.total", $real);
175	>
176	>	$top =~ /([^\s]+?)([KMG]) free/;
177	>	my($free) = $1;
178	>	$free*=1024 if $2 eq "G";
179	>	$free/=1024 if $2 eq "K";
180	>	&print_pair(0, "packet.memory.free", $free);
181	>
182	>	$top =~ /([^\s]+?)([KMG]) swap in use/;
183	>	my($swap_in_use) = $1;
184	>	$swap_in_use*=1024 if $2 eq "G";
185	>	$swap_in_use/=1024 if $2 eq "K";
186	>	# DO NOT print this one out... save it for in a moment...
187	>
188	>	$top =~ /([^\s]+?)([KMG]) swap free/;
189	>	my($swap_free) = $1;
190	>	$swap_free*=1024 if $2 eq "G";
191	>	$swap_free/=1024 if $2 eq "K";
192	>	&print_pair(0, "packet.swap.free", $swap_free);
193	>
194	>	# AJ requested total swap instead of swap_in_use, so here we go!
195	>	&print_pair(0, "packet.swap.total", $swap_free + $swap_in_use);
196	>	}
197	>	elsif ($ostype eq "FreeBSD") {
198	>	&print_pair(0, "packet.processes.total", $top =~ /([^\s]+?) processes:/);
199	>	&print_pair(0, "packet.processes.sleeping", $top =~ / ([^\s]+?) sleeping/);
200	>	&print_pair(0, "packet.processes.zombie", $top =~ / ([^\s]+?) zombie/);
201	>	&print_pair(0, "packet.processes.stopped", $top =~ / ([^\s]+?) stopped/);
202	>	&print_pair(0, "packet.processes.cpu", $top =~ /([^\s]+?)\s*running/);
203	>	&print_pair(0, "packet.cpu.idle", $top =~ /([^\s]+?)% idle/);
204	>	&print_pair(0, "packet.cpu.kernel", $top =~ /([^\s]+?)% system/);
205	>	&print_pair(0, "packet.cpu.iowait", $top =~ /([^\s]+?)% interrupt/);
206	>	&print_pair(0, "packet.cpu.swap", $top =~ /([^\s]+?)% swap/);
207
208	<	# The following need to be specified in megabytes.
209	<	# If they are preceeded by a G, then multiply by 1024.
210	<
211	<	$top =~ /([^\s]+?)([MG]) real/;
212	<	my($real) = $1;
213	<	$real*=1024 if $2 eq "G";
214	<	&print_pair(0, "packet.memory.total", $real);
215	<
216	<	$top =~ /([^\s]+?)([MG]) free/;
217	<	my($free) = $1;
218	<	$free*=1024 if $2 eq "G";
219	<	&print_pair(0, "packet.memory.free", $free);
220	<
221	<	$top =~ /([^\s]+?)([MG]) swap in use/;
222	<	my($swap_in_use) = $1;
223	<	$swap_in_use*=1024 if $2 eq "G";
224	<	# DO NOT print this one out... save it for in a moment...
225	<
226	<	$top =~ /([^\s]+?)([MG]) swap free/;
227	<	my($swap_free) = $1;
228	<	$swap_free*=1024 if $2 eq "G";
229	<	&print_pair(0, "packet.swap.free", $swap_free);
230	<
231	<	# AJ requested total swap instead of swap_in_use, so here we go!
232	<	&print_pair(0, "packet.swap.total", $swap_free + $swap_in_use);
208	>	# FreeBSD is a bit different, we need to get user and nice.
209	>	my($user) = 0;
210	>	if($top =~ /([^\s]+?)% user/) { $user += $1; }
211	>	if($top =~ /([^\s]+?)% nice/) { $user += $1; }
212	>	&print_pair(0, "packet.cpu.user", $user);
213	>
214	>	# The following need to be specified in megabytes.
215	>	# If they are preceeded by a G, then multiply by 1024.
216	>
217	>	# get RAM slightly differently
218	>	my($real) = `$sysctlbin -n hw.physmem`;
219	>	my($free) = $real - `$sysctlbin -n hw.usermem`;
220	>
221	>	# turn bytes to megabytes
222	>	$real = ($real / 1024) / 1024;
223	>	$free = ($free / 1024) / 1024;
224	>
225	>	&print_pair(0, "packet.memory.total", $real);
226	>	&print_pair(0, "packet.memory.free", $free);
227	>
228	>	$top =~ /Swap: ([^\s]+?)([KMG]) Total/;
229	>	my($swap_total) = $1;
230	>	$swap_total*=1024 if $2 eq "G";
231	>	$swap_total/=1024 if $2 eq "K";
232	>	&print_pair(0, "packet.swap.total", $swap_total);
233	>
234	>	$top =~ /Swap:.*, ([^\s]+?)([KMG]) Free/;
235	>	my($swap_free) = $1;
236	>	$swap_free*=1024 if $2 eq "G";
237	>	$swap_free/=1024 if $2 eq "K";
238	>	&print_pair(0, "packet.swap.free", $swap_free);
239	>
240	>	my($loads) = `$sysctlbin -n vm.loadavg`;
241	>	$loads =~ /\s+([^\s]+?)\s+([^\s]+?)\s+([^\s]+?)\s+/;
242	>	&print_pair(0, "packet.load.load1", $1);
243	>	&print_pair(0, "packet.load.load5", $2);
244	>	&print_pair(0, "packet.load.load15", $3);
245	>	}
246	>	elsif ($ostype eq "Linux") {
247	>	&print_pair(0, "packet.processes.total", $top =~ /([^\s]+?) processes:/);
248	>	&print_pair(0, "packet.processes.sleeping", $top =~ / ([^\s]+?) sleeping/);
249	>	&print_pair(0, "packet.processes.zombie", $top =~ / ([^\s]+?) zombie/);
250	>	&print_pair(0, "packet.processes.stopped", $top =~ / ([^\s]+?) stopped/);
251	>	&print_pair(0, "packet.processes.cpu", $top =~ /([^\s]+?)\s*running/);
252	>	&print_pair(0, "packet.cpu.idle", $top =~ /([^\s]+?)% idle/);
253	>	&print_pair(0, "packet.cpu.user", $top =~ /([^\s]+?)% user/);
254	>	&print_pair(0, "packet.cpu.kernel", $top =~ /([^\s]+?)% system/);
255	>	&print_pair(0, "packet.cpu.iowait", $top =~ /([^\s]+?)% interrupt/);
256	>	&print_pair(0, "packet.cpu.swap", $top =~ /([^\s]+?)% swap/);
257	>
258	>	# The following need to be specified in megabytes.
259	>	# If they are preceeded by a G, then multiply by 1024.
260	>
261	>	$top =~ / ([^\s]+?)([KMG]) av/;
262	>	my($real) = $1;
263	>	$real*=1024 if $2 eq "G";
264	>	$real/=1024 if $2 eq "K";
265	>	&print_pair(0, "packet.memory.total", int($real));
266	>
267	>	$top =~ / ([^\s]+?)([KMG]) free/;
268	>	my($free) = $1;
269	>	$free*=1024 if $2 eq "G";
270	>	$free/=1024 if $2 eq "K";
271	>	&print_pair(0, "packet.memory.free", int($free));
272	>
273	>	$top =~ /Swap:\s+([^\s]+?)([KMG]) av/;
274	>	my($swap_total) = $1;
275	>	$swap_total*=1024 if $2 eq "G";
276	>	$swap_total/=1024 if $2 eq "K";
277	>	&print_pair(0, "packet.swap.total", int($swap_total));
278	>
279	>	$top =~ /Swap:.*, ([^\s]+?)([KMG]) free/;
280	>	my($swap_free) = $1;
281	>	$swap_free*=1024 if $2 eq "G";
282	>	$swap_free/=1024 if $2 eq "K";
283	>	&print_pair(0, "packet.swap.free", int($swap_free));
284	>	}
285	>	else {
286	>	# we could have some catchall here
287	>	# but as it stands this means we'll just skip top stuff
288	>	# for unknown systems
289	>	}
290		}
291
292		# sub to get details of the machine's operating system.
#	Line 207 | Line 331 | sub include_uptime() {
331
332		# grab the uptime
333		my($uptime) = `$uptimebin`;
334	+
335	+	if($ostype ne "FreeBSD") {
336	+	&print_pair(0, "packet.load.load1", $uptime =~ /load average.?:\s*([^\s]+?),/);
337	+	&print_pair(0, "packet.load.load5", $uptime =~ /load average.?:\s*.+?,\s*([^\s]+?),/);
338	+	&print_pair(0, "packet.load.load15", $uptime =~ /load average.?:\s*.+?,\s*.+?,\s*([^\s]+)/);
339	+	}
340
341		# work out the days, hours, and minutes
342
343		if ($uptime =~ /day.*,\s+([0-9]+):([0-9]+)/) {
344		# normal
345	<	$uptime =~ /up\s+([0-9]+)\s+.*,\s+([0-9]+):([0-9]+)/;
345	>	$uptime =~ /up\s+([0-9]+)\s+[^\s]+,\s+([0-9]+):([0-9]+)/;
346		$uptime = "$1:$2:$3";
347		}
348		else {
349		if ($uptime =~ /day/) {
350		if ($uptime =~ /hr/) {
351		# 0 minutes
352	<	$uptime =~ /up\s+([0-9]+)\s+.*,\s+([0-9]+)\s+.*,/;
352	>	$uptime =~ /up\s+([0-9]+)\s+[^\s]+,\s+([0-9]+)\s+[^\s]+,/;
353		$uptime = "$1:$2:0";
354		}
355		elsif ($uptime =~ /min/) {
356		# 0 hours
357	<	$uptime =~ /up\s+([0-9]+)\s+.*,\s+([0-9]+)\s+.*,/;
357	>	$uptime =~ /up\s+([0-9]+)\s+[^\s]+,\s+([0-9]+)\s+[^\s]+,/;
358		$uptime = "$1:0:$2";
359		}
360		else {

Diff Legend

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