From: Andreas Neiser <neiser@kph.uni-mainz.de>
Date: Tue, 20 May 2014 15:14:24 +0000 (+0200)
Subject: Improve db checking, minor code reformatting
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=422aa6124f88c8ec1eddfff03100a38677b7fac8;p=daqtools.git

Improve db checking, minor code reformatting
---

diff --git a/xml-db/get.pl b/xml-db/get.pl
index 841f899..dfba00a 100755
--- a/xml-db/get.pl
+++ b/xml-db/get.pl
@@ -116,6 +116,9 @@ foreach my $req (@request) {
 
   $db = lock_retrieve($file);
   die "Unable to read cache file\n" unless defined $db;
+  die "Your cached database is outdated. Update by running xml-db.pl"
+    unless exists $db->{'§EntityType'};
+
   
   if($rates || $cache) {
     if(-e $storefile) {
@@ -314,7 +317,8 @@ sub requestdata {
         }
       }
     }
-  elsif(($obj->{type} eq "register" || $obj->{type} eq "registerfield" || $obj->{type} eq "field")  && $obj->{mode} =~ /r/) {
+  elsif(($obj->{type} eq "register" || $obj->{type} eq "registerfield"
+         || $obj->{type} eq "field")  && $obj->{mode} =~ /r/) {
     my $stepsize = $obj->{stepsize} || 1;
     $slice = 0 unless defined $slice;
     do {