From: Jan Michel Date: Fri, 18 Oct 2013 12:13:20 +0000 (+0200) Subject: added check for slice number X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=3821b71ed4267be8eda84ab633a4a26eef362321;p=daqtools.git added check for slice number --- diff --git a/xml-db/get.pl b/xml-db/get.pl index 4f7b512..c80d13f 100755 --- a/xml-db/get.pl +++ b/xml-db/get.pl @@ -197,6 +197,10 @@ sub requestdata { my ($obj,$name,$slice) = @_; my $o; print DumpTree($obj) if $verbose; + if ($slice >= $obj->{repeat}) { + print "Slice number out of range.\n"; + return -1; + } if($obj->{type} eq "group") { if(defined $obj->{continuous} && $obj->{continuous} eq "true") { @@ -327,7 +331,10 @@ sub runandprint { do { - + if ($slice >= $obj->{repeat}) { + print "Slice number out of range.\n"; + return -1; + } $o = trb_register_read($netaddr,$obj->{address}+$slice*$stepsize); next unless defined $o;