From a3690c71e952542eb7a24dee232324759a20aee5 Mon Sep 17 00:00:00 2001
From: Jan Michel <j.michel@gsi.de>
Date: Thu, 19 Dec 2013 11:22:12 +0100
Subject: [PATCH] added caching function

---
 xml-db/get.pl | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/xml-db/get.pl b/xml-db/get.pl
index 10e6e3d..8d99242 100755
--- a/xml-db/get.pl
+++ b/xml-db/get.pl
@@ -108,7 +108,7 @@ foreach my $req (@request) {
   $db = lock_retrieve($file);
   die "Unable to read cache file\n" unless defined $db;
   
-  if($rates) {
+  if($rates || $cache) {
     if(-e $storefile) {
       $olddata = lock_retrieve($storefile);
       }
@@ -122,10 +122,16 @@ foreach my $req (@request) {
   $once = (defined $slice)?1:0;
   if ($isbrowser) {
     $data->{time0}=time();
-    requestdata($db->{$name},$name,$slice);
-    generateoutput($db->{$name},$name,$slice,$once);
-    if($rates) {
+    if($rates || !$cache || !(defined $olddata->{time0}) || $olddata->{time0}<time()-0.9) {
+      requestdata($db->{$name},$name,$slice);
       $data->{time1}=time();
+      }
+    else {
+      $data = $olddata;
+      }
+    generateoutput($db->{$name},$name,$slice,$once);
+    if($rates || $cache) {
+      $data->{time2}=time();
       lock_store($data,$storefile);
       }
     }
-- 
2.43.0