From abd9669f93e8e1086f10197582324c25f3d36f55 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 2 May 2012 19:57:49 +0000
Subject: [PATCH] Have Table.pm force flush of more than 5 seconds old, in
 preparation for more aggresive cache retention

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@12481 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/Table.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/perl-xCAT/xCAT/Table.pm b/perl-xCAT/xCAT/Table.pm
index 9138d0367..f6091c3d9 100644
--- a/perl-xCAT/xCAT/Table.pm
+++ b/perl-xCAT/xCAT/Table.pm
@@ -3022,6 +3022,9 @@ sub getAllAttribs
     my @attribs = @_;
     my @results = ();
     if ($self->{_use_cache}) {
+        if ($self->{_cachestamp} < (time()-5)) { #NEVER use a cache older than 5 seconds
+		$self->_refresh_cache();
+	}
         my @results;
         my $cacheline;
         CACHELINE: foreach $cacheline (@{$self->{_tablecache}}) {
@@ -3248,6 +3251,9 @@ sub getAttribs
     }
     my @return;
     if ($self->{_use_cache}) {
+        if ($self->{_cachestamp} < (time()-5)) { #NEVER use a cache older than 5 seconds
+		$self->_refresh_cache();
+	}
         my @results;
         my $cacheline;
         if (scalar(keys %keypairs) == 1 and $keypairs{node}) { #99.9% of queries look like this, optimized case