-# $Id: IRSpy.pm,v 1.12 2006-07-25 15:18:03 mike Exp $
+# $Id: IRSpy.pm,v 1.15 2006-09-18 16:30:25 mike Exp $
package ZOOM::IRSpy;
$this->log("irspy", "setting explicit list of targets '$targetList'");
$this->{allrecords} = 0;
- my @targets = split /\s+/, $targetList;
+ my @targets = grep { $_ ne "" } split /\s+/, $targetList;
my @qlist;
foreach my $target (@targets) {
my($host, $port, $db, $newtarget) = _parse_target_string($target);
}
my $rs = $this->{conn}->search(new ZOOM::Query::CQL($this->{query}));
+ #print "size='", $rs->size(), "'\n";
foreach my $i (1 .. $rs->size()) {
my $target = _render_record($rs, $i-1, "id");
my $zeerex = _render_record($rs, $i-1, "zeerex");
+ #print STDERR "making '$target' record with '$zeerex'\n";
$target2record{lc($target)} =
new ZOOM::IRSpy::Record($target, $zeerex);
push @{ $this->{targets} }, $target
my $record = $target2record{$target};
if (!defined $record) {
$this->log("irspy_debug", "made new record for '$target'");
+ #print STDERR "making '$target' record without zeerex\n";
$target2record{$target} = new ZOOM::IRSpy::Record($target);
} else {
$this->log("irspy_debug", "using existing record for '$target'");
my $res = $this->_run_test("Main");
foreach my $target (sort keys %{ $this->{target2record} }) {
my $rec = $this->{target2record}->{$target};
+ # It's a shame that LibXML can't pretty-print this
print STDERR "$target: zeerex='", $rec->{zeerex}, "' = \n",
$rec->{zeerex}->toString(), "\n";
### Write record back to database, if modified.