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.38 by tdb, Mon Nov 19 15:07:56 2001 UTC vs.
Revision 1.40 by tdb, Mon Nov 19 22:31:18 2001 UTC

# Line 277 | Line 277 | sub send_udp_packet() {
277      push(@data, "packet.attributes.type=data");
278      push(@data, "packet.attributes.ip=$ip");
279      
280 +    # sort the data
281 +    @data = sort(@data);
282 +    
283      # turn the array into some nice XML
284      my($xml) = &make_xml("", "");
285      
# Line 399 | Line 402 | sub write_pid() {
402   sub make_xml() {
403      my($curlevel, $curline) = @_;
404      my($xmltemp) = ""; my($curtag) = ""; my($attributes) = "";
405 <    while(true) {
405 >    while(1) {
406          $curline = shift(@data) if $curline eq ""; chomp $curline;
407          if($curline =~ /^$curlevel([^\.\s]+\.)/) {
408              $curtag=$1;
# Line 415 | Line 418 | sub make_xml() {
418          }
419          my($nextline) = $data[0]; chomp $nextline if defined $nextline;
420          $curtag =~ s/(.*)\./$1/;                
421 <        if(defined $nextline && $nextline =~ /^$curlevel$curtag\./) {
421 >        if((defined $nextline) && ($nextline =~ /^$curlevel$curtag\./)) {
422              $curline = "";
423          }
424          else {

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines