-# $Id: Bib1.pm,v 1.2 2006-09-26 13:34:38 sondberg Exp $
+# $Id: Bib1.pm,v 1.4 2006-10-02 13:02:10 sondberg Exp $
# See the "Main" test package for documentation
use Data::Dumper;
use ZOOM::IRSpy::Test;
-our @ISA = @ISA = qw(ZOOM::IRSpy::Test);
+our @ISA = qw(ZOOM::IRSpy::Test);
our @Bib1_Attr = qw(1 2 3 4 5 6 7 8 9);
my $pod = $irspy->pod();
$pod->callback(ZOOM::Event::RECV_SEARCH, \&found);
+ $pod->callback("exception", \&error_handler);
+ $pod->callback(ZOOM::Event::ZEND, \&continue);
foreach my $attr (@Bib1_Attr) {
$pod->search_pqf('@attr 1=' . $attr . ' water' );
sub found {
my($conn, $irspy, $rs, $event) = @_;
- my $attr = $irspy->{'handle'}->{'attr'};
+ my $href = $irspy->{'handle'};
+ my $attr = $href->{'attr'};
my $n = $rs->size();
my $rec = $irspy->record($conn);
}
+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;
+}
+
1;