byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Silence some warnings when $p0f->{genre} is undefined

Browse Source
This commit is contained in:
Jonathan Hall 2014-12-31 18:20:30 +01:00
parent a308e53aa7
commit bea2c4c379
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
plugins/ident/p0f
View File

@ -216,14 +216,14 @@ sub rcpt_handler {
sub check_genre {
my ( $self, $rcpt ) = @_;
my $p0f = $self->connection->notes('p0f') or return 0;
my $genre = ( $self->connection->notes('p0f') || {} )->{genre} or return 0;
return 0 if $self->exclude_connection();
return 0 if $self->exclude_recipient($rcpt);
for my $phrase ( @{ $self->{os_block} || [] } ) {
return 1 if $p0f->{genre} eq $phrase;
return 1 if $genre eq $phrase;
}
for my $re ( @{ $self->{os_block_re} || [] } ) {
return 1 if $p0f->{genre} =~ $re;
return 1 if $genre =~ $re;
}
return 0;
}