From: Jan Michel <j.michel@gsi.de>
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;