| 85 |
|
if($err) { |
| 86 |
|
print "SKIPPED (bad xml): $response"; |
| 87 |
|
} |
| 88 |
< |
#foreach my $key (keys %xmlhash) { |
| 89 |
< |
# print "$key == $xmlhash{$key}\n"; |
| 90 |
< |
#} |
| 88 |
> |
## -- mental note, think about ordering checks for optimal speed ;) |
| 89 |
> |
# take a look to see if we have a shutdown packet... |
| 90 |
> |
if(defined($xmlhash{"packet.attributes.shutdown"}) && $xmlhash{"packet.attributes.shutdown"} eq "true") { |
| 91 |
> |
my($hash) = $xmlhash{"packet.attributes.hashCode"}; |
| 92 |
> |
my($cmd) = "rm -f $hash\_*.rrd $hash*.png $hash.def"; |
| 93 |
> |
print `$cmd`; |
| 94 |
> |
print "$cmd\n"; |
| 95 |
> |
next; |
| 96 |
> |
} |
| 97 |
|
if($xmlhash{"packet.attributes.type"} eq "queueStat") { |
| 98 |
|
my($hash) = $xmlhash{"packet.attributes.hashCode"}; |
| 99 |
|
my($date) = $xmlhash{"packet.attributes.date"}; |
