- my $task = new ZOOM::IRSpy::Task::Connect($this, $udata, $options, %cb);
- $this->add_task($task);
+ $this->add_task(new ZOOM::IRSpy::Task::Connect
+ ($this, $udata, $options, %cb));
+}
+
+
+sub irspy_search {
+ my $this = shift();
+ my($qtype, $qstr, $udata, $options, %cb) = @_;
+
+ #warn "calling $this->irspy_search(", join(", ", @_), ")\n";
+ $this->add_task(new ZOOM::IRSpy::Task::Search
+ ($qtype, $qstr, $this, $udata, $options, %cb));