host/generic/statgrab.pl

#!/usr/bin/perl -w

#-----------------------------------------------------------------
# Machine statistics grabber
#     $Author: tdb1 $
#     $Id: statgrab.pl,v 1.30 2001/02/05 19:59:35 tdb1 Exp $
#
# A Perl script to return various information about a host machine
# by examining the output of some common Unix/Linux commands.
# This is a stopgap to act as a generic way of collecting the
# data.  It is perhaps more reliable than the current Java host
# at doing this and it can obviously be used by a C++ program as
# well until the C++ host is ready to find the information out
# itself.
#-----------------------------------------------------------------


$| = 1;


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

# Have to hope this will work really.
my($ostype) = `uname -s`; chop($ostype);

# Decide which paths we should use.
my($topbin); my($dfbin); my($usersbin); my($unamebin); my($uptimebin);

if ($ostype eq "SunOS") {
    # covers: Solaris 8
    $topbin = "/usr/local/sbin/top -d2 -s1 0";
    $dfbin = "/usr/bin/df";
    $usersbin = "/usr/ucb/users";
    $unamebin = "/usr/bin/uname";
    $uptimebin = "/usr/bin/uptime";
}
elsif ($ostype eq "Linux") {
    # covers: Debian r2.2
    $topbin = "/usr/bin/top -d1 -n0 -b";
    $dfbin = "/bin/df";
    $usersbin = "/usr/bin/users";
    $unamebin = "/bin/uname";
    $uptimebin = "/usr/bin/uptime";
}
elsif ($ostype eq "FreeBSD") {
    # covers: FreeBSD 4.2-STABLE
    $topbin = "/usr/bin/top -d2 -s1 0";
    $dfbin = "/bin/df";
    $usersbin = "/usr/bin/users";
    $unamebin = "/usr/bin/uname";
    $uptimebin = "/usr/bin/uptime";
}
else {
    print "statgrab.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: -
&print_ident();
&include_osver();
&include_uptime();
&include_users();
&include_top();
&include_disk();

# End the program normally.
exit(0);


# prints out an identifier for this version of statgrab.pl
# the host should check this when reading data
# means the host must be checked and updated to work with newer versions.
sub print_ident() {
    print 'version statgrab.pl $Revision: 1.30 $';
    print "\n";
}

# 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 find out disk partition information, if it exists.
sub include_disk() {
    
    # Run the df program.
    my(@df) = `$dfbin -ak`;

    # Go through each line of the program, looking for each thing we want.
    my($partition_no) = 0;
    for (my($i) = 0; $i < $#df; $i++) {
        my($line) = $df[$i];
        $line =~ /^(\/[^\s]*)\s*([0-9]*)\s*([0-9]*)\s*([0-9]*)\s*[^\s]*\s*(\/[^\s]*)\s*/;
        # $4 will not match unless everything before it does...
        if (defined $5) {
            my ($filesystem, $kbytes, $used, $avail, $mount) = ($1, $2, $3, $4, $5);
            &print_pair("unknown", "packet.disk.p$partition_no.attributes.name", $filesystem);
            &print_pair(0, "packet.disk.p$partition_no.attributes.kbytes", $kbytes);
            &print_pair(0, "packet.disk.p$partition_no.attributes.used", $used);
            &print_pair(0, "packet.disk.p$partition_no.attributes.avail", $avail);
            &print_pair("unknown", "packet.disk.p$partition_no.attributes.mount", $mount);
            ++$partition_no;
        }
    }
    
}

# sub to find out the list of all (non-unique) usernames logged
# in to the machine and how many their are. (not 
sub include_users() {

    # Find out all users on this machine.
    my($users) = `$usersbin`;
    $users = "\n" unless defined $users;
    chop $users;
    my($users_count) = 0;
    $users_count++ while $users =~ /\w+/g;
    my($users_list) = $users." ";

    &print_pair(0, "packet.users.count", $users_count);
    &print_pair("unknown", "packet.users.list", $users_list);
}


# sub to run a series of regexps on the output of 'top' to
# gather various machine statistics.
sub include_top() {

    # Find out some numbers from top.
    my(@top) = `$topbin`;
    my($top) = join(" ", @top);
    $top =~ s/\n//g;

    &print_pair(0, "packet.processes.total", $top =~ /([^\s]+?) processes:/);
    &print_pair(0, "packet.processes.sleeping", $top =~ / ([^\s]+?) sleeping/);
    &print_pair(0, "packet.processes.zombie", $top =~ / ([^\s]+?) zombie/);
    &print_pair(0, "packet.processes.stopped", $top =~ / ([^\s]+?) stopped/);
    &print_pair(0, "packet.processes.cpu", $top =~ /([^\s]+?)\s*on cpu/);
    &print_pair(0, "packet.cpu.idle", $top =~ /([^\s]+?)% idle/);
    &print_pair(0, "packet.cpu.user", $top =~ /([^\s]+?)% user/);
    &print_pair(0, "packet.cpu.kernel", $top =~ /([^\s]+?)% kernel/);
    &print_pair(0, "packet.cpu.iowait", $top =~ /([^\s]+?)% iowait/);
    &print_pair(0, "packet.cpu.swap", $top =~ /([^\s]+?)% swap/);

    # The following need to be specified in megabytes.
    # If they are preceeded by a G, then multiply by 1024.   

    $top =~ /([^\s]+?)([MG]) real/;
    my($real) = $1;
    $real*=1024 if $2 eq "G";
    &print_pair(0, "packet.memory.total", $real);

    $top =~ /([^\s]+?)([MG]) free/;
    my($free) = $1;
    $free*=1024 if $2 eq "G";
    &print_pair(0, "packet.memory.free", $free);

    $top =~ /([^\s]+?)([MG]) swap in use/;
    my($swap_in_use) = $1;
    $swap_in_use*=1024 if $2 eq "G";
    # DO NOT print this one out... save it for in a moment...

    $top =~ /([^\s]+?)([MG]) swap free/;
    my($swap_free) = $1;
    $swap_free*=1024 if $2 eq "G";
    &print_pair(0, "packet.swap.free", $swap_free);

    # AJ requested total swap instead of swap_in_use, so here we go!
    &print_pair(0, "packet.swap.total", $swap_free + $swap_in_use);
}

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

}

