- my($conn, $state, $rs, $event) = @_;
- print $conn->option("host"), ": connected\n";
+ my($conn, $irspy, $rs, $event) = @_;
+
+ my $rec = $irspy->record($conn);
+ $irspy->log("irspy_test", $conn->option("host"), " connected");
+ ### Note the successful connection in $rec