+sub continue {
+ my ($conn, $irspy, $rs, $event) = @_;
+
+ print "ZEND\n";
+}
+
+
+
+sub error_handler { maybe_connected(@_, 0) }
+
+sub maybe_connected {
+ my($conn, $irspy, $rs, $event, $ok) = @_;
+
+ $irspy->log("irspy_test", $conn->option("host"),
+ ($ok ? "" : " not"), " connected");
+ my $rec = $irspy->record($conn);
+ $rec->append_entry("irspy:status", "<irspy:probe ok='$ok'>" .
+ $irspy->isodate(time()) . "</irspy:probe>");
+ $conn->option(pod_omit => 1) if !$ok;
+ return 0;
+}
+