#!/usr/bin/perl

# This script is copyright (c) 2019 by WebMO, LLC, all rights reserved.
# Its use is subject to the license agreement that can be found at the following
# URL:  http://www.webmo.net/license

package Shibboleth;

use base 'Authen::Simple::Adapter';

&main::load_interface("interfaces/authen.conf");

sub check()
{
	my ($self, $username, $password) = @_;
	#just verify a matchup between the Apache-authenticated username and the one provied to WebMO
	return (lc $username) eq (lc $ENV{REMOTE_USER});
}