MailFrom got accidently reverted.
authorMikal Kolbein Gule <m.k.gule@usit.uio.no>
Fri, 4 Jan 2013 09:23:22 +0000 (10:23 +0100)
committerMikal Kolbein Gule <m.k.gule@usit.uio.no>
Fri, 4 Jan 2013 09:23:22 +0000 (10:23 +0100)
local/lib/RT/Interface/Email/Auth/MailFrom.pm
sbin/rt-shredder

index b0b9b04..b1ea20f 100644 (file)
@@ -84,16 +84,15 @@ sub GetCurrentUser {
     
     unless ($CurrentUser->Id) {
         my ( $found, %params );
-        while (not $found) {
-            my @auth_services = @$RT::ExternalAuthPriority;
-            for my $service (@auth_services) {
-                my $config = $RT::ExternalSettings->{$service};
-                my $lookup_attr = $config->{'lookup_attr_map'}->{'EmailAddress'};
-                next unless ($config->{'type'} eq 'ldap');
-                ($found, %params) = 
-                RT::Authen::ExternalAuth::LDAP::CanonicalizeUserInfo ( $service, $lookup_attr, $Address );
-                $CurrentUser->LoadByName( %params->{'Name'} ) if $found;
-            }
+        my @auth_services = @$RT::ExternalAuthPriority;
+        for my $service (@auth_services) {
+            my $config = $RT::ExternalSettings->{$service};
+            my $lookup_attr = $config->{'lookup_attr_map'}->{'EmailAddress'};
+            next unless ($config->{'type'} eq 'ldap');
+            ($found, %params) = 
+            RT::Authen::ExternalAuth::LDAP::CanonicalizeUserInfo ( $service, $lookup_attr, $Address );
+            $CurrentUser->LoadByName( %params->{'Name'} ) if $found;
+            last if $found;
         }
     }
 
index 64addfd..38d37c7 100755 (executable)
@@ -74,7 +74,7 @@ should wipeout.
 
 =head2 --sqldump <filename>
 
-Outputs INSERT queries into file. This dump can be used to restore data
+Outputs INSERT queiries into file. This dump can be used to restore data
 after wiping out.
 
 By default creates files
@@ -107,13 +107,13 @@ L<RT::Shredder>
 
 =cut
 
+use strict;
+use warnings FATAL => 'all';
+
 use lib '/www/data/rt/rt-perl/current-perl10/share/perl5';
 use lib '/www/data/rt/rt-perl/current-perl10/lib/perl5';
 use lib '/www/data/rt/rt-perl/current-perl10/lib64/perl5';
 
-use strict;
-use warnings FATAL => 'all';
-
 # fix lib paths, some may be relative
 BEGIN {
     require File::Spec;