--- projects/cms/source/host/ihost-perl/ihost.pl	2001/01/29 16:51:50	1.9
+++ projects/cms/source/host/ihost-perl/ihost.pl	2001/02/01 03:17:32	1.10
@@ -8,8 +8,8 @@
 # methods as you see fit.
 #  - pjm2@ukc.ac.uk
 #
-# $Author: pjm2 $
-# $Id: ihost.pl,v 1.9 2001/01/29 16:51:50 pjm2 Exp $
+# $Author: tdb $
+# $Id: ihost.pl,v 1.10 2001/02/01 03:17:32 tdb Exp $
 #------------------------------------------------------------
 
 $| = 1;
@@ -201,6 +201,7 @@ sub send_udp_packet() {
         <platform>$packet{"packet.os.platform"}</platform>
         <sysname>$packet{"packet.os.sysname"}</sysname>
         <version>$packet{"packet.os.version"}</version>
+        <uptime>$packet{"packet.os.uptime"}</uptime>
     </os>
     <users>
         <count>$packet{"packet.users.count"}</count>