X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy%2FTask%2FRetrieve.pm;h=15877bc381a912b529ca9aed904f4875486054d5;hp=05833865077a792e6a3c5ea63983bc0039d61389;hb=688be0c8070035d12dec697137977da341bd132f;hpb=d5ab5f3538820eaa378e744a74a1a84a7979f6b1 diff --git a/lib/ZOOM/IRSpy/Task/Retrieve.pm b/lib/ZOOM/IRSpy/Task/Retrieve.pm index 0583386..15877bc 100644 --- a/lib/ZOOM/IRSpy/Task/Retrieve.pm +++ b/lib/ZOOM/IRSpy/Task/Retrieve.pm @@ -1,4 +1,3 @@ -# $Id: Retrieve.pm,v 1.1 2006-10-25 15:45:29 mike Exp $ package ZOOM::IRSpy::Task::Retrieve; @@ -31,6 +30,9 @@ sub new { my $this = $class->SUPER::new(@_); $this->{rs} = $rs; $this->{index0} = $index0; + # Save initial record-syntax for render()'s benefit + $this->{syntax} = $this->{options}->{preferredRecordSyntax}; + return $this; } @@ -40,18 +42,25 @@ sub run { $this->set_options(); my $conn = $this->conn(); + $conn->connect($conn->option("host")); + my $rs = $this->{rs}; my $index0 = $this->{index0}; $this->irspy()->log("irspy_task", $conn->option("host"), - " retrieving record $index0 from $rs"); + " retrieving record $index0 from $rs, rs='", + $rs->option("preferredRecordSyntax"), "'"); $rs->records($index0, 1, 0); # requests record + warn "no ZOOM-C level events queued by $this" + if $conn->is_idle(); $this->set_options(); } sub render { my $this = shift(); - return ref($this) . "(" . $this->{rs}. ", " . $this->{index0} . ")"; + my $syntax = $this->{syntax}; + $syntax = defined $syntax ? "'$syntax'" : "undef"; + return ref($this) . "(" . $this->{index0} . ", $syntax)"; } use overload '""' => \&render;