if (
($remote_ip eq “76.79.203.98″)
|| ($remote_ip eq “69.178.161.194″)
|| ($remote_host =~ /static/)
|| ($remote_host =~ /static-ip/)
|| ($remote_host =~ /atgstores/)
|| ($remote_host =~ /cedsb/)
|| ($remote_host =~ /telepacific/)
|| ($remote_host =~ /hdfowler/)
) {
# If the remote IP or the remote host matches anything in the exception list,
# simply allow it through with a note to qpsmtpd.log
my $logmessage = “qpsmtpd-nodialup: Allowing exception for $remote_host ($remote_ip) through”;
$self->log(LOGINFO,$logmessage);

}
else
{
return (DENY, “Sorry, $remote_host ($remote_ip) seems to “.
“be a dialup: use your ISP’s SMTP server, or Fix your RDNS. If you “.
“feel you are receiving this message in error, “.
“please call our voice line.”);
}

-Stego

-nodialup—————————————–
# Crude direct-connect stopper
# written by Johan Almqvist
# Modified by Stego S. Aurus 9-9-2008 to allow for exceptions.

sub hook_connect {
my ($self, $transaction) = @_;
my $remote_ip = $self->qp->connection->remote_ip;
my $remote_host = $self->qp->connection->remote_host;
my $reverse_remote_ip = join (”.”, reverse(split(/\./,$remote_ip)));
if ($remote_ip eq $remote_host) {
return (DENYSOFT, “Reverse DNS lookup for $remote_ip failed.”);
}
elsif (($remote_host =~ /$reverse_remote_ip/)
|| ($remote_host =~ /$remote_ip/)
|| ($remote_host =~ /\.dsl\./)
|| ($remote_host =~ /\.adsl\./)
|| ($remote_host =~ /\.ppp\./)
|| ($remote_host =~ /\.dhcp\./)
|| ($remote_host =~ /\.dynamicIP\./)
|| ($remote_host =~ /\.dynamic\./)
|| ($remote_host =~ /\.dip\./i)
|| ($remote_host =~ /\.abo\.wanadoo\.fr/i)
|| ($remote_host =~ /\.pool\./)) {
# The Below IF statement forces the routine to allow specific IPs or domains through.
# Would eventually like to turn this into a routine that checks a “nodialup_exceptions” file.
if (
($remote_ip != “76.79.203.98″)
|| ($remote_host !=~ /\.telepacific\./)
|| ($remote_host !=~ /\.atgstores\./)
){
return (DENY, “Sorry, $remote_host ($remote_ip) seems to “.
“be a dialup: use your ISP’s SMTP server, or Fix your RDNS. If you “.
“feel you are receiving this message in error, “.
“please call Loran Inc’s Computer Dept. at +1-800-544-4840″);
}
}
else {
return DECLINED;
}
}

Jeg har problemer med authcheckpassword. Har intallert checkpassword i /bin/checkpassword. I /home/smtpd/qpsmtpd/config/smtpauth-checkpassword ligger ref til checkpassword.

I config fila står det

auth/authcheckpassword

Ved bruk stårdette i loggen:

dispatching AUTH LOGIN
334 VXNlcm5hbWU6
334 UGFzc3dvcmQ6
running plugin (auth-login): auth::authcheckpassword
trying to get config for smtpauth-checkpassword
Plugin auth::authcheckpassword, hook auth-login returned DECLINED,
535 Authentication failed for hans -
Authentication failed for hans -
dispatching AUTH PLAIN AGhhbnMAanVuaW9yNG1lMg
==

Noen ideer?

(du bor i Oslo så jeg regner med du kan norsk? )