projects
/
ZOOM-Perl-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
1a91061
)
Nice shorter version!
author
mike
<mike>
Tue, 11 Apr 2006 16:29:50 +0000
(16:29 +0000)
committer
mike
<mike>
Tue, 11 Apr 2006 16:29:50 +0000
(16:29 +0000)
samples/zoom/trivial-async.pl
patch
|
blob
|
history
diff --git
a/samples/zoom/trivial-async.pl
b/samples/zoom/trivial-async.pl
index
6dcb41e
..
05f1185
100644
(file)
--- a/
samples/zoom/trivial-async.pl
+++ b/
samples/zoom/trivial-async.pl
@@
-1,13
+1,11
@@
use ZOOM;
@targets = ('z3950.loc.gov:7090/Voyager',
'bagel.indexdata.com:210/gils');
use ZOOM;
@targets = ('z3950.loc.gov:7090/Voyager',
'bagel.indexdata.com:210/gils');
-$o = new ZOOM::Options();
-$o->option(async => 1); # asynchronous mode
-$o->option(count => 1); # piggyback retrieval count
-$o->option(preferredRecordSyntax => "usmarc");
for ($i = 0; $i < @targets; $i++) {
for ($i = 0; $i < @targets; $i++) {
- $z[$i] = create ZOOM::Connection($o);
- $z[$i]->connect($targets[$i]);
+ $z[$i] = new ZOOM::Connection($targets[$i], 0,
+ async => 1, # asynchronous mode
+ count => 1, # piggyback retrieval count
+ preferredRecordSyntax => "usmarc");
$r[$i] = $z[$i]->search_pqf("mineral");
}
while (($i = ZOOM::event(\@z)) != 0) {
$r[$i] = $z[$i]->search_pqf("mineral");
}
while (($i = ZOOM::event(\@z)) != 0) {