Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- sub handler {
- my ($session) = @_;
- my $user = $session->user->username;
- # $session->errorHandler->warn("Verify User: ".$user." REMOTE_USER: ".$ENV{'REMOTE_USER'});
- if ($user ne "Visitor" && $user ne $ENV{'REMOTE_USER'} && $ENV{'QUERY_STRING'} =~ m/ssoViaSessionId/){
- $session->user({ userId => "1" });
- return $session->style->userStyle( "Sorry you are attempting to login to this site with invalid credentials. If you have reached this page in error please contact globalnoc\@iu.edu." );
- }
- if ($user eq "Visitor" && WebGUI::User->newByUsername($session,$ENV{'REMOTE_USER'})){
- my $auth = WebGUI::Auth::CoSign->new($session,"CoSign",$ENV{'REMOTE_USER'});
- $auth->login($ENV{'REMOTE_USER'});
- }
- return "";
- }
- 1;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement