+ isodate(time()) . "</irspy:search_title>");
+
+ return ZOOM::IRSpy::Status::TASK_DONE;
+}
+
+
+sub error {
+ my($conn, $task, $exception) = @_;
+
+ $conn->log("irspy_test", "error: $exception");
+ my $rec = $conn->record();
+ $rec->append_entry("irspy:status", "<irspy:search_title ok='0'>" .
+ isodate(time()) . "</irspy:search_title>");
+ return ZOOM::IRSpy::Status::TEST_BAD;