<& /Elements/Header, Title => $title &> <& /Elements/Tabs &> <& /Elements/ListActions, actions => \@results &> <%INIT> my $title = loc( 'Switch Users' ); my @results; my @users = RT::Extension::SwitchUsers->GetUsersToSwitch(); Abort( loc("Permission Denied") ) unless @users; if ( $SwitchUser ) { if ( $SwitchUser =~ /^\d+$/ && grep { $SwitchUser == $_->id } @users ) { if ( $SwitchUser == $session{CurrentUser}->id ) { push @results, loc( "Current user is already '[_1]'", $session{CurrentUser}->Name ); } else { my $previous_user_name = $session{CurrentUser}->Name; my $external_authed = $session{WebExternallyAuthed}; RT::Interface::Web::InstantiateNewSession(); $session{CurrentUser} = RT::CurrentUser->new; $session{CurrentUser}->Load( $SwitchUser ); $session{WebExternallyAuthed} ||= $external_authed; my $current_user_name = $session{CurrentUser}->Name; # $users[0] is always the base user. if ( $session{CurrentUser}->id == $users[0]->id ) { RT->Logger->warning("Switched user back to $current_user_name from $previous_user_name"); } else { RT->Logger->warning("Switched user from $previous_user_name to $current_user_name"); $session{'SwitchUsers-BaseUser'} = $users[0]->id; } push @results, loc( "Switched to user '[_1]'", $current_user_name ); } } else { push @results, loc( "Invalid SwitchUser" ); } MaybeRedirectForResults( Actions => \@results ); } <%ARGS> $SwitchUser => undef