--- projects/cms/source/host/ihost-perl/ihost.pl	2001/11/19 15:07:56	1.38
+++ projects/cms/source/host/ihost-perl/ihost.pl	2001/11/19 17:43:00	1.39
@@ -8,7 +8,7 @@
 # a typical Unix/Linux box.
 #
 # $Author: tdb $
-# $Id: ihost.pl,v 1.38 2001/11/19 15:07:56 tdb Exp $
+# $Id: ihost.pl,v 1.39 2001/11/19 17:43:00 tdb Exp $
 #------------------------------------------------------------
 
 $| = 1;
@@ -276,6 +276,9 @@ sub send_udp_packet() {
     push(@data, "packet.attributes.date=$date");
     push(@data, "packet.attributes.type=data");
     push(@data, "packet.attributes.ip=$ip");
+    
+    # sort the data
+    @data = sort(@data);
     
     # turn the array into some nice XML
     my($xml) = &make_xml("", "");