mirror of
https://github.com/imapsync/imapsync.git
synced 2024-11-17 00:02:29 +01:00
15 lines
219 B
Perl
Executable File
15 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";
|