projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
4172edc
)
Add commented-out logging.
author
Mike Taylor
<mike@indexdata.com>
Thu, 27 Jul 2006 15:51:05 +0000
(15:51 +0000)
committer
Mike Taylor
<mike@indexdata.com>
Thu, 27 Jul 2006 15:51:05 +0000
(15:51 +0000)
lib/ZOOM/IRSpy.pm
patch
|
blob
|
history
diff --git
a/lib/ZOOM/IRSpy.pm
b/lib/ZOOM/IRSpy.pm
index
b5bc04a
..
21b1a0f
100644
(file)
--- a/
lib/ZOOM/IRSpy.pm
+++ b/
lib/ZOOM/IRSpy.pm
@@
-1,4
+1,4
@@
-# $Id: IRSpy.pm,v 1.13 2006-07-25 16:50:49 mike Exp $
+# $Id: IRSpy.pm,v 1.14 2006-07-27 15:51:05 mike Exp $
package ZOOM::IRSpy;
package ZOOM::IRSpy;
@@
-148,9
+148,11
@@
sub initialise {
}
my $rs = $this->{conn}->search(new ZOOM::Query::CQL($this->{query}));
}
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");
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
$target2record{lc($target)} =
new ZOOM::IRSpy::Record($target, $zeerex);
push @{ $this->{targets} }, $target
@@
-161,6
+163,7
@@
sub initialise {
my $record = $target2record{$target};
if (!defined $record) {
$this->log("irspy_debug", "made new record for '$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'");
$target2record{$target} = new ZOOM::IRSpy::Record($target);
} else {
$this->log("irspy_debug", "using existing record for '$target'");