plugins/perl/i-scream_osver.pl

#!/usr/bin/perl -w

# 
# i-scream central monitoring system
# 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 - os details and version
#     $Author: tdb $
#     $Id: i-scream_osver.pl,v 1.2 2001/12/18 04:07:17 tdb Exp $
#
# A short perl script to grab the os version etc
#-----------------------------------------------------------------


$| = 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($unamebin);
if ($ostype eq "SunOS" || $ostype eq "FreeBSD") {
    # covers: Solaris 7/8
    # covers: FreeBSD 4.X
    $unamebin = "/usr/bin/uname";
}
elsif ($ostype eq "Linux") {
    # covers: Debian r2.2
    $unamebin = "/bin/uname";
}
else {
    print "i-scream_osver.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_osver();

# 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";
}

# sub to get details of the machine's operating system.
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) = `$unamebin -s`;
    my($os_release) = `$unamebin -r`;
    my($os_platform) = `$unamebin -m`;
    my($os_sysname) = `$unamebin -n`;
    my($os_version) = `$unamebin -v`;

    &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);

}
Revision:	1.3
Committed:	Sat May 18 18:15:57 2002 UTC (22 years, 5 months ago) by tdb
Content type:	text/plain
Branch:	MAIN
Changes since 1.2:	+20 -1 lines
Log Message:	i-scream is now licensed under the GPL. I've added the GPL headers to every source file, and put a full copy of the license in the appropriate places. I think I've covered everything. This is going to be a mad commit ;)
#	User	Rev	Content
1	tdb	1.1	#!/usr/bin/perl -w
2
3	tdb	1.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	tdb	1.1	#-----------------------------------------------------------------
23			# i-scream host plugin - os details and version
24	tdb	1.2	# $Author: tdb $
25	tdb	1.3	# $Id: i-scream_osver.pl,v 1.2 2001/12/18 04:07:17 tdb Exp $
26	tdb	1.1	#
27			# A short perl script to grab the os version etc
28			#-----------------------------------------------------------------
29
30
31			$\| = 1;
32
33
34			# You'd be silly not to use this ;)
35			use strict;
36
37	tdb	1.2	# Get the OS type from the args, or try towork it out
38			my($ostype) = $ARGV[0];
39			$ostype = `uname -s` if not defined $ostype;
40			chomp($ostype);
41	tdb	1.1
42			# Decide which paths we should use.
43			my($unamebin);
44			if ($ostype eq "SunOS" \|\| $ostype eq "FreeBSD") {
45			# covers: Solaris 7/8
46			# covers: FreeBSD 4.X
47			$unamebin = "/usr/bin/uname";
48			}
49			elsif ($ostype eq "Linux") {
50			# covers: Debian r2.2
51			$unamebin = "/bin/uname";
52			}
53			else {
54			print "i-scream_osver.pl Error: Unable to identify system type - \"$ostype\".\n";
55			print "\"uname -s\" does not report one of the following known types;\n";
56			print " SunOS, Linux, FreeBSD\n";
57			exit(1);
58			}
59
60			# Run the following components: -
61			&include_osver();
62
63			# End the program normally.
64			exit(0);
65
66
67
68
69			# sub to print pairs of data, separated by a single space character.
70			# If the second argument is undefined, then the pair is still printed,
71			# however, the value shall be displayed as the the 'default' value
72			# if the passed value was undefined.
73			sub print_pair($$$) {
74			my($default, $name, $value) = @_;
75
76			if (!defined $value) {
77			$value = $default;
78			}
79
80			# Remove the trailing linefeed if we've not already done so.
81			chomp($value);
82
83			# print the pair of data with a space inbetween.
84			print "$name $value\n";
85			}
86
87			# sub to get details of the machine's operating system.
88			sub include_osver() {
89
90			# Find out details about the operating system
91			# If these values remain undefined, then the print_pair
92			# function shall show the value to be the string "unknown".
93			my($os_name) = `$unamebin -s`;
94			my($os_release) = `$unamebin -r`;
95			my($os_platform) = `$unamebin -m`;
96			my($os_sysname) = `$unamebin -n`;
97			my($os_version) = `$unamebin -v`;
98
99			&print_pair("unknown", "packet.os.name", $os_name);
100			&print_pair("unknown", "packet.os.release", $os_release);
101			&print_pair("unknown", "packet.os.platform", $os_platform);
102			&print_pair("unknown", "packet.os.sysname", $os_sysname);
103			&print_pair("unknown", "packet.os.version", $os_version);
104
105			}