projects
/
irspy-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use new API for targets().
[irspy-moved-to-github.git]
/
web
/
htdocs
/
details
/
all.mc
diff --git
a/web/htdocs/details/all.mc
b/web/htdocs/details/all.mc
index
3a42f7c
..
c4a0f42
100644
(file)
--- a/
web/htdocs/details/all.mc
+++ b/
web/htdocs/details/all.mc
@@
-1,11
+1,10
@@
-%# $Id: all.mc,v 1.2 2006-09-19 16:30:07 mike Exp $
+%# $Id: all.mc,v 1.4 2006-09-22 15:39:14 mike Exp $
<%perl>
print "IRSpy version $ZOOM::IRSpy::VERSION<br/>\n";
<%perl>
print "IRSpy version $ZOOM::IRSpy::VERSION<br/>\n";
-my $spy = new ZOOM::IRSpy("localhost:1313/IR-Explain---1");
+my $spy = new ZOOM::IRSpy("localhost:3313/IR-Explain---1");
if (1) {
# Testing all targets would take much too long for testing
if (1) {
# Testing all targets would take much too long for testing
- my @targets = qw(bagel.indexdata.dk/gils z3950.loc.gov:7090/Voyager);
- $spy->targets(join(" ", @targets));
+ $spy->targets(qw(bagel.indexdata.dk/gils z3950.loc.gov:7090/Voyager));
}
$spy->initialise();
my $res = $spy->check();
}
$spy->initialise();
my $res = $spy->check();