From b29f487614176d014bed77d3d39ce60a4346d7ed Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 5 Jun 2011 11:23:03 +0000
Subject: [PATCH] Value()/OldValue() added

git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@910 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem.pl | 32 +++++++++++++++++++++++++++++++-
 1 file changed, 31 insertions(+), 1 deletion(-)

diff --git a/fhem.pl b/fhem.pl
index 31dafd630..b50e80bf1 100755
--- a/fhem.pl
+++ b/fhem.pl
@@ -167,7 +167,7 @@ my $nextat;                     # Time when next timer will be triggered.
 my $intAtCnt=0;
 my %duplicate;                  # Pool of received msg for multi-fhz/cul setups
 my $duplidx=0;                  # helper for the above pool
-my $cvsid = '$Id: fhem.pl,v 1.141 2011-06-05 11:10:34 rudolfkoenig Exp $';
+my $cvsid = '$Id: fhem.pl,v 1.142 2011-06-05 11:23:03 rudolfkoenig Exp $';
 my $namedef =
   "where <name> is either:\n" .
   "- a single device name\n" .
@@ -2446,6 +2446,36 @@ ReadingsVal($$$)
   return $default;
 }
 
+sub
+Value($)
+{
+  my ($d) = @_;
+  if(defined($defs{$d}) &&
+     defined($defs{$d}{STATE})) {
+     return $defs{$d}{STATE};
+  }
+  return "";
+}
+
+sub
+OldValue($)
+{
+  my ($d) = @_;
+  return $oldvalue{$d}{VAL} if(defined($oldvalue{$d})) ;
+  return "";
+}
+
+sub
+OldTimestamp($)
+{
+  my ($d) = @_;
+  return $oldvalue{$d}{TIME} if(defined($oldvalue{$d})) ;
+  return "";
+}
+
+
+
+
 sub
 AttrVal($$$)
 {