From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 11 Jan 2007 15:31:59 +0000 (+0000)
Subject: Funktion für zufällige temporäre Dateinamen (ohne gleich eine Datei zu öffnen).
X-Git-Tag: release-2.4.1~1^2~54
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=b61db412d0d913a4fcecbce6678710ad0eb76cf6;p=kivitendo-erp.git

Funktion für zufällige temporäre Dateinamen (ohne gleich eine Datei zu öffnen).
---

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