added check for slice number

diff --git a/xml-db/get.pl b/xml-db/get.pl
index 4f7b5129f7b9f142fa11341b4c772ba426fb6697..c80d13fa8f85444b12d7f2df7cf3c67c81c6dd7b 100755 (executable)
--- 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;