steffen: server/kolab/kolab kolab_smtpdpolicy,1.9,1.10

[cvs at intevation.de]

Author: steffen

Update of /kolabrepository/server/kolab/kolab
In directory doto:/tmp/cvs-serv24369/kolab

Modified Files:
	kolab_smtpdpolicy 
Log Message:
case insensitive UID comparison

Index: kolab_smtpdpolicy
===================================================================
RCS file: /kolabrepository/server/kolab/kolab/kolab_smtpdpolicy,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- kolab_smtpdpolicy	29 Jun 2004 10:19:28 -0000	1.9
+++ kolab_smtpdpolicy	3 Aug 2004 23:13:14 -0000	1.10
@@ -112,9 +112,9 @@
 }
 
 sub contains {
-  my $needle = shift;
+  my $needle = lc(shift);
   my @haystack = shift;
-  map { return 1 if $needle eq $_ } @haystack;
+  map { return 1 if $needle eq lc($_) } @haystack;
   return 0;
 }
 
@@ -159,7 +159,7 @@
     mylog($syslog_priority, "LDAP search returned ".$mesg->count()." objects") if $verbose;
     foreach $ldapobject ($mesg->entries) {
       mylog($syslog_priority, "Got object ".$ldapobject->get_value('uid') ) if $verbose;
-      if( $username && ($username eq $ldapobject->get_value('uid') || 
+      if( $username && (lc($username) eq lc($ldapobject->get_value('uid')) ||
 	  contains( $username, @{$ldapobject->get_value('delegate', asref => 1 )}))  ) {
 	# All OK, user is sending as herself or as delegate
 	mylog($syslog_priority, "$username using valid from address $sender") if $verbose;