qpsmtpd/plugins/user_config

#!perl
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;
}