#!perl use strict; use warnings; =head1 NAME user_config - basic plugin for storing per-user configuration directives =head1 SYNOPSIS # in config/plugins user_config [B] =over 4 =item B Pattern to use when searching for user config directory Substitute %u for username, %h for host, or %a for full addressn. Default: I =head1 DESCRIPTION This plugin implements very basic support for storing user configuration in separate directories similar to the global qpsmtpd config directory. =cut sub init { my ( $self, $qp, $pattern ) = @_; $self->{pattern} = $pattern || '/home/%u/.qpsmtpd'; } sub hook_user_config { my ($self,$txn,$addr,$conf) = @_; my $path = $self->{pattern} or return DECLINED; my ( $user, $host, $address ) = ( $addr->user, $addr->host, $addr->address ); $path =~ s/%u/$user/g; $path =~ s/%h/$host/g; $path =~ s/%a/$address/g; my $filename = "$path/$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; }