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 de1735f..33a6e2a 100644 (file)
--- 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();