--- projects/cms/source/host/ihost-perl/ihost.pl	2001/02/05 17:14:41	1.13
+++ projects/cms/source/host/ihost-perl/ihost.pl	2001/02/05 17:20:07	1.14
@@ -10,7 +10,7 @@
 #  - pjm2@ukc.ac.uk
 #
 # $Author: pjm2 $
-# $Id: ihost.pl,v 1.13 2001/02/05 17:14:41 pjm2 Exp $
+# $Id: ihost.pl,v 1.14 2001/02/05 17:20:07 pjm2 Exp $
 #------------------------------------------------------------
 
 $| = 1;
@@ -200,8 +200,6 @@ sub send_udp_packet() {
         ++$i;
     }
     $disk_info .= "</disk>";
-
-    print "$disk_info\n";
 
     my($hostname) = hostname();
     $hostname =~ s/\..*$//g;