# sub to get system uptime in seconds.
sub include_uptime() {

    # debug stuff, all the different cases

    # normal
    #my($uptime) = "  4:48pm  up 49 day(s),  6:30,  201 users,  load average: 0.33, 0.35, 0.38\n";
    # 0 days
    #my($uptime) = "  4:48pm  up 6:30,  201 users,  load average: 0.33, 0.35, 0.38\n";
    # 0 hours
    #my($uptime) = "  4:48pm  up 49 day(s),  30 min(s),  201 users,  load average: 0.33, 0.35, 0.38\n";
    # 0 mins
    #my($uptime) = "  4:48pm  up 49 day(s),  6 hr(s),  201 users,  load average: 0.33, 0.35, 0.38\n";
    # 0 days and 0 mins
    #my($uptime) = "  4:48pm  up 6 hr(s),  201 users,  load average: 0.33, 0.35, 0.38\n";
    # 0 days and 0 hours
    #my($uptime) = "  4:48pm  up 30 min(s),  201 users,  load average: 0.33, 0.35, 0.38\n";
    # 0 hours and 0 mins
    #my($uptime) = "  4:48pm  up 49 day(s), 201 users,  load average: 0.33, 0.35, 0.38\n";

    # grab the uptime
    my($uptime) = `$uptimebin`;
    
    &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+([0-9]+):([0-9]+)/;
        $uptime = "$1:$2:$3";
    }
    else {
        if ($uptime =~ /day/) {
            if ($uptime =~ /hr/) {
              # 0 minutes
                $uptime =~ /up\s+([0-9]+)\s+.*,\s+([0-9]+)\s+.*,/;
                $uptime = "$1:$2:0";
            }
            elsif ($uptime =~ /min/) {
              # 0 hours
                $uptime =~ /up\s+([0-9]+)\s+.*,\s+([0-9]+)\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.31
Committed:	Mon Feb 5 20:27:59 2001 UTC (23 years, 7 months ago) by tdb
Content type:	text/plain
Branch:	MAIN
Changes since 1.30:	+7 -7 lines
Log Message:	Moved the top paramenters to the platform dependent section, due to the fact that the top on Linux is different.
#	User	Rev	Content
1	pjm2	1.1	#!/usr/bin/perl -w
2
3			#-----------------------------------------------------------------
4			# Machine statistics grabber
5	tdb	1.31	# $Author: tdb1 $
6			# $Id: statgrab.pl,v 1.30 2001/02/05 19:59:35 tdb1 Exp $
7	pjm2	1.1	#
8			# A Perl script to return various information about a host machine
9			# by examining the output of some common Unix/Linux commands.
10			# This is a stopgap to act as a generic way of collecting the
11			# data. It is perhaps more reliable than the current Java host
12			# at doing this and it can obviously be used by a C++ program as
13			# well until the C++ host is ready to find the information out
14			# itself.
15			#-----------------------------------------------------------------
16
17
18			$\| = 1;
19
20
21			# You'd be silly not to use this ;)
22			use strict;
23
24	tdb	1.30	# 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); my($unamebin); my($uptimebin);
29
30			if ($ostype eq "SunOS") {
31			# covers: Solaris 8
32	tdb	1.31	$topbin = "/usr/local/sbin/top -d2 -s1 0";
33	tdb	1.30	$dfbin = "/usr/bin/df";
34			$usersbin = "/usr/ucb/users";
35			$unamebin = "/usr/bin/uname";
36			$uptimebin = "/usr/bin/uptime";
37			}
38			elsif ($ostype eq "Linux") {
39			# covers: Debian r2.2
40	tdb	1.31	$topbin = "/usr/bin/top -d1 -n0 -b";
41	tdb	1.30	$dfbin = "/bin/df";
42			$usersbin = "/usr/bin/users";
43			$unamebin = "/bin/uname";
44			$uptimebin = "/usr/bin/uptime";
45			}
46			elsif ($ostype eq "FreeBSD") {
47			# covers: FreeBSD 4.2-STABLE
48	tdb	1.31	$topbin = "/usr/bin/top -d2 -s1 0";
49	tdb	1.30	$dfbin = "/bin/df";
50			$usersbin = "/usr/bin/users";
51			$unamebin = "/usr/bin/uname";
52			$uptimebin = "/usr/bin/uptime";
53			}
54			else {
55			print "statgrab.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	tdb	1.13
61	pjm2	1.6	# Run the following components: -
62	tdb	1.3	&print_ident();
63	tdb	1.2	&include_osver();
64	tdb	1.17	&include_uptime();
65	pjm2	1.1	&include_users();
66			&include_top();
67	pjm2	1.5	&include_disk();
68	pjm2	1.1
69	pjm2	1.6	# End the program normally.
70	pjm2	1.1	exit(0);
71
72
73
74	pjm2	1.6
75	tdb	1.3	# prints out an identifier for this version of statgrab.pl
76			# the host should check this when reading data
77			# means the host must be checked and updated to work with newer versions.
78			sub print_ident() {
79	tdb	1.31	print 'version statgrab.pl $Revision: 1.30 $';
80	tdb	1.3	print "\n";
81			}
82	pjm2	1.1
83			# sub to print pairs of data, separated by a single space character.
84	pjm2	1.5	# If the second argument is undefined, then the pair is still printed,
85	pjm2	1.25	# however, the value shall be displayed as the the 'default' value
86			# if the passed value was undefined.
87	pjm2	1.8	sub print_pair($$$) {
88	pjm2	1.25	my($default, $name, $value) = @_;
89	pjm2	1.1
90			if (!defined $value) {
91	pjm2	1.25	$value = $default;
92	pjm2	1.1	}
93
94			# Remove the trailing linefeed if we've not already done so.
95			chomp($value);
96
97			# print the pair of data with a space inbetween.
98			print "$name $value\n";
99			}
100
101
102	pjm2	1.5	# sub to find out disk partition information, if it exists.
103			sub include_disk() {
104
105			# Run the df program.
106	tdb	1.13	my(@df) = `$dfbin -ak`;
107	pjm2	1.5
108			# Go through each line of the program, looking for each thing we want.
109			my($partition_no) = 0;
110			for (my($i) = 0; $i < $#df; $i++) {
111			my($line) = $df[$i];
112	pjm2	1.7	$line =~ /^(\/[^\s])\s([0-9])\s([0-9])\s([0-9])\s[^\s]\s(\/[^\s])\s/;
113	pjm2	1.5	# $4 will not match unless everything before it does...
114	pjm2	1.7	if (defined $5) {
115			my ($filesystem, $kbytes, $used, $avail, $mount) = ($1, $2, $3, $4, $5);
116	pjm2	1.25	&print_pair("unknown", "packet.disk.p$partition_no.attributes.name", $filesystem);
117			&print_pair(0, "packet.disk.p$partition_no.attributes.kbytes", $kbytes);
118			&print_pair(0, "packet.disk.p$partition_no.attributes.used", $used);
119			&print_pair(0, "packet.disk.p$partition_no.attributes.avail", $avail);
120			&print_pair("unknown", "packet.disk.p$partition_no.attributes.mount", $mount);
121	pjm2	1.5	++$partition_no;
122			}
123			}
124
125			}
126
127			# sub to find out the list of all (non-unique) usernames logged
128			# in to the machine and how many their are. (not
129	pjm2	1.1	sub include_users() {
130
131			# Find out all users on this machine.
132	tdb	1.13	my($users) = `$usersbin`;
133	pjm2	1.16	$users = "\n" unless defined $users;
134			chop $users;
135	pjm2	1.14	my($users_count) = 0;
136			$users_count++ while $users =~ /\w+/g;
137	pjm2	1.18	my($users_list) = $users." ";
138	pjm2	1.1
139	pjm2	1.25	&print_pair(0, "packet.users.count", $users_count);
140			&print_pair("unknown", "packet.users.list", $users_list);
141	pjm2	1.1	}
142
143
144	pjm2	1.5	# sub to run a series of regexps on the output of 'top' to
145			# gather various machine statistics.
146	pjm2	1.1	sub include_top() {
147
148			# Find out some numbers from top.
149	tdb	1.31	my(@top) = `$topbin`;
150	pjm2	1.1	my($top) = join(" ", @top);
151			$top =~ s/\n//g;
152
153	pjm2	1.25	&print_pair(0, "packet.processes.total", $top =~ /([^\s]+?) processes:/);
154			&print_pair(0, "packet.processes.sleeping", $top =~ / ([^\s]+?) sleeping/);
155			&print_pair(0, "packet.processes.zombie", $top =~ / ([^\s]+?) zombie/);
156			&print_pair(0, "packet.processes.stopped", $top =~ / ([^\s]+?) stopped/);
157			&print_pair(0, "packet.processes.cpu", $top =~ /([^\s]+?)\s*on cpu/);
158			&print_pair(0, "packet.cpu.idle", $top =~ /([^\s]+?)% idle/);
159			&print_pair(0, "packet.cpu.user", $top =~ /([^\s]+?)% user/);
160			&print_pair(0, "packet.cpu.kernel", $top =~ /([^\s]+?)% kernel/);
161			&print_pair(0, "packet.cpu.iowait", $top =~ /([^\s]+?)% iowait/);
162			&print_pair(0, "packet.cpu.swap", $top =~ /([^\s]+?)% swap/);
163	pjm2	1.10
164			# The following need to be specified in megabytes.
165			# If they are preceeded by a G, then multiply by 1024.
166
167			$top =~ /([^\s]+?)([MG]) real/;
168	pjm2	1.11	my($real) = $1;
169			$real*=1024 if $2 eq "G";
170	pjm2	1.26	&print_pair(0, "packet.memory.total", $real);
171	pjm2	1.10
172			$top =~ /([^\s]+?)([MG]) free/;
173	pjm2	1.11	my($free) = $1;
174			$free*=1024 if $2 eq "G";
175	pjm2	1.25	&print_pair(0, "packet.memory.free", $free);
176	pjm2	1.10
177			$top =~ /([^\s]+?)([MG]) swap in use/;
178	pjm2	1.11	my($swap_in_use) = $1;
179			$swap_in_use*=1024 if $2 eq "G";
180	pjm2	1.12	# DO NOT print this one out... save it for in a moment...
181	pjm2	1.10
182			$top =~ /([^\s]+?)([MG]) swap free/;
183	pjm2	1.11	my($swap_free) = $1;
184			$swap_free*=1024 if $2 eq "G";
185	pjm2	1.26	&print_pair(0, "packet.swap.free", $swap_free);
186	pjm2	1.12
187			# AJ requested total swap instead of swap_in_use, so here we go!
188	pjm2	1.26	&print_pair(0, "packet.swap.total", $swap_free + $swap_in_use);
189	tdb	1.2	}
190
191	pjm2	1.5	# sub to get details of the machine's operating system.
192	tdb	1.2	sub include_osver() {
193
194			# Find out details about the operating system
195	pjm2	1.5	# If these values remain undefined, then the print_pair
196			# function shall show the value to be the string "unknown".
197	tdb	1.13	my($os_name) = `$unamebin -s`;
198			my($os_release) = `$unamebin -r`;
199			my($os_platform) = `$unamebin -m`;
200			my($os_sysname) = `$unamebin -n`;
201			my($os_version) = `$unamebin -v`;
202	tdb	1.2
203	pjm2	1.25	&print_pair("unknown", "packet.os.name", $os_name);
204			&print_pair("unknown", "packet.os.release", $os_release);
205			&print_pair("unknown", "packet.os.platform", $os_platform);
206			&print_pair("unknown", "packet.os.sysname", $os_sysname);
207			&print_pair("unknown", "packet.os.version", $os_version);
208	tdb	1.2
209	pjm2	1.1	}
210	tdb	1.17
211	tdb	1.28	# sub to get system uptime in seconds.
212	tdb	1.17	sub include_uptime() {
213
214	tdb	1.27	# debug stuff, all the different cases
215
216			# normal
217			#my($uptime) = " 4:48pm up 49 day(s), 6:30, 201 users, load average: 0.33, 0.35, 0.38\n";
218			# 0 days
219			#my($uptime) = " 4:48pm up 6:30, 201 users, load average: 0.33, 0.35, 0.38\n";
220			# 0 hours
221			#my($uptime) = " 4:48pm up 49 day(s), 30 min(s), 201 users, load average: 0.33, 0.35, 0.38\n";
222			# 0 mins
223			#my($uptime) = " 4:48pm up 49 day(s), 6 hr(s), 201 users, load average: 0.33, 0.35, 0.38\n";
224			# 0 days and 0 mins
225			#my($uptime) = " 4:48pm up 6 hr(s), 201 users, load average: 0.33, 0.35, 0.38\n";
226			# 0 days and 0 hours
227			#my($uptime) = " 4:48pm up 30 min(s), 201 users, load average: 0.33, 0.35, 0.38\n";
228			# 0 hours and 0 mins
229			#my($uptime) = " 4:48pm up 49 day(s), 201 users, load average: 0.33, 0.35, 0.38\n";
230
231	tdb	1.21	# grab the uptime
232	tdb	1.17	my($uptime) = `$uptimebin`;
233	pjm2	1.29
234			&print_pair(0, "packet.load.load1", $uptime =~ /load average.?:\s*([^\s]+?),/);
235			&print_pair(0, "packet.load.load5", $uptime =~ /load average.?:\s.+?,\s([^\s]+?),/);
236			&print_pair(0, "packet.load.load15", $uptime =~ /load average.?:\s.+?,\s.+?,\s*([^\s]+)/);
237	tdb	1.21
238			# work out the days, hours, and minutes
239	tdb	1.28
240			if ($uptime =~ /day.*,\s+([0-9]+):([0-9]+)/) {
241			# normal
242			$uptime =~ /up\s+([0-9]+)\s+.*,\s+([0-9]+):([0-9]+)/;
243			$uptime = "$1:$2:$3";
244			}
245			else {
246			if ($uptime =~ /day/) {
247			if ($uptime =~ /hr/) {
248			# 0 minutes
249			$uptime =~ /up\s+([0-9]+)\s+.,\s+([0-9]+)\s+.,/;
250			$uptime = "$1:$2:0";
251			}
252			elsif ($uptime =~ /min/) {
253			# 0 hours
254			$uptime =~ /up\s+([0-9]+)\s+.,\s+([0-9]+)\s+.,/;
255			$uptime = "$1:0:$2";
256			}
257			else {
258			# 0 hours and 0 mins
259			$uptime =~ /up\s+([0-9]+)/;
260			$uptime = "$1:0:0";
261			}
262	tdb	1.27	}
263	tdb	1.28	elsif ($uptime =~ /hr/) {
264	tdb	1.27	# 0 days and 0 minutes
265			$uptime =~ /up\s+([0-9]+)\s+/;
266			$uptime = "0:$1:0";
267			}
268	tdb	1.28	elsif ($uptime =~ /min/) {
269	tdb	1.27	# 0 days and 0 hours
270			$uptime =~ /up\s+([0-9]+)\s+/;
271			$uptime = "0:0:$1";
272			}
273			else {
274	tdb	1.28	# 0 days
275			$uptime =~ /up\s+([0-9]+):([0-9]+)/;
276			$uptime = "0:$1:$2";
277	tdb	1.27	}
278	tdb	1.21	}
279
280	tdb	1.28	# turn into seconds
281	tdb	1.21	$uptime =~ /([0-9]+):([0-9]+):([0-9]+)/;
282	tdb	1.28	$uptime = ($3+($2+($124))60)*60;
283
284			# print the value out
285	pjm2	1.25	&print_pair("unknown", "packet.os.uptime", $uptime);
286	tdb	1.17
287	pjm2	1.18	}