Select Code to Download

Select or download this

 sub tail_logs{

    my ($self)  = @_;
...
      }
}

Select or download this

 sub grep {
     my ($self,$logLines, @strings) = @_;

...

}

Select or download this

 my @checkStrings = ('100.81.2.59:4500', 'dst:172.25.150.190:4500'); 

   $self->{'log'} = $self->{'log_obj'}->tail_logs();
...
          'Found info in ipsecd.logs'
       );

Select or download this


[04-15 21:17:04.614251 (05026) D  ipsec_processor.: 496] processOutbou
+nd: IPsec EDP-UDP (NAT-T) packet to destination - src addr:100.81.2.5
+9:4500 dst:172.25.150.190:4500
...
[04-15 21:17:05.237628 (05026) D  ipsec_processor.: 496] processOutbou
+nd: IPsec EDP-UDP (NAT-T) packet to destination - src addr:100.81.2.5
+9:4500 dst:172.25.150.190:4500
[04-15 21:17:05.444636 (05026) D  ipsec_processor.: 496] processOutbou
+nd: IPsec EDP-UDP (NAT-T) packet to destination - src addr:100.81.2.5
+9:4500 dst:172.25.150.190:4500