Revision b61db412
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| SL/Common.pm | ||
|---|---|---|
| 8 | 8 |
|
| 9 | 9 |
package Common; |
| 10 | 10 |
|
| 11 |
use Time::HiRes qw(gettimeofday); |
|
| 12 |
|
|
| 13 |
sub unique_id {
|
|
| 14 |
my ($a, $b) = gettimeofday(); |
|
| 15 |
return "${a}-${b}-${$}";
|
|
| 16 |
} |
|
| 17 |
|
|
| 18 |
sub tmpname {
|
|
| 19 |
return "/tmp/lx-office-tmp-" . unique_id(); |
|
| 20 |
} |
|
| 21 |
|
|
| 11 | 22 |
sub retrieve_parts {
|
| 12 | 23 |
$main::lxdebug->enter_sub(); |
| 13 | 24 |
|
Auch abrufbar als: Unified diff
Funktion für zufällige temporäre Dateinamen (ohne gleich eine Datei zu öffnen).