plugins/perl/i-scream_uptime.pl

#!/usr/bin/perl -w

# 
# i-scream central monitoring system
# http://www.i-scream.org.uk
# Copyright (C) 2000-2002 i-scream
# 
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
# 
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
#

#-----------------------------------------------------------------
# i-scream host plugin - uptime & load calculation
#     $Author: tdb $
#     $Id: i-scream_uptime.pl,v 1.4 2002/05/18 18:15:57 tdb Exp $
#
# A short perl script to calculate the uptime in seconds,
# and to get the current system loads.
#-----------------------------------------------------------------


$| = 1;

# You'd be silly not to use this ;)
use strict;

# Get the OS type from the args, or try towork it out
my($ostype) = $ARGV[0];
$ostype = `uname -s` if not defined $ostype;
chomp($ostype);

# Decide which paths we should use.
my($uptimebin); my($sysctlbin);
if ($ostype eq "SunOS" || $ostype eq "Linux") {
    # covers: Solaris 7/8
    # covers: Debian r2.2
    $uptimebin = "/usr/bin/uptime";
}
elsif ($ostype eq "FreeBSD") {
    # covers: FreeBSD 4.X
    $sysctlbin = "/sbin/sysctl";
}
else {
    print "i-scream_uptime.pl Error: Unable to identify system type - \"$ostype\".\n";
    print "\"uname -s\" does not report one of the following known types;\n";
    print "      SunOS, Linux, FreeBSD\n";
    exit(1);
}

# Run the following components: -
&include_uptime();

# End the program normally.
exit(0);


# 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 the 'default' value
# if the passed value was undefined.
sub print_pair($$$) {
    my($default, $name, $value) = @_;

    if (!defined $value) {
        $value = $default;
    }

    # Remove the trailing linefeed if we've not already done so.
    chomp($value);

    # print the pair of data with a space inbetween.
    print "$name $value\n";
}

