-# $Id: Connect.pm,v 1.2 2006-10-11 16:47:44 mike Exp $
+# $Id: Connect.pm,v 1.6 2006-11-02 16:11:44 mike Exp $
# See ZOOM/IRSpy/Task/Search.pm for documentation
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 {