File tree Expand file tree Collapse file tree 2 files changed +8
-6
lines changed Expand file tree Collapse file tree 2 files changed +8
-6
lines changed Original file line number Diff line number Diff line change @@ -50,7 +50,7 @@ my @filter_fields
50
50
= qw< version timestamp subsystem phase session opaque-token suffix > ;
51
51
my %filter_events = (
52
52
' smtp-in' => {
53
- ' connect' => [qw< rdns fcrdns src dest > ],
53
+ ' connect' => [qw< rdns src > ],
54
54
' helo' => [qw< identity > ],
55
55
' ehlo' => [qw< identity > ],
56
56
' starttls' => [qw< tls-string > ],
@@ -889,12 +889,8 @@ fields.
889
889
890
890
=item rdns
891
891
892
- =item fcrdns
893
-
894
892
=item src
895
893
896
- =item dest
897
-
898
894
=back
899
895
900
896
=item helo
Original file line number Diff line number Diff line change @@ -28,7 +28,13 @@ is CLASS->new(
28
28
on => {
29
29
filter => {
30
30
' smtp-in' => {
31
- connect => sub {' proceed' }
31
+ connect => sub {
32
+ my ( $event , $session ) = @_ ;
33
+ my $e = $session -> {events }-> [0];
34
+ is $e -> {rdns }, ' localhost' , " Parsed expected rdns" ;
35
+ is $e -> {src }, ' [::1]' , " Parsed expected src" ;
36
+ return " proceed" ;
37
+ },
32
38
}
33
39
}
34
40
})-> _handle_filter(' 0.6|123|smtp-in|connect|abc|def|localhost|[::1]' ), {
You can’t perform that action at this time.
0 commit comments