3379248c45
Add a plugin to read qpsmptd-style configuration files from users' home directories. Little to no testing yet.
18 lines
457 B
Perl
18 lines
457 B
Perl
#!/perl (Editor hint)
|
|
use strict;
|
|
use warnings;
|
|
|
|
sub hook_user_config {
|
|
my ($self,$txn,$user,$conf) = @_;
|
|
my $username = $user->host or return DECLINED;
|
|
my $filename = "/home/$username/.qpsmtpd/$conf";
|
|
return DECLINED unless -f $filename;
|
|
my $fh;
|
|
unless (open $fh,$filename) {
|
|
$self->log(LOGNOTICE,"Couldn't open $filename:$!");
|
|
return DECLINED;
|
|
}
|
|
map {chomp} (my @return = (<$fh>));
|
|
return OK,@return;
|
|
}
|