mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-15 15:55:54 +01:00
c5800b3354
Features freeze for 3.1 (lithium) Working on the planned issues for this milestone https://github.com/danieleteti/delphimvcframework/milestones/3.1%20(helium)
101 lines
3.1 KiB
ObjectPascal
101 lines
3.1 KiB
ObjectPascal
// ***************************************************************************
|
|
//
|
|
// Delphi MVC Framework
|
|
//
|
|
// Copyright (c) 2010-2017 Daniele Teti and the DMVCFramework Team
|
|
//
|
|
// Contributer on this file: Janidan - https://github.com/janidan
|
|
//
|
|
// https://github.com/danieleteti/delphimvcframework
|
|
//
|
|
// ***************************************************************************
|
|
//
|
|
// Licensed under the Apache License, Version 2.0 (the "License");
|
|
// you may not use this file except in compliance with the License.
|
|
// You may obtain a copy of the License at
|
|
//
|
|
// http://www.apache.org/licenses/LICENSE-2.0
|
|
//
|
|
// Unless required by applicable law or agreed to in writing, software
|
|
// distributed under the License is distributed on an "AS IS" BASIS,
|
|
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
// See the License for the specific language governing permissions and
|
|
// limitations under the License.
|
|
//
|
|
// *************************************************************************** }
|
|
|
|
unit RoleAuthHandlerU;
|
|
|
|
interface
|
|
|
|
uses
|
|
MVCFramework.Commons,
|
|
MVCFramework,
|
|
System.Generics.Collections,
|
|
MVCFramework.Middleware.Authentication.RoleBasedAuthHandler;
|
|
|
|
type
|
|
TCustomRoleAuth = class(TRoleBasedAuthHandler)
|
|
public
|
|
// if authentication is required, this method must execute the user authentication
|
|
procedure OnAuthentication(const AContext: TWebContext;
|
|
const UserName: string;
|
|
const Password: string;
|
|
UserRoles: TList<System.string>;
|
|
var IsValid: Boolean;
|
|
const SessionData: TDictionary<string,string>); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TCustomRoleAuth }
|
|
|
|
procedure TCustomRoleAuth.OnAuthentication(const AContext: TWebContext; const UserName: string; const Password: string;
|
|
UserRoles: TList<System.string>; var IsValid: Boolean;
|
|
const SessionData: System.Generics.Collections.TDictionary<System.string,
|
|
System.string>);
|
|
begin
|
|
{
|
|
Here you should do the actual query on database or other "users store" to
|
|
check if the user identified by UserName and Password is a valid user.
|
|
You have to fill also the UserRoles list with the roles of the user.
|
|
Moreover additional user properties can be added in the SessionData dictionary
|
|
}
|
|
|
|
// We defined 3 static users here: admin, user1, user2
|
|
IsValid := False;
|
|
if (UserName = 'admin') and (Password = 'adminpass') then
|
|
begin
|
|
IsValid := True;
|
|
UserRoles.Add('admin');
|
|
UserRoles.Add('role1');
|
|
UserRoles.Add('role2');
|
|
end
|
|
else if (UserName = 'user1') and (Password = 'user1pass') then
|
|
begin
|
|
IsValid := True;
|
|
UserRoles.Add('role1');
|
|
end
|
|
else if (UserName = 'user2') and (Password = 'user2pass') then
|
|
begin
|
|
IsValid := True;
|
|
UserRoles.Add('role2');
|
|
end
|
|
else if (UserName = 'user1_2') and (Password = 'user1_2pass') then
|
|
begin
|
|
IsValid := True;
|
|
UserRoles.Add('role1');
|
|
UserRoles.Add('role2');
|
|
end
|
|
else if (UserName = 'user3') and (Password = 'user3pass') then
|
|
begin
|
|
IsValid := True;
|
|
UserRoles.Add('role3');
|
|
end;
|
|
|
|
// if you dont have "roles" concept in your system, you can also avoid to use them and
|
|
// sets only IsValid := True;
|
|
end;
|
|
|
|
end.
|