mirror of
https://github.com/imapsync/imapsync.git
synced 2025-06-05 20:27:20 +02:00
14 lines
219 B
Perl
Executable file
14 lines
219 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use File::Spec;
|
|
|
|
|
|
my $tmpdir = File::Spec->tmpdir();
|
|
print "$tmpdir\n";
|
|
|
|
|
|
my $cachedir = File::Spec->catdir($tmpdir, 'host1', 'user1', 'host2', 'user2');
|
|
print "$cachedir\n";
|