ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/projects/cms/source/host/ihost-perl/ihost.pl
(Generate patch)

Comparing projects/cms/source/host/ihost-perl/ihost.pl (file contents):
Revision 1.18 by pjm2, Tue Feb 27 19:26:51 2001 UTC vs.
Revision 1.19 by tdb, Wed Feb 28 10:52:16 2001 UTC

# Line 209 | Line 209 | sub send_udp_packet() {
209      }
210      $disk_info .= "</disk>";
211  
212 <    my($machine_name) = hostname();
213 <    my($ip) = inet_ntoa(scalar(gethostbyname($machine_name)) || 'localhost');
212 >    my($ip) = inet_ntoa(scalar(gethostbyname(hostname())) || 'localhost');
213  
214      # Build the XML packet this way, as we can clearly
215      # see the structure and contents... I like this ;-)
# Line 218 | Line 217 | sub send_udp_packet() {
217      # larger than 8196 bytes]
218      my($xml) = <<EOF;
219      
220 < <packet seq_no="$seq_no" machine_name="$machine_name" date="$date" type="data" ip="$ip">
220 > <packet seq_no="$seq_no" machine_name="$fqdn" date="$date" type="data" ip="$ip">
221      <load>
222          <load1>$packet{"packet.load.load1"}</load1>
223          <load5>$packet{"packet.load.load5"}</load5>
# Line 265 | Line 264 | EOF
264  
265      # Make the packet smaller by stripping out newlines and leading spaces.
266      $xml =~ s/\n\s*//g;
267 +
268 + print $xml;
269      
270      my($sock) = new IO::Socket::INET (
271                                        PeerPort => $udp_port,

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines