|
sub init {
print STDERR "Inside " .__PACKAGE__. "::init() \n" ;
}
sub xwarn {
warn "SM : " . scalar localtime () . " : " , @_ , "\n" ;
}
sub handler {
my $class = shift ;
my ( $pkt , $chain , $instance ) = @_ ;
xwarn "Inside " .__PACKAGE__. "::handler()" ;
xwarn "Packet is: " . $pkt ->nad()-> print (1);
xwarn "chain is: $chain instance is: $instance" ;
my $to = $pkt ->to();
my $from = $pkt ->from();
my $type = $pkt ->type();
xwarn "The to address is: " . $to ;
xwarn "The from address is: " . $from ;
xwarn "The type is: " . $type ;
return PASS;
}
1;
|