From ded6eaf871e53dab57384e6c6b2ca8ec3512db1b Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Mon, 12 Jan 2015 17:15:46 +0000
Subject: [PATCH] fhem.pl: add createUniqueId for betateilchen (Forum #31932)

git-svn-id: https://svn.fhem.de/fhem/trunk@7537 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 481ffebdf..6b9204fea 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -100,6 +100,7 @@ sub computeClientArray($$);
 sub concatc($$$);
 sub configDBUsed();
 sub createNtfyHash();
+sub createUniqueId();
 sub devspec2array($);
 sub doGlobalDef($);
 sub escapeLogLine($);
@@ -111,6 +112,7 @@ sub fhemTzOffset($);
 sub getAllAttr($);
 sub getAllGets($);
 sub getAllSets($);
+sub getUniqueId();
 sub latin1ToUtf8($);
 sub myrename($$);
 sub notifyRegexpChanged($$);
@@ -4009,12 +4011,22 @@ getUniqueId()
 {
   my ($err, $uniqueID) = getKeyValue("uniqueID");
   return $uniqueID if(defined($uniqueID));
-  srand(time);
-  $uniqueID = join "",map { unpack "H*", chr(rand(256)) } 1..16;
+ my ($uniqueID) = createUniqueId();
   setKeyValue("uniqueID", $uniqueID);
   return $uniqueID;
 }
 
+my $srandUsed;
+sub
+createUniqueId()
+{
+  my $uniqueID;
+  srand(time) if(!$srandUsed);
+  $srandUsed = 1;
+  $uniqueID = join "",map { unpack "H*", chr(rand(256)) } 1..16;
+  return $uniqueID;
+}
+
 sub
 getKeyValue($)
 {