# get system uptime in seconds, and the current load
sub include_uptime() {

    # if it's FreeBSD, get the uptime and load sanely :)
    if ($ostype eq "FreeBSD") {
        my($boottime) = `$sysctlbin -n kern.boottime`;
        if($boottime =~ /^{ sec = (\d+),/) {
            &print_pair("unknown", "packet.os.uptime", time()-$1);
        }
    
        my($loadavg) = `$sysctlbin -n vm.loadavg`;
        if($loadavg =~ /\s+([^\s]+?)\s+([^\s]+?)\s+([^\s]+?)\s+/) {
            &print_pair(0, "packet.load.load1", $1);
            &print_pair(0, "packet.load.load5", $2);
            &print_pair(0, "packet.load.load15", $3);
        }
    }
    
    # otherwise, lets parse :)
    else {
        # grab the uptime
        my($uptime) = `$uptimebin`;
        
        # grab the load
        &print_pair(0, "packet.load.load1", $uptime =~ /load average.?:\s*([^\s]+?),/);
        &print_pair(0, "packet.load.load5", $uptime =~ /load average.?:\s*.+?,\s*([^\s]+?),/);
        &print_pair(0, "packet.load.load15", $uptime =~ /load average.?:\s*.+?,\s*.+?,\s*([^\s]+)/);
    
        # work out the days, hours, and minutes
    
        if ($uptime =~ /day.*,\s+([0-9]+):([0-9]+)/) {
          # normal
            $uptime =~ /up\s+([0-9]+)\s+[^\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]+,\s+([0-9]+)\s+[^\s]+,/;
                    $uptime = "$1:$2:0";
                }
                elsif ($uptime =~ /min/) {
                  # 0 hours
                    $uptime =~ /up\s+([0-9]+)\s+[^\s]+,\s+([0-9]+)\s+[^\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);
    }

}
Revision:	1.5
Committed:	Tue May 21 16:47:12 2002 UTC (23 years, 7 months ago) by tdb
Content type:	text/plain
Branch:	MAIN
Changes since 1.4:	+2 -1 lines
Log Message:	Added URL to GPL headers.
#	User	Rev	Content
1	tdb	1.1	#!/usr/bin/perl -w
2
3	tdb	1.4	#
4			# i-scream central monitoring system
5	tdb	1.5	# http://www.i-scream.org.uk
6	tdb	1.4	# Copyright (C) 2000-2002 i-scream
7			#
8			# This program is free software; you can redistribute it and/or
9			# modify it under the terms of the GNU General Public License
10			# as published by the Free Software Foundation; either version 2
11			# of the License, or (at your option) any later version.
12			#
13			# This program is distributed in the hope that it will be useful,
14			# but WITHOUT ANY WARRANTY; without even the implied warranty of
15			# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16			# GNU General Public License for more details.
17			#
18			# You should have received a copy of the GNU General Public License
19			# along with this program; if not, write to the Free Software
20			# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
21			#
22
23	tdb	1.1	#-----------------------------------------------------------------
24			# i-scream host plugin - uptime & load calculation
25	tdb	1.2	# $Author: tdb $
26	tdb	1.5	# $Id: i-scream_uptime.pl,v 1.4 2002/05/18 18:15:57 tdb Exp $
27	tdb	1.1	#
28			# A short perl script to calculate the uptime in seconds,
29			# and to get the current system loads.
30			#-----------------------------------------------------------------
31
32
33			$\| = 1;
34
35			# You'd be silly not to use this ;)
36			use strict;
37
38	tdb	1.2	# Get the OS type from the args, or try towork it out
39			my($ostype) = $ARGV[0];
40			$ostype = `uname -s` if not defined $ostype;
41			chomp($ostype);
42	tdb	1.1
43			# Decide which paths we should use.
44	tdb	1.3	my($uptimebin); my($sysctlbin);
45			if ($ostype eq "SunOS" \|\| $ostype eq "Linux") {
46	tdb	1.1	# covers: Solaris 7/8
47			# covers: Debian r2.2
48	tdb	1.3	$uptimebin = "/usr/bin/uptime";
49			}
50			elsif ($ostype eq "FreeBSD") {
51	tdb	1.1	# covers: FreeBSD 4.X
52	tdb	1.3	$sysctlbin = "/sbin/sysctl";
53	tdb	1.1	}
54			else {
55			print "i-scream_uptime.pl Error: Unable to identify system type - \"$ostype\".\n";
56			print "\"uname -s\" does not report one of the following known types;\n";
57			print " SunOS, Linux, FreeBSD\n";
58			exit(1);
59			}
60
61			# Run the following components: -
62			&include_uptime();
63
64			# End the program normally.
65			exit(0);
66
67
68
69
70			# sub to print pairs of data, separated by a single space character.
71			# If the second argument is undefined, then the pair is still printed,
72			# however, the value shall be displayed as the the 'default' value
73			# if the passed value was undefined.
74			sub print_pair($$$) {
75			my($default, $name, $value) = @_;
76
77			if (!defined $value) {
78			$value = $default;
79			}
80
81			# Remove the trailing linefeed if we've not already done so.
82			chomp($value);
83
84			# print the pair of data with a space inbetween.
85			print "$name $value\n";
86			}
87
88			# get system uptime in seconds, and the current load
89			sub include_uptime() {
90
91	tdb	1.3	# if it's FreeBSD, get the uptime and load sanely :)
92			if ($ostype eq "FreeBSD") {
93			my($boottime) = `$sysctlbin -n kern.boottime`;
94			if($boottime =~ /^{ sec = (\d+),/) {
95			&print_pair("unknown", "packet.os.uptime", time()-$1);
96			}
97	tdb	1.1
98	tdb	1.3	my($loadavg) = `$sysctlbin -n vm.loadavg`;
99			if($loadavg =~ /\s+([^\s]+?)\s+([^\s]+?)\s+([^\s]+?)\s+/) {
100			&print_pair(0, "packet.load.load1", $1);
101			&print_pair(0, "packet.load.load5", $2);
102			&print_pair(0, "packet.load.load15", $3);
103			}
104	tdb	1.1	}
105	tdb	1.3
106			# otherwise, lets parse :)
107	tdb	1.1	else {
108	tdb	1.3	# grab the uptime
109			my($uptime) = `$uptimebin`;
110
111			# grab the load
112			&print_pair(0, "packet.load.load1", $uptime =~ /load average.?:\s*([^\s]+?),/);
113			&print_pair(0, "packet.load.load5", $uptime =~ /load average.?:\s.+?,\s([^\s]+?),/);
114			&print_pair(0, "packet.load.load15", $uptime =~ /load average.?:\s.+?,\s.+?,\s*([^\s]+)/);
115
116			# work out the days, hours, and minutes
117
118			if ($uptime =~ /day.*,\s+([0-9]+):([0-9]+)/) {
119			# normal
120			$uptime =~ /up\s+([0-9]+)\s+[^\s]+,\s+([0-9]+):([0-9]+)/;
121			$uptime = "$1:$2:$3";
122			}
123			else {
124			if ($uptime =~ /day/) {
125			if ($uptime =~ /hr/) {
126			# 0 minutes
127			$uptime =~ /up\s+([0-9]+)\s+[^\s]+,\s+([0-9]+)\s+[^\s]+,/;
128			$uptime = "$1:$2:0";
129			}
130			elsif ($uptime =~ /min/) {
131			# 0 hours
132			$uptime =~ /up\s+([0-9]+)\s+[^\s]+,\s+([0-9]+)\s+[^\s]+,/;
133			$uptime = "$1:0:$2";
134			}
135			else {
136			# 0 hours and 0 mins
137			$uptime =~ /up\s+([0-9]+)/;
138			$uptime = "$1:0:0";
139			}
140			}
141			elsif ($uptime =~ /hr/) {
142			# 0 days and 0 minutes
143			$uptime =~ /up\s+([0-9]+)\s+/;
144			$uptime = "0:$1:0";
145	tdb	1.1	}
146			elsif ($uptime =~ /min/) {
147	tdb	1.3	# 0 days and 0 hours
148			$uptime =~ /up\s+([0-9]+)\s+/;
149			$uptime = "0:0:$1";
150	tdb	1.1	}
151			else {
152	tdb	1.3	# 0 days
153			$uptime =~ /up\s+([0-9]+):([0-9]+)/;
154			$uptime = "0:$1:$2";
155	tdb	1.1	}
156			}
157	tdb	1.3
158			# turn into seconds
159			$uptime =~ /([0-9]+):([0-9]+):([0-9]+)/;
160			$uptime = ($3+($2+($124))60)*60;
161
162			# print the value out
163			&print_pair("unknown", "packet.os.uptime", $uptime);
164	tdb	1.1	}
165
166			}