X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FCommon.pm;h=33a6e2a6af291409fcadfca84b327c69f47c26b9;hb=a7820e648c271e85f408353c1be009ad16a5b70c;hp=de1735ffed018cd49175014d5aa1132ba6faf6a3;hpb=54e4131e091831e00a861fe2c4f53e344b87ddca;p=kivitendo-erp.git

diff --git a/SL/Common.pm b/SL/Common.pm
index de1735ffe..33a6e2a6a 100644
--- a/SL/Common.pm
+++ b/SL/Common.pm
@@ -8,6 +8,17 @@
 
 package Common;
 
+use Time::HiRes qw(gettimeofday);
+
+sub unique_id {
+  my ($a, $b) = gettimeofday();
+  return "${a}-${b}-${$}";
+}
+
+sub tmpname {
+  return "/tmp/lx-office-tmp-" . unique_id();
+}
+
 sub retrieve_parts {
   $main::lxdebug->enter_sub();