From 3821b71ed4267be8eda84ab633a4a26eef362321 Mon Sep 17 00:00:00 2001
From: Jan Michel <j.michel@gsi.de>
Date: Fri, 18 Oct 2013 14:13:20 +0200
Subject: [PATCH] added check for slice number

---
 xml-db/get.pl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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;
       
-- 
2.43.0