ViewVC Help

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

root/i-scream/projects/cms/source/host/ihost-perl/plugins/perl/i-scream_uptime.pl

Comparing projects/cms/source/host/ihost-perl/plugins/perl/i-scream_uptime.pl (file contents):
Revision 1.2 by tdb, Tue Dec 18 04:07:17 2001 UTC vs.
Revision 1.4 by tdb, Sat May 18 18:15:57 2002 UTC

#	Line 1 | Line 1
1		#!/usr/bin/perl -w
2
3	+	#
4	+	# i-scream central monitoring system
5	+	# Copyright (C) 2000-2002 i-scream
6	+	#
7	+	# This program is free software; you can redistribute it and/or
8	+	# modify it under the terms of the GNU General Public License
9	+	# as published by the Free Software Foundation; either version 2
10	+	# of the License, or (at your option) any later version.
11	+	#
12	+	# This program is distributed in the hope that it will be useful,
13	+	# but WITHOUT ANY WARRANTY; without even the implied warranty of
14	+	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15	+	# GNU General Public License for more details.
16	+	#
17	+	# You should have received a copy of the GNU General Public License
18	+	# along with this program; if not, write to the Free Software
19	+	# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
20	+	#
21	+
22		#-----------------------------------------------------------------
23		# i-scream host plugin - uptime & load calculation
24		#     $Author$
#	Line 21 | Line 40 | $ostype = `uname -s` if not defined $ostype;
40		chomp($ostype);
41
42		# Decide which paths we should use.
43	<	my($uptimebin);
44	<	if ($ostype eq "SunOS" || $ostype eq "Linux" || $ostype eq "FreeBSD") {
43	>	my($uptimebin); my($sysctlbin);
44	>	if ($ostype eq "SunOS" || $ostype eq "Linux") {
45		# covers: Solaris 7/8
46		# covers: Debian r2.2
28	–	# covers: FreeBSD 4.X
47		$uptimebin = "/usr/bin/uptime";
48		}
49	+	elsif ($ostype eq "FreeBSD") {
50	+	# covers: FreeBSD 4.X
51	+	$sysctlbin = "/sbin/sysctl";
52	+	}
53		else {
54		print "i-scream_uptime.pl Error: Unable to identify system type - \"$ostype\".\n";
55		print "\"uname -s\" does not report one of the following known types;\n";
#	Line 65 | Line 87 | sub print_pair($$$) {
87		# get system uptime in seconds, and the current load
88		sub include_uptime() {
89
90	<	# grab the uptime
91	<	my($uptime) = `$uptimebin`;
90	>	# if it's FreeBSD, get the uptime and load sanely :)
91	>	if ($ostype eq "FreeBSD") {
92	>	my($boottime) = `$sysctlbin -n kern.boottime`;
93	>	if($boottime =~ /^{ sec = (\d+),/) {
94	>	&print_pair("unknown", "packet.os.uptime", time()-$1);
95	>	}
96
97	<	# grab the load
98	<	&print_pair(0, "packet.load.load1", $uptime =~ /load average.?:\s*([^\s]+?),/);
99	<	&print_pair(0, "packet.load.load5", $uptime =~ /load average.?:\s*.+?,\s*([^\s]+?),/);
100	<	&print_pair(0, "packet.load.load15", $uptime =~ /load average.?:\s*.+?,\s*.+?,\s*([^\s]+)/);
101	<
102	<	# work out the days, hours, and minutes
77	<
78	<	if ($uptime =~ /day.*,\s+([0-9]+):([0-9]+)/) {
79	<	# normal
80	<	$uptime =~ /up\s+([0-9]+)\s+[^\s]+,\s+([0-9]+):([0-9]+)/;
81	<	$uptime = "$1:$2:$3";
97	>	my($loadavg) = `$sysctlbin -n vm.loadavg`;
98	>	if($loadavg =~ /\s+([^\s]+?)\s+([^\s]+?)\s+([^\s]+?)\s+/) {
99	>	&print_pair(0, "packet.load.load1", $1);
100	>	&print_pair(0, "packet.load.load5", $2);
101	>	&print_pair(0, "packet.load.load15", $3);
102	>	}
103		}
104	+
105	+	# otherwise, lets parse :)
106		else {
107	<	if ($uptime =~ /day/) {
108	<	if ($uptime =~ /hr/) {
109	<	# 0 minutes
110	<	$uptime =~ /up\s+([0-9]+)\s+[^\s]+,\s+([0-9]+)\s+[^\s]+,/;
111	<	$uptime = "$1:$2:0";
107	>	# grab the uptime
108	>	my($uptime) = `$uptimebin`;
109	>
110	>	# grab the load
111	>	&print_pair(0, "packet.load.load1", $uptime =~ /load average.?:\s*([^\s]+?),/);
112	>	&print_pair(0, "packet.load.load5", $uptime =~ /load average.?:\s*.+?,\s*([^\s]+?),/);
113	>	&print_pair(0, "packet.load.load15", $uptime =~ /load average.?:\s*.+?,\s*.+?,\s*([^\s]+)/);
114	>
115	>	# work out the days, hours, and minutes
116	>
117	>	if ($uptime =~ /day.*,\s+([0-9]+):([0-9]+)/) {
118	>	# normal
119	>	$uptime =~ /up\s+([0-9]+)\s+[^\s]+,\s+([0-9]+):([0-9]+)/;
120	>	$uptime = "$1:$2:$3";
121	>	}
122	>	else {
123	>	if ($uptime =~ /day/) {
124	>	if ($uptime =~ /hr/) {
125	>	# 0 minutes
126	>	$uptime =~ /up\s+([0-9]+)\s+[^\s]+,\s+([0-9]+)\s+[^\s]+,/;
127	>	$uptime = "$1:$2:0";
128	>	}
129	>	elsif ($uptime =~ /min/) {
130	>	# 0 hours
131	>	$uptime =~ /up\s+([0-9]+)\s+[^\s]+,\s+([0-9]+)\s+[^\s]+,/;
132	>	$uptime = "$1:0:$2";
133	>	}
134	>	else {
135	>	# 0 hours and 0 mins
136	>	$uptime =~ /up\s+([0-9]+)/;
137	>	$uptime = "$1:0:0";
138	>	}
139		}
140	+	elsif ($uptime =~ /hr/) {
141	+	# 0 days and 0 minutes
142	+	$uptime =~ /up\s+([0-9]+)\s+/;
143	+	$uptime = "0:$1:0";
144	+	}
145		elsif ($uptime =~ /min/) {
146	<	# 0 hours
147	<	$uptime =~ /up\s+([0-9]+)\s+[^\s]+,\s+([0-9]+)\s+[^\s]+,/;
148	<	$uptime = "$1:0:$2";
146	>	# 0 days and 0 hours
147	>	$uptime =~ /up\s+([0-9]+)\s+/;
148	>	$uptime = "0:0:$1";
149		}
150		else {
151	<	# 0 hours and 0 mins
152	<	$uptime =~ /up\s+([0-9]+)/;
153	<	$uptime = "$1:0:0";
151	>	# 0 days
152	>	$uptime =~ /up\s+([0-9]+):([0-9]+)/;
153	>	$uptime = "0:$1:$2";
154		}
155		}
101	–	elsif ($uptime =~ /hr/) {
102	–	# 0 days and 0 minutes
103	–	$uptime =~ /up\s+([0-9]+)\s+/;
104	–	$uptime = "0:$1:0";
105	–	}
106	–	elsif ($uptime =~ /min/) {
107	–	# 0 days and 0 hours
108	–	$uptime =~ /up\s+([0-9]+)\s+/;
109	–	$uptime = "0:0:$1";
110	–	}
111	–	else {
112	–	# 0 days
113	–	$uptime =~ /up\s+([0-9]+):([0-9]+)/;
114	–	$uptime = "0:$1:$2";
115	–	}
116	–	}
117	–
118	–	# turn into seconds
119	–	$uptime =~ /([0-9]+):([0-9]+):([0-9]+)/;
120	–	$uptime = ($3+($2+($1*24))*60)*60;
156
157	<	# print the value out
158	<	&print_pair("unknown", "packet.os.uptime", $uptime);
157	>	# turn into seconds
158	>	$uptime =~ /([0-9]+):([0-9]+):([0-9]+)/;
159	>	$uptime = ($3+($2+($1*24))*60)*60;
160	>
161	>	# print the value out
162	>	&print_pair("unknown", "packet.os.uptime", $uptime);
163	>	}
164
165		}

Diff Legend

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