Fix pattern substitution in user_config plugin
This commit is contained in:
parent
de742dc95e
commit
4b7af20f49
@ -33,11 +33,12 @@ sub init {
|
||||
}
|
||||
|
||||
sub hook_user_config {
|
||||
my ($self,$txn,$user,$conf) = @_;
|
||||
my ($self,$txn,$addr,$conf) = @_;
|
||||
my $path = $self->{pattern} or return DECLINED;
|
||||
$path =~ s/%u/$user->user/g;
|
||||
$path =~ s/%h/$user->host/g;
|
||||
$path =~ s/%a/$user->address/g;
|
||||
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;
|
||||
|
Loading…
Reference in New Issue
Block a user