3 # $Id: test-pod.pl,v 1.2 2006-05-09 12:09:44 mike Exp $
6 # ZOOM_RECORD_NO_FORCE_SYNC=1 perl -I lib test-pod.pl
7 # (at least until the default sync. behaviour of ZOOM-C changes.)
14 my $pod = new ZOOM::Pod("bagel.indexdata.com/gils",
15 "z3950.loc.gov:7090/Voyager",
18 $pod->callback(ZOOM::Event::RECV_SEARCH, \&completed_search);
19 $pod->callback(ZOOM::Event::RECV_RECORD, \&got_record);
20 $pod->search_pqf("mineral");
21 my $err = $pod->wait();
22 print "failed with error $err" if $err;
24 sub completed_search {
25 my($conn, $rs, $event) = @_;
26 print $conn->option("host"), ": found ", $rs->size(), " records\n";
27 my $rec = $rs->record(0);
28 print($conn->option("host"), ": rec(0) is ",
29 defined $rec ? ("$rec = '", $rec->render(), "'") : "undefined",
35 my($conn, $rs, $event) = @_;
36 my $rec = $rs->record(0);
37 print $conn->option("host"), ": got 0: $rec = '", $rec->render(), "'\n";