]> jspc29.x-matter.uni-frankfurt.de Git - daqtools.git/commitdiff
added check for slice number
authorJan Michel <j.michel@gsi.de>
Fri, 18 Oct 2013 12:13:20 +0000 (14:13 +0200)
committerJan Michel <j.michel@gsi.de>
Fri, 18 Oct 2013 12:13:20 +0000 (14:13 +0200)
xml-db/get.pl

index 4f7b5129f7b9f142fa11341b4c772ba426fb6697..c80d13fa8f85444b12d7f2df7cf3c67c81c6dd7b 100755 (executable)
@@ -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;