| # | 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 289 | Line 292 | sub send_udp_packet() { | |
| 292 | print $sock $xml or die "Could not send UDP packet: $!\n"; | |
| 293 | close($sock); | |
| 294 | $seq_no++; | |
| 295 | < | print "-: $xml\n"; |
| 295 | > | print "-"; |
| 296 | ||
| 297 | return; | |
| 298 | } | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |