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;
}
}
=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
=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;