steffen: server/kolabd/kolabd kolab_smtpdpolicy,1.1.1.1,1.2
cvs at intevation.de
cvs at intevation.de
Fri Jan 14 05:41:15 CET 2005
Author: steffen
Update of /kolabrepository/server/kolabd/kolabd
In directory doto:/tmp/cvs-serv13287/kolabd/kolabd
Modified Files:
kolab_smtpdpolicy
Log Message:
fixes for issues 243 (recurrence) and 616 (policy server/ldap)
Index: kolab_smtpdpolicy
===================================================================
RCS file: /kolabrepository/server/kolabd/kolabd/kolab_smtpdpolicy,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- kolab_smtpdpolicy 23 Nov 2004 20:26:47 -0000 1.1.1.1
+++ kolab_smtpdpolicy 14 Jan 2005 04:41:13 -0000 1.2
@@ -181,6 +181,7 @@
} else {
# LDAP error?
mylog($syslog_priority, "Query returned error: ".$mesg->error ) if $verbose;
+ return "DEFER_IF_PERMIT Temporary LDAP error: ".$mesg->error;
}
if( $conf_allowunauth && !$username ) {
# Dont reject mail from other domains
@@ -204,14 +205,15 @@
my $cn = $1;
my $domain = $2;
if( contains($domain,\@conf_domain ) ) {
- $mesg = $ldap->search( base=> "cn=$cn,cn=internal,".$conf_basedn,
- scope=> 'exact', filter=> "(objectClass=kolabgroupofnames)");
+ $mesg = $ldap->search( base=> "cn=internal,".$conf_basedn,
+ scope=> 'one', filter=> "(&(cn=$cn)(objectClass=kolabgroupofnames))");
if( !$mesg->code && $mesg->count() > 0 ) {
# Ups, recipient is a restricted list, reject
mylog( $syslog_priority, "Attempt from $sender to access restricted list $recip" ) if $verbose;
return "REJECT Access denied";
} elsif( $mesg->code ) {
- #mylog( $syslog_priority, "LDAP Error: ".$mesg->error );
+ mylog( $syslog_priority, "LDAP Error: ".$mesg->error ) if $verbose;
+ return "DEFER_IF_PERMIT Temporary LDAP error: ".$mesg->error;
}
}
}
@@ -237,6 +239,7 @@
sub fatal_exit {
my($first) = shift(@_);
mylog("err", "fatal: $first", @_);
+ print STDOUT "action=DEFER_IF_PERMIT $first\n\n";
exit 1;
}
More information about the commits
mailing list