X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/54e4131e091831e00a861fe2c4f53e344b87ddca..7ab5a4f6d5d38a7e24f314bccbccb8f9beb95843:/SL/Common.pm

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();