00c53652c9
Replace pithy comment with something more neutral. Thanks Gordon Rowell <gordonr@gormand.com.au> r548@jpeacock: jpeacock | 2005-07-02 07:24:21 -0400 Example patterns for badrcptto plugin - Gordon Rowell <gordonr@gormand.com.au> r586@jpeacock: jpeacock | 2005-07-09 06:54:47 -0400 Don't use varlog() directly unless you are passing all parameters. Don't try to log() anything during loading of logging plugins. r587@jpeacock: jpeacock | 2005-07-09 06:59:57 -0400 Cannot use new-style hooking with logging plugins (yet). git-svn-id: https://svn.perl.org/qpsmtpd/trunk@490 958fd67b-6ff1-0310-b445-bb7760255be9
14 lines
186 B
Perl
14 lines
186 B
Perl
#!/usr/bin/perl
|
|
# this is a simple 'drop packets on the floor' plugin
|
|
|
|
sub register {
|
|
my $self = shift;
|
|
|
|
$self->register_hook('logging', 'wlog');
|
|
}
|
|
|
|
sub wlog {
|
|
return DECLINED;
|
|
}
|
|
|