random_error_qpsmtpd_plugin

[David Nicol]

random error plugin, for (1) testing (2) providing lower QoS to
non-premium customers or something like that such as (3) annoying your
customers, if you are in a position to actually want to do that



-- 
Lucky Cap'n Rabbit King Nuggets: For the Irish seafaring nobleman in YOU!

=head1 NAME

random_error

=head1 DESCRIPTION

This plugin randomly disconnects and issues DENYSOFTs.

=head1 CONFIG

one parameter is allowed, which is how often to error, as a percentage
of messages.  The default is 1. Use a negative number to disable.

2/5 of failures are DENYSOFT_DISOCNNECT, 3/5 simply DENYSOFT.

For use with other plugins, scribble the revised failure rate to

   $self->qp->connection->notes('random_fail_%');

=cut

sub register {
  my ($self, $qp, @args) = @_;

  die "Invalid args: '@args'" unless @args < 2;
  ($self->{__PACKAGE__.'_how'}) = $args[0] || 1;
  
}

sub NEXT() { DECLINED }

sub random_fail {
        my $self = shift;
        my $fpct = $self->qp->connection->notes('random_fail_%');
        rand(100) > ($fpct / 6) and return NEXT;
        rand(5) < 2 and return (DENYSOFT_DISCONNECT, "random failure");
        return (DENYSOFT, "random failure");
}


sub hook_connect {
    $self->qp->connection->notes('random_fail_%', $self->{__PACKAGE__.'_how'});
    goto &random_fail
}

sub hook_helo {
    goto &random_fail
}

sub hook_ehlo {
    goto &random_fail
}

sub hook_mail {
    goto &random_fail
}

sub hook_rcpt {
    goto &random_fail
}

sub hook_data {
    goto &random_fail
}

sub hook_data_post {
    goto &random_fail
}