X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy%2FTask%2FConnect.pm;h=117f06203953a183c366ff76734e2b372641036c;hp=e850681af10ee9510d3a377f916c9148164fcf36;hb=e61887a109576fa0e066547c0ce033631a290f8f;hpb=2f0b70c623d22254ecba491f8888b9001e12e017 diff --git a/lib/ZOOM/IRSpy/Task/Connect.pm b/lib/ZOOM/IRSpy/Task/Connect.pm index e850681..117f062 100644 --- a/lib/ZOOM/IRSpy/Task/Connect.pm +++ b/lib/ZOOM/IRSpy/Task/Connect.pm @@ -1,4 +1,3 @@ -# $Id: Connect.pm,v 1.2 2006-10-11 16:47:44 mike Exp $ # See ZOOM/IRSpy/Task/Search.pm for documentation @@ -20,9 +19,15 @@ sub new { sub run { my $this = shift(); + $this->set_options(); + my $conn = $this->conn(); - $conn->log("irspy_test", "connecting"); + $conn->log("irspy_task", "connecting"); $conn->connect($conn->option("host")); + warn "no ZOOM-C level events queued by $this" + if $conn->is_idle(); + + $this->set_options(); } sub render {