projects
/
irspy-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:
9f82edc
)
add option for maximum number of nested template calls and variables/params
author
Wolfram Schneider
<wosch@indexdata.dk>
Thu, 8 Apr 2010 12:09:41 +0000
(12:09 +0000)
committer
Wolfram Schneider
<wosch@indexdata.dk>
Thu, 8 Apr 2010 12:09:41 +0000
(12:09 +0000)
bin/irspy.pl
patch
|
blob
|
history
diff --git
a/bin/irspy.pl
b/bin/irspy.pl
index
d72b9d7
..
4e24088
100755
(executable)
--- a/
bin/irspy.pl
+++ b/
bin/irspy.pl
@@
-32,7
+32,7
@@
$SIG{__DIE__} = sub {
};
my %opts;
};
my %opts;
-if (!getopts('wt:af:n:m:', \%opts) || @ARGV < 1) {
+if (!getopts('wt:af:n:m:M:', \%opts) || @ARGV < 1) {
print STDERR "\
Usage $0: [options] <IRSpy-database> [<target> ...]
-w Use ZOOM::IRSpy::Web subclass
print STDERR "\
Usage $0: [options] <IRSpy-database> [<target> ...]
-w Use ZOOM::IRSpy::Web subclass
@@
-41,6
+41,7
@@
Usage $0: [options] <IRSpy-database> [<target> ...]
-f <query> Test targets found by the specified query
-n <number> Number of connection to keep in active set
-m <n>,<i> Only test targets whose hash mod <n> is <i>
-f <query> Test targets found by the specified query
-n <number> Number of connection to keep in active set
-m <n>,<i> Only test targets whose hash mod <n> is <i>
+ -M max_depth maximum number of nested template calls and variables/params
";
exit 1;
}
";
exit 1;
}
@@
-49,6
+50,11
@@
my($dbname, @targets) = @ARGV;
my $class = "ZOOM::IRSpy";
$class .= "::Web" if $opts{w};
my $class = "ZOOM::IRSpy";
$class .= "::Web" if $opts{w};
+if ($opts{M} && $opts{M} > 0) {
+ no warnings;
+ $class::xslt_max_depth = $opts{M}
+}
+
my $spy = $class->new($dbname, "admin", "fruitbat", $opts{n});
if (@targets) {
$spy->targets(@targets);
my $spy = $class->new($dbname, "admin", "fruitbat", $opts{n});
if (@targets) {
$spy->targets(@targets);