15 lines
231 B
Perl
15 lines
231 B
Perl
|
package Qpsmtpd::Utils;
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
sub tildeexp {
|
||
|
|
my $path = shift;
|
||
|
|
$path =~ s{^~([^/]*)} {
|
||
|
|
$1
|
||
|
|
? (getpwnam($1))[7]
|
||
|
|
: ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7])
|
||
|
|
}ex;
|
||
|
|
return $path;
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|