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 (parent:
9c8ffeb
)
Targets -> servers.
author
mike
<mike>
Tue, 11 Apr 2006 16:30:29 +0000
(16:30 +0000)
committer
mike
<mike>
Tue, 11 Apr 2006 16:30:29 +0000
(16:30 +0000)
samples/zoom/trivial-async.pl
patch
|
blob
|
history
diff --git
a/samples/zoom/trivial-async.pl
b/samples/zoom/trivial-async.pl
index
05f1185
..
9a165f4
100644
(file)
--- a/
samples/zoom/trivial-async.pl
+++ b/
samples/zoom/trivial-async.pl
@@
-1,8
+1,8
@@
use ZOOM;
use ZOOM;
-@targets = ('z3950.loc.gov:7090/Voyager',
+@servers = ('z3950.loc.gov:7090/Voyager',
'bagel.indexdata.com:210/gils');
'bagel.indexdata.com:210/gils');
-for ($i = 0; $i < @targets; $i++) {
- $z[$i] = new ZOOM::Connection($targets[$i], 0,
+for ($i = 0; $i < @servers; $i++) {
+ $z[$i] = new ZOOM::Connection($servers[$i], 0,
async => 1, # asynchronous mode
count => 1, # piggyback retrieval count
preferredRecordSyntax => "usmarc");
async => 1, # asynchronous mode
count => 1, # piggyback retrieval count
preferredRecordSyntax => "usmarc");